Một Số Ngôn Ngữ Lập Trình, Ví Dụ Pascal, Không Có Sẵn Hàm Tính Lũy ...

1. Trang chủ >
2. Giáo án - Bài giảng >
3. Tin học >

Một số ngôn ngữ lập trình, ví dụ Pascal, không có sẵn hàm tính lũy thừa. Hãy mô Viết chơng trình Pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số lớn Thuật toán tính tổng Thuật toán: Thuật toán:

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (2.39 MB, 120 trang )

8. Một số ngôn ngữ lập trình, ví dụ Pascal, không có sẵn hàm tính lũy thừa. Hãy mô

tả thuật toán và sử dụng câu lệnh lặp với số lần xác định trớc để viết chơng trình Pascal tính lũy thừa bậcn của số nguyên X.

9. Viết chơng trình Pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số lớn

nhất trong các số đó. Số n cũng đợc nhập vào từ bàn phím. Xem mô tả thuật toántrong Ví dụ 6, Bài 5.10.Viết chơng trình Pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số cácsố dơng trong các số đó. Số n cũng đợc nhập vào từ bàn phím. Xem Bài tập 5a,Bài 5.Giải: 5. Tuy có vòng lặp 1000 lần, nhng chơng trình Pascal nói trên không thực hiện bất kìmột hoạt động nào. Tuy nhiên đây vẫn là câu lệnh hợp lệ.

6. Thuật toán tính tổng

A =1 1....... 5. 31 4. 21 3. 11 ++ ++ nnBíc 1. G¸n A ←0, i← 1.Bíc 2. A ←1 2i i +. Bíc 3. i← i + 1.Bíc 4. NÕu i ≤ n, quay l¹i bíc 2. Bíc 5. Ghi kÕt quả A và kết thúc thuật toán.7. Trừ d, tất cả các câu lệnh đều không hợp lệ: a Giá trị đầu phải nhỏ hơn giá trịcuối; b Các giá trị đầu và giá trị cuối phải là số nguyên; c Thiếu dấu hai chấmkhi gán giá trị đầu; d Thõa dÊu chÊm ph¶y thø nhÊt, nÕu nh ta muèn lặp lại câulệnhwritelnAmời lần, ngợc lại câu lệnh là hợp lệ; e Biếnxđã đợc khai báo nh là biến có dữ liệu kiểu số thực và vì thế không thể dùng để xác định giá trị đầuvà giá trị cuối trong câu lệnh lặp.

8. Thuật toán:

Bớc 1. Nhập các số n vµ x. Bíc 2. A← 1, i← A lµ biÕn lu lòy thõa bËc n cđa x.Bíc 3. i ←i + 1, A ←A.x. Bíc 4. NÕu i n, quay lại bớc 3.Bớc 5. Thông báo kết quả A lµ lòy thõa bËc n cđa x vµ kÕt thúc thuật toán. Chơng trình Pascal có thể nh sau:var n,i,x: integer; a: longint; beginwriteNhap x=; readlnx; writeNhap n=; readlnn;A:=1; for i:=1 to n do A:=AX;writelnx, mu ,n, bang ,A; end.

9. Tht to¸n:

