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 10:04] 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. | ||
| + | </ | ||