программа без ошибок и не запускается Опции

[-Оксана-]

решить нелинейное уравнение 2^x+5-3=0

program nut;
var x0,x,e:real;
f:text;
 begin
        writeln ( ' x0, e ');
        readln(x,e);
        repeat
        x0:=x;
x:=x0-(exp(x0*ln(2))+5*x0-3)/(exp(x0*ln(2))*ln(2)+5);
        until abs(x-x0)<e;
        writeln('x=',x);
  end.

программа показывает : ошибок нет, компелируется, но не открывается

Сообщение отредактировано: volvo - 4.12.2006 15:42