tuan29 30

B i 19 Giáo án điện tử tin học lớp 11 GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc Chng trinh (ctc) 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 c A Vi c B GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc Nhúm trng Chuongtrinh trinhcon Chuong Ham Ham (Function) (Function) Th Th ttcc (Procedure) (Procedure) L L chng chng trỡnh trỡnh con thc thchin hinmt mt s s thao thao tỏc tỏc no no ú, ú, v v tr tr v v mt mt giỏ giỏ tr tr qua qua tờn tờn ca canú nú L L chng chng trỡnh trỡnh con thc thc hin hin mt mt s s thao thao tỏc tỏc no no ú, ú, v v khụng khụng tr tr v v giỏ giỏ tr tr no no qua qua tờn tờnca canú nú Tớnh tng lu tha S = an + bm + cp + dq V v a mn hỡnh hỡnh ch nht cú kớch thc khỏc GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc CU TRC CA CHNG TRèNH CON bỏo> thõn> ] hm; [< Phn khai bao>] Begin [] Begin [] End; tenhm := giatr; End; GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc Bi Bitoỏn toỏn1: 1: 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 GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc Program tgps; Uses crt; Var tu,mau,c,d : integer; Nhap vao tu so va mau so: Phan so toi gian= 3/5 Function UCLN( a,b :integer) : integer; Begin While a b if a>b then a := a-b else b:=b-a; UCLN := a; USCLN=2; USCLN=2; end; BEGIN BEGIN Write( Nhap vao tu so mau so: ); Write(Nhap vao tu so va mau so:); Readln(tu,mau); readln(tu,mau); := tu div CC:= div UCLN(6,10) UCLN(tu,mau) d; := d 10 := div mau div UCLN(6,10); UCLN(tu,mau); Writeln( Phan so toi gian = , 3, / , 5); Writeln( Phan so toi gian = , c, / , d); Readln; Readln; END GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc END 10 Cỏc CTC thng c t sau phn khai bỏo ca chng trỡnh chớnh CTC ch c thc hin cú li gi nú Li ớch ca vic s dng chng trỡnh con: ỉ H tr vic thc hin cỏc chng trỡnh ln Trỏnh c vic phi vit lp i lp li cựng mt dóy lnh no ú ỉ Thun tin cho vic phỏt trin v nõng cp chng trỡnh GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc 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 + Th tc Cu trỳc chng trỡnh gm: bỏo> thõn>