program fps;
const frames = 20; // ограничим FPS 20-ю кадрами в секунду
var delay_,f,fps,s:integer; // объявляем переменные
procedure game; // процедура игры
begin
setcolor(0,0,0); // меняем цвет на черный
fillrect(0,0,getwidth,getheight); // закрашиваем весь экран
//\\//\\//\\//\\//\\//\\//\\//\\//\\//
//ЗДЕСЬ МОЖЕТ БЫТЬ ВАША ПРОГРАММА =)//
//\\//\\//\\//\\//\\//\\//\\//\\//\\//
setcolor(0,255,0); // меняем цвет на зеленый
drawtext('FPS: ' + fps,0,0); // выводим количество кадров
end;
begin // начало основного кода
fps:=0; // любые переменный в начале нужно обнулять
delay_:=25; // первоначальное значение времени задержки
repeat
f:=0; // обнуляем счетчик
s:=getsecond(getcurrenttime); // узнаем текущую секунду
while (s=getsecond(getcurrenttime)) do begin // пока не прошла секунда
f:=f+1; // считаем кадры
game; // выполняем процедуру игры
repaint; // перерисовываем экран и больше эту процедуру не вызываем
delay(delay_); // ждем...
end;
fps:=f; // переменную fps можно было и не заводить - она нужна лишь для вывода на экран
if (f<frames-1) then delay_:=delay_-1; // если FPS меньше нужного нам, то уменьшаем задержку
if (f>frames+1) then delay_:=delay_+1; // и наоборот ("1" - это как бы погрешность, нужно для стабильности FPS)
if (delay_<0) then delay_:=0; // если задержка будет отрицательной, то приложение зависнет
until getkeyclicked=KE_KEY0; // выход из приложения при нажатии "0"
end.