tak som tu opat s dalsim zahadnym problemom v pascale (tentokrat to uz fakt stoji za to), teraz sa mi stala nasledovna vec: robim jeden program, a ked ho spustim stane sa mi velmi zaujimava vec... od isteho bodu v programe sa zacnu diat velmi zvlastne veci, napriklad po prikaze write alebo writeln mi nevypise vobec nic, ale kurzor presunie dalej ako keby nieco napisalo... alebo ked dam delay(2000), tak to sice spravi, ale len na zlomok sekundy, delay(50000) mu trva asi tri sekundy
absolutne netusim co sa stalo, nic som nenastavoval, nepouzil som ziadne pochybne prikazy, proste nic nezvycajne... dole je cast kodu od ktorej to zacne robit (nerieste pls teraz co ten program robi, davam to len ako dokaz ze ja som to nedodrbal ziadnym prikazom
), dotial vsetko funguje spravne...
Kód:
for i:=1 to (pocet_ludi-1) do begin
if hmotnost[i]<>0 then begin
repeat
inc(temp);
hmotnost[i]:=hmotnost[i]+hmotnost[i+temp];
if hmotnost[i]<=300 then hmotnost[i+temp]:=0 else hmotnost[i]:=hmotnost[i]-hmotnost[i+temp];
until ((hmotnost[i]>=300) or (temp=pocet_ludi-2));
inc(pocet_jazd);
end;
end;
writeln(temp);
writeln(pocet_jazd);
end.
