| 1 | | - | ; |
| 2 | | - | |
| 3 | | - | Puolipisteen [[ASCII/fi|ASCII]] tai unicode arvo on 59 ([[Hexadecimal/fi|Heksadesimaalisena]] \$3B). |
| 4 | | - | |
| 5 | | - | **Puolipistettä**, ***;*** käytetään erottamaan lauseita (toisin kuin jossain muissa ohjelmointikielissä, jossaa sitä käytetään lauseen lopettamiseen ). Sitä on pakko käyttää useimmissa lauseissa, vapaaehtoisesti joissakin lauseissa ja sen käyttö on kiellettyä tietyssä lauseissa. |
| 6 | | - | |
| 7 | | - | (Jotta selitettäisiin käyttö, jossa Pascalin avainsanoja viitataan tämän artikkelin tekstissä, ne on kirjoitettu isoilla kirjaimina. Ohjelmalistaukset käyttävät pieniä kirjaimia.) |
| 1 | + | ^ |
| 8 | 2 | | |
| 9 | | - | Puolipiste on yleensä pakollinen ja sitä tarvitaan jokaisen lauseen jälkeen. Paikat, joissa se on valinnainen, ovat |
| 3 | + | [[ASCII/fi|ASCII:ssa]] merkkikoodi `94` desimaalisena (tai [[Hexadecimal/fi|heksadesimaalisena]] `5E`) on määritelty `^` (circumflex-aksentti) merkiksi. |
| 10 | 4 | | |
| 11 | | - | - ennen [[End|END]] lausetta |
| 12 | | - | - ennen ohjelman [[Program|PROGRAM]] tai käännösyksikön [[Unit/fi|UNIT]] päättymispistettä |
| 5 | + | Jokaista tietotyyppiä varten voidaan osoittaa dataa [[Pointer/fi|osoittimen tyypillä (pointer)]] operaattorin `^` avulla joka on [[Data type/fi|tietotyypin]] edessä. |
| 13 | 6 | | |
| 14 | | - | Paikat joissa puolipiste on kielletty, ovat |
| 7 | + | ``` pascal |
| 8 | + | program pointerDemo(input, output, stderr); |
| 15 | 9 | | |
| 16 | | - | - Ennen [[Begin|BEGIN]]-lausetta, joka kokoaa yhdistelmälauseen |
| 17 | | - | - Ennen välittömästi [[Else|ELSE]]-lausetta, joka kuuluu sisäkkäiseen IF-lauseseen |
| 10 | + | type |
| 11 | + | listItem = record |
| 12 | + | payload: integer; |
| 13 | + | // next _points_ _to_ a list item |
| 14 | + | next: ^listItem; |
| 15 | + | end; |
| 18 | 16 | | |
| 19 | | - | Se on yleensä kielletty ennen ELSE-lausetta [[If/fi|IF]] lauseessa tai [[Case/fi|CASE]] lauseessa. Jos kyseessä on kuitenkin sisäkkäinen IF-lause, sitä voidaan vaatia ennen ELSE-lausetta, jos ELSE:ä käytetään johonkin muuhun IF-lausekkeeseen aikaisemmin ohjelmassa ja varsinainen IF ei ole päättynyt ELSE-lauseeseen. Tätä tarkastellaan jäljempänä. |
| 17 | + | var |
| 18 | + | start: ^listItem; |
| 20 | 19 | | |
| 21 | | - | ## If lause ja puolipiste |
| 20 | + | begin |
| 21 | + | new(start); |
| 22 | + | if not assigned(start) then |
| 23 | + | begin |
| 24 | + | writeLn(stderr, 'obtaining memory for start failed'); |
| 25 | + | halt(1); |
| 26 | + | end; |
| 27 | + | ``` |
| 22 | 28 | | |
| 23 | | - | Puolipiste on kielletty ennen ELSE lauseketta, joka koskee välittömästi IF-lausetta, jotta kääntäjä voi tietää, missä IF-lauseke päättyy. Esimerkiksi |
| 29 | + | Osoitinta (`pointer`) voidaan seurata, jos se on liitetty lisäämällä [[Identifier/fi|tunnisteeseen]] `^`. Sen sijaan, että muistin osoite olisi käsillä, niin nähdään sen osoittaman muistin sisältö. Jos kyseessä on tyypitetty osoitin (typed pointer), kyseisen tyypin toiminnot ja syntaksit ovat voimassa, esim. [[Becomes/fi|saa arvokseen]] seuraavassa esimerkissä. |
| 24 | 30 | | |
| 25 | 31 | | ``` pascal |
| 26 | | - | |
| 27 | | - | (*0001*) if continuance then |
| 28 | | - | (*0002*) if separated then |
| 29 | | - | (*0003*) Condition(a) |
| 30 | | - | (*0004*) else |
| 31 | | - | (*0005*) if combined then |
| 32 | | - | (*0006*) Condition(b) |
| 33 | | - | (*0007*) else |
| 34 | | - | (*0008*) Condition(c); |
| 35 | | - | (*0009*) Calculate_fee; |
| 32 | + | // _de-reference_ the pointer, i.e. follow it |
| 33 | + | start^.payload := 7; |
| 34 | + | |
| 35 | + | dispose(start); |
| 36 | + | end. |
| 36 | 37 | | ``` |
| 37 | 38 | | |
| 38 | | - | Tässä esimerkissä puolipiste on kielletty rivillä 3 (muussa tapauksessa ELSE rivillä 4 sovellettaisiin IF: lauseeseen rivillä 1). |
| 39 | | - | |
| 40 | | - | Jos rivien 1 ja 2 välissä olisi BEGIN-rivi ja rivin 8 jälkeen END-rivi, niin puolipiste olisi kielletty rivillä 1. |
| 41 | | - | |
| 42 | | - | Koska rivillä 6 ei ole puolipistettä niin ELSE-arvo rivillä 7 koskee IF: tä rivillä 5. Jos rivi 6 päättyisi puolipisteeseen, niin ELSE rivillä 7 olisikin voimassa IF:n rivillä 1 kanssa (ELSE rivillä 4 koskee IF: tä rivillä 2). Näin puolipiste on tässä yhteydessä kielletty saadakseen tämän tuloksen. |
| 43 | | - | |
| 44 | | - | Kuitenkin jos halutaan että ELSE-osa koskee riviä 1 niin puolipiste olisi pakollinen rivillä 6, joka "sulkee" IF:n rivillä 5. |
| 39 | + | Pyrkimys seurata [[Nil/fi|nil]] osoitinta aiheuttaa kuitenkin [[runtime error/fi|ajonaikaisen virheen]] (RTE 216 “general protection fault”). Tilanne on, että ehto, `not assigned(start)` rivillä 15, on tarkoitus saada kiinni. |
| 45 | 40 | | |
| 46 | | - | Jos rivin 1 yläpuolella oli IF-lause niin puolipiste rivillä 8 sulkee IF-lausekkeen rivillä 1 ja jos ELSE sijoitettaisiin rivin 8 jälkeen niin se ei koske IF-lauseketta rivillä 1. |
| 41 | + | ## Katso myös |
| 47 | 42 | | |
| 48 | | - | Usein on suositeltavaa liittää kaikki lauseet IF-lauseen sisällä BEGIN / END-lohkolla, jos saattaa olla kysymys siitä, mihin ELSE-arvoon sovelletaan mitäkin IF lausetta sisäkkäisten IF-lausekkeiden joukossa. |
| 43 | + | - [[$pointerMath/fi|{$pointerMath off}]] ei salli osoittimien käyttöä aritmeettisissa lausekkeissa |
| 44 | + | - [[$typedAddress/fi|{$typedAddress on}]] yhdessä [[@|@-osoiteoperaattorin kanssa]] |
| 45 | + | - [[$modeSwitch/fi|{$modeSwitch autoDeref-}]] |
| 49 | 46 | | |
| 50 | 47 | | --- |
| 51 | | - | *From the Free Pascal wiki, page ";/fi", as it stood on 2020-02-01 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
| 48 | + | *From the Free Pascal wiki, page "^/fi", as it stood on 2023-02-18 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
