Это Паскальтут дается функция 5*e^

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; beginF (x): =5*e^ (-x^2/2) end; beginclrscrwriteln ('*y=5*e^ (-x^2/2)*'); repeatwrite ('-5='); readln (a); write ('5='); readln (b); write ('0,5='); until (a<b) and (h<b); writeln ('x y'); x: =a; repeatif (5*e^ (-x^2/2)=0) thenbeginy: =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 Что дальше делать, я запуталась… Это паскаль.

Salavat · Accepted Answer

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

Это Паскальтут дается функция 5*e^

Задание:

Решение: