Предмет: Информатика,
автор: Алекс102
Помогите сделать,нужно в паскале
Приложения:
Ответы
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1552 от 20.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (xn,xk,dx,a):=(-3.0,3.0,0.6,2.62);
var fun:real->real:=x->Power(1/(7+x),1/3)/(14.5+Log(a*a+3));
var n:=Trunc((xk-xn)/dx)+1; // количество точек
var (s,p):=(0.0,1.0);
for var i:=1 to n do begin
var x:=xn+(i-1)*dx;
var z:=fun(x);
if i mod 3=0 then Writeln(x:4:1,z:20:9);
if z<a then p*=z else s+=z;
end;
var F:=p+s;
Writeln('F=',F)
end.
Результат
-1.8 0.034380259
0.0 0.031137058
1.8 0.028850236
F=3.08194173508216E-17
// Внимание! Если программа не работает, обновите версию!
begin
var (xn,xk,dx,a):=(-3.0,3.0,0.6,2.62);
var fun:real->real:=x->Power(1/(7+x),1/3)/(14.5+Log(a*a+3));
var n:=Trunc((xk-xn)/dx)+1; // количество точек
var (s,p):=(0.0,1.0);
for var i:=1 to n do begin
var x:=xn+(i-1)*dx;
var z:=fun(x);
if i mod 3=0 then Writeln(x:4:1,z:20:9);
if z<a then p*=z else s+=z;
end;
var F:=p+s;
Writeln('F=',F)
end.
Результат
-1.8 0.034380259
0.0 0.031137058
1.8 0.028850236
F=3.08194173508216E-17
Интересные вопросы