Bíc 1. NhËp sè n. Gi¸o ¸n tin häc khèi 8 Trang 98 Ngôn ngữ lập trình PascalBớc 2. A 32768 g¸n sè nhá nhÊt cã thĨ trong c¸c sè kiĨu nguyªn choA, i← 1.Bíc 3. NhËp sè thø i và gán giá trị đó vào biến A. Bớc 4. NÕu Max A, Max← A.Bíc 5. i ←i + 1. Bíc 6. NÕu i ≤ n, quay l¹i bớc 3.Bớc 7. Thông báo kết quả Max là số lớn nhất và kết thúc thuật toán. Chơng trình Pascal cã thÓ nh sau:uses crt; var n,i,Max,A: integer;beginclrscr; writeNhap N=; readlnn;Max:=-32768; for i:=1 to n dobegin writeNhap so thu ,i,:; readlnA; if MaxA then Max:=A end;writelnSo lon nhat: ,Max; end.Lu ý. Trong chơng trình trên chúng ta chỉ sử dụng hai biếnAvàMaxđể giải bài toán. Một cách tự nhiên, để nhậpn số chúng ta cần tới n biến. Tuy nhiên, ở đây việc xử lí các giá trị trong dãy số có thể thực hiện bằng cách chỉ cần so sánh cácgiá trị đã đợc nhập vào, do đó chúng ta chỉ cần một biến để lu lần lợt các giá trị nhập vào là đủ. Một cách giải quyết khác là sử dụng biến mảng xem Bài tập 6,Bài 9.10.Lời giải bài này tơng tự nh lời giải của Bài 9 ở trên. Xem thuật toán trong lời giảiBài tập 5a, Bài 5. Chơng trình Pascal có thể nh sau:uses crt; var n,i,SoDuong,A: integer;begin clrscr;writeNhap N=; readlnn; if n0 thenbegin SoDuong:=0;for i:=1 to n do begin writeNhap so thu ,i,:; readlnA;if A0 then SoDuong:=SoDuong+1 end; writelnSo cac so duong = ,SoDuongend else writelnn phai 0;end.Gi¸o ¸n tin häc khèi 8 Trang 99 Ngôn ngữ lập trình PascalNgày soạn : Ngày dạy :Tuần 20: Tiết40Bài tập

A. Mục tiêu :

Bit ngụn ng lập trình dùng cấu trúc lặp để chỉ dẫn máy tính thực hiện lặp đi lặplại cơng việc nào đó một số lần. •Hiểu hoạt động của câu lệnh với số lần biết trước for...do trong Pascal. •Viết đúng được lệnh for...do trong một số tình huống đơn giản. •Hiểu lnh ghộp trong PascalB. Chuẩn bị : 1. Giáo viên : - SGK, SGV, tài liệu, Giáo án- Đồ dùng dạy học...2. Học sinh : - Đọc trớc bài- SGK, Đồ dùng học tập...

C. Tiến trình tiết dạy : I. ổn định tổ chức lớp :

- Kiển tra sÜ sè :8A : . 8B…… :. 8C ……: .. 8D…… :. 8E : - ổn định trật tự : II. Kiểm tra bài cũ :HS 1 :Nêu cấu chúc câu lệnh lặp trong pascal III. Dạy bài mới :Bài tập: Bài 2: SGK T60- Câu lệnh lặp có tác dụng chỉ dẫn cho máy tính thực hiện lặp lại mét c©u lƯnh hay mét nhãm c©u lƯnh víi mét số lần nhất định.- Câu lệnh lặp làm giảm nhẹ công sức của ngời viết chơng trình. Bài 3 SGK T60- Điều kiện cần kiểm tra trong câu lệnh lặp for do là giá trị của biến đếm phải nằm trong đoạn [giá trị đầu, giá trị cuối ], nếu thoả mãn điều kiện đó thì câu lệnh sẽ đợc thựchiện, nếu không thoả mãn câu lệnh sẽ bị bỏ qua Bài 5 SGK T61Tất cả các câu lệnh đều không hợp lệ vì: a giá trị đầu lớn hơn giá trị cuốib giá trị đầu và giá trị cuối có kiểu là số thực không cùng kiểu với biến đếm c sai cấu trúc câu lệnhd sai cấu trúc câu lệnh e biến đếm có kiểu là kiểu số thực nên không hợp lệ.Bài 4 SGK T61 Giá trị của j sau mỗi lần lặp sẽ đợc tăng thêm 2 đơn vịGiáo án tin học khối 8 Trang 100 Ng«n ngữ lập trình Pascal2, 4, 6, 8, 10, 12. Bài 6 SGK T 61- Mô tả thuật toán. Bớc 1: nhËp nA-0, i-1 Bíc 2: A- 2\\ii+2Bíc 3: i-i+1 Bíc 4: nÕu i=n quay vỊ bíc 2Bớc 5: ghi kết quả A ra màn hình và kÕt thóc tht to¸n.Gi¸o ¸n tin häc khèi 8 Trang 101 Ngôn ngữ lập trình PascalNgyson: 222009 Ngy dy:Tuần 21: Giảng ngày:Tiết 41: Bài thực hành 5: sử dụng lệnh lặp for .. do

