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 Что дальше делать, я запуталась...Это паскаль.

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
begin
writeln(x,'   ',(5*power(e,(-x*-x)/2)):0:2);
x:=x+h;
end;
end.

Answer 2

Кажется, у вас есть небольшие ошибки в коде на Pascal, но я понимаю ваш запрос. Вот исправленный и дополненный код:

program TableOfValues;

uses
  Crt;

var
  a, b, h, x, y: real;

function F(x: real): real;
begin
  F := 5 * Exp(-x * x / 2);
end;

begin
  clrscr;
  writeln('* y = 5 * e^(-x^2/2) *');

repeat
    write('Enter a (-5): ');
    readln(a);
    write('Enter b (5): ');
    readln(b);
    write('Enter h (0.5): ');
    readln(h);
  until (a < b) and (h < b);

writeln('x | f(x)');
  writeln('---------');

x := a;
  while x <= b do
  begin
    y := F(x);
    writeln(x:0:2, ' | ', y:0:4);
    x := x + h;
  end;

end.

Исправления включают в себя правильное использование `Exp` вместо `e^`, а также исправление сравнений в условии повторения (использование `<` вместо `<`). Этот код создает таблицу значений функции `y = 5 * e^(-x^2/2)` на заданном интервале [a, b] с шагом h и выводит результаты на экран.