Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (187.01 KB, 7 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1></div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
<b>CÂU 1: Phát hiện lỗi sai trong các câu lệnh sau:</b>
a. For a = 1 to 100 do writeln(i);
For a:= 1 to 100 do writeln(i);
b. For b: 1.3 to 300.3 do write(‘0’)
For b:= 1 to 300 do write(‘0’);
c. For c:= 3.5 to 10 do ;
<b>For </b>bi n đ m:= giá tr đ uế ế ị ầ <b> To </b>giá tr cu i ị ố
<b>Do </b>câu l nh;ệ
- Bi n đ m thế ế ường là ki u nguyênể
- Giá tr đ u nh h n giá tr cu i và là các giá ị ầ ỏ ơ ị ố
tr trùng v i ki u d li u c a bi n đ m.ị ớ ể ữ ệ ủ ế ế
<b>Câu 2: Em hãy cho bi t chế</b> <b>ương trình sau khi </b>
<b>ch y s cho k t qu nh th nào?ạ</b> <b>ẽ</b> <b>ế</b> <b>ả</b> <b>ư</b> <b>ế</b>
Var i:byte;
Begin
For i:=1 to 50 do writeln (‘xin chao’);
Readln;
End.
<b>Câu 3: Em hãy cho bi t chế</b> <b>ương trình sau khi </b>
<b>ch y s cho k t qu nh th nào?ạ</b> <b>ẽ</b> <b>ế</b> <b>ả</b> <b>ư</b> <b>ế</b>
Var i:byte;
Begin
For i:=1 to 50 do writeln (i);
Readln;
End.
<b>Câu 4: Em hãy cho bi t chế</b> <b>ương trình sau khi ch y s ạ</b> <b>ẽ</b>
<b>cho k t qu nh th nào?ế</b> <b>ả</b> <b>ư</b> <b>ế</b>
Var i, tong: integer;
Begin
tong:=0;
For i:=1 to 5 do tong:=tong+i;
writeln(tong);
Readln;
End.