Bài 8. Lặp với số lần chưa biết trước

Kiểm tra bài cũ :
Program Bai2;
Var B: ; I,N: ;
Begin
N=3; B=278;
I:=N+B;
Write(I);
Readln;
End.
Kiểm tra bài cũ :
Bài 2 :Kiểm tra lỗi chương trình sau :
Gợi ý:
Kiểu Nguyên:
Byte [0..255]
Integer[??]
Kiểu thực:
Real[?]
Byte
Integer
Real
Integer
Bài 8: Câu lệnh Repeat?Until
a- Cấu trúc:Repeat ;Until 
b- Sự hoạt động:B1:Thực hiện  nhóm lệnh liên tụcB2:Cho đến khi biểu thức logic 
đúng : máy thoát khỏi chu trình
sai : máy trở lại bước 1
Ghi chú:
? Giữa Repeat?Until không cần begin ?end;

? Các biến trong có thể là kiểu nguyên, thực, char, boolean.

? Thân chu trình thực hiện ít nhất 1 lần


Bài 8: Câu lệnh Repeat?Until
Tính tổng : S=1+2+3+?+n
Gợi ý:Cho n=1 ? S=1  n=2 ? S=1+2 = 3 n=3 ? S=1+2+3 = 6 n=4 ? S=1+2+3+4 = 10  ? n=n -->
Bài 8: Câu lệnh Repeat?Until
Ví dụ:
Lập trình:
S=1+2+3+?+n
Program TongS;
Var
Begin






Readln;
End.
Write(?Nhap n= ?); Readln(n);
Repeat S:=S+i; i :=i+1;Until i>n;
S:=0; i:=1;
n : Integer;
Write(?Tong S = ?,S);
Hđộng máy:
Nhập n=3
,S,i
S:=0; i:=1;


S:=S+i=
0+1=1

i :=i+1=
1+1=2

(i =2)< (n=3)

S:=S+i=
1+2=3
i :=i+1=
2+1=3
(i =3)<(n=3)
S:=S+i=
3+3=6
i :=i+1=
3+1=4
(i =4) >(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;
End.
Nhaán Ctrl F9 chaïy chöông trình
Màn hình kết quả
Nhập n =
3
Tổng S = 6
Nhaán ESC thoaùt veà chöông trình
Màn hình kết quả
Nhập n =
4
Tổng S = 10
Nhaán ESC thoaùt veà chöông trình
Liên hệ thực tế
Áp dụng để giải các bài tập dạng :1-Tính biểu thức :a- S = 12 +22 + 32 ?+ n2b- n! = 1.2.3?nc- S = 1+ 1 + ?+ 1 1! 2! n!2-Hiển thị một dãy số, ký tự:3-Tạo bản nhạc :
*
***
****
*****
*******
*********
************
**************


1 2 3 4 5 6 7 8 9 10



2 4 6 8 10



3 5 7



1 2 3 4 5 6 7 8 9 10



Liên hệ thực tế
Câu 1: Khối lệnh giữa ?? cần begin ?end
a-Repeat ..Until b- If?then?else c- While?do
Câu 2: Thân chu trình??chỉ thoát khi biểu thức logic có giá trị đúng
a-Repeat ..Until b- While?do
Câu 3: ????..là vòng lặp không xác định
a-Repeat ..Until b- If?then?else c- While?do

Câu hỏi trắc nghiệm
Câu hỏi trắc nghiệm
Câu 6:
a-Đúng b-Sai


Đúng rồi
Đúng rồi
Đúng rồi
Sai rồi
Sai rồi
Củng cố kiến thức
0
1
cần
Không cần
Bài 1: Tính :
a- S = 12 +22 + 32 ?+ n2b- n! = 1.2.3?nc- S = 1 + 1 + ? + 1 1! 2! n!


Bài tập về nhà
Phần thưởng :
Cám ơn quí thầy cô giáo đã đến dự tiết học