Pascal - načtení ze záznamu
Napsal: 15 čer 2019 23:27
Ahoj, potřeboval bych poradit s procedurou pro načtení
neznámých ze záznamu.
Mám to napsané takto:
procedure NACTENI;
begin
n:=filesize(SC);
reset(SC);
for i:=0 to n-1 do begin
read(SC, recept);
seek(SC,i);
recept.serazeni[i+1]:=recept.pocetsurovin end;
for i:=1 to n do begin write(recept.serazeni[i], ', ') end;
writeln();readln();readln();end;
Ale píše mi to samé nuly kromě posledního čísla a to ještě
špatně.
Nevíte co s tím?
Děkuji
neznámých ze záznamu.
Mám to napsané takto:
procedure NACTENI;
begin
n:=filesize(SC);
reset(SC);
for i:=0 to n-1 do begin
read(SC, recept);
seek(SC,i);
recept.serazeni[i+1]:=recept.pocetsurovin end;
for i:=1 to n do begin write(recept.serazeni[i], ', ') end;
writeln();readln();readln();end;
Ale píše mi to samé nuly kromě posledního čísla a to ještě
špatně.
Nevíte co s tím?
Děkuji