Это Паскальтут дается функция 5*e^(-x^2/2) uses Crt;var a=-5,b=5,h=0.5: real;x,y:...

Question

Это Паскаль
тут дается функция 5*e^(-x^2/2)

uses Crt;
var a=-5,b=5,h=0.5: real;
x,y: real;
function F (x: real): real;
begin
F(x): = 5*e^(-x^2/2)
end;
begin
clrscr
writeln('*y=5*e^(-x^2/2)*');
repeat
write('-5=');
readln(a);
write('5=');
readln(b);
write('0.5=');
until(awriteln('x y');
x:=a;
repeat
if (5*e^(-x^2/2)=0)
then
begin
y:=F(x)
writeln
сама задача так звучит: Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h. Вид функции, значения a, b, h взять из нижеприведенной таблицы.
Для построения таблицы значений использовать цикл с предусловием. Таблица должна выводиться на экран в два столбца с заголовками 'x' и 'f(x)'.
Функция5*e^(-x^2/2) ; а=5; b=5; шаг=0,5
Что дальше делать, я запуталась...
Это паскаль.

Answer 1

Если что, проверялось только в pascal abc.
uses crt;
var x,a,b,h:real;
begin
writeln('Input a,b,h:');
read(a,b,h);
writeln('x','   ','f(x)');
x:=a;
while x<=b do<br>begin
writeln(x,'   ',(5*power(e,(-x*-x)/2)):0:2);
x:=x+h;
end;
end.