Паскаль. Задача решённая методом дихотомии

[Саня просто саня]

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

Program z1;
uses crt;
var
x:integer;
f:real;
begin
clrscr;
for x:=1 to 10 do
begin
f:=x+ln(x/10)-7;
writeln('f=',f:4:1,'','x=',x);
readln;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sna1L]

Я немного не въехал) в программе выполнятся 10 раз действия f:=x+ln(x/10)-7;
writeln('f=',f:4:1,'','x=',x).
О каких шагах идет речь?

[Саня просто саня]

я в програмировании не шарю, нада зделать так чтоб выводилось кол-во шагов затраченых на решение, я хз что именно имели ввиду, а как зделать чтоб не 10 раз а 1 раз выполнялось действи f:=x+ln(x/10)-7;

[Vanta11a]

Измени часть

end;
end.

на

end;
writeln('Итераций, всего: ',x);
end.

p.s. готовься пойти нафиг, потому что код - просто рассчет значений функции в 10 точках, и никакая другая задача тут не решена.