Câu hỏi:
04/04/2024 36Cho đ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
D. 4; 6; 8;10
Trả lời:
Đáp án đúng : C
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 2:
Cho đoạn chương trình sau:
s1 := ‘123d’; s2 := ‘abcd’;
delete(s1, 1, 3);
write(pos (s1, s2));
Kết quả in ra màn hình là:
Câu 3:
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à:
Câu 5:
Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:
Câu 6:
Các biến được khai báo dùng riêng cho chương trình con được gọi là:
Câu 7:
Giả sử ta có hàm max(A, B: integer) : integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?
Câu 9:
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Truyen Kieu’
Câu 10:
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à:
Câu 12:
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:
Câu 13:
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”.
Câu 15:
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à: