2Лабы. вычисления с фунциями. очень срочно., речь идет об отчислении завтра. Опции

[bednyi student]

речь идет об отчислении завтра. те уже сегодня.
не сочтите за труд. потртьте свое время. надо днем мне все уже сдать.

1) даны действительные числа.
А0, ..., А6. Получить для Х=1; 3; 4.
значения
p(x+1) - p(x), где p(y)=A6*(y^6)+A5*(y^5)+...+A0.

2) даны действительные числа.
S, t. Получить H(S,t)+max((H^2)*(S-t,S*t), (H^4)*(S-t,S+t))+H(1,1), где
H(a,B)=(a/(1+b^2))+(b/(1+a^2))+(a-B)^3.

помогите плиз, очень прошу.

Сообщение отредактировано: volvo - 24.12.2004 18:11

[Jahnerus]

Без коментариев !!!
Задача 1

Код

uses
 crt;
const
 n=6;
type
 m=array[0..n] of real;
var
 a:m;
 i:byte;

function p(y:byte; a:m):real;
var
 i:byte;
 sum:real;

begin
 sum:=0;
 for i:=0 to n do sum:=sum+a[i]*exp(i*ln(y));
 p:=sum;
end;

begin
 clrscr;
 for i:=0 to 6 do begin
   write('a[',i,']=');
   readln(a[i]);
 end;
 writeln('x=1:');
 writeln('p(x+1)-p(x)=',p(2,a)-p(1,a));
 writeln('x=3:');
 writeln('p(x+1)-p(x)=',p(4,a)-p(3,a));
 writeln('x=4:');
 writeln('p(x+1)-p(x)=',p(5,a)-p(4,a));
 readln;
end.

Эх давно ни чё не писал ...

Сообщение отредактировано: Jahnerus - 24.12.2004 18:34