A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
Előző változat mindkét oldalon Előző változat | |||
inf-prog-fszi:egydimenzios_toemboek [2017/06/20 12:04] beistvan |
inf-prog-fszi:egydimenzios_toemboek [2017/06/22 10:31] (aktuális) beistvan |
||
---|---|---|---|
Sor 59: | Sor 59: | ||
</code> | </code> | ||
+ | ===== Nyitott tömbök ===== | ||
+ | |||
+ | Free Pasca verziója legalább 2 és a Turbo Pascal verziója legalább 7. | ||
+ | |||
+ | <code pascal nyitott_tomb.pas> | ||
+ | program nyitott_tomb; | ||
+ | Procedure tomb_nyomtatas(egyTomb: array of integer); | ||
+ | var | ||
+ | k: integer; | ||
+ | begin | ||
+ | for k := 0 to High(egyTomb) do | ||
+ | Write(egyTomb[k]:3); | ||
+ | WriteLn | ||
+ | end; | ||
+ | const | ||
+ | A: array [-1..2] of integer = (0,1,2,3); | ||
+ | B: array [5..7] of integer = (4,5,6); | ||
+ | begin | ||
+ | tomb_nyomtatas(A); | ||
+ | tomb_nyomtatas(B); | ||
+ | readln; | ||
+ | end. | ||
+ | </code> | ||
+ | |||
+ | <code pascal tomb_hossz.pas> | ||
+ | program tomb_hossz; | ||
+ | const | ||
+ | a:array[-4..5]of byte =(1,2,3,4,5,6,7,8,9,10); | ||
+ | var | ||
+ | i:integer; | ||
+ | begin | ||
+ | writeln(high(a)); | ||
+ | writeln(low(a)); | ||
+ | for i:=low(a) to high(a) do | ||
+ | write(a[i]:3); | ||
+ | readln; | ||
+ | end. | ||
+ | </code> |