CONST
min = 100;
max = 200;
str = (min+max) div 2;
pozdrav = 'Ahoj';
var pole: Array[min..max] of byte;
Begin
Writeln (pozdrav);
Writeln('Interval: ',min,' - ',max, 'Stred: ',str);
End.
. . .
CONST
meno1:typ1 = hodnota1;
meno2:typ2 = hodnota2;
. . .
CONST
min:byte = 100;
max:byte = 200;
str:byte = (min+max) div 2; {toto neprejde, typova konstanta nemoze byt pouzita na definovanie inej}
pozdrav:string = 'Ahoj';
var pole: Array[min..max] of byte; {toto neprejde, typova konstanta nemoze byt pouzita na definovanie pola}
Begin
Writeln (pozdrav);
Writeln('Interval: ',min,' - ',max);
End.
. . .
TYPE
typ1 = popis1;
typ2 = popis2;
. . .
Type
cele = integer; {cele a integer vytvoria synonymum}
minmax = 1..200;
pole = Array[minmax] of cele; {pri popise noveho typu mozno pouzivat uz popisane typy}
komplex = RECORD
rea, ima: double;
END;
Function Sucet(a:pole):cele;
var i,s:cele;
Begin
s:=0;
for i:=1 to 200 do s:=s+a[i];
Sucet:=s;
End;
Var
i,j: cele;
p:pole;
Begin
. . .
End.
| Názov | +/- | Dĺžka | Min | Max |
|---|---|---|---|---|
| byte | neznam. | 1B | 0 | 255 |
| shortint | znam. | 1B | -128 | 127 |
| word | neznam. | 2B | 0 | 65536 |
| integer | znam. | 2B | -32768 | 32767 |
| longint | znam. | 4B | -2147483648 | 2147483648 |
| int64 | znam. | 8B | -9223372036854775808 | 9223372036854775807 |
| Názov | Dĺžka | Min | Max | Presnosť |
|---|---|---|---|---|
| single | 4B | 10^-45 | 10^38 | 7-8 číslic |
| real | 6B | 10^-39 | 10^38 | 11-12 číslic |
| double | 8B | 10^-324 | 10^308 | 15-16 číslic |
| extended | 10B | 10^-4932 | 10^4932 | 19-20 číslic |