Bài 20 Giáo án điện tử tin học lớp 11 m n VD1: VD1: Lập Lập ch chơng ơng trình tr×nh tÝnh tÝnh tỉng tỉng l l thõa thõa SS = = aam+b +bn p q +c +cp +d +dq * INPUT : Các số a,b,c,d số mũ lần lợt n,m,p,q * OUTPUT : S Viết chơng trình dạng tổng quát Luythua = xk Trong ®ã: Luythua, x kiĨu thùc, k kiĨu nguyªn Khi tính luỹ thừa số hạng tổng ta cần gọi tên chơng trình Luythua thay (x,k) giá trị tơng ứng Ví dô nh: Luythua(a,m) luythua(b,n), luythua(c,p),luythua(d,q) 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 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 khai báo CT có tác dụng chơng trình gọi biến toàn ã Biến đợc khai báo CTC có tác dụng CTC gọi biến cục ã Biến đợc khai báo cho liệu vào/ra CTC gọi tham số hình thức ã Biến chứa lời gọi CTC chơng trình tham sè thùc sù VÝ dô dô 2: 2: LËp Lập ch chơng ơng trình trình vẽ vẽ các hình hình chữ chữ nhật nhật bằng dấu dấu ** cã cã kÝch kÝch VÝ thíc íckh¸c kh¸cnhau th Theo bạn để viết chơng trình cho ví dụ ta nên dùng loại ch ơng trình nào? Dùng chơng trình thủ tục Ve_HCN(dai,rong) để vẽ hình chữ nhật Trong chơng trình chính, dùng lời gọi thủ tục truyền tham số với giá trị khác để vẽ hình chữ nhật khác Ví dụ: Ve_HCN(25,20); Dài Các em hÃy viết thđ tơc Ve_HCN b»ng dÊu * víi chiỊu dµi, réng bÊt k×! ********************************** * * * * * * ********************************** Vẽ cạnh HCN FOR i:=1 to chdai DO WRITE(*); WRITELN; Vẽ hai cạnh bên FOR J:=1 to chrong -2 DO Begin Write(‘*’); For i:=1 to chdai - Write(‘ ‘); Writeln(‘*’) end; VÏ c¹nh díi FOR i:=1 to chdai DO WRITE(‘*’); Réng Program VD; BiÕn toµn cơc BiÕn cơc bé Uses crt; var a,b: byte; Procedure Ve_HCN( chdai,chrong:integer); Var i,j: integer; Begin For i:=1 to chdai write(‘ * ’); Tham sè Writeln; h×nh thøc For j:=1 to chrong-2 begin write(‘ * ’); for i:=1 to chdai-2 write(‘ ‘); writeln(‘ * ’); end; For i:=1 to chdai Do write(‘ * ’); writeln; Tham sè thùc sù end; (tham trÞ) BEGIN CLRSCR; Ve_HCN(25,10); Writeln; a:=5 ; b:=10; Ve_HCN(a,b); readln; END Program VD; BiÕn toµn cơc Uses crt; BiÕn cơc bé var a,b: integer; Tham sè h×nh thøc Procedure Hoan_doi(Var x,y:integer); Var TG: integer; Begin TG:= x; x:= y; y:=TG; end; BEGIN CLRSCR; Tham sè thùc sù a:= ; b:= 10; (tham biÕn) Writeln( a:6 , b:6); Hoan_doi(a,b); Writeln( a:6 , b:6); readln; END HÃy nhớ! Biến: - Khai báo chơng trình biến toàn cục - Khai báo chơng trình biến cục Tham số - Biến khai báo cho liệu vào chơng trình gọi tham số - hình Biếnthức chứa lời gọi CTC chơng trình c¸c tham sè thùc sù ... nhớ! Biến: - Khai báo chơng trình biến toàn cục - Khai báo chơng trình biến cục Tham số - Biến khai báo cho liệu vào chơng trình gọi tham số - hình Biếnthức chứa lời gọi CTC chơng trình c¸c tham. .. Readln; END ã Biến khai báo CT có tác dụng chơng trình gọi biến toàn ã Biến đợc khai báo CTC có tác dụng CTC gọi biến cục ã Biến đợc khai báo cho liệu vào/ra CTC gọi tham số hình thức ã Biến chứa... ’); Tham sè Writeln; h×nh thøc For j:=1 to chrong-2 begin write(‘ * ’); for i:=1 to chdai-2 write(‘ ‘); writeln(‘ * ’); end; For i:=1 to chdai Do write(‘ * ’); writeln; Tham sè thùc sù end; (tham