[r]
(1)(2)KIỂM TRA BÀI CŨ
CÂU 1: Phát lỗi sai câu lệnh sau:
a For a = to 100 writeln(i); For a:= to 100 writeln(i); b For b: 1.3 to 300.3 write(‘0’)
For b:= to 300 write(‘0’); c For c:= 3.5 to 10 ;
(3)C U TRÚC CÂU L NH L PẤ Ệ Ặ
For bi n đ m:= giá tr đ uế ế ị ầ To giá tr cu i ị ố
Do câu l nh;ệ
- Bi n đ m ế ường ki u nguyênể
- Giá tr đ u nh h n giá tr cu i giá ị ầ ỏ ị ố tr trùng v i ki u d li u c a bi n đ m.ị ể ữ ệ ủ ế ế
(4)Câu 2: Em cho bi t chế ương trình sau ch y s cho k t qu nh th nào?ạ ẽ ế ả ư ế
Var i:byte; Begin
For i:=1 to 50 writeln (‘xin chao’); Readln;
End
KIỂM TRA BÀI CŨ
(5)Câu 3: Em cho bi t chế ương trình sau ch y s cho k t qu nh th nào?ạ ẽ ế ả ư ế
Var i:byte; Begin
For i:=1 to 50 writeln (i); Readln;
End
KIỂM TRA BÀI CŨ
(6)Câu 4: Em cho bi t chế ương trình sau ch y s ạ ẽ cho k t qu nh th nào?ế ả ư ế
Var i, tong: integer; Begin
tong:=0;
For i:=1 to tong:=tong+i; writeln(tong);
Readln; End
KIỂM TRA BÀI CŨ
(7)TH C HÀNH:Ự
Bài 1: Vi t chế ương trình in
các s t 10 đ n 100ố ừ ế
Bài 2: Vi t chế ương trình tính
t ng sau:ổ