a: Không vì giá trị đầu lớn hơn giá trị cuối
b: Không vì giá trị đầu và giá trị cuối là số thập phân
c: Không vì điều kiện trong while là phép gán
Các câu lệnh sau trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho hợp lệ?
a) For i:= 50 to 10 do writeln(‘A’);
b) For i:= 1.5 to 5.5 do Writeln(‘A’);
c) X:= 3; while X:=3 do X= X + 1;
d) X:= 5; while X =5 do; X:= X + 2;
các câu lệnh sau có hợp lệ khhông vì sao
a/ while i:=1 do s:=10;
b/ while a<=b; do write('b khong nho hon a');
Các câu lệnh pascal sau có hợp lệ không? Vì sao? A) for k:=2 to 50 do x:=x-2; B) a:=3,b:=6 While b>a do Begin b:=b-2 Write('A'); End.
Các câu lệnh sau trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho hợp lệ?
a) For i:= 50 to 10 do writeln(‘A’);
b) For i:= 1.5 to 5.5 do Writeln(‘A’)
Các câu lệnh Pascal sau có hợp lệ không ? Vì sao ?
A. For i:= 5 to 1 do writeln(‘Hello năm 2023’);
B. x:= 10 ; while x< 10 do x= x+ 5;
Bài 1: Trong các câu lệnh Pascal sau đây, câu lệnh nào sai và sai ở đâu?
a) While i:=1 to t:=10;
b) While a<=b ; do write(‘b khong lon hon a’);
c) While 1=1 do write(‘Toi lap trinh gioi’);
d) i:=1; while i<10 do sum:=sum+i; i:=i+1;
e) i:=1; x:=5;
while i<x do i:=i+1; write(‘Gia tri cua i la: ’,i);
Bài 2: Hãy cho biết câu lệnh writeln in ra màn hình giá trị của i, j và k là bao nhiêu?
a) Đoạn chương trình 1
i:=1; j:=2; k:=3;
While i<6 do i:=i+1; j:=j+1; k:=k+j;
Writeln(i,’ ’,j,’ ’,k);
b) Đoạn chương trình 2
i:=1; j:=2; k:=3;
While i<6 do begin i:=i+1; j:=j+1; k:=k+j; end;
Writeln(i,’ ’,j,’ ’,k);
Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i := 1.5 to 5.5 do writeln(‘A’);
B. for i := 1 to 100 do writeln(‘A’);
C. for i := 10 to 1 do writeln(‘A’);
D. for i := 1 to 10; do writeln(‘A’);
Câu 14: Câu lệnh nào sau đây hợp lệ
A. for i:=100 to 1 do writeln(‘A’);
B. for i:= 1.5 to 10.5 do writeln(‘A’);
C. for i:= 1 to 10 do; writeln(‘A’);
D. for i:=1 to 10 do writeln(‘A’);
Xác định lỗi sai và sửa lại
a) Var X : Array [1;50] of integer;
b) Var X : Array [5..50.5] of real;
c) For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A');
e) While x:=10 do x:=x+5;
