» Poradna » Programy

Pascal - načtení ze zápisu

 |   |  Microsoft Windows 10 Chrome 74.0.3729.169

Ahoj, potřeboval bych poradit s procedurou pro načtení neznámých ze záznamu.Mám to napsané takto:procedure NACTENI;beginn:=filesize(SC);reset(SC);for i:=0 to n-1 do beginread(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

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 74.0.3729.169

Chybí deklarace proměnných a hlavně té struktury, co do ní načítáš. Opravdu je recept.serazeni definováno jako pole ? :D Spíš bych řekl, že to píšeš někam do prčic do paměti a pak vypisuješ nějakou změť, co v ní je.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 74.0.3729.169

Jasně. Ukládal jsem si to zbytečně o záznamu. Díky už to snad poběží

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Recept


Určitě si přečtěte

Jak odposlouchávat sousedy: Bizarní Lamphone a další netušené techniky

Jak odposlouchávat sousedy: Bizarní Lamphone a další netušené techniky

** Lamphone je další bizarní technika odposlechu ** Zneužívá obyčejnou stropní lampu ** Podívejte se na další bizarní experimenty

Jakub Čížek | 16

10 věcí, které jste odkládali „na jindy“, ale teď je konečně můžete udělat

10 věcí, které jste odkládali „na jindy“, ale teď je konečně můžete udělat

** Karanténní opatření nás drží doma a mnozí mají více času navíc ** Připomeneme proto často odkládané činnosti uživatelů počítačů ** Právě teď je ten správný okamžik, kdy se do nich pustit

Karel Kilián | 76

Galerie: Podívejte se na čínský Linux, se kterým to na svých PC zkusil i Huawei

Galerie: Podívejte se na čínský Linux, se kterým to na svých PC zkusil i Huawei

** Huawei se loni dostal do křížku s USA ** Začal to proto zkoušet s konkurenčním operačním systémem ** Jmenuje se Deepin a před pár dny se dočkal nové verze

Jakub Čížek | 46


Aktuální číslo časopisu Computer

Megatest SSD s kapacitou 1 TB

Srovnávací test robotických vysavačů

Vybíráme nejlepší telefony na trhu

Jak zlepšit zvuk televize