NIKO, чтобы ты увидел результат.

Убери, и посмотри что будет.

омг...спасибо что подсказал.

Хм. Столько себе нервов испортил с delay, а проблема решалась ReadLn.

Askalite, Прочти песни о паскале, просто дружеский совет. Или самоучитель TP7 О.А. Меженного.

Virus-ON, Эм. Только ковыряние, только хардкор.

Открыть спойлер

Закрыть спойлер

наилучшее обучение это обучение на собственных ошибках или обучение другого

St@SyaN (28.09.2013/11:32)
Баг турбопаскаля для процессоров, чья тактовая частота выше 200 мГци как исправить? Есть код?

Askalite, я написал код, который генерирует необходимую задержку (примерно 1/30 секунды, просто в цикл воткни), но работает он достаточно долго...

Открыть спойлер

Закрыть спойлер

заголовок опустил, ибо куча мусора в начале, которая к делу не относится, все переменные типа интегер сделай, не ошибешься

[копировать] [скачать]

1. begin
2. {начнем считать   }
3. dtime:=10;
4. step:=1;
5. while step<>6 do
6.  begin
7.  {frames}
8.   frame:=frame+1;
9.   GetTime(h,m,s,hund1);
10.   hund1:=hund1;
11.   for i:=1 to step*4 do
12.    begin
13.    delay (dtime);
14.    end;
15.  GetTime(h,m,s,hund2);
16.  hund2:=hund2;
17.  if hund1>hund2 then
18.   begin
19.   loadtime:=100-hund1+hund2;
20.   end
21.  else
22.   begin
23.   loadtime:=hund2-hund1;
24.   end;
25.  if loadtime<time [step] then dtimetemp:=dtime+100/step/4;
26.  if loadtime>time [step] then dtimetemp:=dtime-100/step/4;
27.  dtime:=round(dtimetemp);
28.  lt1:=loadtime+1;
29.  lt2:=loadtime+2;
30.  lt81:=loadtime-1;
31.  lt82:=loadtime-2;
32.  if (loadtime=time[step])or(lt1=time [step])or(lt81=time[step])or(lt2=time[step])or(lt82=time[step])then step:=step+1;
33.  end;
34. assign (f1, 'DATA\OPTIONS.DAT');
35. rewrite (f1);
36. writeln (f1, round(dtime));
37. close (f1);
38. end.

а вообще, для винды обычно выдает число от 2000 до 3000, но если через досбокс, то меньше 100 получается

St@SyaN, эм. Спасибо, Я понял!

Как из 10чной СС в 2чную а потом в string?

Virus-ON, в двоичную - спроси у учителя инфы, как это делать вручную, а там уже алгоритм и сам поймешь.
В string можно задротски перевести через chr()+x