Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:egydimenzios_toemboek

Egydimenziós tömbök

Formátum

egydimtomb.txt
type
  típus_megnevezése = array [felsorolás_típus] of adattípus;

Példa

egydimtomb1.pas
type
  felsorolas_tipus = 1..50;
  tomb_tipus = array [felsorolas_tipus] of integer;

Ugyan az, mint a

egydimtomb2.pas
type
  tomb_tipus = array [1..50] of integer;
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;
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.

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.
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.
inf-prog-fszi/egydimenzios_toemboek.txt · Utolsó módosítás: 2017/06/22 10:31 szerkesztette: beistvan