Đang tải... (xem toàn văn)
F Trong chươngtrì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ụ 2: Viết chương trình tráo đổi giá trị của 2 biến..[r]
(1)Bµi 18 Gi¸o ¸n ®iÖn tö tin häc líp 11 Lop11.com (2) Ví dụ 1: Lập chươngtrình vẽ các hình chữ nhật dấu * có kích thướckhác Theo bạn để viết chươngtrình cho ví dô trªn ta nªn dùng loại chương tr×nh nµo? F Dùng chươngtrình thủ tục Ve_HCN(dai,rong) để vẽ hình chữ nhËt F Trong chươngtrì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 để vẽ các hình chữ nhËt kh¸c VÝ dô: Ve_HCN(25,20); Ve_HCN(3,7) Lop11.com (3) Dµi 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×! ********************************** * * * * * * ********************************** F VÏ c¹nh trªn cña HCN FOR i:=1 to chdai DO WRITE(‘*’); WRITELN; F VÏ hai c¹nh bªn FOR J:=1 to chrong -2 DO Begin Write(‘*’); For i:=1 to chdai - Write(‘ ‘); Writeln(‘*’) end; F Vẽ cạnh FOR Lop11.com i:=1 to chdai DO WRITE(‘*’); WRITELN; Réng (4) 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; Lop11.com END (5) Ví dụ 2: Viết chương trình tráo đổi giá trị biến - Viết thủ tục: Hoán đổi giá trị biến (a,b) ta dïng biÕn trung gian (tg) tg : =a; a:=b; b:=tg; Lop11.com (6) Program VD; Uses crt; var a,b: integer; BiÕn toµn côc BiÕn côc bé 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; a:= ; b:= 10; Writeln( a:6 , b:6); Hoan_doi(a,b); Writeln( a:6 , b:6); readln; END Tham sè thùc sù (tham biÕn) Lop11.com (7) VD1: Lập chươngtrình tính tổng luỹ thừa S = am +bn +cp +dq * INPUT : Các số a,b,c,d và các số mũ lần lượtn,m,p,q * OUTPUT : S F Viết chươngtrình dạng tổng quát Luythua = xk Trong đó: Luythua, x kiểu thực, k kiểu nguyên F Khi tính luỹ thừa các số hạng tổng trên ta cần gọi tên chương trình Luythua và thay (x,k) các giá trị tươngứng Ví dụ như: Luythua(a,m) luythua(b,n), luythua(c,p),luythua(d,q) Lop11.com (8) 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 Lop11.com (9)