Bài 10. Cấu trúc lặp

?
BÀI GIẢNG MÔN TIN HỌC 11
TRƯỜNG THPT KRÔNG ANA
?
?
?
?
?
?
Giáo viên: Phạm Ngọc Nam
Tổ Toán-Tin
00:45:00
Trả lời:
Kiểm tra bài cũ
?Em hãy viết cú pháp của câu lệnh lặp For-do dạng tiến và dạng lùi? Cho ví dụ minh họa?
For := to do < câu lệnh>;
Ví dụ: S:=1/a;
For i:=1 to 100 do S:=S+1/(a+i);
Dạng lùi:
For := downto do < câu lệnh>;
Ví dụ: S:=1/a;
For i:=100 downto 1 do S:=S+1/(a+i);
Dạng tiến:
00:44:50
cấu trúc lặp
BÀI GiẢNG ĐIỆN TỬ TIN HỌC LỚP 11
Bài 10
(Tiết 2)
00:44:47
XÂY DỰNG THUẬT TOÁN (Dạng tiến)
2. Lặp với số lần lặp biết trước
00:44:41

Viết chương trình cho thuật toán Tổng_1a(Lặp tiến)
2. Lặp với số lần lặp biết trước
Program Tong_1a ;
Uses crt ;
Var a, N : Integer ;
S : real ;
Begin
Write(‘Hay nhap vao gia tri a: ‘) ;
Readln(a) ;
Clrscr ;
S := 1/a ;
Write(‘Tong S la : ‘, S : 8 : 3) ;
Readln
End.
For N := 1 to 100 do
S := S + 1/(a + N) ;
{ Bước 1 }
{ Bước 2 }
{ Bước 3 và bước 5 }
{ Bước 4 }
{ Bước 6 }
{ Phần khai báo }
00:44:32

XÂY DỰNG THUẬT TOÁN (Dạng lùi)
2. Lặp với số lần lặp biết trước
00:44:28
2. Lặp với số lần lặp biết trước
00:44:26
Ví dụ 2: Nhập từ bàn phím 2 số nguyên dương M và N (M2. Lặp với số lần lặp biết trước
Program Tong_2 ;
Var M, N, i : Integer ;
T : longint ;
Begin
Write(‘Hay nhap vao gia tri M nho hơn N ‘) ;
Write(‘Nhap M = ‘); Readln(M) ;
T := 0 ;
Write(‘Tong T la : ‘, T) ;
Readln
End.
For i := M to N do
T := T + i ;
Write(‘Nhap N = ‘); Readln(N) ;
If (i mod 3 = 0) or (i mod 5 = 0) then
00:45:00
Ví dụ 3: Lập trình tính giá trị biểu thức T = 12 + 22 + 32 +…+ n2. Với n được nhập từ bàn phím (n >0).
2. Lặp với số lần lặp biết trước
Program Tong_3 ;
Uses crt ;
Var i, n : Integer ;
T : Longint ;
Begin
Write(‘Hay nhap vao gia tri n : ‘) ;
Readln(n) ;
Clrscr ;
T := 0 ;
Write(‘Tong T la : ‘, T) ;
Readln
End.
For i := n to 1 do
T := T + i*i ;
00:45:00
Bài học hôm nay đến đây kết thúc!
Xin chào các thầy cô và các em học sinh!
00:45:00