Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i:=1 to 99 do;
end.
A. Chương trình chạy biến i từ 1 đến 100.
B. Chương trình chạy biến i từ 1 đến 99 rồi không làm gì cả.
C. Chương trình chạy biến i từ 1 đến 100 rồi không làm gì cả.
D. Chương trình chạy biến i từ 1 đến 99.
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i =1 to 101 do;
end.
A. Chương trình chạy biến i từ 1 đến 101.
B. Chương trình chạy biến i từ 1 đến 100.
C. Chương trình chạy biến i từ 1 đến 101 rồi không làm gì cả.
D. Kết quả khác.
Câu 20: Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i =1 to 101 do;
end.
A. Chương trình chạy biến i từ 1 đến 101.
B. Chương trình chạy biến i từ 1 đến 100.
C. Chương trình chạy biến i từ 1 đến 101 rồi không làm gì cả.
D. Kết quả khác.
Tìm và sửa lỗi cho chương trình sau:
Bài 1:
Program bai 1;
Var x; n: integer;
Begin
X=12
Write(n:4,x:4);
ReadIn
End.
Bài 2:
Program 2bai;
Var i, n, s:real;
Begin
S:=0
For i:=0.5 to n do
S=S+i;
Write(s);
ReadIn
End.
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0;
For i:=2 to 8 do S :=S+i
b) S:=0; n:=1;
For i:=1 to 6 do
Begin
S:=S+n;
n:=n+i;
end;
c) S:=2;
For i:=1 to 10 do
If(i mod 2)=0 then S:=S+i;
d) S:=0; i:= 1,5;
While S<7 do S:=S+i;
e) S:=0; i:=1;
While i<9 do
Begin
S:=S+i;
i:=i+2;
End;
f) S:=2; i:=1;
While i<= 10 do
Begin
If (i mod 2) then S:=S+i;
i:=i+1;
End;
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=3 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=9 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<10 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6