Tớnh tổng và tớch bằng cõu lệnh lặp: Vớ dụ 7: Tớnh tổng của N số tự nhiờn đầu

- Biết nhu cầu cần cú cấu trỳc lặp với số lần chưa biết trước trong ngụn ngữ lập trỡnh.

6. Tớnh tổng và tớch bằng cõu lệnh lặp: Vớ dụ 7: Tớnh tổng của N số tự nhiờn đầu

- INPUT: số n

- OUTPUT: Tổng từ 1n

* GV: Mụ tả thuật toỏn, hướng dẫn học sinh cỏch viết thuật toỏn.

* HS: Mụ tả thuật toỏn theo nhúm

* GV: Hướng dẫn, sửa, gợi ý để học sinh viết chương trỡnh cú sử dụng cõu lệnh for…to…do * HS: Viết theo nhúm

* GV: Sửa, chạy thử chương trỡnh trờn mỏy *GV: Giới thiệu kiểu longint: (-231



231-1)

* GV: Yờu cầu học sinh làm nhúm:  Xỏc định input và output  Mụ tả thuật toỏn

* HS:Làm theo nhúm B1: s1, i0, Nhập n B2: ii+1

B3: Nếu i>n thỡ quay lại B5 B4: sS*i

B5: Xuất tổng tớch S

* GV: Sửa, gợi ý để học sinh sử dụng lệnh FOR…TO…Do để viết chương trỡnh

-HS: Làm việc theo nhúm

*GV: Sửa bài cỏc nhúm, chạy chương trỡnh mẫu * Thuật toỏn: B1: s0, i0, Nhập n B2: ii + 1 B3: Nếu i > n thỡ quay B5 B4: s S + i B5: Xuất tổng S Program bai1;

Var n, i:integer; s:longint; Begin

Write(‘nhap n=’);readln(n); S:=0;

For i:=1 to n do s:=s+i;

Writeln(‘ tong cua:’ , n ,‘ so tu nhien la ’, s); Readln;

End.

Vớ dụ 8:

Tớnh tớch của N số tự nhiờn đầu tiờn khỏc khụng

S=1.2.3.4...n

Program bai1;

Var n, i:integer; P:longint; Begin

Write(‘nhap n=’);readln(n); P:=1;

For i:=1 to n do P:=P*i;

Writeln(‘Tich cua:’, P ,‘ so tu nhien la ’, s); Readln;

End.

IV. CỦNG CỐ:

1.Chức nắng của cấu trỳc lặp

2. Cõu lệnh lặp với số lần biết trước for…to…do

3. Tớnh tổng và tớch của n số tự nhiờn đầu tiờn khỏc khụng với cõu lệnh lặp for…to…do

V. DẶN Dề:

- Đọc trước BTH 5 Để tiết sau thực hành. - Xem thuật toỏn tớnh tổng và tớch của 2 số

Tiết 46 Ngày dạy: 23/01/ 2017

A. MỤC ĐÍCH, YấU CẦU:

- Biết nhu cầu cần cú cấu trỳc lặp với số lần chưa biết trước trong ngụn ngữ lập trỡnh. - Biết ngụn ngữ lập trỡnh dựng cấu trỳc lặp với số lần chưa biết trước để chỉ dẫn mỏy tớnh thực hiện lặp đi lặp lại cụng việc đến khi một điều kiện nào đú được thỏa mản.

- Biết lệnh ghộp trong pascal.

- Hiểu hoạt động của cõu lệnh lặp với số lần chưa biết trước while ...do trong pascal. - Nghiờm tỳc trong học tập, cú tinh thần học hỏi, sỏng tạo .