01R06.pdf

Turbo Pascal — programowanie

Nic nie jest

GRVNRQDáH

D]ZáDV]F]DSLHUZV]\Z*\FLXSURJUDPZ3DVFDOX-H*HOLSUyERZDáH]DVWDQRZLüVL

QDGS\WDQLHP]DP\NDMF\PSRSU]HGQLUR]G]LDáQDMSUDZGRSRGREQLHMZLG]LV]MX*PR* li-

ZRFLXOHSV]HQLDVZHJRG]LHáD1DSRF]WHNVSUyEXMHP\]DMüVLF]\WHOQRFLSURJ -

UDPXDQDVWSQLH]DVWDQRZLP\VLMDNXF]\QLüJREDUG]LHMSUDNW\F]Q\P

&RZáDFLZLHURELQDV]SURJUDP"Ä2EOLF]DSROHNRáD´ — RGSRZLHV]6NGWRZLDGRPR"

Ä7DNE\áRQDSLVDQHZNVL*FH´$MHOLNWRQLHF]\WDáNVL*NL"Ä0R*HVLGRP\OLüSR

przeczytaniu programu”.

$OH SR FR PD F]\WDü SURJUDP" &R SUDZGD ]UR]XPLHQLH MHGQHM LQVWUXNFML WR *DGHQ

SUREOHPDOHMHOLLQVWUXNFMLEG]LHVWR"=QDF]QLHOHSLHME\áRE\XPLHFLüZSURJUDPLH

LQIRUPDFM RSLVXMF MHJR SU]H]QDF]HQLH L HZHQWXDOQLH PHWRG UHDOL]DFML ]DGDQLD

0R*QDWR]URELüQDNLONDVSRVREyZXPLHV]F]DMFRGSRZLHGQLH]DSLV\ZSURJUDPLH

RUD]X*\ZDMFVWRVRZQHMQD]Z\SOLNX=UyEP\WRRGUD]X

program Pole_kola;

^3URJUDPREOLF]DSROHNRáDRSURPLeniu 5 }

begin

ZULWH3LREOLF]LZ\SLV]SROHNRáD

end.

:SRUyZQDQLXGRSRSU]HGQLHMZHUVMLSURJUDPXSRMDZLá\VLZQLPWU]\QRZHHOHPHQW\

QDJáyZHN , komentarze oraz ZFLFLD .

SHáQL Z\áF]QLH IXQNFM LQIRUPDF\MQLQLHPD

ZSá\ZXQDG]LDáDQLHSURJUDPXFRQLH]PLHQLDIDNWX*HX*\ZDQLHJR — FKRFLD*QLH -

RERZL]NRZH — QDOH*\GRGREUHMSUDNW\NLXáDWZLDERZLHPF]\WDQLHRVRERPWU]HFLP

6NáDGQLDQDJáyZNDWR

program nazwa;

program Pole_kola

1DJáyZHN

1LFQLHMHVWGRVNRQDáH

=DXZD*SU]\RND]ML*HÄ3ROHNRáD´WRGZDRGG]LHOQHZ\UD]\SRQLHZD* nazwa jako

LGHQW\ILNDWRUQLHPR*H]DZLHUDü]QDNXVSDFML]DVWSXMHVLJRSRGNUHOHQLHP _ ).

=RF]\ZLVW\FKZ]JOGyZ

FLJWDNLQLHPR*H]DZLHUDüQDZLDVyZNODPURZ\FKQDWRPLDVWZV]\VWNLHLQQH]QDNLV

GR]ZRORQH -H*HOL NRQLHF]QLH FKFHV] XPLHFLü QDZLDV\ NODPURZH Z NRPHQWDU]X

PXVLV]X*\üMDNRRJUDQLF]QLNLGZX]QDNRZ\FKV\PEROL (* i *) FRZLGDüZGU ugim

komen WDU]X3RGREQLHMDNZSU]\SDGNXQDJáyZNDNRPHQWRZDQLHSURJUDPyZQLHMHVW

obo ZL]NRZH QDOH*\ MHGQDN GR GREUHM SUDNW\NL SURJUDPRZDQLD 2F]\ZLFLH

NRPHQWDU]H SRZLQQ\ E\ü X*\ZDQH UR]VGQLH QLH PD VHQVX LFK QDGX*\ZDQLH F]\

NRPHQWRZDQLHU]HF]\RF]\ZLVW\FKMDNQSVáRZD begin :DUWRMHGQDN]GDZDüVRELH

VSUDZ *H NRPHQWDU]H QLF QLH NRV]WXM WM QLH PDM ZSá\ZX QD ZLHONRü

skompilowanego prog UDPXDMHGQRF]HQLHZ]QDF]F\VSRVyESRSUDZLDMF]\WHOQRü

programu.

{ i }

.RPHQWDU]HE\ZDMUyZQLH*F]VWRVWRVRZDQHGRFKZLORZHJRZ\áF]HQLD

IUDJPHQWXSURJUDPX]NRPSLODFML3R]ZDODWRXQLNQüXVXZDQLDLSRZWyUQHJR

ZSLV\ZDQLDWHNVWX]DPLDVWWHJRZ\VWDUF]\XMüÄQLHFKFLDQ\´IUDJPHQW

SURJUDPXZ]QDNLNRPHQWDU]DNWyUHSRWHPPR*QDáDWZRXVXQü

. Nasz program jest

FRSUDZGDWDNPDá\ *HX*\ZDQLHZFLüMHVWQLHFRG\VNXV\MQHMHGQDNZZLNV]\FK

SURJUDPDFKNWyU\PL]DMPLHP\VLMX*ZNUyWFHZFLFLDSR]ZDODMQDV]\ENLH]ORND -

OL]RZDQLHIUDJPHQWyZWZRU]F\FKORJLF]QFDáRüL]QDMGXMF\FKVLQDW\PVDP\P

SR]LRPLHZVWUXNWXU]HSURJUDPX:FLQDQLHSRGREQLHMDNLQQHUHJXá\SLVDQLDáDGQ\FK

i F]\WHOQ\FKSURJUDPyZMHVWZGX*HMPLHU]HNZHVWLVW\OX]Z\NOHSRMHG\QF]HZFLFLH

PDJáERNRü ÷ ]QDNyZZDUWRMHGQDNSU]\MU]HüVLVSUDZG]RQ\PZ]RUFRPQS

SURJUDPRPSU]\NáDGRZ\PILUP\%RUODQGDQDVWSQLHZ\SUDFRZDüZáDVQ\VW\OLVWR -

so ZDüJRNRQVHNZHQWQLH

7\OHVSUDZÄIRUPDOQ\FK´QLHEG]LHP\VLQDGQLPLZLFHMUR]ZRG]Lü]RVWDZLDMF

UHV]W SUDNW\FH 3U]HMG]LHP\ REHFQLH GR ]QDF]QLH EDUG]LHM LQWHUHVXMFHM F]FL WHJR

UR]G]LDáXFR]URELü*HE\QDV]SURJUDPVWDáVLEDUG]LHMSUDNW\F]Q\"

0R*HLQDF]HMFRSURJUDPURELREHFQLH"2EOLF]DLZ\ZLHWODSROHNRáDRSURPLHQX

FP%DDOHVNGZLDGRPR*HWRSROHNRáDDQLHQSUHGQLDRSDGyZ]XELHJáHJRSyá -

URF]D" )HE\VLRW\PSU]HNRQDüPXVLV]]DMU]HüGRNVL*NLJG]LHMHVWWRQDSLVDQH

ZSURVWOXEGRSURJUDPXQDGNWyU\PPXVLV]WURFKSRP\OHüRLOHQLHZSLVDáHMHV] -

cze odpo ZLHGQLFKNRPHQWDU]\1DGRGDWHNZ\ZLHWO ana liczba ma cokolwiek niestraw-

Q\IRUPDWLQLH]E\WFKWQLHQDPVLSRND]XMH

&KZLOHF]N QLH ZV]\VWNR QDUD] 1D SRF]WHN VSUyEXMP\ VIRUPXáRZDü OLVW *\F]H

F]\OL]DSLVDüZXSRU]GNRZDQ\VSRVyEWRFRQDPVLZSURJUDPLHQLHSRGREDLFR

FKFLHOLE\P\]PLHQLü$]DWHP

· SURJUDPSRZLQLHQLQIRUPRZDüX*\WNRZQLNDRW\PFRUREL

=QDF]QLHZD*QLHMV]HGODF]\WHOQRFLSURJUDPXVNRPHQWDU]H.RPHQWDU]HPZ3DVFDOX

MHVWGRZROQ\FLJ]QDNyZXMW\ZQDZLDV\NODPURZH

2VWDWQLPÄNRVPHW\F]Q\P´HOHPHQWHPQDV]HJRSURJUDPXVZFLFLD

Turbo Pascal — programowanie

· Z\QLNG]LDáDQLDSURJUDPXQLHSRZLQLHQ]QLNDüOHF]]RVWDZDüQDHNUDQLHWDN

GáXJRMDN*\F]\VRELHX*\WNRZQLN

NWyUDW\PUD]HPEG]LH

Z\SLV\ZDáDQDHNUDQLHQLHZ\UD*HQLHOLF]ERZHOHF]áDFXFKDFLOHMU]HF]ELRUF

W]ZVWDááDFXFKRZF]\OLFLJ]QDNyZ6WDááDFXFKRZMHVWZ3DVFDOXGRZROQ\

FLJ]QDNyZXMHW\ZDSRVWURI\ ' , nie " &LJWDNLPR*H]DZLHUDüGRZROQH]QDNL]QDN

DSRVWURIX QRUPDOQLH NRF]F\ áDFXFK ]DSLVXMH VL MDNR GZD DSRVWURI\ WM GZD

oddzielne znaki ' DQLH]QDNFXG]\VáRZX " ). C DáRüEG]LHZ\JOGDáDQDVWSXMFR

write('Program oblicza pole kola o promieniu 5 cm.')

6SUyEXMWHUD]SU]\MU]HüVLRSLVRZLSURFHGXU\ write ]SRSU]HGQLHJRUR]G]LDáXL]DVWD -

QRZLüVLMDNSRZLQQDZ\JOGDüLQVWUXNFMDZ\SLVXMFDQDHNUDQLHWHNVW

Pole kola = .....

write

ZPLHMVFXNURSHNSRZLQQD]QDOH(üVLREOLF]RQDSU]H]QDV]SURJUDPOLF]ED-HOLQLH

ZLHV]MDNWR]URELüU]XüRNLHPQDWHNVWQDVWSQHJRSURJUDPX=DXZD*SU]\RND]ML*H

SRMDZLáDVLZQLPGUREQDQRZLQNDPLDQRZLFLHSURFHGXUD

writeln

Uy*QLFDVL od

W\ONRW\P*HSRMHMZ\NRQDQLXNXUVRUSU]HFKRG]LGRQRZHJRZLHUV]DLWDPWH*

Z\SLV\ZDQHVNROHMQHLQIRUPDFMH$E\SU]HNRQDüVLRUy*QLF\ZG]LDáDQLXREXSUR -

FHGXU]DPLHSLHUZV]LQVWUXNFM writeln na write i wykonaj program.

6SUDZDGUXJDF]\OL]DWU]\PDQLHZ\QLNXQDHNUDQLHPRQLWRUDUyZQLH*GDMHVLSURVWR

UR]ZL]Dü:\VWDUF]\PLDQRZLFLHQDNRFXSURJUDPXGRSLVDüLQVWUXNFM

readln;

WRWH* MHM Z\ZRáDQLH SRZRGXMH ]DWU]\PDQLH G]LDáDQLD

SURJUDPXGRPRPHQWXQDFLQLFLDWHJR*NODZLV]D

3R]RVWDáDVSUDZDRVWDWQLDWM]URELHQLHSRU]GNX]PDáRF]\WHOQUHSUH]HQWDFMZ\SUR -

ZDG]DQHJRSROD1DSRF]WHNUR]V]\IUXMP\]DSLV

7.8539816340E+01

Jest to nic innego, jak 7.8539816340· 10 1

x.xxxxEnn oznacza

ZLFOLF]E x.xxxx pomno *RQSU]H]GRSRWJL nn i zwany jest zapisem naukowym .

=DXZD*SU]\RND]ML*HF]üXáDPNRZDOLF]E\RGG]LHORQDMHVWRGF]FLU]HF]\ZLVWHM

QLHSU]HFLQNLHPOHF]NURSNEDUG]RZD*QH:\NáDGQLN nn jest zawsze dobierany tak,

E\]QDMGXMFDVLÄSU]HGQLP´OLF]EDPLDáDW\ONRMHGQF\IUSU]HGNURSNWM]DZLHUDáD

VLZSU]HG]LDOHRGGR:LHONRüOLWHU\(V\PEROL]XMFHMZ\NáDGQLNQLHPD]QD

F]\OLRNRáR=DSLV

F]HQLD]D]QDNPR*QDSRPLQü2WRNLONDSU]\NáDGyZ

3.14E+00 = 3.14

1.2345e4 = 12345

2.78E–3 = 0.00278

1,35E12 = EáG (jaki?)

· Z\ZLHWODQDOLF]EDSRZLQQDáDGQLHMZ\JOGDü

3LHUZV]\ SUREOHP PR*QD UR]ZL]Dü Z\SURZDG]DMF QD HNUDQGRGDWNRZLQIRUPDFM

SRVWDFLWHNVWX6áX*\GRWHJR]QDQD&LMX*SURFHGXUD

write

i gotowe. Co to takiego readln — WRMX*LQQDVSUDZDSURFHGXU readln LSRNUHZQ

jej read ]DMPLHP\VLZNUyWFHQDUD]LH]DZ\VWDUF]\&LZLHG]LHüW\OH*H readln

RGF]\WXMH ] NODZLDWXU\ GRZROQ\ FLJ ]QDNyZ ]DNRF]RQ\ ]QDNLHP QRZHJR ZLHUV]D

(kodem klawisza E NTER

1LFQLHMHVWGRVNRQDáH

write ( writeln )

GRGDWNRZ\FKLQIRUPDFMLRSLVXMF\FKVSRVyEZ\SURZDG]HQLDOLF]E\:SU]\SDGNXOLF]E

U]HF]\ZLVW\FKLQIRUPDFMHWHRNUHODMFDáNRZLWV]HURNRüSROD]DZLHUDMFHJROLF]E

RUD]LORüSR]\FMLSRNURSFHG]LHVLWQHMLPRJE\üV\PEROLF]QLH]DSLVDQHMDNR

ZDUWRüV]HURNRü-pola:liczba-cyfr-po-kropce

SROHJDMFHJRQDSU]HND]DQLXSURFHGXU]H

/LF]ED]DZLHUDMFDPQLHMF\IUQL*RNUHORQRZV]HURNRFLSRODMHVWÄGRVXZDQD´GRSUD -

ZHM VWURQ\ L X]XSHáQLDQD ] OHZHM ]QDNDPL VSDFML 8VWDODMF V]HURNRü SROD PXVLV]

UyZQLH*XZ]JOGQLüPLHMVFHQDNURSNG]LHVLWQLHZHQWXDOQ\]QDNOLF]E\

:WHQVSRVyEGRWDUOLP\GRNROHMQHMZHUVMLSURJUDPXREOLF]DMFHJRSROHNRáD

program Pole_kola;

^3URJUDPREOLF]DSROHNRáDRSURPLHQLX`

begin

writeln('Program oblicza pole kola');

write('Pole = '; Pi*5*5:8:3); (* oblicz i wypisz *)

(* pole kola *)

readln;

end .

6NRUR MX* PyZLP\ R IRUPDWRZDQLX ZDUWR MHV]F]H ZVSRPQLHü *H GOD OLF]E

FDáNRZLW\FK QLH SRVLDGDMF\FK F]FL XáDPNRZHM Z\VWDUF]\ RNUHOHQLH V]HURNRFL

pola, czyli zapis

ZDUWRüV]HURNRü-pola

:LGHQW\F]Q\VSRVyEPR*QDUyZQLH*IRUPDWRZDüQSáDFXFK\FRMHGQDNVWRVRZDQH

MHVWU]DGNR=DSU]\NáDGQLHFKSRVáX*\NROHMQ\SURJUDP

program Formatowanie;

^'HPRQVWUDFMDPR*OLZRFLIRUPDWRZDQLDZ\GUXNyZ`

begin

writeln(1.23^]DPDáRPLHMVFDSRNURSFH`

ZULWHOQ^]DPDáRPLHMVFDZRJyOH`

ZULWHOQ^RNUHODP\W\ONRV]HURNRüSROD`

ZULWHOQ^IRUPDWRZDQLHOLF]E\FDáNRZLWHM`

ZULWHOQ^IRUPDWRZDQLHáDFXFKD`

end.

:WHQVSRVyERPyZLOLP\SRGVWDZRZH]DELHJLNRVPHW\F]QHNWyU\PPR*HP\SRGGDü

QDV]SURJUDP3UH]HQWXMHVLRQMX*QLHFRáDGQLHMMHGQDN]PLDQ\NWyU\FKGRNRQDOLP\

PDMFKDUDNWHUSRZLHU]FKRZQ\&RERZLHP]URELV] *HE\REOLF]\üSROHNRáD o pro-

PLHQLXFP"3RSUDZLV]SURJUDPLVNRPSLOXMHV]JRMHV]F]HUD]"&K\EDMHGQDNSURFLHM

Z]LüNDONXODWRUDPR*HQLH

=DSLVQDXNRZ\SR]ZDODQDáDWZHLMHGQROLWHUHSUH]HQWRZDQLHEDUG]RPDá\FKLEDUG]R

GX*\FKOLF]EMHVWMHGQDNQLH]E\WF]\WHOQ\$E\XF]\QLüJREDUG]LHMVWUDZQ\PPR*QD

X*\üW]Z

formatowania

Turbo Pascal — programowanie

=DSDPLWDM

· 3URJUDP\QDOH*\SLVDüF]\WHOQLHJG\*XáDWZLDWRLFK]UR]XPLHQLHLHZHQWXDOQH

ZSURZDG]DQLHSy(QLHMV]\FK]PLDQ

· 3URJUDP PR*QD RSLVDü QDJáyZNLHP ]DF]\QDMF\P VL RG VáRZD NOXF]RZHJR

program .

· %DUG]R ZD*QH GOD F]\WHOQRFL SURJUDPX V NRPHQWDU]H ]DSLV\ZDQH Z

nawiasach klamrowych, oraz odpowiednie wcinanie poszczególnych instrukcji.

· $E\ Z\SURZDG]Dü LQIRUPDFMH Z NROHMQR QDVWSXMF\FK SR VRELH ZLHUV]DFK

SRZLQLHQHX*\üSURFHGXU\

writeln .

· &KFFZVWU]\PDüG]LDáDQLHSURJUDPXPR*HV]X*\üSURFHGXU\ readln .

· $E\XF]\QLüZ\GUXNEDUG]LHMF]\WHOQ\P]DVWRVXMIRUPDWRZDQLHZ\MFLD

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: