giao an

Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên. dương được nhập vào từ bàn phím[r]

PHÒNG GIÁO DỤC ĐÀO TẠO HƯƠNG THỦY

GIÁO ÁN ĐIỆN TỬ

LỚP 8

HƯƠNG THỦY 2010- 2011

Kiểm tra cũ:

? Để in hình dịng chữ: “THCS Thuy Chau” ta làm nào?

1 Ví dụ câu lệnh lặp a) Cú pháp :

FOR biến đếm : = giá trị đầu TO giá trị cuối DO

Câu lệnh vòng lặp ;

 Giá trị đầu < Giá trị cuối

BÀI 7: CÂU LỆNH LẶP (t2)

Trong đó:

 Biến đếm phải thuộc kiểu liệu đếm

-Không làm thay đổi giá trị biến đếm

-Nếu có nhiều lệnh phải đặt cặp từ khoá Begin end;

BÀI 7: CÂU LỆNH LẶP 1 Ví dụ câu lệnh lặp

FOR biến đếm : = giá trị đầu TO giá trị cuối DO

Câu lệnh vòng lặp ;

Chú ý :

- Sau DO khơng có dấu chấm phẩy

- Có thể dùng vịng lặp FOR lồng

BÀI 7: CÂU LỆNH LẶP 1 Ví dụ câu lệnh lặp

FOR biến đếm : = giá trị đầu TO giá trị cuối DO

Câu lệnh vòng lặp ;

b) Hoạt động câu lệnh :

Biến đếm : = Giá trị đầu

Câu lệnh vòng lặp ; Biến đếm :=Biến đếm + 1;

Sai

Đúng

Giá trị đầu <=Giá trị cuối

c Ví dụ :Viết câu lệnh để in hình dịng chữ “ THCS Thuy Chau “

For i : = to writeln( ‘THCS Thuy Chau’);

- Hãy thành phần câu lệnh ?

i biến đếm

1 giá trị đầu

5 giá trị cuối

writeln( ‘THCS Thuy Chau’); câu lệnh

- Hãy sử dụng câu lệnh để viết chương trình đầy đủ in hình chữ “ THCS Thuy Chau “ c Ví dụ :Viết câu lệnh để in hình dòng “ THCS Thuy Chau “

For i : = to writeln(‘THCS Thuy Chau’);

BÀI 7: CÂU LỆNH LẶP 1 Ví dụ câu lệnh lặp

2 Tính tổng tích câu lệnh lặp BÀI 7: CÂU LỆNH LẶP

Ví dụ 1: Viết chương trình tính tổng N số tự

Program Tinh_tong; Var

N,i: integer; S: longint; Begin

Write(‘Nhap so N=‘); Readln(N) S:=0;

For i:=1 to N S:=S+i;

Writeln(‘tong cua N so tu nhien dau tien=‘,S); Readln;

End

BÀI 7: CÂU LỆNH LẶP

T  0; i0

i  i +

i ≤ n

T  T + i

Kết thúc

Bước 1: T  0; i 

Bước 2: i  i +

Bước 3: Nếu i ≤n

T  T +i quay lại bước

Bước 4: Thông báo kết kết thúc

Bước 1: T  0; i 

Bước 2: i  i +

Bước 3: Nếu i ≤n

T  T +i quay lại bước

Bước 4: Thông báo kết kết thúc

Đúng Sai

i 0 1 i<=n Đúng

T 0 1

Với n =

Với n =

T  0; i0

i  i +

i ≤ n T  T + i

T  0; i0

i  +

1 ≤ T  +

Đúng

Kết thúc

T  0; i0

i  +

1 ≤ T  +

i 0 1 2 i<=n Đúng Đúng

T 0 1 3

T  0; i0

i  +

2 ≤ T  +

Đúng

Với n =

Với n =

Kết thúc

T  0; i0

i  +

2 ≤ T  +

i 0 1 2 3 i<=n Đúng Đúng Đúng

T 0 1 3 6

T  0; i0

i  +

3 ≤ T  +

Đúng

Với n =

Với n =

Kết thúc

T  0; i0

i  +

4 ≤ T  +

i 0 1 2 3 4 i<=n Đúng Đúng Đúng Đúng

T 0 1 3 6 10

T  0; i0

i  +

4 ≤ T  +

Đúng

Với n =

Với n =

Kết thúc

T  0; i0

i  +

4 ≤ T  +

i 0 1 2 3 4 5 i<=n Đúng Đúng Đúng Đúng Đúng

T 0 1 3 6 10 15

T  0; i0

i  +

5 ≤ T  10 +

Đúng

Với n =

Với n =

Kết thúc

Sai

Kết thúc T  0; i0

i  +

5 ≤ T  10 +

i 0 1 2 3 4 5 6 i<=n Đúng Đúng Đúng Đúng Đúng Sai

T 0 1 3 6 10 15 K.thúc

T  0; i0

i  +

6 ≤ T  10 +

Kết thúc

Với n =

Với n =

2 Tính tổng tích câu lệnh lặp BÀI 7: CÂU LỆNH LẶP

Ví dụ 2: Ta kí hiệu N! tích N số tự nhiên đầu tiên: N!=1.2.3 N

BÀI 7: CÂU LỆNH LẶP

Program tinhgiaithua; Var i,n :integer;

Begin

Write(‘nhap n=‘); redaln(n); P:=1;

For i:=1 to n p:=p*i; Writeln(n,’!=‘,p);

Bài tập

Em viết chương trình tính tổng số ngun liên tiếp từ n đến m với n, m số nguyên

dương nhập vào từ bàn phím?

Gợi ý

-Tìm input, output?

- Khai báo biến nào? Kiểu liệu gì?

- Nhập từ bàn phím giá trị cho biến nào? -Tìm thuật tốn chương trình