» 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

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

** Představte si biblickou potopu ** Nejprve zaniknou Děčín a Břeclav, pak i Brno a Praha ** Hlavním městem se stane Jihlava a zbytky Čechů přežijí na Kvildě

Jakub Čížek | 93

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

** Součástí Windows 10 je integrovaný antivirový program. Stačí to? ** Představíme vám sedm aplikací na boj proti virům a malwaru ** Všechny jsou k dispozici zdarma a některé ani nemusíte instalovat

Karel Kilián | 31

Pozor, na Česko v těchto dnech útočí falešné Tesco, Penny Market a Lidl

Pozor, na Česko v těchto dnech útočí falešné Tesco, Penny Market a Lidl

** Máme tu další českou phishingovou vlnu ** Podle průzkumů máme stále problém s kybernetickou gramotností ** Nebezpečím jsou děti, které opouštějí rodiče

Jakub Čížek | 34


Aktuální číslo časopisu Computer

Megatest: 20 powerbank s USB-C

Test: mobily do 3 500 Kč

Radíme s výběrem routeru

Tipy na nejlepší vánoční dárky