tailieunhanh - Bài giảng Điện tử Tin học lớp 11: Bài 20
Bài giảng Điện tử Tin học lớp 11 - Bài 20: Biến và tham số tập hợp một số ví dụ về biến và tham số có hướng dẫn cách thực hiện. Chúc các em học tốt. | Bµi 20 biÕn vµ tham sè 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 = am +bn +cp +dq ViÕt ch¬ng tr×nh con 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 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. NhËn xÐt 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. 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ù.
đang nạp các trang xem trước
