посмотрите что не так плиз. мне
нужно чтоб самый последний
writeln был зациклен. а он
выводится только один раз
почемуто и выдаёт верное
значение но только одно.
program p;
var x,h,y:real;
i,b,a:integer;
function f(x:real):real;
begin
f:=x-arctan(x)-1;
end;
begin
writeln('введите а');
ReadLn(a);
writeln('введите b');
ReadLn(b);
writeln('введите шаг функции');
ReadLn(h);
Writeln (' x F(x)');
x:=a;
repeat
y:=f(x);
Writeln(x:10:2,y:10:2);
x:=x+h;
until x<=b;
еnd

ImperiO , Делфи, если не ошибаюсь. Переменные проверил?

залей код на dumpz.org

RUS , ну да. Все вроде правильно,но где то косяк

а че это?

это сайт php мастеров.И наврятли кто-то знает pascal :)

PROFI_777 , ну мало ли. Не одна ж школота сидит.

ImperiO , залей туда мне код мля. Помогу.

89828013 , я туда с тилипона и зайти не могу счас.

ImperiO , ну сорян