Bài 8. Lặp với số lần chưa biết trước
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hồ Thị Phi Yến
Ngày gửi: 23h:15' 30-11-2007
Dung lượng: 516.5 KB
Số lượt tải: 78
Nguồn:
Người gửi: Hồ Thị Phi Yến
Ngày gửi: 23h:15' 30-11-2007
Dung lượng: 516.5 KB
Số lượt tải: 78
Số lượt thích:
0 người
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ục B2: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 ?+ n2 b- n! = 1.2.3?n c- 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 ?+ n2 b- n! = 1.2.3?n c- 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
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
b- Sự hoạt động: B1:Thực hiện nhóm lệnh liên tục B2: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
? 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 ?+ n2 b- n! = 1.2.3?n c- 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 ?+ n2 b- n! = 1.2.3?n c- 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
Các ý kiến mới nhất