0 видимо получаеться из за того что числа надо в real переделать. Как это сделать?
вот код, со всеми твоими подписями
Program Timer;
Var btnOK: command;
A, N, res, S, P, timer, i: integer;
Begin
ShowForm; // Включаем режим форм
i:=FormAddTextField('Введите передаточное число счетчика', '', 8, TF_NUMERIC); // Добавляем поле ввода
btnOK:=CreateCommand('ДАЛЬШЕ', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
A:=StringToInteger(FormGetText(A)); // Считываем введенное значение и запоминаем его
ClearForm; // Очистка формы
ShowForm; // Включаем режим форм
i:=FormAddTextField('Мощность нагрузки Рн Ватт', '', 8, TF_NUMERIC); // Добавляем поле ввода
btnOK:=CreateCommand('ДАЛЬШЕ', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
P:=StringToInteger(FormGetText(P)); // Считываем введенное значение и запоминаем его
ClearForm; // Очистка формы
ShowForm; // Включаем режим форм
i:=FormAddTextField('Количество импульсов', '', 8, TF_NUMERIC); // Добавляем поле ввода
btnOK:=CreateCommand('ДАЛЬШЕ', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
N:=StringToInteger(FormGetText(N)); // Считываем введенное значение и запоминаем его
ClearForm; // Очистка формы
//dsa
i:=FormAddString('Нажмите ПУСК для старта таймера.');
btnOK:=CreateCommand('ПУСК', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
timer:=GetRelativeTimeMs; // Запоминаем текущее время
ClearForm; // Очистка формы
i:=FormAddString('Нажмите СТОП для остановки таймера.');
btnOK:=CreateCommand('СТОП', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
ClearForm; // Очистка формы
timer:=GetRelativeTimeMs - timer; // Тут содержится прошедшее время в милиисекундах (1 с = 1000 мс)
res:=(3600*N)/(A*timer); // Типа какое-то вычисление
i:=FormAddString('Нажмите ДАЛЕЕ для вычисления погрешности');
btnOK:=CreateCommand('Далее', CM_OK, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
S:=100*(res-P)/P;
ClearForm; // Очистка формы
ClearForm;
i:=FormAddString('Результат = ' + res);
btnOK:=CreateCommand('ВЫХОД', CM_EXIT, 1); // Создаем кнопку
AddCommand(btnOK); // добавляем кнопку на форму
while(GetClickedCommand <> btnOK) do Delay(20); // Ждем нажатия на кнопку
End.