giáo án bài 17 tiết 2

B i 17 Chng trỡnh vit chng trỡnh gii cỏc bi toỏn ln, phc ngi lp trỡnh cú th chia thnh nhiu bi toỏn nh, mi bi toỏn l mt dóy lnh mụ t mt s thao tỏc nht nh (gi l ctc) Sau ú ghộp ni cỏc chng trỡnh thnh chng trỡnh chớnh Vi cA Vi c B Nhúm trng Cú th s dng chng trỡnh lp trỡnh gii cỏc bi toỏn sau khụng? Chng trỡnh ú thc hin thao tỏc no? Bi 1: In mn hỡnh dũng ch Chỳc mng bn Chinh t im tt Chỳc mng bn Nh t im tt Chỳc mng bn Vit t im tt Chỳc mng bn Võn t im tt Chỳc mng bn Hng t im tt Chucmung(ten); Cú th s dng chng trỡnh lp trỡnh gii cỏc bi toỏn sau khụng? Chng trỡnh ú thc hin thao tỏc no? Bi2: Nhp vo s nguyờn a,b Tớnh c chung ln nht v bi chung nh nht ca s ny? UCLN(x,y) Cú th s dng chng trỡnh lp trỡnh gii cỏc bi toỏn sau khụng? Chng trỡnh ú thc hin thao tỏc no? Bi 3: Tớnh di cnh ca tam giỏc bit to cỏc nh Dodai(x,y); Phõn loi v cu trỳc ca chng trỡnh Chng trỡnh trỡnhcon Chng Hm Hm(Function) (Function) Th Thtc tc (Procedure) (Procedure) L chng trỡnh L chng trỡnh Thc hin mt s thao tỏc no ú Thc hin mt s thao tỏc no ú Tr v mt giỏ tr qua tờn ca nú Khụng tr v giỏ tr qua tờn ca nú VD: - Hm toỏn hc sin(x), sqrt(x), abs(x), - Length(x) VD: -Writeln, Write, readln, read, - copy(s, vt, n), insert(s1,s2,vt) b CU TRC CA CHNG TRèNH CON u> thõn> thõn> ] [< Phn khai bỏo >] Begin Begin [] [] tờnhm := giỏtr; End; End; b CU TRC CA CHNG TRèNH CON Phần đầu Procedure Hoan_doi(Var x,y:integer); Var TG: integer; Phần khai báo Begin TG:= x; x:= y; y:=TG; end; Phần thân Program VD; Biến toàn cục Biến cục 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 end; (tham trị) BEGIN CLRSCR; Ve_HCN(25,10); Writeln; a:=5 ; b:=10; Ve_HCN(a,b); readln; END c Thc hin chng trỡnh Lp Lpchng chngtrỡnh trỡnhti tigin ginphõn phõns s Vớ d: nhp 6/10 => 3/5 * INPUT : Nhp phõn s a/b; * OUTPUT : Phõn s c/d - Trong ú: c = a/CLN (a,b); d = b/CLN(a,b); Vit chng trỡnh thc hin tỡm CLN(a,b) v gi nú tớnh c,d chng trỡnh chớnh Program tgps; Uses crt; Nhap vao tu so va mau so: Phan so toi gian= 3/5 Var tu,mau,c,d : integer; Function UCLN( a,b :integer) : integer; Begin While a b if a>b then a := a-b else b:=b-a; USCLN=2; USCLN=2; UCLN := a; end; BEGIN BEGIN Write(Nhap vao tu tu so va Write( Nhap vao so mau mau Readln(tu,mau); so:); readln(tu,mau); Cso:); := div UCLN(6,10) d := 10 div UCLN(6,10); C := tu div UCLN(tu,mau) ; d := mau div Writeln( Phan so toi gian = , 3, / , 5); UCLN(tu,mau); Readln; Writeln( Phan so toi gian = , c, / , d); END Readln; 10 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 cục 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 Hóy nh! Chng trỡnh l mt dóy lnh gii quyt mt bi toỏn c th Phõn loi chng trỡnh con: + Hm: tr v giỏ tr + Th tc: khụng tr v giỏ tr Cu trỳc chng trỡnh gm: u> thõn> [...]... trả về một giá trị, Đáp án Thủ tục không trả về giá trị Hết giờ 526 789341 10s Home Câu hỏi 2 Trong các CTC sau, chơng trình con nào là th tc A delete(st,vt,n) Đáp án B pos(s1,s2) C length(s) Hết giờ 526 789341 10s Home Câu hỏi 3 Biến khai báo cho dữ liệu vào ra trong chơng trình con gọi là ? A biến toàn cục Đáp án B biến cục bộ C tham số hình thức D tham số thực sự 10s Hết giờ 526 789341 Home Câu hỏi 4... Câu hỏi 4 Biến khai báo trong chơng trình con là? Đáp án biến cục bộ Hết giờ 526 789341 10s Home Câu hỏi 5 Biến chứa trong lời gọi CTC ở chơng trình chính là ? Đáp án Tham số thực sự Hết giờ 526 789341 10s Home Câu hỏi 6 Biến khai báo trong chơng trình chính là? A biến toàn cục B biến cục bộ Đáp án C tham số hình thức D tham số thực sự 10s Hết giờ 526 789341 Home ... chdai,chrong:integer); Var i,j: integer; Begin For i:=1 to chdai do write( * ); Tham số Writeln; hình thức 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; 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 c Thc hin chng trỡnh con Lp Lpchng chngtrỡnh trỡnhti tigin... TRC CA CHNG TRèNH CON Phần đầu Procedure Ve_HCN( chdai,chrong:integer); Var i,j: integer; Phần khai báo Begin For i:=1 to chdai do write( * ); Phần thân Writeln; For j:=1 to chrong -2 do begin write( * ); for i:=1 to chdai -2 do write( ); writeln( * ); end; end; 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 biến Procedure Hoan_doi(Var x,y:integer); Var TG: integer;... Program tgps; Uses crt; Nhap vao tu so va mau so: Phan so toi gian= 3/5 Var tu,mau,c,d : integer; Function UCLN( a,b :integer) : integer; Begin While a b do if a>b then a := a-b else b:=b-a; USCLN =2; USCLN =2; UCLN := a; end; BEGIN BEGIN Write(Nhap vao tu tu so va Write( Nhap vao so mau và mau Readln(tu,mau); so:); readln(tu,mau); Cso:); := 6 div UCLN(6,10) d := 10 div UCLN(6,10); C := tu div UCLN(tu,mau)... 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 chính có tác dụng ở mọi chơng trình gọi là biến toàn cục 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 đợc khai báo cho dữ liệu