Bµi 20 Gi¸o ¸n ®iÖn tö tin häc líp 11 VD1: Lập ch ơng trình tính tổng luỹ thừa S = a m +b n +c p +d q VD1: Lập ch ơng trình tính tổng luỹ thừa S = a m +b n +c p +d q Viết ch ơng trình con dạng tổng quát Luythua = x k Trong đó : Luythua, x kiểu thực, k kiểu nguyên. Khi tính luỹ thừa của các số hạng trong tổng trên ta chỉ cần gọi tên ch ơng trình con Luythua và thay thế (x,k) bằng các giá trị t ơng ứng. Ví dụ nh : Luythua(a,m). luythua(b,n), luythua(c,p),luythua(d,q). * INPUT : Các cơ số a,b,c,d và các số mũ lần l ợt n,m,p,q * OUTPUT : S Program tong_luy_thua; Uses crt; Var a,b,c,d,S : real; n,m,p,q :integer; Function luythua(x: real,k:integer): real; Var j: integer; Lt:Real; begin Lt:=1; For j:=1 to k do Lt:=Lt*x; Luythua:=Lt; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(a,b,c,d); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(n,m,p,q); s:= luythua(a,m)+luythua(b,n)+luythua(c,p)+luythua(d,q); Writeln(‘ Tong luy thua =’, S:7:2); Readln; END. Biến đ ợc khai báo ở trong CTC chỉ có tác dụng trong CTC gọi là biến cục bộ. Biến khai báo ở CT chính có tác dụng ở mọi ch ơng trình gọi là biến toàn bộ. Biến đ ợc khai báo cho dữ liệu vào/ra ở CTC gọi là tham số hình thức. Biến chứa trong lời gọi CTC ở ch ơng trình chính là các tham số thực sự. Ví dụ 2: Lập ch ơng trình vẽ các hình chữ nhật bằng dấu * có kích th ớc khác nhau. Ví dụ 2: Lập ch ơng trình vẽ các hình chữ nhật bằng dấu * có kích th ớc khác nhau. Theo bạn để viết ch ơng trình cho ví dụ trên ta nên dùng loại ch ơng trình con nào? Dùng ch ơng trình con thủ tục Ve_HCN(dai,rong) để vẽ một hình chữ nhật. Trong ch ơng trình chính, dùng lời gọi thủ tục và truyền các tham số với giá trị khác nhau để vẽ các hình chữ nhật khác. Ví dụ: Ve_HCN(25,20); Ve_HCN(3,7) C¸c em h·y viÕt mét thñ tôc Ve_HCN b»ng dÊu * víi chiÒu dµi, réng bÊt k×! ********************************** * * * * * * ********************************** Dµi Réng VÏ c¹nh trªn cña HCN VÏ hai c¹nh bªn VÏ c¹nh d íi FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’ FOR J:=1 to chrong -2 DO Begin Write( * );‘ ’ For i:=1 to chdai - 2 do Write( );‘ ‘ Writeln( * )‘ ’ end; FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’ Program VD; Uses crt; var a,b: byte; Procedure Ve_HCN( chdai,chrong:integer); Var i,j: integer; Begin For i:=1 to chdai do write(‘ * ’); Writeln; For j:=1 to chrong-2 do begin write(‘ * ’); for i:=1 to chdai-2 do write(‘ ‘); writeln(‘ * ’); end; For i:=1 to chdai Do write(‘ * ’); writeln; end; BEGIN CLRSCR; Ve_HCN(25,10); Writeln; a:=5 ; b:=10; Ve_HCN(a,b); readln; END. BiÕn côc bé Tham sè thùc sù (tham trÞ) Tham sè h×nh thøc BiÕn toµn côc Program VD; Uses crt; var a,b: integer; Procedure Hoan_doi(Var x,y:integer); Var TG: integer; Begin TG:= x; x:= y; y:=TG; end; BEGIN CLRSCR; a:= 5 ; b:= 10; Writeln( a:6 , b:6); Hoan_doi(a,b); Writeln( a:6 , b:6); readln; END. BiÕn côc bé Tham sè thùc sù (tham biÕn) Tham sè h×nh thøc BiÕn toµn côc Hãy nhớ! Biến: Tham số - Khai báo trong ch ơng trình chính là biến toàn cục. - Khai báo trong ch ơng trình con là biến cục bộ. - Biến khai báo cho dữ liệu vào ra trong ch ơng trình con gọi là tham số hình thức. - Biến chứa trong lời gọi CTC ở ch ơng trình chính là các tham số thực sự. . bé Tham sè thùc sù (tham biÕn) Tham sè h×nh thøc BiÕn toµn côc Hãy nhớ! Biến: Tham số - Khai báo trong ch ơng trình chính là biến toàn cục. - Khai báo trong ch ơng trình con là biến. con là biến cục bộ. - Biến khai báo cho dữ liệu vào ra trong ch ơng trình con gọi là tham số hình thức. - Biến chứa trong lời gọi CTC ở ch ơng trình chính là các tham số thực sự. . biến toàn bộ. Biến đ ợc khai báo cho dữ liệu vào/ra ở CTC gọi là tham số hình thức. Biến chứa trong lời gọi CTC ở ch ơng trình chính là các tham số thực sự. Ví dụ 2: Lập ch ơng trình vẽ