вычислениезначения функции с циклом for

[lammy]

Прошу совета у опытных программеров.
Не могу вычислить значение функции..

[IT-man]

a:=3.5;
for x:=0 to 7 do begin
у:=1;
while y<=4.5 do begin
s:=a*exp(x*0.1)*sin(pi*x/20)+sqr(a)*sqrt(2*y);
writeln(x*0,1,y:6:2,s:8:2 );
y:=y+1.5;
end;
end;

[Sweta]

Идея вычисления следующая:
Организовываем цикл изменения y от 1 до 4,5 с шагом 1,5
и еще один цикл внутри первого, где изменяем х от 0 до Пи/4 с шагом 0,1
в котором вычисляем значение функции в соответствии с формулой и результаты выводим на экран типа
у=1 х=0 s=(вычисленное значение)
у=1 х=0,1 s=(вычисленное значение)
.
.
.
у=4,5 х=Пи/4 s=(вычисленное значение)

[lammy]

спасибо большое, буду разбираться)

[lammy]

const a=3.5;
var xst, xend, yst, yend, dx, dy, y, x, s:real;
                                                i, N:integer;
  begin
    xst:=0; xend:=pi/4; dx:=0.1;
    yst:=1; yend:=4.5; dy:=1.5;
    y:=yst;
    while  (y<yend) do
     begin
      while  (x<xend) do
       begin
         s:=a*exp(x)*sin((pi*x)/2)+a*a*sqrt(2*y);
         writeln('if x=', x:3:1, ' and y=', y:3:1, ' the function=', s:6:2);
         x:=x+dx;
         y:=y+dy;
       end;
      end;
     readln;
  end.

сделал немножко по-своему, только не знаю правильно ли..

[IT-man]

Ну и где тут у вас цикл FOR?