Giáo trình Pascal nâng cao

Ngôn ngữ pascal đã cung cấp cho chúng ta các kiểu dữ liệu từ đơn giản đến nâng cao như tập tin, con trở, ... Bây giờ làm quen với một kiểu dữ liệu mới gọi là kiểu procedue
Nội dung trích xuất từ tài liệu:
Giáo trình Pascal nâng cao !#$%&1 KI ÃØU D ÆÎ LI ÃÛU PROCEDURE! #$%&!(!)*+,-.($(/$0%#!)123456782479 #$%&!(!)*+!#$%$&%()*+),%-)%+.$%+/01%+23%+2.4$%5)%+)4+%6789.%:&% ,78;.%5&?AAA%B/C%7=?BAI789.%(@3+F:.@F%,) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM!! #$%!N%&5N!)O(345678247I2)7%K)43%K780$%6789.%(@3+F:.@F%+.$%KQ$2%52&=%-80$%+)4+%(@3+F:.@F%+34%-#07%*#0%6789.%+2.#k7A• -()*+%,)% 5@3>% -80$%+)4+%(@3+F:.@F%+34% K#0$%-#07%*#0% G=47%K)%-#07%*#0% -/U. 6789.%./01?%-#07%*#0%52&4%5&%6789.%+2.#k7A• ,2%3+%,)% 5@3>% -80$%+)4+%a.$+573$%+34% K)%-#07%*#0% D)% 5@3>% G))% +)4+% K780$% 6789.(@3+F:.@F%12)>7%,) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM := ;I2#$% $2&% 12F41% )4$% -#07% G=47% +)4+% K780$% +34% 6789.% +=% K)>$?% 12F41% )4$% =>% -/C% D)$% C4$2[)%,) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM {-- Gaïn giaï trë vaìo biãún Procedure --} Case Ch Of ‘+’: FuncVar:=Cong; ‘-’: FuncVar:=Tru; ‘*’: FuncVar:=Nhan; ‘/’: FuncVar:=Chia; End; WriteLn(‘Kãút quaí laì: ’, FuncVar(x, y):2:2); ReadLn; END.!#$%&(%()%(23/4%&-5/%*%+#,0V@3$%+2&=$%5@Q$2%5@8$?%+2.4$%5)%-)%-O$2%$2[)%D#H5%6789.%(@3+F:.@F%,) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM WriteLn(DEF); End; {$F-} Procedure TT(pv: Proc); Begin pv; End; Procedure TB(VAR pv: Proc); Begin pv:=DEF_Proc; End; BEGIN p:=ABC_Proc; TT(p); TB(p); p; END. ABC DEFD 3$7&3]5]%&($S)4+%12F41%53)4$%*3%*)4$2%62#$%)41%:.;$%+23%+)4+%K780$%6789.%(@3+F:.@F?%:3%-34%+2.4$5)%62#$%5289% *3%*)4$2%+)4+%K780$%6789.%(@3+F:.@F%-&=H+%D)%K780$%(@3+F:.@F%62#$%5@3>%G) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM!-Z[;FZ[A>E6Y6A@Q:;3?@ABC>?B9 S2.4$%5)%+/U$%12/$%K78;5%7&)%,= Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM !#$%&2 CHUY ÃØN ÂÄØI KI ÃØU – UNIT NG ÆÅÌI DUÌNG!d 6$2e)1(-f1!#!)12KYe376%]Y!(/MVC1F%S)*57$%,)7%*&>%:.;$%$278U.%,8;$2%D=47%-);5%-&=H+%D.;+%-W+2A%n/0C%D#H5GW% :.;% $2&% *).?% -0% ,))%+)4+%6C4%5&;%5@3$%+2.#k7%52Q%12)>7%:. Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM 05 85 117 114 98 111!80.%5)%TFD%G.$%KLd$%52.>%5.;+N>3$*OPQHR#/GR#QHR#/HS%53H)%-#H%-Y$2%5@)47%5@8$%G)7%:&=47%12)>7%-&=H+%,&.%7&%5@3$2)7%K780$%6789.%N*)$%,)3$I>3 Cj TjPháön 4, Âäö hoaû trong Pascal !!) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM N>3$I5Q V3H)%-#H%-Y$2%12)>7%:&=47 !#$%&( !#$%#)*+,Z89% ,/0C% +)4+% 7)4% 5@O% QG?% /G?% QH?% /H% 5&3$I>3% G)3$I5Q?% +2.4$% 5)+.$%+34%5289%:.3%G)3$I5Q%G) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM until Result = 0; End;V2.>%5.;+%$)%:.;$%6C%52./;5%VC1F%S)*57$%G=47%52)D%K780$%=%-89%*)3%+23%$34%,)%5.;+%415$U30%TFD%5280%$) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGMS)4+%12/U$%-&=H+%*Lc1%T801%$2&%*).%5@3$%D#H5%X7,F%$.#U$o {!#$%#&$()*+&$,-.$/&01#/$234&$#$5&67 } UNIT ; USES ; {$F+} INTERFACE !#! 8)*&$9*4:$#$;*4;$) Hoaìng Hæîu Haûnh3EFAEG(HIJAE@K%CLEIABC3EFAEGM PROCEDURE ThiDu1 (Var x, y: Real); PROCEDURE ThiDu2 (S: String);• 3PHsI6Eu;v!wb _.wAAPzQE2(!Y()*+),% 52#$% 52&=7!q_A%Z89%,)0#,>)1+0*)>1X%-&)%G) Hoaìng Hæîu Haûnh3EFAEG( ...