01R05.pdf

(1620 KB) Pobierz
Microsoft Word - PROWTP44.DOC
26
Turbo Pascal — programowanie
Pierwszy program
1DMZ\*V]DSRUDQDQDSLVDQLHMDNLHJRSURJUDPX%\QLHE\áRQFDáNRZLFLHQLHSUDN tycz-
Q\VSUyEXMP\]DSRPRFNRPSXWHUDREOLF]\üSROHNRáDRSURPLHQLXFHQW\PHWUyZ
-DNZLDGRPRSROHNRáDZ\UD*DVLZ]RUHP
S = pr 2
gdzie r R]QDF]DSURPLH]D p MHVW]QDQRGGRüGDZQDVWDáZ\QRV]FRNRáR
6DPSURJUDPSRZLQLHQMHG\QLHZ\SLV\ZDüREOLF]RQZDUWRüQDHNUDQLHF]\OLG]LDáDü
z grubsza tak:
SRF]WHN
3RSRMDZLHQLXVLQDHNUDQLHRNLHQNDHG\WRUDMHOLWDNRZHVLQLHSRMDZL]PHQX File
wybierz polecenie New , czyli Nowy VSUyEXMSU]HWáXPDF]\üQDV]VFKHPDFLNQDM]\N
DQJLHOVNLLZSURZDG]LüJRGRNRPSXWHUD3RZLQQRWRZ\JOGDüPQLHMZLFHMWDN
begin
write(Pi*5*5);
end.
=DXZD**HSRZ\*V]\SURJUDPMHVWSUDZLHGRVáRZQ\PWáXPDF]HQLHPWHJRFRQDSLVD -
OLP\SRSU]HGQLR7DZáDQLHÄGRVáRZQRü´VWDQRZLMHGQ]QDMSRZD*QLHMV]\FK]DOHW
7XUER3DVFDODWZRU]HQLHSURVW\FKSURJUDPyZPR*QDZGX*HMF]FLVSURZDG]LüGR
WáXPDF]HQLDRGSRZLHGQLHJRDOJRU\WPXQDM]\NDQJLHOVNLZDUWRMHV]F]H]QDüSRGVWDZ\
DQJLHOVNLHJRDOHQDSUDZGZ\VWDUF]SRGVWDZ\
6DPSURJUDPFK\EDQLHPR*HE\üSURVWV]\6NáDGDVLRQ]MHGQHMMHG\QHMLQVWUXNFML
Z\SLVXMFHMZDUWRüZ\UD*HQLD „pi razy r do kwadratu”, przy czym podnoszenie liczby
GRNZDGUDWX]RVWDáR]DVWSLRQHZ\PQR*HQLHPMHMSU]H]VLHELH6DPRPQR*HQLHV\PER -
lizowane jest operatorem JZLD]GND]DVWDáD p to po prostu Pi 2Z\UD*HQLDFK
wypisz pi razy r do kwadratu
koniec
2.3RPLMDMFQLHMDVQHQDUD]LHNZHVWLHPQR*HQLDSRGQRV]HQLDOLF]E\GRNZDGUDWX
i ZDUWRFL p PR*HV]ZáF]\üNRPSXWHULXUXFKRPLü7XUER3DVFDODSLV]F
turbo
Pierwszy program
27
RSHUDWRUDFKLVWDá\FKSRZLHP\QLHFRZLFHMMX*ZNUyWFHQDUD]LH]DZ\MDQLMP\URO
SR]RVWDá\FKVNáDGQLNyZSURJUDPX
.D*G\ SURJUDP Z 3DVFDOX UR]SRF]\QD VL VáRZHP NOXF]RZ\P begin ( SRF]WHN )
i NRF]\ VáRZHP NOXF]RZ\P end. ( koniec — ]NURSN 6áRZDNOXF]RZH VWDQRZL
SRGVWDZRZ\ÄDOIDEHW´M]\NDVáX*F\GRWZRU]HQLDEDUG]LHM]áR*RQ\FKVWUXNWXU7XUER
3DVFDODXWRPDW\F]QLHZ\Uy*QLDVáRZDNOXF]RZHZWUHFLSURJUDPXSU]H]Z\ZLHWODQLH
LFKZLQQ\PNRORU]HQDWRPLDVWZNVL*FHEG]LHP\]D]QDF]DOLMH F]FLRQNSRJUX -
ELRQ .
przez komputer. W naszym
przypadku prog UDP ]DZLHUD W\ONR MHGQ LQVWUXNFM D PLDQRZLFLH Z\ZRáDQLH W]Z
procedury bibliotecznej write ( wypisz Z\SLVXMFHM QD HNUDQLH XSU]HGQLR REOLF]RQ
ZDUWRüZ\UD*HQLD-DNVLZNUyWFHSU]HNRQDV]LQVWUXNFMHPRJUyZLH*]DZLHUDü]DSLV
G]LDáD DU\WPHW\F]Q\FK Z\ZRáDQLD IXQNFML V\VWHPRZ\FK L ZLHOH LQQ\FK RSHUDFML
.D*GD LQVWUXNFMD ] wy MWNLHP LQVWUXNFML ]QDMGXMFHM VL EH]SRUHGQLR SU]HG VáRZHP
end
RSLVXMFH NROHMQH F]\QQRFL Z\NRQ\ZDQH
PXVL E\ü ]DNRF]RQD UHGQLNLHP ; ), który w Pascalu jest tzw. separatorem
instrukcji .
Aby procedura write ZLHG]LDáDFRZáDFLZLHPDZ\SLVDüPXVLV]SU]HND]DüMHMRGSR -
wiednie informacje w postaci tzw. argumentów . W naszym przypadku argumentem
procedury writeln MHVWZ\UD*HQLH Pi*5*5 NWyUH]NROHLVNáDGDVL]LGHQW\ILNDWRUyZ
VWDá\FKLRSHUDWRUyZRW\P]DFKZLO-HOLSURFHGXUDZ\PDJDNLONXDUJXPHQWyZ
QDOH*\ UR]G]LHOLü MH SU]HFLQNDPL ]D FDáD OLVWD DUJXPHQWyZ PXVL E\ü ]DZV]H XMWD
w QDZLDV\RNUJáH7DNZLFVNáDGQLDF]\OLV\PEROLF]Q\RSLVVSRVREXZ\NRU]\VWDQLD
naszej procedury write MHVWQDVWSXMFD
write[(argument, argument...)]
: SRZ\*V]\P ]DSLVLH QDZLDV\ NZDGUDWRZH R]QDF]DM HOHPHQW\ QLHRERZL]NRZH
PR*OLZHMHVWX*\FLHSURFHGXU\ write EH]DUJXPHQWyZ]DZLHORNURSHNV\JQDOL]XMH
PR*OLZRüX*\FLDGDOV]\FKDUJXPHQWyZZEOL*HMQLHRNUHORQHMOLF]ELH3RSUDZQHEG
ZLFQDVWSXMFHZ\ZRáDQLDSURFHGXU\ write :
·
write(5);
Z\SLV]HOLF]E
·
write(1, 2, 3, 4); wypisze liczby 1, 2, 3 i 4 (jako „1234”)
·
write;
nic nie wypisze
to
SRSURVWXVWDáDF]\OLSHZQDVWDáDZDUWRü]DSLVDQDMDZQLHQDSU]\NáDGOLF]EDF]\
nazwa 'Warszawa'). O tak zwanych VWDá\FK V\PEROLF]Q\FK SRZLHP\ QLHFR Sy(QLHM
Operatorem
atora i identyfikatora.
6WDáD
QD]\ZDP\V\PEROUHSUH]HQWXMF\SHZQHG]LDáDQLHQSGRGDZDQLHF]\
SRUyZQDQLH 2SHUDWRU\EGFHVáRZDPL]DVWU]H*RQ\PLVWDQRZLMHGHQ]SRGVWD wo-
wych elementów Z\UD*HRNWyU\FKSRZLHP\ZLFHMZQDVWSQ\PUR]G]LDOH:UHV]FLH
identyfikator MHVW SR SURVWX QD]Z RELHNWX QS VWDáHM p) lub opera FML QD SU]\NáDG
3RPLG]\VáRZDPLNOXF]RZ\PLR]QDF]DMF\PLSRF]WHNLNRQLHFSURJUDPX]QDMGXMH
VL MHJR ]DVDGQLF]D WUHü F]\OL WDN ]ZDQD F]ü RSHUDF\MQD 6NáDGDMVL QDQL
instrukcje
3R]RVWDáRQDPMHV]F]HZ\WáXPDF]\üSRMFLDVWDáHMRSHU
28
Turbo Pascal — programowanie
Z\SLV\ZDQLDZDUWRFL — write 0R*HRQ]DZLHUDüOLWHU\GX*HOLWHU\QLHVRGUy* -
QLDQH RG PDá\FK ]DWHP Write i write to ten sam identyfikator), cyfry i znaki
SRGNUHOHQLDOHF]QLHPR*H]DF]\QDüVLRGF\IU\0XVLV]UyZQLH*SDPLWDü*HWZR -
U]HQLHLGHQW\ILNDWRUyZEU]PLF\FKWDNVDPRMDNVáRZDNOXF]RZHLRSHUDWRU\EGFH
VáRZDPL ]DVWU]H*RQ\PL MHVW QLHGR]ZRORQH WDN ZLF QLH PR*HV] XWZRU]\ü RELHNWX
o nazwie End czy = .
F9 — Make 2LOHQLFQLHSRSVXáHSU]\SU]HSLV\ZDQLXZ\QLNLHP
NRPSLODFMLSRZLQQRE\üSU]HGVWDZLRQHQL*HMRNLHQNR
Rysunek 5. 2NLHQNRZ\ZLHWODQHSRSUDZLGáRZHMNRPSLODFMLSURJUDPX
—
QDMZD*QLHMV]\MHVWNRPXQLNDW Compile successful: Press any key Z\ZLHWODQ\
XGRáXRNLHQND
-HOLXGDáR&LVLSRSHáQLüMDNLEáGNRPSLODWRU]DV\JQDOL]XMHWRRGSRZLHGQLPNRPX -
nikatem, w VND]XMFMHGQRF]HQLHNXUVRUHPSRGHMU]DQHPLHMVFHZSURJUDPLH
Rysunek 6.
.RPSLODWRUV\JQDOL]XMHEáGNRPSLODFML
3RZ\*HM]LOXVWURZDQRUHDNFMNRPSLODWRUDQDEUDNNURSNLSRNRF]F\PSURJUDPVáR -
wie end -DNZLGDüNXUVRU]QDOD]áVLZZLHUV]X]DZLHUDMF\PEáG]DZ\ZLHWORQ\
QDHNUDQLHNRPXQLNDWR]QDF]D*HWUHüSURJUDPXQLH]RVWDáDSUDZLGáRZR]DNRF]RQD
'RGDWNRZHZ\MDQLHQLDGRW\F]FHEáGXPR*HV]X]\VNDüQDFLVNDMFNODZLV]F1 ( Help ).
7\OHWHRULL)HE\SU]HNRQDüVL*HSURJUDPQDSUDZGG]LDáDVSUyEXMJRVNRPSLORZDü
QDFLVNDMFNODZLV]
1D]ZDSOLNXUR]PLDUZROQHMSDPLFLLLQQHV]F]HJyá\PRJE\üX&LHELHQLHFRLQQH
Pierwszy program
29
-HOLZSURJUDPLH]QDMGXMHVLNLONDEáGyZNRPSLODWRUZ\NU\MHW\ lko pierwszy z nich
(po jego poprawieniu — QDVWSQ\LWDNGDOHM:FKDUDNWHU]HüZLF]HQLDPR*HV]ZSUR -
ZDG]LüNLONDEáGyZGRSURJUDPXQSSU]HVWDZLüOLWHU\ZVáRZLH
write
LSU]HNRQDü
VLMDNUHDJXMHQDQLHNRPSLODWRU
SRP\áHNSRGF]DVZSLV\ZDQLDSURJUDPXQSEáGQLHZSLVDQ\FKVáyZ
NOXF]RZ\FK'UXJ]QDF]QLHPQLHMSU]\MHPQNDWHJRULWZRU]EáG\
wykonania DQJUXQWLPHHUURUZ\QLNDMFH]QLHZáDFLZHMNRQVWUXNFML
SURJUDPXOXEX*\FLDQLHSUDZLGáRZ\FKGDQ\FK%áG\WHQLHVZ\NU\ZDQHSU]H]
NRPSLODWRULXMDZQLDMVLGRSLHURZWUDNFLHSUDF\SURJUDPXSURZDG]F
QDMF]FLHMGRMHMSU]HUZDQLD7\SRZ\PSU]\NáDGHPMHVWSUyEDG]LHOHQLDOLF]E\
SU]H]]HUROXERGF]\WDQLDGDQ\FK]QLHLVWQLHMFHJRSOLNXNRPSLODWRUQLHPR*H
ZLHG]LHüF]\SOLNRGDQHMQD]ZLHEG]LHLVWQLDáZFKZLOLZ\NRQDQLDSUR gramu).
1DV]F]FLHSURJUDP\NWyU\PLEG]LHP\VL]DMPRZDüZQDMEOL*V]\PF]DVLH
V QDW\OHSURVWH*HWUXGQRZQLFKREáG\Z\NRQDQLD
7\OHQDWHPDWEáGyZNWyU\FKRF]\ZLFLH*\F]&LMDNQDMPQLHM-HOLMX*VNRPSLOR
-
ZDáHSURJUDPPR*HV]JRZ\NRQDüQDFLVNDMFNODZLV]HC TRL -F9 .
-X*",MDNLMHVWZ\QLN"+PDZáDFLZLH gdzie on jest?
1LHPDVLF]HJRREDZLDü2EOLF]RQHZSURJUDPLHSROHNRáD]RVWDáRZ\SLVDQHQDHNUD -
QLHOHF]MHVWSU]HVáRQLWHSU]H]RNLHQNRHG\WRUD$E\VLRW\PSU]HNRQDüQDFLQLM
klawisze A LT -F5SRZLQLHQH]REDF]\ü]QDMGXMF\VLÄSRGVSRGHP´HNUDQ'26 -owy,
]DZLHUDMF\RSUyF]LQQ\FKU]HF]\OLF]E
7.8539816340E+01
F]\OL]JUXEV]DFHQW\PHWUyZNZDGUDWRZ\FK$E\ZUyFLüGRRNLHQNDHG\WRUD
Z\VWDUF]\QDFLVQüE NTER .
-
cenie Save ( =DSDPLWDM ) z menu File OXESRSURVWXQDFLQLMNODZLV]F2-HOLZF]HQLHM
QLH QDGDáH SURJUDPRZL QD]Z\ QD]ZD Z\ZLHWODQD MHVW QD JyUQHM NUDZG]L UDPNL
RNLHQND HG\WRUD MHOL ]QDMGXMH VL WDP QDSLV
SURJUDP QLH ]RVWDá
MHV]F]HQD]ZDQ\QDHNUDQLHSRMDZLVLSROHGLDORJRZH Save File As .
NONAME00.PAS
$E\]DSLVDüSURJUDPSRGSU]\NáDGRZQD]Z
PROGRAM 1. PAS
Z\VWDUF]\ZSLVDüMZSR -
. PAS jest dla programów pasca-
ORZ\FKSU]\MPRZDQHGRP\OQLHQLHPXVLV]JRSRGDZDü
3RQLHZD*UR]V]HU]HQLH
-HOLWHUD]SRQRZQLHQDFLQLHV]
F2SURJUDP]RVWDQLH]DFKRZDQ\SRGWVDPQD]ZEH]Z\ZLHWODQLDSRODGLD logo-
wego.
NONAME 00. PAS na PROGRAM 1. PAS
0XVLV]]GDZDüVRELHVSUDZ*HEH]EáGQDNRPSLODFMDQLH]DZV]HJZDUDQWXMH
SRSUDZQHZ\NRQDQLHSURJUDPX%áG\RNWyU\FKSRZLHG]LDQRSU]HGFKZLO
QD]\ZDQHVEáGDPLNRPSLODFML (ang. compile- WLPHHUURULZ\QLNDMJáyZQLH
z
8II1DSLHUZV]\UD]WRFK\EDZ\VWDUF]\$E\QLHXWUDFLüVZRMHJRSLHUZV]HJRSURJ -
UDPXPXVLV]JRMHV]FH]DSDPLWDüF]\OL]DSLVDüQDG\VNX:W\PFHOXZ\ELHU]SROH
le Save file as LQDFLVQüE NTER
=DXZD**HSRZ\NRQDQLXWHMRSHUDFMLQD]ZDSURJUDPXZ\ZLHWODQDZUDPFHRNLHQND
edy
WRUD]PLHQLáDVL]
30
Turbo Pascal — programowanie
Rysunek 7. O kno dialogowe Save File As
Tworzenie nowego programu poleceniem File-New LSy(QLHMV]D zmiana nazwy pole-
ceniem File-Save/Save as QLHV]E\WZ\JRGQH2WRGZLHPHWRG\XWZRU]HQLDSURJUDPX
QLHZ\PDJDMFHSy(QLHMV]HM]PLDQ\QD]Z\
Zamiast polecenia New PR*HV] Z\NRU]\VWDü SROHFHQLH Open ( Otwórz ) z menu File .
Pozwala ono na odczytanie z dysku za SLVDQHJR ZF]HQLHM WHNVWX SURJUDPX Z\ZLHW -
ODMFRNQRGLDORJRZH Open a File SRND]DQHSRQL*HM
Rysunek 8. Okno dialogowe Open a File
1D]Z *GDQHJR SURJUDPX PR*HV] ZSLVDü Z SROH
Name
OXE Z\EUDü ] OLVW\
Files ,
-HOLSOLN
RSRGDQHMQD]ZLHQLH LVWQLHMH7XUER3DVFDOXWZRU]\QRZHRGSRZLHGQLR]DW\WXáRZDQH
RNLHQNRHG\WRUDNWyUHJR]DZDUWRüEG]LHPR*QDZGRZROQ\PPRPHQFLH]DSLVDüEH]
NRQLHF]QRFLSRGDZDQLDQD]Z\
Druga PHWRGD SROHJD QD RGSRZLHGQLP Z\ZRáDQLX 7XUER 3DVFDOD ] SR]LRPX '26 -u.
$E\RWZRU]\üLVWQLHMF\SOLN]SURJUDPHPOXEXWZRU]\üQRZ\SOLNZ\VWDUF]\QDSLVDü
turbo nazwa ¿
Po uruchomieniu system automatycznie odczyta plik o zadanej nazwie (i rozszerzeniu
. PAS ; p RGREQLH MDNSRSU]HGQLRUR]V]HU]HQLDQLH WU]HEDSRGDZDü OXE MHOL WDNLSOLNQLH
istnieje, otworzy puste okienko edytora o odpowiednim tytule.
]DZLHUDMFHM]DZDUWRüNDWDORJXURERF]HJRQDVWSQLHQDOH*\QDFLVQüE NTER

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin