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