A. Mơc tiªu :

1. KiÕn thøc VËn dơng kiÕn thøc của vòng lặp for do, câu lệnh ghép để viết ch - ơng trình.2. Kỹ năng. Viết đợc chơng trình có sử dụng vòng lặp for do; Sử dụng đợc câu lệnh ghép;Rèn luyện kỹ năng đọc hiểu chơng trình có sử dụng vòng lặp for .. do. 3. Thái độ: Thái độ học tập nghiêm túc, tích cực làm các bài tập thực hành.

B. Chuẩn bị : 1. Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Chuẩn bị phòng thực hành đủ số máy tính hoạt động tốt.

2. Học sinh :

- Đọc tríc bµi thùc hµnh. - Häc thc kiÕn thøc lý thut ®· häc.

C. Tiến trình tiết dạy : I. ổn định tổ chức lớp :

- KiÓn tra sÜ sè :8A : . 8B…… :. 8C ……: .. 8D…… :. 8E …………: …………

II. Kiểm tra bài cũ :

Kiểm tra trong quá trỡnh thc hnh.III. Dy bi mi : Hoạt động của giáo viênHoạt động của học sinhHoạt động 1: Viết chơng trình cho các bài tập đã cho về nhà. 15- GV: yêu cầu mỗi dãy gõ một bài vào- HS: gõ chơng trình, chạy thử chơng trình, và báo cáo kết quả.- GV: hỗ trợ học sinh trong quá trình Bài 1: Tính tổng của n số tự nhiên đầu tiªnProgram tinh_tong;Uses crt;Var i, n: integer; tong: longin; BeginClrscr; Tong:=0;Writeln‘Nhap vao so n’; readlnn; For i:=1 to n doTong: = Tong+i; Writeln‘Tong cđa’, n,’so tu nhien dautienla’,tong;Gi¸o ¸n tin häc khèi 8 Trang 102 Ngôn ngữ lập trình Pascalthực hành.- Sau khi kết quả chạy chơng trình đã đúng, gv yêu cầu học sinh chữa bài củamình đã làm ở nhà cho đúng theo ch- ơng trình đã chạy.Readln; End.2. Viết chơng trình tìm xem có bao nhiêu số dơng trong n số nhËp vµo tõ bµn phÝmProgram tinh_so_cac_so_duong;Uses crt;Var i,A, dem, n: integer; BeginClrscr; Dem:=0;Writeln‘Nhap vao so n’; readlnn; For i:=1 to n dobegin writeln‘nhap vao so thu’,i; readlnA;if A0 then dem:=dem+1; end;Writeln‘So cac so duong la’,dem; Readln;End.- NhËn xÐt, rót kinh nghiệm tiết thực hànhIVCủng cố:- Giáo viên hệ thống lại toµn bé néi dung bµi häc. - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh- V.Híng dÉn vỊ nhµ:- Häc bài theo sách giáo khoa và vở ghi, Ôn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.-----------------o0o-----------------Giáo án tin học khối 8 Trang 103 Ng«n ngữ lập trình PascalNgyson: Ngy dy:Tuần 22: Giảng ngày:Tiết 43: Bài thực hành 5: sử dụng lệnh lặp for .. do

A. Mơc tiªu :

