[GRAY_WOLF]

Сообщение от Sloth

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. 


var
a:real;
c: string;

function StringToReal(str:string; base:integer):real;
a:=StringToReal(c,10);