Thứ năm, 14/11/2024
IMG-LOGO

Câu hỏi:

22/07/2024 6,371

Cho đoạn chương trình sau:

Var g:text;

I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 <> 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8;10

B. 1; 3; 5; 9

C. 1; 3; 5;7; 9

Đáp án chính xác

D. 4; 6; 8;10

Trả lời:

verified Giải bởi qa.haylamdo.com

Đáp án đúng : C

Câu trả lời này có hữu ích không?

4

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:

Xem đáp án » 01/09/2021 15,698

Câu 2:

Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:

Xem đáp án » 01/09/2021 4,808

Câu 3:

Cho s = ‘ABCDEF’, hàm copy (s, 2, 3) cho giá trị là:

Xem đáp án » 01/09/2021 4,351

Câu 4:

Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh:

Xem đáp án » 01/09/2021 3,568

Câu 5:

Muốn khai báo x, y là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:

Xem đáp án » 01/09/2021 2,425

Câu 6:

Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:

Xem đáp án » 01/09/2021 2,162

Câu 7:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’

Lệnh nào sau đây cho kết quả ‘Truyen Kieu’

Xem đáp án » 01/09/2021 1,767

Câu 8:

Tệp f1 có dữ liệu  để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:

Xem đáp án » 01/09/2021 1,742

Câu 9:

Cho đoạn chương trình sau:

s1 := ‘bbaa’; s2: ‘abcd’;

if s1 > s2 then write(s1) else write(s2);

Kết quả in ra màn hình là:

Xem đáp án » 01/09/2021 1,663

Câu 10:

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số chẵn trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

Xem đáp án » 01/09/2021 1,516

Câu 11:

Các biến được khai báo dùng riêng cho chương trình con được gọi là:

Xem đáp án » 01/09/2021 1,185

Câu 12:

Cho s = ‘Turbo Pascal’, hàm length(s) cho giá trị bằng:

Xem đáp án » 01/09/2021 1,128

Câu 13:

Cho đoạn chương trình sau:

s1 := ‘abcd’; s2: ‘abab’;

if length(s1) > length(s2) then write(s1) else write(s2);

Kết quả in ra màn hình là:

Xem đáp án » 01/09/2021 874

Câu 14:

Khai báo 2 biến xâu a, b nào sau đây là đúng:

Xem đáp án » 01/09/2021 835

Câu 15:

Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:

Xem đáp án » 01/09/2021 802