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 Következő változat | Előző változat | ||
inf-prog-fszi:egydimenzios_toemboek [2017/06/20 10:02] beistvan |
inf-prog-fszi:egydimenzios_toemboek [2017/06/22 08:31] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Egydimenziós tömbök ====== | ||
+ | Formátum | ||
+ | <code pascal egydimtomb.txt> | ||
+ | type | ||
+ | típus_megnevezése = array [felsorolás_típus] of adattípus; | ||
+ | </ | ||
+ | |||
+ | Példa | ||
+ | |||
+ | <code pascal egydimtomb1.pas> | ||
+ | type | ||
+ | felsorolas_tipus = 1..50; | ||
+ | tomb_tipus = array [felsorolas_tipus] of integer; | ||
+ | </ | ||
+ | |||
+ | Ugyan az, mint a | ||
+ | |||
+ | <code pascal egydimtomb2.pas> | ||
+ | type | ||
+ | tomb_tipus = array [1..50] of integer; | ||
+ | </ | ||
+ | |||
+ | |||
+ | <code pascal egydimtomb3.pas> | ||
+ | const | ||
+ | n = 10; | ||
+ | type | ||
+ | tomb_tipus = array [1..n] of integer; | ||
+ | var | ||
+ | tombom : tomb_tipus; | ||
+ | i : integer; | ||
+ | begin | ||
+ | for i := 1 to n do | ||
+ | read(tombom[i]); | ||
+ | tombom[2] := 3; | ||
+ | end; | ||
+ | </ | ||
+ | |||
+ | <code pascal tomb_elso.pas> | ||
+ | program tomb_elso; | ||
+ | const | ||
+ | n = 10; | ||
+ | type | ||
+ | tomb_tipus = array [1..n] of integer; | ||
+ | var | ||
+ | tombom : tomb_tipus; | ||
+ | i : integer; | ||
+ | //const tomb: tomb_tipus = (2, 5, 6, 7, 4, 6, 1, 2, 5, 9); | ||
+ | begin | ||
+ | for i := 1 to n do | ||
+ | readln(tombom[i]); | ||
+ | tombom[2] := 3; | ||
+ | for i := 1 to n-1 do | ||
+ | write(tombom[i],', | ||
+ | write(tombom[n],' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | ===== 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: | ||
+ | var | ||
+ | k: integer; | ||
+ | begin | ||
+ | for k := 0 to High(egyTomb) do | ||
+ | Write(egyTomb[k]: | ||
+ | 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 pascal tomb_hossz.pas> | ||
+ | program tomb_hossz; | ||
+ | const | ||
+ | a: | ||
+ | var | ||
+ | i:integer; | ||
+ | begin | ||
+ | writeln(high(a)); | ||
+ | writeln(low(a)); | ||
+ | for i:=low(a) to high(a) do | ||
+ | write(a[i]: | ||
+ | readln; | ||
+ | end. | ||
+ | </ |