паскаль. дополнить код

[mishammm]

Задача: Разработать алгоритм и записать программу вычисления значения аргумента функции на указанном промежутке с заданным шагом, а также значений функции (табулирования функции)
Вот код:

program pr4_2;
var
x,y:real;
n:integer;
begin
Writeln('Vvedi x');
Readln(x);

for n:=0 to n:=8 do
y:=(sin(0.5*x) / cos(0.5*x)) / (exp(3 * ln(x)) + 7.5);
x:=x+0.05
Writeln('y='.y  , 'x=',x);
End.

пожалуйста дополните код
P.S (задание б)!!!

[Stilet]

Где-то примерно так:

function foo(x):double;begin foo:=tan(0.5*x)/(x*x*x+7,5);end;
procedure go(b,e,s:Double);
begin
 while b<=e do begin  writeln(b:10:2,foo(b):10:2); b:=b+s end;writeln;
end;
procedure go2(b,s:Double;n:integer);
begin
 while n>0 do begin  writeln(b:10:2,foo(b):10:2); b:=b+s; dec(n); end;writeln;
end;

begin
 go(0.1,1.2,0.1); go2(0.5,0.05,8); readln;
end;

[mishammm]

спасибо за код но препод говорила что нада через for ... to оператор ) и tan = sin(x) / cos(x)

[Stilet]

Ну замени второй цикл на for. Я не против )

[mishammm]

что то у меня с n не выходит ошибка что нехватает do если смотреть на мой код