FreePascal.ru

После нажатия Run у меня лично происходит выполнение программы.
А виснет потому, что условие UNTIL ABS(TB-TA)<=TE; всегда ложно.
Хотя возможно это зависит от данных в файле isdan.pas.
Видимо алгоритм составлен неверно.
СПАСИБО БОЛЬШОЕ,
программа зараболтала!!! ABS(TB-TA) >= TE - в условии была ...

Лекс Айрин писал(а):КОД: ВЫДЕЛИТЬ ВСЁ
readln(fp1);

Куда читаете?

Если убрать, все равно аналогичная ситуация

Не понимаю почему программа виснет, т.е. после нажатия Run дальше ничего не происходит. Приходится закрывать Паскаль
Спасибо!

Program IZDAN12;
TYPE ODN=Array[1..5] of real;
VAR A,B:real;
E:ODN;
FA,FB,X:real;
I:byte;
fp1,fp2:text;

FUNCTION ZNF(X:real):real;
Begin
ZNF:=((EXP(1/3*ln(4))-SQR ...