Процедура или функция: табулирование функции

1. y = e^ ( 0.2x^2) ; интервал : [-1,1], step = 0.1. нужно сделать табулирование функции и вывести ее на экран, а так же при помощи цыклов while, repeat вычеслить сумму значений функции. результат вывести отдельно!+ надо сделать либо функцию либо процедуру!!! вот на этом я сижу и не могу понять как процедуру или функцию сделать...
4 ответа

var x:real;
procedure fun(var x:real);
var
y:real;
begin
x:=-1;
while x<=1 do begin
           y:=exp(sqr(0.2*x));
           x:=x+0.1;
           end;
writeln('y=e^(0.2x^2) на интервале [-1;1]');
writeln(y);
end;
begin
fun(x);
end.


domovou2.0, Вы проверяли свою программу?SerejaArmatura, вариант с вводом исходных данных:
procedure tab(x,xn,d:real);
var i: integer;
  y,s: real;
begin
  s:=0;
  while x<xn do
  begin
    y:=exp(0.2*x*x);
    writeln('При х = ',x:0:2,'   у = ',y:0:3);
    x:=x+d;
    s:=s+y;
  end;
  writeln('Сумма значений функции равна = ',s:0:3);
end;
  
var
  x,xn,y,s,d: real;
begin
  write('Введите границы интервала: ');
  readln(x,xn);
  write('Введите шаг: ');
  readln(d);
  tab(x,xn,d);
  readln;
end.


domovou2.0, Вы проверяли свою программу?
Да)) Я забыл "y" суммировать))) Извиняюсь.


Да)) Я забыл "y" суммировать)))
Еще забыли вывод зациклить и формула немножко неверная.. Будьте внимательней!