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. 1; 3; 5; 7; 9
B. 1; 3; 5; 9
C. 2; 4; 6; 8; 10
D. 4; 6; 8; 10
Lời giải của giáo viên
ToanVN.com
Chạy chương trình thì i sẽ chạy từ 1 đến 10 và tìm những số không chia hết cho 2, vậy kết quả sẽ là 1; 3; 5; 7; 9
CÂU HỎI CÙNG CHỦ ĐỀ
Khi chạy chương trình với lệnh Write(3:2); sẽ được kết quả là:
Hãy chọn kết quả đúng của đoạn chương trình sau.
s := 0; for i:= 1 to 10 do s:=s + i; Write(s);
Hãy chọn biểu diễn hằng đúng trong các biểu diễn sau:
Phát biểu nào dưới đây là sai khi nói về biên dịch và thông dịch ?
Sau khi thi hành đoạn chương trình sau , thì biến x viết ra mà hình có giá trị là bao nhiêu ?.
A:= 4 ; B: = 1; X:= 2 ;
IF A + B > 6 THEN X := X + A + B else X := 2; WRITE (X);
Tệp f có dữ liệu 5 9 15 để đọc 3 giá trị trên từ tệp f và ghi các giá trị này vào 3 biến x, y, z ta sử dụng câu lệnh:
Trong NNLT Pascal, chương trình sau có kết quả gì?
If (5 mod 2=0) then write (‘Sai’)
Else write (‘Dung’);
Hãy chọn phương án ghép đúng . Ngôn ngữ lập trình là ngôn ngữ
Với i là biến kiểu thực( i=3) Khi chạy đoạn chương trình với lệnh Write(i:5:2); sẽ được kết quả là:
Đoạn chương trình sau thực hiện công việc gì ?
i := 0 ; while i <> 0 do write(i, ‘ ’) ;