Даны действительные числа...

[Мария Сафонова]

помогите пожалуйста решить задачу,так как плохо разбираюсь в паскале

лаба5.jpg

помогите решить..срочно.через процедуры

[Летучий_СкилетиК]

Сообщение от Мария Сафонова

помогите решить..срочно.через процедуры

срочно= фриланс, или лично ко мне в личку или скайп maksim366780

[Stilet]

С потолка:

const a:array[1..13] of integer =(2,1,7,9,0,4,8,6,5,12,11,10,3);

function p(x:double):double;
var i:integer;
begin
 for i:=13 downto 1 do   p:=a[i]*exp((i+1)*ln(x))+p;
end;

function z:Double;begin z:=p(1)-p(12.6)+sqr(p(0.14-12.6))+p(1)*p(1)*p(1);end;

begin
 Write(z);
 readln;
 ...
 А вот написание суммирования предоставляю автору.
end.

[Мария Сафонова]

дальше попробую разобраться.спасибо

[Мария Сафонова]

нет,не работает.выдает ошибку в строке function p(x : double) : double;
пишет неизвестное имя типа

[GetMax]

Поменяйте на это

function p(x:double):Double;
var i:integer; Sm:Double;
begin
 Sm:=0;
 for i:=13 downto 1 do
 Begin
  Sm:=Sm+a[i]*(exp((i-1)*ln(x)));
 End;
 P:=Sm
end;

[Мария Сафонова]

вообщем всеравно вот что выдает

ооооо.jpg

или как то направильно заменила.
ошибка

[Летучий_СкилетиК]

p(0.14-12.6) - это есть значение аргумента этого exp((i-1)*ln(x)), т.е ln(от отрицательного), не может быть,тут либо по модулю, либо рассматривать как комлексные числа.
через процедуры решается вроде так:

const a:array[0..12] of integer =(2,1,7,9,0,4,8,6,5,12,11,10,3);
var x : real;
procedure p(x:real; var Sm : real);
var i:integer;
    s : real;
begin
 Sm:=0;
 s := 0;
 for i:=12 downto 0 do
 begin
     Sm:=Sm+a[i]*(exp((i-1)*ln(abs(x))));
     s := s + (a[i] * exp(i*ln(abs(x))));
 end;
 writeln('For x=',x,' s =',s:10:2);
end;

procedure z(var z_ : real);
var x1, x2, x3 :real;
begin
   p(1,x1);
   p(12.6,x2);
   p(0.14-12.6,x3);
   z_:=x1-x2+sqr(x3)+sqr(x1)*x1;
end;

begin
z(x);
Write(x);
readln;
end.

[val_nnm]

А можно ещё немного упростить
Замените процедуру p вот на это

procedure p(x:real; var Sm : real);
var i:integer;
     xi:real;
begin
 Sm:=0;
 xi = 1;
 for i:=0 to 12 do
 begin
     Sm:=Sm+a[i]*xi;
     xi := xi*x;
 end;
end;

Кстати Мария. Уточните вам именно через процедуры нужно? (Летучий_СкилетиК вам написали через процедуры, но через функции былобы намного красивее)

[Мария Сафонова]

да если бы красивее то без проблем.а тут именно через процедуры.проверю