Lập trình - Thực hành

Câu lệnh lặp FOR ... TO... DO... dùng để:

• Lặp với số bước lặp biết trước số lần lặp

• Lặp với số bước lặp chưa biết trước số lần lặp

• Lặp theo tùy chọn

• Lặp tổng hợp

Câu lệnh lặp While....do .... dùng để:

• Lặp tùy chọn

• Lặp với số bước lặp biết trước số lần lặp

• Lặp tổng hợp

• Lặp với số bước lặp chưa biết trước số lần lặp

s:=0;

câu lệnh for i:=2 to 5 do s:=s+1; kết thúc vòng lặp s mang giá trị

• s=7

• s=5

• s=4

• s=6

đoạn chương trình

s:=0; i:=3;

while i<=5 do begin

s:=s+1;

i:=i+1;

end;

Kết quả trả lại S=?

• s=2

• s=4

• s=3

• s=5

            Đoạn chương trình sau trả lại kết quả như thế nào?

Var x, y:integer;

Begin

x:=5; y:=8;

If  x<5 then x:=y+3 else x:=y+2; Writeln(‘ giá trị của x và y là:’, x,y);

End.

• x=5, y=8

• x=11, y=8

• x=10, y=8

• x=5, y=11

Chọn đáp án đúng trong các đáp án sau:

• for i= 100 to 1 do s:=s+i;

• i:=1 ; while i<=100 do begin s:=s+i; i:=i+s; end;

• a=5; if i:=a then writeln(‘ hai so a va i bang nhau’);

• for i=1.5 to 1 do s:=s+1;

Đoạn chương trình sau trả lại kết quả như thế nào?

Var x, y:integer;

Begin

x:=5; y:=8;

If  x>5 then x:=y+3; Writeln(‘ giá trị của x và y là:’, x,y);

End.

• x=5, y= 8

• x=5, y=11

• x=11, y=5

• x=8, y=5

Chọn đáp án đúng trong các đáp án sau:

• var a: rray[1..10] of integer;

• var a: array[1..10] of integer;

• var b: array[1....10] of integer;

• var b: rray[1..N] of integer;

Đoạn chương trình sau khi chạy trả lại kết quả:

Var s, i, n: integer; a:array[1..10] of integer;

Begin

s:=0; a[1]:=2; a[2]:=3; a[3]:=5;

writeln(‘nhap vao n=’); readln(n);

for i:=1 to 3 do s:=s+a[3];

writeln(‘tong s la s=’,s);

readln;

end.

• s=10

• s=9

• s=15

• s=6

Đoạn chương trình sau trả lại kết quả

Var s, i, n: integer; a:array[1..12] of integer;

Begin

s:=1; i:=1; a[1]:=4; a[2]:=6; a[3]:=5;

writeln(‘nhap vao n=’); readln(n);

while i<=3do s:=s*a[i];

writeln(‘tich s =’,s);

readln;

end.

• s=100

• s=110

• s=120

• s=130