Rekord (adatszerkezet)

Innen: Programozás Wiki
A lap korábbi változatát látod, amilyen FlamingClaw (vitalap | szerkesztései) 2010. július 11., 11:48-kor történt szerkesztése után volt. (Új oldal, tartalma: „Turbo Pascal-ban a rekord logikailag összetartozó adatokat fog össze. <Source Lang="Pascal"> Program Rekord; Type TDatum = Record ev:String; …”)
(eltér) ← Régebbi változat | Aktuális változat (eltér) | Újabb változat→ (eltér)
Ugrás a navigációhozUgrás a kereséshez

Turbo Pascal-ban a rekord logikailag összetartozó adatokat fog össze.

Program Rekord;

Type TDatum = Record
                ev:String;
                ho:1..12;
                nap:1..31;
              End;

Var datum:TDatum; {egy TDatum típusú rekord létrehozása}

Begin
  {hivatkozás a rekord egyes mezőire}
  datum.ev:=2010;
  datum.ho:=7;
  datum.nap:=11;

  {illetve lekérdezés}
  With datum Do Begin
    WriteLn('Ev : ',ev);
    WriteLn('Ho : ',ho);
    WriteLn('Nap: ',nap);
  End;
  ReadLn;
End.