{"id":5575,"date":"2023-11-20T23:05:17","date_gmt":"2023-11-20T22:05:17","guid":{"rendered":"https:\/\/msxitalia.org\/?p=5575"},"modified":"2023-12-02T08:58:39","modified_gmt":"2023-12-02T07:58:39","slug":"turbo-pascal-msx-lezione-4","status":"publish","type":"post","link":"https:\/\/msxitalia.org\/en\/turbo-pascal-msx-lezione-4\/","title":{"rendered":"Turbo Pascal MSX \u2013 Lesson 4"},"content":{"rendered":"

\"\"

MSX Turbo Pascal Rubrica a cura di Stefano Roperto (parte 4)<\/h1>\n

Lezione 4<\/h2>\n

Set di istruzioni<\/h3>\n

Le parole riservate sono parte integrante di Turbo Pascal. Non possono essere ridefinite, n\u00e9 usate come identificatori o nomi di variabili. Il Turbo Pascal \u00e8 sostanzialmente il linguaggio Pascal standard rivisitato da Borland inc. Le parole riservate precedute dal simbolo * non sono parte del linguaggio Pascal standard e indicano le estensioni del linguaggio implementate da Borland per la gestione della memoria, per il meccanismo di Overlay, per la gestione delle stringhe e per l\u2019inserimento di istruzioni\u00a0 assembler direttamente nel codice<\/p>\n

*external\u00a0 \u00a0 \u00a0Nil\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0*shl\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 and\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 file\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 not\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0*shr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Array\u00a0 \u00a0 \u00a0forward\u00a0 \u00a0 \u00a0*overlay
\n*string\u00a0 \u00a0 \u00a0 \u00a0 \u00a0begin\u00a0 \u00a0 \u00a0 \u00a0 \u00a0for\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0of\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0then\u00a0 \u00a0 \u00a0 \u00a0 case\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0function\u00a0 \u00a0 or\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0type\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0const
\ngoto\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 packed\u00a0 \u00a0 \u00a0 to\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 div\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0*inline\u00a0 \u00a0 \u00a0 Procedure\u00a0 \u00a0 until\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 do\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 if\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0program
\nvar\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 downto\u00a0 \u00a0 \u00a0 in\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 record\u00a0 \u00a0 \u00a0 \u00a0while\u00a0 \u00a0 \u00a0 else\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0label\u00a0 \u00a0 \u00a0 \u00a0 repeat\u00a0 \u00a0 with\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 end
\nmod\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 set\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 *xor<\/p>\n

Oltre alle parole riservate, il Turbo Pascal fornisce un certo numero di identificatori, procedure, funzioni, costanti, tipi predefiniti e variabili. Di seguito l\u2019elenco completo di tutti gli elementi del linguaggio. La maggior parte di questi non sono difficili da comprendere, in ogni caso li vedremo tutti proseguendo nel corso. Alcuni di questi elementi sono relativi ai file come per esempio BlockRead o SeekEof, altri servono per la manipolazione delle stringhe come per esempio Lenght o Concat, altri ancora come GetMem o MemAvail per la getione della memoria. Inoltre come si vede, sono definiti qui i tipi standard come integer, byte o char e alcune costanti come Pi che vale 3,14\u2026<\/p>\n

Addr \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Delay\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Length\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Real
\nArcTan \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Delete\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Ln\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Release
\nAssign \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 EOF \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Lo\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Rename
\nAux\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0EOLN\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 LowVideo\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Reset
\nAuxInptr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Erase\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Lst\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Rewrite
\nAuxOutPtr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Execute\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 LstOutPtr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Round
\nBlockRead\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Exit\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Mark\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Seek
\nBlockWrite\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Exp\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0MaxInt\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Sin
\nBoolean \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 False\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Mem\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 SizeOf
\nBufLen \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FilePos\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 MemAvail\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0SeekEof
\nByte \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FileSize\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 MemW\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0SeekEoln
\nChain \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FillChar\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Move\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Sqr
\nChar \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Flush\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0New\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Sqrt
\nChr \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Frac\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0NormVideo\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Str
\nClose\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 GetMem\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Odd\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Succ
\nClrEOL\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 GotoXY\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Ord\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Swap
\nClrScr \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Halt\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Output\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Text
\nCon \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 HeapPtr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Pi\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Trm
\nConInPtr \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Hi\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Port\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0True
\nConOutPtr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 IOresult\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0PortW\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Trunc
\nConcat \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Input\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Pos\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 UpCase
\nConstPtr \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 InsLine\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Pred\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Usr
\nCopy \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Insert\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Ptr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0UsrInptr
\nCos\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Int\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Random\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 UsrOutPtr
\nCrtExit\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Integer\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Randomize\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Val
\nCrtInit\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Kbd\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Read\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Write
\nDelLine\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 KeyPressed\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ReadLn\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 WriteLn<\/p>\n

Come si vede la dotazione di procedure e funzioni utili alla programmazione \u00e8 sufficientemente ampia, ma rimane sempre valido il fatto che \u00e8 possibile ampliare ulteriormente il linguaggio definendo le proprie routines che possono essere salvate in file esterni da utilizzare, poi, nei propri programmi. Andiamo dunque a vedere nel dettaglio la struttura di un programma Turbo Pascal e quando le incontreremo negli esempi, la sintassi delle istruzioni del linguaggio.<\/p>\n

Come abbiamo accennato nel secondo capitolo, il Turbo Pascal ha una struttura molto ordinata. Ogni programma \u00e8 suddiviso in sezioni precise e in ognuna di queste sezioni si utilizzano costrutti precisi. Vediamoli nel dettaglio:<\/p>\n

    \n
  1. intestazione del programma. Ogni programma in Pascal inizia con l\u2019intestazione<\/li>\n<\/ol>\n

    \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Program<\/em><\/strong> NomeDelProgramma(parametri);<\/em>
    \n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Program<\/em><\/strong> CalcoloProbabilit\u00e0(input,output);<\/em>
    \n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Program<\/em><\/strong> Sparatutto(score,lives);<\/em><\/p>\n

    I parametri non sono obbligatori ma rispecchiano la sintassi del pascal standard.<\/p>\n

      \n
    1. Dichiarazioni\n
        \n
      1. Dichiarazione di etichette o Label<\/em><\/strong><\/li>\n
      2. Dichiarazione di costanti o Const<\/em><\/strong><\/li>\n
      3. Dichiarazione di tipi o Type<\/em><\/strong><\/li>\n
      4. Dichiarazione di variabili o Var<\/em><\/strong><\/li>\n
      5. Dichiarazione di procedure e funzioni o Procedure <\/em><\/strong>e Function<\/em><\/strong><\/li>\n<\/ol>\n<\/li>\n<\/ol>\n

         <\/p>\n

        Vediamo ora nel dettaglio la sezione dichiarativa.<\/p>\n

        Le etichette o label<\/em><\/strong> si utilizzano nei salti incondizionati ovvero con l\u2019istruzione GOTO (che in realt\u00e0 in un linguaggio strutturato ha poco senso).\u00a0 Dopo la parola chiave Label si indicano le etichette separate da una virgola e concluse da un punto e virgola, ovviamente anche nelle label, dovrebbe valere la regola di utilizzare nomi significativi a beneficio della leggibilit\u00e0 del codice.<\/p>\n

        Label<\/em><\/strong> Uscita, 10, Aexuoi, 1addf,etichetta;<\/p>\n

        Nel programma, poi si inserisce l\u2019etichetta nel punto desiderato seguita dai due punti:<\/p>\n

        program<\/em><\/strong> usoetichette;
        \nlabel<\/em><\/strong>\u00a0\u00a0\u00a0\u00a0 Uscita;
        \nvar<\/em><\/strong> x,y:integer;
        \nbegin<\/em><\/strong>
        \nfor<\/em><\/strong> x:=1 to 10
        \nbegin<\/em><\/strong>
        \ny:=y+x;
        \nif<\/em><\/strong> (y<100) goto<\/em><\/strong> Uscita;
        \nend<\/em><\/strong>;
        \nend<\/em><\/strong>;
        \nuscita: writeln<\/em><\/strong>(y);
        \nend<\/em><\/strong>.<\/p>\n

        L\u2019istruzione goto nel ciclo for fa uscire il programma dal ciclo secondo la condizione prima che questo arrivi alla fine. Per inciso, il turbo Pascal fornisce l\u2019istruzione Exit che fa la stessa cosa in maniera pi\u00f9 elegante.<\/em><\/p>\n

        \u00a0<\/em>Le Costanti si definiscono utilizzando la parola chiave <\/em>Const <\/strong>si utilizzano per definire valori costanti, ovvero che non cambiano mai nel corso del programma e il valore assegnato ne indica il tipo allo stesso modo in cui abbiamo visto nel capitolo 3 del corso. Potrebbero sembrare uguali alle variabili, ma in realt\u00e0 vi sono differenze significative. Per esempio, una variabile definita all\u2019interno di una procedura o di una funzione, non \u00e8 visibile (utilizzabile) al di fuori della funzione o procedura nella quale \u00e8 dichiarata, inoltre una costante non pu\u00f2 essere modificata per cui \u00e8 pi\u00f9 sicura di una variabile, ma vediamo qualche esempio:<\/p>\n

        const<\/strong><\/em>
        \ntasso = 3.56;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 {questa \u00e8 una costante di tipo real}
        \nunit\u00e0 = \u2018Metro\u2019;\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0{questa \u00e8 di tipo stringa}
        \nindirizzo =$F5;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 {questa \u00e8 un integer espresso in esadecimale}<\/p>\n

        l\u2019utilizzo in un programma dovrebbe essere chiaro:
        \n\u00a0<\/em><\/strong>
        \nprogram<\/em><\/strong> usocostanti;
        \nconst<\/em><\/strong>\u00a0\u00a0\u00a0 coefficiente = 3.5;
        \nvar<\/em><\/strong>
        \nx:integer;
        \ny:real;
        \nbegin<\/em><\/strong>
        \nfor<\/em><\/strong> x:=1 to 10
        \nbegin<\/em><\/strong>
        \ny:=y+x*coefficiente;
        \nwriteln<\/em><\/strong>(y);
        \nend<\/em><\/strong>;
        \nend<\/em><\/strong>.<\/p>\n

        Se nelle specifiche del software, dovrebbe cambiare il coefficiente, basta cambiare il valore della costante, senza cercarne ogni occorrenza all\u2019interno del programma. L\u2019ambiente Turbo Pascal, fornisce alcune costanti predefinite tra le quali<\/p>\n

        Pi\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/em><\/strong>{il cui valore \u00e8 3.1415926536E+00}
        \nMaxint\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0<\/em><\/strong>{il cui valore \u00e8 32767}
        \nFalse\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/em><\/strong>{il cui valore \u00e8 il valore boolean per falso}
        \nTrue\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/em><\/strong>{il cui valore \u00e8 il valore boolean per vero}<\/p>\n

        Da notare che nella definizione che ne fa il compilatore\u00a0 False < True.<\/p>\n

        La definizione dei tipi o Type <\/em><\/strong>\u00e8 una caratteristica importante nella programmazione in Pascal, permette infatti di definire tipi complessi, partendo dai tipi primitivi (char, integer, real. Nella sezione Type si dichiarano variabili alle quali viene assegnato un tipo, inoltre diversi tipi di dato sono forniti dal compilatore oltre ai tipi standard. Vediamo alcuni esempi:<\/p>\n

        Type<\/em><\/strong>
        \nNumero = integer;<\/em><\/strong>
        \nnome = string[50];<\/em><\/strong>
        \nEnumDay = (lun, mar, mer, gio, ven, sab, dom);
        \nSuccessivamente, nella sezione di dichiarazione delle variabili possiamo utilizzare i tipi definiti qui allo stesso modo in cui utilizziamo i tipi standard, in questo modo:<\/p>\n

        Var<\/em><\/strong>
        \nOrdinale:Numero;
        \npersona:nome;
        \nGiorniDellaSettimana:EnumDay;
        \ne utilizzarli nel programma.<\/p>\n

        Infine eccoci alla definizione dei sottoprogrammi, che abbiamo gi\u00e0 introdotto in precedenza, Procedure e Function<\/em><\/strong>. La definizione di una procedura o di una funzione segue esattamente lo stesso modello del programma, le uniche differenze sono le seguenti, al posto della parola program<\/em><\/strong> si utilizza la parola procedure <\/em><\/strong>o function <\/em><\/strong>e all\u2019interno della procedura troveranno posto le sezioni label, const, type, var, procedure e function. <\/em><\/strong>Questa, come gi\u00e0 detto \u00e8 una caratteristica molto importante perch\u00e9 permette di dividere il programma in parti pi\u00f9 piccole, ovvero di scomporre il problema in problemi pi\u00f9 piccoli e con l\u2019opportunit\u00e0 di poter passare e ottenere come risultati dei parametri. Ma analizziamo nel dettaglio le differenze tra una funzione e una procedura e vediamo da vicino la loro definizione e il loro utilizzo in un programma.<\/p>\n

        Una procedura, come detto si definisce tramite la parola procedure<\/em><\/strong>. Per esempio:<\/p>\n

        procedure <\/em><\/strong>AggiornaPosizioneSprite(modello : byte, CoordX, CoordY:integer)
        \nlabel\u2026<\/em><\/strong>
        \nconst\u2026<\/em><\/strong>
        \ntype\u2026<\/em><\/strong>
        \nvar\u2026<\/em><\/strong>
        \nprocedure\u2026<\/em><\/strong>
        \nfunction\u2026 <\/em><\/strong>{Si! Una procedura, cosi come una funzione pu\u00f2 definire al proprio interno altre procedure e funzioni}<\/em><\/strong>
        \n\u00a0<\/em><\/strong>
        \nbegin<\/em><\/strong>
        \nistruzioni che variano;
        \ni valori di X e Y;
        \ndello sprite;
        \nnumero modello;
        \nend;<\/em><\/strong><\/p>\n

        Nel programma principale poi si utilizzer\u00e0 la procedura, come se fosse una normale istruzione del programma:<\/p>\n

        program<\/em><\/strong> game;
        \nlabel\u2026<\/em><\/strong>
        \nconst<\/em><\/strong>
        \nnemico=10;
        \ngiocatore = 1;
        \npalla=3;
        \ntype\u2026<\/em><\/strong>
        \nvar <\/em><\/strong>
        \nsprite:byte
        \nX,Y : integer
        \n\u2026
        \n\u2026
        \nBegin<\/strong>
        \n\u2026
        \n\u2026
        \n{calcola in qualche modo i valori di posizione dello sprite}
        \nX:=espressione;
        \nY:=espressione;
        \n{e li aggiorna}
        \nSprite:=nemico; {qui si utilizza il valore di una costante}
        \nAggiornaPosizioneSprite(sprite,X,Y);
        \n{calcola in qualche modo i valori di posizione dello sprite}
        \nX:=espressione;
        \nY:=espressione;
        \n{e li aggiorna}
        \nSprite:=palla;
        \nAggiornaPosizioneSprite(sprite,X,Y);
        \n\u2026
        \n\u2026
        \nResto del programma;
        \nend.<\/strong><\/p>\n

        Si capisce immediatamente come suddividere il programma in parti pi\u00f9 piccole renda pi\u00f9 efficace la programmazione la procedura pu\u00f2 essere chiamata in ogni punto del programma con i parametri relativi all\u2019azione che dobbiamo compiere. Ovviamente essendo una procedura, cosi come una funzione, un programma a se stante che compie una sola zione semplice, \u00e8 compito del programmatore validare i dati in ingresso al fine di evitare errori durante l\u2019 esecuzione del programma. Questo \u00e8 importante soprattutto per le funzioni. Le funzioni si dichiarano come le procedure, con la differenza che restituiscono un valore nel nome ad esempio una funzione che converte gradi celsius in gradi kelvin avrebbe la seguente struttura:
        \nfunction<\/em><\/strong> Celsius2Kelvin(gradi:real):real<\/em><\/strong>
        \n{anche qui si possono dichiarare costanti, tipi, variabili, procedure, funzioni}
        \nConst<\/em><\/strong>
        \nCoeff = 273.15;
        \nbegin<\/em><\/strong>
        \nCelsius2Kelvin:=gradi+coeff;
        \nend<\/em><\/strong>;
        \nla differenza tra una procedura e una funzione, dunque \u00e8 che la procedura prende in input dei parametri e compie un\u2019azione, mentre la funzione restituisce sempre un valore e deve essere parte di un\u2019espressione, per esempio<\/p>\n

        temperatura := Celsius2Kelvin(15);
        \nk:=5+(Celsius2Kelvin * 15)-(2*4+4) mod<\/strong><\/em> 15;
        \nscrivere
        \nCelsius2Kelvin(15)
        \nsenza che il valore venga utilizzato in un\u2019espressione o in una istruzione di assegnamento, provocher\u00e0 un errore.
        \nDunque una procedura \u00e8 una porzione di programma che compie un\u2019azione, mentre una funzione \u00e8 una porzione di programma che restituisce un valore di un determinato tipo.<\/p>\n

        Dalla prossima lezione in avanti, cominceremo ad approfondire il linguaggio. Le fondamenta le abbiamo gettate, ora andremo un po\u2019 pi\u00f9 spediti, con qualche esempio un po\u2019 pi\u00f9 complesso cosi da introdurre gli argomenti nuovi, direttamente programmando.<\/p>\n

         <\/p>\n","protected":false},"excerpt":{"rendered":"

        MSX Turbo Pascal Rubrica a cura di Stefano Roperto (parte 4) Lezione 4 Set di istruzioni Le parole riservate sono parte integrante di Turbo Pascal. Non possono essere ridefinite, n\u00e9 usate come identificatori o nomi di variabili. Il Turbo Pascal \u00e8 sostanzialmente il linguaggio Pascal standard rivisitato da Borland inc. Le parole riservate precedute dal […]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"","_et_pb_old_content":"","_et_gb_content_width":"","footnotes":""},"categories":[3,5],"tags":[],"dipi_cpt_category":[],"class_list":["post-5575","post","type-post","status-publish","format-standard","hentry","category-programmazione","category-turbo-pascal"],"_links":{"self":[{"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/posts\/5575","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/comments?post=5575"}],"version-history":[{"count":5,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/posts\/5575\/revisions"}],"predecessor-version":[{"id":5580,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/posts\/5575\/revisions\/5580"}],"wp:attachment":[{"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/media?parent=5575"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/categories?post=5575"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/tags?post=5575"},{"taxonomy":"dipi_cpt_category","embeddable":true,"href":"https:\/\/msxitalia.org\/en\/wp-json\/wp\/v2\/dipi_cpt_category?post=5575"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}