0
Tải bản đầy đủ (.doc) (116 trang)

Hờng dẫn về nhà

Một phần của tài liệu GIÁO ÁN TIN HỌC QUYỂN 3 HAY VÀ ĐẦY ĐỦ (Trang 97 -100 )

Tiết: 47 – 48 Ngày Soạn: Tuần: 24 Ngày dạy :

Bài tập

I - Mục tiờu

- Luyện tập cỏc bài tập cú sử dụng cấu trỳc lặp trong ngụn ngữ lập trỡnh. - Áp dụng cấu trỳc lặp vào trong giải bài toỏn.

- Hiểu hoạt động của cõu lệnh lặp với số lần biết trước for...to ... do trong Pascal - Luyện cỏch viết đỳng được lệnh for...do trong một số tỡnh huống đơn giản - Hiểu lệnh ghộp trong Pascal

II- Chuẩn bị phương tiện và đồ dựng dạy họcThầy: Thầy:

- Cỏc mỏy tớnh trong phũng mỏy đó cài đặt ngụn ngữ lập trỡnh pascal, chạy tốt. 2 HS/mỏy tớnh.

- Bài giảng trỡnh bày trờn bảng. - Bảng và bỳt.

Trũ:

- SGK đầy đủ.

- Vở ghi chộp, giấy, thước và viết.

III.

Hoạt động dạy và học

1. Tổ chức 8a 8b

2. Tiến trỡnh giảng dạy

Hoạt động của thầy Hoạt động của trũ

Bài tập 1 : tớnh tổng của N số tự nhiờn đầu tiờn

Bài tập 2 : viết chương trỡnh tớnh tớch của n số tự nhiờn

- HS : Program Tinh_Tong Var N,i: Integer;

S: Longint; Begin

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

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

Writeln(‘Tong cua ’,N’so tu nhien dau tien S = ‘,S); Readln End - HS : Var N, I : Integer; BEGIN Write(‘nhap so N = ’) ; Readln(n);

Bài tập 3 : Tớnh tổng của S = 1+1/2 +1/3+…+1/n Writeln; Writeln(‘bang nhan’, N); Writeln; For I := 1 to 10 do writeln(N,’X’,i:2,’=’,N*i:3); Readln; End. - HS : Program Tinh_Tong Var N,i: Integer;

S: Longint; Begin

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

For i:= 1 to N do S:=s+1/i;

Writeln(‘Tong cua ’,N’so tu nhien dau tien S = ‘,S);

Readln End.

Hết tiết 1

Bài tập 4 : Viết chương trỡnh Pascal để tớnh tớch sau : p = 1/1.2.3.4….N Bài tập 5 :Tớnh tổng của S= 1+1/2+1/3+…+1/1000 bằng cỏch khỏc khụng sử dụng vũng lặp for to do - HS : Var N, I : Integer; BEGIN Write(‘nhap so N = ’) ; Readln(n); Writeln; Writeln(‘bang nhan’, N); Writeln; For I := 1 to 10 do writeln(N,’X’,1/i,’=’,N*1/i); Readln; End. -HS : - HS : Program Tinh_Tong Var N,i: Integer;

S: Longint; Begin

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

For i:= 1000 downto 1 do S:=s+1/i;

Writeln(‘Tong cua ’,N’so tu nhien dau tien S = ‘,S);

- GV : giới thiệu mở rộng kiến thức cho học sinh về vũng lặp for downto do về ý nghĩa sử dụng thỡ như nhau nhưng vũng lặp for downto thỡ giỏ trị cuối cựng sẽ được viết lờn trước cũn gớa trị đầu lại được viết xuống cuối

Một phần của tài liệu GIÁO ÁN TIN HỌC QUYỂN 3 HAY VÀ ĐẦY ĐỦ (Trang 97 -100 )

×