Valaki tud írni egy rekordtömböt Pascalban, amely bekéri egy állat nevét, előfordulását számát hosszuságát és magasságát?

program rekordtomb;

type rekord = record

nev : string[30];

elofordul : integer;

hosszu : integer;

magas : integer;

end;

var

tomb: array [1..100] of rekord;

begin

Write('Név :');

ReadLn(tomb[1].nev);

Write('Előfordulás :');

ReadLn(tomb[1].elofordul);

Write('Hoszúság :');

ReadLn(tomb[1].hosszu);

Write('Magasság :');

ReadLn(tomb[1].magas);

end.

Ez egy alap. Fejleszd tovább - hibakezelés, ciklus ....

Egy rekordtömb biztos nem fog neked bekérni semmit.

Ha meg még ilyesmit sem tudsz megírni, akkor előbb kezd az alapokkal.

Hello World!

program allatok;

uses crt;

type allat_adatok=record

nev:string;

eloford:string;

szam,hossz,magassag:integer;

end;

var allatok:array[1..1] of allat_adatok;

begin

clrscr;

write('Állat neve: ');

readln(allatok[1].nev);

write('Előfordulása: ');

readln(allatok[1].eloford);

write('Száma: ');

readln(allatok[1].szam);

write('Hossza: ');

readln(allatok[1].hossz);

write('Magassága: ');

readln(allatok[1].magassag);

readkey;

end.