1. KiÕn thøc VËn dơng kiÕn thøc của vòng lặp for do, câu lệnh ghép để viết ch - ơng trình.2. Kỹ năng. Viết đợc chơng trình có sử dụng vòng lặp for do; Sử dụng đợc câu lệnh ghép;Rèn luyện kỹ năng đọc hiểu chơng trình có sử dụng vòng lặp for .. do. 3. Thái độ: Thái độ học tập nghiêm túc, tích cực làm các bài tập thực hành.

B. Chuẩn bị : 1. Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Chuẩn bị phòng thực hành đủ số máy tính hoạt động tốt.

2. Học sinh :

- Đọc tríc bµi thùc hµnh. - Häc thc kiÕn thøc lý thut ®· häc.

C. Tiến trình tiết dạy : I. ổn định tổ chức lớp :

- KiÓn tra sÜ sè :8A : . 8B…… :. 8C ……: .. 8D…… :. 8E …………: …………

II. Kiểm tra bài cũ :

Kiểm tra trong quá trỡnh thc hnh.III. Dy bi mi : Hoạt động của giáo viênHoạt động của học sinh- GV: Đa ra nội dung của bài toán. - HS: Nghiên cứu bài toán, tìm inputvà output. GV: Đa nội dung chơng trình lên bảng, yêucầu học sinh đọc hiểu - GV: Đa ra nội dung của bài toán.- HS: Nghiên cứu bài toán, tìm input và output.- GV: Đa nội dung chơng trình lên màn hình, yêu cầu học sinh đọc hiểuchơng trình. - HS: đọc, phân tích câu lệnh tìm hiểuhoạt động của chơng trình. Viết chơng trình in ra màn hình bảng nhâncủa một số từ 1 đến 9, và dừng màn hình để có thể quan sát kết quả.Program Bang_cuu_chuong;Uses crt;Var i, n: integer; BeginClrscr; Writeln‘Nhap vao so n’; readlnn;Writeln‘Bang nha’,n; Writeln;For i:=1 to 10 doGi¸o ¸n tin häc khèi 8 Trang 104 Ngôn ngữ lập trình Pascal- GV: yêu cầu một học sinh đứng tại vị trí trình bày hoạt động của chơngtrình, các nhóm khác cùng tham gia phân tích.- HS: tham gia hoạt động của giáo viên- GV: yêu cầu học sinh lập bảng hoạt động của chơng trình theo mẫu:Giả sử N=2: Bớci i=10 Writeln n,.,i,=,ni1 1 đúng2.1=2 - HS: các nhóm lập bảng và đại diệnnhóm báo cáo kết quả. - GV: nhận xét.- GV: cho chơng trình chạy trên máy, yêu cầu học sinh quan sát kết quả.Writelnn,x,i:2,=,ni:3; Readln;End.IV.Củng cố:- Giáo viên hệ thống lại toàn bộ néi dung bµi häc. - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

V. H íng dÉn vỊ nhµ:

