Bai 10-Cau truc lap(tiet 2)

Viết chương trình cho thuật toán Tổng_1aLặp tiến2... 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

Trả lời:

? 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 <biến đếm> := <giá trị đầu> to <giá trị cuối> 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 <biến đếm> := <giá trị cuối> downto <giá trị đầu> 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:

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)

B1: Nhập a;

B2: S 1/a; N 1;

B3: Nếu N > 100 thì chuyển xuống bước 6.

B4 : S  S + 1/(a+N);

B5: N  N +1 quay lại B3.

S

§

S

Nhập a

S  1/a ; N  1

N > 100 ? Đưa S ra màn hình rồi kết thúc!

S  S + 1/(a + N)

N  N + 1 B6: Đưa ra giá trị S rồi Kết thúc;

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 ;

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

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)

B1: Nhập a;

B2: S 1/a; N 100;

B3: Nếu N <1 thì chuyển xuống bước 6.

B4 : S  S + 1/(a+N);

B5: N  N -1 quay lại B3.

S

§

S

Nhập a

S  1/a ; N  100

N <1 ? Đưa S ra màn hình rồi kết thúc!

S  S + 1/(a + N)

N  N - 1 B6: Đưa ra giá trị S rồi Kết thúc;

2 Lặp với số lần lặp biết trước

Viết chương trình cho thuật toán Tổng_1a(Lặp lùi)

Program Tong_1a ;

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

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:26

Ví dụ 2: Nhập từ bàn phím 2 số nguyên dương M và N (M<N) Tính

và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi

từ M đến N.

Program Tong_2 ;

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

T := T + i ;

Write(‘Nhap N = ‘); Readln(N) ;

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 ;

T : Longint ;

Begin

Write(‘Hay nhap vao gia tri n : ‘) ;

Readln(n) ;

Clrscr ;

T := 0 ;

Write(‘Tong T la : ‘, T) ;

Readln

End

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!