Задача с циклом FOR Опции

[mr.voland]

Не могу не как решить задачу через while сделал, а надо через for.
Сама задача звучит так

Код

Около стены наклонно стоит палка длинной x метров. Один ее конец находится на растоянии y метров от стены. Определить значения угла между палкой и полом для значений y, изменяющегося от 2 до 3 метров с шагом h.

Искал поиском, нашел такую же задачу, но тема закрыта и задача не решена.
Если надо то могу выложить свое решение через while, но думаю оно мало поможет.
Заранее благодарен.

[volvo]

если шаг больше 0.1

А если 0.09 - тогда что?

Неужели нельзя сделать общий случай?

const
  start_y = 2;
  finish_y = 3;
var 
  i, step: integer;
...
write ('Введите длину палки '); readln(x);
write ('Введите шаг '); readln(h);

step := trunc((finish_y - start_y) / h);
for i := 0 to step do begin
  y := start_y + i * h;
  arccos:=arctan(sqrt(1-sqr(y/x))/(y/x));
  writeln('Значение угла', arccos:8:2, '  при y=', y);
end;

?