- Häc bµi theo sách giáo khoa và vở ghi, Ôn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.Giáo án tin học khối 8 Trang 105 Ngôn ngữ lập trình PascalNgyson: Ngy dy:Tuần 22: Giảng ngày:Tiết 44: Bài thực hành 5: sử dụng lệnh lặp for .. doI Mục tiêu:1. Kiến thức Vận dụng kiến thức của vòng lặp for do, câu lệnh ghép để viết ch - ơng trình, tìm hiểu câu lệnh gotoxy, where, lệnh for lồng trong for2. Kỹ năng. Viết chơng trình có sử dụng vòng lặp for do; Sử dụng câu lệnh ghép trong chơng trình;Rèn luyện kỹ năng đọc hiểu chơng trình có sử dụng vòng lặp for .. do. 3. Thái độ: Thái độ học tập nghiêm túc, tích cực làm các bài thực hành.II Chuẩn bị:- Sách giáo khoa, giáo án, tài liệu tin học có liên quan. Phòng máy - Đọc tài liệu ở nhà trớc khiIII. Tiến trình lên lớp: 1. ổn định tỉ chøc líp :- KiĨn tra sÜ sè :8A : . 8B…… :. 8C ……: .. 8D…… :. 8E …………: …………1. KiĨm tra.- KiĨm tra sù chn bÞ cđa häc sinh . 2.Bài mới :Hoạt động của giáo viên Hoạt động của học sinhHoạt động 1: Làm đẹp màn hình kết quả bằng lệnh gotoxy, where 20 - Giáo viên cho chạy kết quả của bàithực hành Bang_cuu_chuongYêu cầu học sinh quan sát kết quả vànhận xét khoảng cách giữa các hàng, cột.- HS: quan sát và đa ra nhận xét. - ? Có cách nào để khoảng cách giữacác hàng và các cột tăng lên? - GV: Giới thiệu câu lệnh gotoxy vàwhere. - GV: yêu cầu học sinh mở chơngtrình Bang_cuu_chơngvà sửa lại chơng trình theo bài trên màn hìnhcủa giáo viên. Bài 2 sgk T63a Giới thiệu lệnh gotoxy, wherex - Gotoxya,bTrong đó: a là chỉ số cét, b lµ chØ sè hµng - ý nghÜa cđa câu lệnh là đa con trỏ về cột ahàng b. - Wherex: cho biÕt sè thø tù cña cét,wherey cho biết số thứ tự của hàng.Lu ý : Phải khai báo th việncrttrớc khi sử dụng hai lệnh trêna Chỉnh sửa chơng trình nh sau: ProgramBang_cuu_chuong; Usescrt; Vari, n: integer ;Gi¸o ¸n tin häc khèi 8 Trang 106 Ngôn ngữ lập trình Pascal- HS: gõ chơng trình vào máy, sửa lỗi chính tả, chạy chơng trình, quan sátkết quả. - GV: yêu cầu học sinh quan sát kếtquả và so sánh với kết quả của ch- ơng trinh khi cha dùng lệnhgotoxy5, wherey- HS: quan sát và nhận xét. BeginClrscr; WritelnNhap vao so n’; readlnn;Writeln‘Bang nha’,n; Writeln;For i:=1 to 10 do begingotoxy5, wherey; Writelnn,x,i:2,=,ni:3;Readln;End. Hoạt động 2: sử dụng lệnh For lồng trong for 28’- GV: giíi thiƯu cÊu tróc lƯnh for lång, híng dÉn häc sinh c¸ch sưdơng lƯnh. - HS: ghi chép cấu trúc và lĩnh hội- GV: đa nội dung chơng trình bài thực hành 3 lên màn hình, yêu cầuhọc sinh đọc chơng trình, tìm hiểu hoạt động của chơng trình.- HS: hoạt động theo nhóm, tìm hiểu hoạt động của chơng trinh, đại diệncủa nhóm báo cáo kết quả thảo luận.- GV: cho chạy chơng trình. - HS : quan sát kết quả trên màn hình.Bài 3 SGK T64. a C©u lƯnh for lång trong for- ForbiÕn đếm1:= giá trị đầutogiá trịcuốido Forbiến đếm 2:=giá trị đầutogiá trịcuốdocâu lệnh;Program Tao_bang;Uses crt;Var i,j: byte; BeginClrscr; For i:=1 to 9 doBegin For j:=0 to 9 doWriteln10i+j:4; Writeln;End; Readln;End. Ho¹t động 3: kết thúc 2HS: tắt chơng trình ứng dụng, tắt máy, tắt nguồn

3. Củng cố:

Xem Thêm

Tài liệu liên quan

• Giao an Tin 8 full (năm học 08-09)
  • 120
  • 2,981
  • 9

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

Tài liệu bạn tìm kiếm đã sẵn sàng tải về

(5.92 MB) - Giao an Tin 8 full (năm học 08-09)-120 (trang) Tải bản đầy đủ ngay ×