Pascal - načtení ze záznamu

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

Petr2000
nováček
Příspěvky: 13
Registrován: červen 19
Pohlaví: Nespecifikováno
Stav:
Offline

Pascal - načtení ze záznamu

Příspěvekod Petr2000 » 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

Reklama
Uživatelský avatar
faraon
Master Level 8.5
Master Level 8.5
Příspěvky: 7356
Registrován: prosinec 10
Pohlaví: Muž
Stav:
Offline

Re: Pascal - načtení ze záznamu

Příspěvekod faraon » 16 čer 2019 00:14

Vítej na PC-help.

K čemu je tam ten seek(SC,i);? Předpokládám že data jsou uložená sekvenčně, takže je můžeš sekvenčně i načíst, nepotřebuješ skákat v souboru sem a tam, operační systém si to při čtení posouvá sám.
"Král Lávra má dlouhé oslí uši, král je ušatec!

(pravil K. H. Borovský o cenzuře internetu)

Petr2000
nováček
Příspěvky: 13
Registrován: červen 19
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Pascal - načtení ze záznamu

Příspěvekod Petr2000 » 16 čer 2019 07:14

A jak to zapsat? Nějak takto?
for i:=1 to n do begin reset(SC);
while not eof(SC) do begin
read(SC, recept);if recept.strana=i then recept.serazeni[i]:=recept.pocetsurovin end;end;
for i:=1 to n do begin write(recept.serazeni[i], ', ') end; writeln();

Ani tak mi to nefunguje. Potřebuji si je nejdříve načíst
popořadě do řetězce, abych je mohl uspořádat podle velikosti
a následně celý uspořádaný záznam vypsat.

Dodatečně přidáno po 1 hodině 23 minutách 22 vteřinách:
Ještě jsem to zkusil i takto, ale výsledek se nezměnil.

procedure NACTENI;
begin
n:=filesize(SC);
i:=1;
reset(SC);
while not eof(SC) do begin
read(SC, recept);
recept.serazeni[i]:=recept.pocetsurovin;
i:=i+1 end;

for i:=1 to n do begin write(recept.serazeni[i], ', ') end; writeln();readln();readln();end;

Výsledek:
0, 0, 0, 0, 0, 0, 6,

Nevíte co s tím?


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host