Tin học Ôn tập cuối năm

[tuantiepvip99hy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho chương trình sau ( bằng Turbo Pascal):
Begin {1}
Write('Tong cac so chan lon hon 50 la:',t);{2}
While i<50 do{3}
Begin{4}
If i mod 2=0 then{5}
t:=t+i;{6}
i:=i+1;{7}
end;{8}
Uses crt;{9}
Var i, t:integer;{10}
i:=1; t:=0;{11}
Clrscr;{12}
Readln;{13}
End.{14}
â) Chương trình trên bị sai về vị trí các dòng {2}, {9}, {10}, {11}, {12}, hãy sắp xếp lại các vị trí của các dòng này để được chương trình đúng.
b) Hãy cho biết công dụng của chương trình trên

 

[Bùi Thành Công]

Cho chương trình sau ( bằng Turbo Pascal):
Begin {1}
Write('Tong cac so chan lon hon 50 la:',t);{2}
While i<50 do{3}
Begin{4}
If i mod 2=0 then{5}
t:=t+i;{6}
i:=i+1;{7}
end;{8}
Uses crt;{9}
Var i, t:integer;{10}
i:=1; t:=0;{11}
Clrscr;{12}
Readln;{13}
End.{14}
â) Chương trình trên bị sai về vị trí các dòng {2}, {9}, {10}, {11}, {12}, hãy sắp xếp lại các vị trí của các dòng này để được chương trình đúng.
b) Hãy cho biết công dụng của chương trình trên

chương trình sửa lại như thế này

Uses crt;{9}
Var i, t:integer;{10}
Begin {1}
Clrscr;{12}
i:=1; t:=0;{11}
While i<50 do{3}
Begin{4}
If i mod 2=0 then{5}
t:=t+i;{6}
i:=i+1;{7}
end;{8}
Write('Tong cac so chan lon hon 50 la:',t);{2}
Readln;{13}
End.{14}

chương trình có tác dụng tính tổng các số chẵn nhỏ hơn 50