Học lập trình với pascal (phần 2)

Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Details Ngy to Wednesday, 14 March 2012 04:19 Ngi vit: Huyn Trang Hits: 3314 Chng CC CU LNH Cể CU TRC I CU LNH R NHNH 1.1 Lnh IF Cỳ phỏp: (1) IF B THEN S; (2) IF B THEN S1 ELSE S2; S thc hin: Chỳ ý: Khi s dng cõu lnh IF thỡ ng trc t khoỏ ELSE khụng c cú du chm phy (;) 1.2 Lnh CASE Cỳ phỏp: http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 1/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Dng Dng CASE B OF CASE B OF Const 1: S1; Const 1: S1; Const 2: S2; Const 2: S2; Const n: Sn ; Const n: Sn ; END; ELSE Sn+1; END; Trong ú: FB: Biu thc kiu vụ hng m c nh kiu nguyờn, kiu logic, kiu ký t, kiu lit kờ FConst i: Hng th i, cú th l mt giỏ tr hng, cỏc giỏ tr hng (phõn cỏch bi du phy) hoc cỏc on hng (dựng hai du chm phõn cỏch gia giỏ tr u v giỏ tr cui) FGiỏ tr ca biu thc v giỏ tr ca hng i (i=1án) phi cú cựng kiu Khi gp lnh CASE, chng trỡnh s kim tra: - Nu giỏ tr ca biu thc B nm hng const i thỡ mỏy s thc hin lnh Si tng ng - Ngc li: + i vi dng 1: Khụng lm gỡ c + i vi dng 2: thc hin lnh Sn+1 II CU LNH LP 2.1 Vũng lp xỏc nh Cú hai dng sau: Dng tin FOR := TO DO S; Dng lựi http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 2/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) FOR := DOWNTO DO S; S thc hin vũng lp FOR: Chỳ ý: Khi s dng cõu lnh lp FOR cn chỳ ý cỏc im sau: Khụng nờn tu tin thay i giỏ tr ca bin m bờn vũng lp FOR vỡ lm nh vy cú th s khụng kim soỏt c bin m Giỏ tr Max v Min cõu lnh FOR s c xỏc nh vo u vũng lp Do ú cho dự vũng lp ta cú thay i giỏ tr ca nú thỡ s ln lp cng khụng thay i 5.3.2 Vũng lp khụng xỏc nh Dng REPEAT Dng WHILE http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 3/34 Ngy 23 thỏng 10 nm 2016 Repeat Lý thuyt tin hc Pascal (Phn 2) While B Do S; S; Until B; í ngha: Dng REPEAT: Lp li cụng vic S cho n biu thc B=TRUE thỡ dng Dng WHILE: Trong biu thc B=TRUE thỡ tip tc thc hin cụng vic S BI TP MU Bi 3.1: Vit chng trỡnh nhp vo mt s nguyờn v kim tra xem s va nhp l s chn hay s l Uses crt; Var x:integer; Begin http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 4/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Write('Nhap vao mot so nguyen : '); Readln(x); If x MOD 2=0 Then Writeln('So vua nhap vao la so chan') Else Writeln('So vua nhap vao la so le'); Readln; End Bi 3.2: Vit chng trỡnh gii phng trỡnh bc nht ax+b=0 Uses Crt; Var a,b,x : real; Begin Write('a = '); Readln(a); Write('b = '); Readln(b); If a = Then { Nu a bng } If b = Then { Trng hp a = v b = } Writeln('Phuong trinh co vo so nghiem') Else { Trng hp a=0 v b } Writeln('Phuong trinh vo nghiem') Else { Trng hp a } Begin x:= -b/a; Writeln('Phuong trinh co nghiem la :',x:0:2); End; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 5/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Readln; End Bi 3.3: Vit chng trỡnh nhp vo tui ca mt ngi v cho bit ngi ú l thiu niờn, niờn, trung niờn hay lóo niờn Bit rng: nu tui nh hn 18 l thiu niờn, t 18 n 39 l niờn, t 40 n 60 l trung niờn v ln hn 60 l lóo niờn Uses crt; Var tuoi:Byte; Begin Write(Nhap vao tuoi cua mot nguoi:'); Readln(tuoi); Case tuoi Of 17: Writeln(Nguoi la thieu nien'); 18 39: Writeln(Nguoi la nien'); 40 60: Writeln(Nguoi la trung nien'); Else Writeln(Nguoi la lao nien'); End; Readln; End Bi 3.4: Vit chng trỡnh tớnh tng S = 1+2+ +N Cỏch 1: Dựng vũng lp FOR Program TinhTong; Uses crt; Var N,i,S:integer; Begin http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 6/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; For i:=1 to N S:=S+i; Writeln('Ket qua la :',S); Readln; End Cỏch 2: Dựng vũng lp REPEAT Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; Repeat S:=S+i; i:=i+1; Until i>N; Writeln('Ket qua la :',S); Readln; End Cỏch 3: Dựng vũng lp WHILE http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 7/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; While iEpsilon Do Begin Pi:=Pi+s*t; s:=-s; i:=i+1; t:=4/(2*i+1); End; Writeln('So Pi = ',Pi:0:4); Readln; End http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 10/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Begin P:=1; For i:=1 To n Do P:=P*i; GiaiThua:=P; End; Vớ d 2: Vit chng trỡnh tỡm im i xng ca im (x,y) qua gc ta í tng: Vỡ bi toỏn ny tr v ta im i xng (xx,yy) gm giỏ tr nờn ta dựng th tc Procedure DoiXung(x,y:Integer; Var xx,yy:Integer); Begin xx:=-x; yy:=-y; End; CH í: Trong vớ d trờn: n, x, y c gi l tham tr (khụng cú t khúa var ng trc) vỡ sau CTC giỏ tr ca nú khụng b thay i xx, yy c gi l tham bin (cú t khúa var ng trc) vỡ sau CTC giỏ tr ca nú b thay i III BIN TON CC V BIN A PHNG Bin ton cc: l cỏc bin c khai bỏo chng trỡnh chớnh Cỏc bin ny cú tỏc dng mi ni ton b chng trỡnh Bin a phng: l cỏc bin c khai bỏo cỏc CTC Cỏc bin ny ch cú tỏc dng phm vi CTC ú m thụi Chỳ ý: Trong mt CTC, nu bin ton cc trựng tờn vi bin a phng thỡ bin a phng c u tiờn hn http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 20/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Vớ d: Program KhaoSatBien; Var a,b: Integer; {bin ton cc} Procedure ThuBien; Var a: Integer; {bin a phng} Begin a:=10; Writeln(A=,a,B=,b); End; Begin a:=50; b:=200; ThuBien; Writeln(A=,a,B=,b); {A=10 B=200} {A=50 B=200} End IV QUI 4.1 Khỏi nim qui Trong mt chng trỡnh, mt CTC cú th gi mt CTC khỏc vo lm vic Nu nh CTC ú gi li chớnh nú thỡ gi l s qui 4.2 Phng phỏp thit k gii thut qui Tham s húa bi toỏn Tỡm trng hp suy bin http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 21/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Phõn tớch cỏc trng hp chung (a v cỏc bi toỏn cựng loi nhng nh hn) Vớ d: Vit hm qui tớnh n! = 1.2 n Tham s húa: n! = Factorial(n); Factorial(0) = Factorial(n) = n*Factorial(n-1) (trng hp suy bin) (trng hp chung) Function Factorial(N:integer):Longint; Begin If N=0 Then Factorial:=1 Else Factorial:=N*factorial(N-1); { li gi qui } End; 4.3 Gii thut quay lui Bi toỏn: Hóy xõy dng cỏc b giỏ tr gm n thnh phn (x1, ,xn ) t mt hu hn cho trc cho cỏc b ú tha yờu cu B cho trc no ú Phng phỏp chung Gi s ó xỏc nh c k-1 phn t u tiờn ca dóy: x1, ,xk-1 Ta cn xỏc nh phn t th k Phn t ny c xỏc nh theo cỏch sau: - Gi s Tk: tt c cỏc giỏ tr m phn t xk cú th nhn c Vỡ Tk hu hn nờn ta cú th t nk l s phn t ca Tk theo mt th t no ú, tc l ta cú th thnh lp mt ỏnh x 1-1 t Tk lờn {1, 2, , nk} - Xột jẻ{1, 2, , nk} Ta núi rng j chp nhn c nu ta cú th b sung phn t th j Tk vi t cỏch l phn t xk vo dóy x1, ,xk-1 c dóy x1, ,xk - Nu k=n: B (x1, ,xk) tha yờu cu B, ú b ny c thu nhn - Nu kb Then a:=a-b Else b:=b-a; End; UCLN:=a; End; Function NGUYENTO(n:Word):Boolean; Var d,i:Word; Begin d:=0; For i:=2 To n DIV Do If n MOD i=0 Then d:=d+1; NGUYENTO:=d=0; End; END http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 26/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bõy gi, ta cú th vit mt chng trỡnh cú s dng Unit MYTOOL Uses Crt, MyTool; Var a,b:Integer; Begin CLRSCR; Write(10,5,CHUONG TRINH MINH HOA); Write(Nhap a = ); Readln(a); Write(Nhap b = ); Readln(b); Writeln(UCLN cua ,a, va ,b, la:,UCLN(a,b)); Write(Nhap m = ); Readln(m); If NGUYENTO(m) Then Writeln(m, la so nguyen to!) Else Writeln(m, khong phai la so nguyen to!) Readln; End BI TP MU Bi 4.1: Vit hm tỡm Max ca s thc x,y Var a,b:Real; Function Max(x,y:Real):Real; Begin If x>y Then Max:=x Else Max:=y; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 27/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) End; Begin Write(Nhap a=); Readln(a); Write(Nhap b=); Readln(b); Writeln(So lon nhat so la: , Max(a,b)); Readln; End Bi 4.2: Vit hm LOWCASE( c:char):char; i ch cỏi hoa c thnh ch thng í tng: Trong bng mó ASCII, s th t ca ch cỏi hoa nh hn s th t ca ch cỏi thng l 32 Vỡ vy ta cú th dựng hm CHR v ORD chuyn i Uses crt; Var ch:Char; Function LOWCASE(c:Char):Char; Begin If c IN [A Z] Then LOWCASE:=CHR(ORD(c)+32) Else LOWCASE:=c; End; Begin Write(Nhap ký tu ch=); Readln(ch); Writeln(Ky tu hoa la: , LOWCASE(ch)); Readln; End http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 28/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bi 4.3: Vit th tc hoỏn i hai gớa tr x,y cho Var a,b:Real; Function Swap(Var x,y:Real); Var Tam:Real; Begin Tam:=x; x:=y; y:=Tam; End; Begin Write(Nhap a=); Readln(a); Write(Nhap b=); Readln(b); Swap(a,b); Writeln(Cac so sau hoan doi: a=, a:0:2, b=,b:0:2); Readln; End Bi 4.4: Vit hm XMU(x:Real;n:Byte):Real; tớnh giỏ tr xn Var x:Real; n:Byte; Function XMU(x:Real;n:Byte):Real; Var i:Byte; S:Rea; Begin S:=1; For i:=1 To n Do S:=S*x; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 29/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) XMU:=S; End; Begin Write(Nhap x=); Readln(x); Write(Nhap n=); Readln(n); Writeln(x mu n = , XMU(x,n):0:2); Readln; End Bi 4.5: Vit th tc KHUNG(x1,y1,x2,y2:Integer); v mt khung hỡnh ch nht cú nh trờn bờn trỏi l (x1,y1) v nh di bờn phi l (x2,y2) í tng: Dựng cỏc ký t m rng bng mó ASCII:ẵ(#179), ắ(#196), ộ(#218), ở(#192), ự(#191), ỷ(#217) Uses crt; Procedure Khung(x1,y1,x2,y2:Integer); Var i,j:Integer; Begin Gotoxy(x1,y1); Write(#218); {V ộ} Gotoxy(x1,y2); Write(#192); {V ở} {V vin ngang ca khung} For i:=x1+1 To x2-1 Begin Gotoxy(i,y1); Write(#196); Gotoxy(i,y2); Write(#196); http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 30/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) End; Gotoxy(x2,y1); Write(#191); {V ự} Gotoxy(x2,y2); Write(#217); {V ỷ} {V vin dc ca khung} For j:=y1+1 To y2-1 Begin Gotoxy(x1,j); Write(#179); Gotoxy(x2,j); Write(#179); End; End; Begin Clrscr; Khung(10,5,40,20); Readln; End Bi 4.6: Vit th tc PHANTICH(n:Integer); phõn tớch s nguyờn n tha s nguyờn t Uses crt; Var n:Integer; Procedure PHANTICH(n:Integer); Var i:Integer; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 31/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Begin i:=2; While n1 Do Begin While n MOD i=0 Do Begin Writeln(n:5,'|',i:2); n:=n Div i; End; i:=i+1; End; Writeln(n:5,'|'); End; Begin Write('Nhap n='); Readln(n); PHANTICH(n); Readln; End BI TP T GII Bi 4.7: Vit hm tỡm Max , ca s thc Bi 4.8: Vit hm PERFECT(n:Word):Boolean; kim tra s nguyờn n cú phi l s hon thin hay khụng? http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 32/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bi 4.9: Vit th tc FILL(x1,y1,x2,y2:Integer; ch:Char); tụ mt vựng mn hỡnh hỡnh ch nht cú nh trờn bờn trỏi l (x1,y1) v nh di bờn phi l (x2,y2) bng cỏc ký t ch Bi 4.10: Vit hm tỡm BSCNN ca s nguyờn a,b c khai bỏo nh sau: Function BSCNN (a,b:word ):word ; Bi 4.11: Vit th tc ti gin phõn s a/b , vi a, b l s nguyờn Bi 4.12: Vit cỏc hm quy tớnh: S1 = 1+2 +3+ +n ; S2 = 1+1/2 + .+ 1/n ; n+1 1/n S = 1-1/2 + + (-1) S4 = + sin(x) + sin2(x) + + sinn (x) Bi 4.13: Vit hm quy tớnh Ckn bit : Cn n =1 , C0n = , Ckn = Ck-1n-1 + Ckn-1 Bi 4.14: Cho m , n nguyờn dng Lp hm quy tớnh: A(m,n) = Bi 4.15: Lp hm qui tớnh dóy Fibonaci: F(n) = Bi 4.16: Vit hm qui tỡm USCLN ca s http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 33/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bi 4.17: Vit th tc in mn hỡnh s o ngc ca mt s nguyờn cho trc theo cỏch: qui v khụng qui Bi 4.18: Vit chng trỡnh in mn hỡnh cỏc hoỏn v ca n s nguyờn u tiờn Bi 4.19: Xõy dng mt Unit SOHOC.PAS cha cỏc th tc v hm thc hin cỏc chc nng sau: - Gii phng trỡnh bc nht - Gii phng trỡnh bc hai - Tỡm Max/Min ca s a,b - Tỡm USCLN v BSCNN ca s nguyờn a,b - Kim tra s nguyờn dng n cú phi l s nguyờn t hay khụng? - Kim tra s nguyờn dng n cú phi l s hon thin hay khụng? - i mt s nguyờn dng n sang dng nh phõn - In mn hỡnh bng cu chng t đ Sau ú, t vit cỏc chng trỡnh cú s dng Unit SOHOC va c xõy dng trờn http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c-pascal-ph-n-2?tmpl=component&print=1&layout=default&page= 34/34 [...]... = , XMU(x,n):0 :2); Readln; End Bi tp 4.5: Vit th tc KHUNG(x1,y1,x2,y2:Integer); v mt khung hỡnh ch nht cú nh trờn bờn trỏi l (x1,y1) v nh di bờn phi l (x2,y2) í tng: Dựng cỏc ký t m rng trong bng mó ASCII:ẵ(#179), ắ(#196), ộ(#218), ở(#1 92), ự(#191), ỷ(#217) Uses crt; Procedure Khung(x1,y1,x2,y2:Integer); Var i,j:Integer; Begin Gotoxy(x1,y1); Write(#218); {V ộ} Gotoxy(x1,y2); Write(#1 92); {V ở} {V 2... ca khung} For i:=x1+1 To x2-1 do Begin Gotoxy(i,y1); Write(#196); Gotoxy(i,y2); Write(#196); http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 30/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) End; Gotoxy(x2,y1); Write(#191); {V ự} Gotoxy(x2,y2); Write(#217); {V ỷ} {V 2 vin dc ca khung} For j:=y1+1 To y2-1 do Begin Gotoxy(x1,j);... LOWCASE(c:Char):Char; Begin If c IN [A Z] Then LOWCASE:=CHR(ORD(c)+ 32) Else LOWCASE:=c; End; Begin Write(Nhap ký tu ch=); Readln(ch); Writeln(Ky tu hoa la: , LOWCASE(ch)); Readln; End http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 28/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bi tp 4.3: Vit th tc hoỏn i hai gớa tr x,y cho nhau... a=, a:0:2, b=,b:0 :2); Readln; End Bi tp 4.4: Vit hm XMU(x:Real;n:Byte):Real; tớnh giỏ tr xn Var x:Real; n:Byte; Function XMU(x:Real;n:Byte):Real; Var i:Byte; S:Rea; Begin S:=1; For i:=1 To n Do S:=S*x; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 29/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) XMU:=S; End; Begin... nhúm: thỏng cú 31 ngy (1,3,5,7,8,10, 12), thỏng cú 30 ngy (4,6,9,11) v thỏng 2 (cú 28 hoc 29 ngy tựy theo nm nhun) Dựng lnh la chn: CASE thang OF 1,3,5,7,8,10,12: 4,6,9,11: 2: http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 14/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) END; Bi tp 3.16: Vit chng trỡnh in... TRèNH CON: TH TC V HM http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 17/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) I KHI NIM V CHNG TRèNH CON Chng trỡnh con (CTC) l mt on chng trỡnh thc hin trn vn hay mt chc nng no ú Trong Turbo Pascal, cú 2 dng CTC: Th tc (PROCEDURE): Dựng thc hin mt hay nhiu nhim v no ú Hm (FUNCTION):... Procedure PHANTICH(n:Integer); Var i:Integer; http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 31/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Begin i:=2; While n1 Do Begin While n MOD i=0 Do Begin Writeln(n:5,'|',i :2); n:=n Div i; End; i:=i+1; End; Writeln(n:5,'|'); End; Begin Write('Nhap n='); Readln(n); PHANTICH(n);... khụng? http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 32/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Bi tp 4.9: Vit th tc FILL(x1,y1,x2,y2:Integer; ch:Char); tụ mt vựng mn hỡnh hỡnh ch nht cú nh trờn bờn trỏi l (x1,y1) v nh di bờn phi l (x2,y2) bng cỏc ký t ch Bi tp 4.10: Vit hm tỡm BSCNN ca 2 s nguyờn a,b c khai... Trong mt CTC, nu bin ton cc trựng tờn vi bin a phng thỡ bin a phng c u tiờn hn http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 20/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Vớ d: Program KhaoSatBien; Var a,b: Integer; {bin ton cc} Procedure ThuBien; Var a: Integer; {bin a phng} Begin a:=10; Writeln(A=,a,B=,b); End;... qui 4.2 Phng phỏp thit k gii thut qui Tham s húa bi toỏn Tỡm trng hp suy bin http://thpt.ictu.edu.vn/index.php/tin-hoc/187-ly-thuy-t-tin-h-c -pascal- ph-n-2?tmpl=component&print=1&layout=default&page= 21/34 Ngy 23 thỏng 10 nm 2016 Lý thuyt tin hc Pascal (Phn 2) Phõn tớch cỏc trng hp chung (a v cỏc bi toỏn cựng loi nhng nh hn) Vớ d: Vit hm qui tớnh n! = 1.2 n Tham s húa: n! = Factorial(n); Factorial(0)