Navigace: Hlavní stránka -> PASCAL -> 11 Záznamy ->11.01 Vytvoření záznamu a jeho naplnění hodnotami

MENU

11.01 Vytvoření záznamu a jeho naplnění hodnotami

Zadání:
Sestavte program, který vytvoří proměnnou typu záznam a naplní ji hodnotami.
Řešení:
V programu vytvoříme proměnnou clovek typu záznam (record), která bude obsahovat položky jmeno, prijmeni,
vek a zaplaceno. Položky zaplníme hodnotami ve dvou variantách - přímo a s použitím příkazu with. V obou variantách
obsah proměnné clovek vytiskneme. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var clovek:record
              jmeno,prijmeni: string[20];
              vek: byte;
              zaplaceno: boolean;
           end;

begin

   { varianta 1 }
   clovek.jmeno:='Jan';
   clovek.prijmeni:='Novak';
   clovek.vek:=35;
   clovek.zaplaceno:=true;

   writeln(clovek.jmeno,' ',clovek.prijmeni,' ', clovek.vek,' ',clovek.zaplaceno);

   { varianta 2 }
   with clovek do
   begin
      jmeno:='Jan';
      prijmeni:='Novak';
      vek:=35;
      zaplaceno:=true;
      writeln(jmeno,' ',prijmeni,' ',vek,' ',zaplaceno);
   end;

   readln;

end.
program ke stažení