Đang tải... (xem toàn văn)
Viết chương trình cho thuật toán Tổng_1a(Lặp tiến) 2... XÂY DỰNG THUẬT TOÁN (Dạng lùi)![r]
(1)BÀI GiẢNG ĐIỆN TỬ TIN HỌC LỚP 11
Bài 10
(2)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
B1: Nhập a;
B2: S 1/a; N 1;
B3: Nếu N > 100 chuyển xuống bước B4 : S S + 1/(a+N);
B5: N N +1 quay lại B3.
Thuật toán Tong_1a: 1 1 1 1
1 2
S
a a a a N
§
S
Nhập a S 1/a ; N
N > 100 ? Đưa S hình kết thúc!
S S + 1/(a + N)
(3)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 : : 3) ; Readln
End
For N := to 100
S := S + 1/(a + N) ;
{ Bước } { Bước }
{ Bước bước } { Bước }
(4)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
B1: Nhập a;
B2: S 1/a; N 100;
B3: Nếu N <1 chuyển xuống bước B4 : S S + 1/(a+N);
B5: N N -1 quay lại B3.
Thuật toán Tong_1b: 1 1 1 1
1 2
S
a a a a N
§
S
Nhập a
S 1/a ; N 100
N <1 ? Đưa S hình kết thúc!
S S + 1/(a + N)
(5)2 Lặp với số lần lặp biết trước
Viết chương trình cho thuật tốn Tổng_1a(Lặp lùi)
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 : : 3) ; Readln
End
For N := 100 downto
S := S + 1/(a + N) ;
{ Bước } { Bước }
{ Bước bước } { Bước }
(6)Ví dụ 2: Nhập từ bàn phím số nguyên dương M N (M<N) Tính và đưa hình tổng số chia hết cho phạm vi từ M đến N.
2 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 N ‘) ; Write(‘Nhap M = ‘); Readln(M) ;
T := ;
Write(‘Tong T la : ‘, T) ; Readln
End
For i := M to N
T := T + i ;
Write(‘Nhap N = ‘); Readln(N) ;
(7)Ví dụ 3: Lập trình tính giá trị biểu thức T = 12 + 22 + 32 +…+ n2
Với n 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 := ;
Write(‘Tong T la : ‘, T) ; Readln
End
For i := n to
(8)Bài học hôm đến kết thúc!