C Söï hoaït ñoäng B1 Thöïc hieän nhoùm leänh lieân tuïc B2 Cho ñeán khi bieåu thöùc logic ñuùng maùy thoaùt khoûi chu trình sai maùy trôû laïi böôùc 1 Kieåm tra baøi cuõ Chænh söûa baøi kieåm tra 1[.]
Kiểm tra cũ : Chỉnh sửa kiểm tra tiết: Bài :Kiểm tra lỗi chương trình sau : Program Bai2; Var I:Interger; B,N:Real; Begin N=3; B=278; I:=N+B; Write(I); Readln; End Giải Bài Giải Bài Phần thưởng Bài :Lập trình nhập n thuộc Z+ Sau hiển thị lên hình kết số nguyên dương chẵ in; Write(‘Tong S = Readln; End ‘,S); 1+2= S:=S+i= (i 2+1= i :=i+1= =3)(n=3 Thoát khỏi chu trình Program TongS; Var n,S,i : Integer; Begin Write(‘Nhap n= ‘); Readln(n); S:=0 ; i:=1; Repeat S:=S+i; i:= i+1; Until i>n Writeln(‘Tong S=‘,S); Readln; Nhấn Ctrl F9 chạy chương trìn End Màn hình kết • Nhập n 3= Tổng S = Nhấn ESC thoát chương tr Màn hình kết • Nhập n 4= Tổng S = 10 Nhấn ESC thoát chương tr Liên hệ thực tế Áp dụng để giải tập dạng : 1-Tính biểu thức : a- S = 12 +22 + 32 …+ n2 b- n! = 1.2.3…n c- S = 1+ + …+ 1! 2! n! 2-Hieån thị dãy số, ký tự: 3-Tạo nhạc : Liên hệ thực tế 10 10 10 * *** **** ***** ******* ********* ************ ************** Câu hỏi trắc nghiệm • Câu 1: Khối lệnh …… cần begin …end • a-Repeat Until b- If…then…else c- While… • Câu 2: Thân chu trình……chỉ thoát biểu thức logic có giá trị • a-Repeat Until b- While…do • Câu 3: ………… vòng lặp không xác định • a-Repeat Until b- If…then…else c- While… Câu hỏi trắc nghiệm • Câu 6: • a-Đúng b-Sai Đúng Đúng Đúng Sai Sai Củng cố kiến thức WHILE…DO -Cấu trúc: While begin ; end; -Thân chu trình thực cần nhất… lần REPEAT … UNTIL -Cấu trúc: Repeat ; Until < đk đúng> - Thân chu trình thực Không nhất………lần Bài tập nhà • Bài 1: Tính : • a- S = 12 +22 + 32 …+ n2 b- n! = 1.2.3…n c- S = + + … + 1! 2! n!