Это Паскальтут дается функция 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=');read...
Это Паскаль
тут дается функция 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(a
Гость
Гость
Ответ(ы) на вопрос:
ГостьЕсли что, проверялось только в 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.
Не нашли ответ?
Похожие вопросы