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

[klem4]

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



Ну вот так наверное,если я правильно понял, тока я подозреваю, что через функцию делать надо

Код

uses crt;
const n=7;
var a:array[1..n] of integer;
   i,x:integer;
   y,p,p1:extended;
Begin
  writeln('Input A0..A6');
  for i:=1 to n do
   readln(a[i]);
  write('Input x ');
  readln(x);
  p:=0;
  p1:=0;
  y:=0;
  for i:=n downto 1 do
   begin
      p:=p+a[i]*(exp(i*ln(x+1)));
      p1:=p1+a[i]*(exp(i*ln(x)));
   end;
  y:=p-p1;
  writeln('p(x+1)-p(x)=',y:2:3);
  readln;
  end.

[klem4]

H(a,=(a/(1+b^2))+(b/(1+a^2))+(a-^3.
а как вот это понять ???

[volvo]

klem4
Смотри теперь - там просто были смайлики включены... :yes:

[klem4]

Ну теперь намного лучше! щас разберемся

[klem4]

max((H^2)*(S-t,S*t), (H^4)*(S-t,S+t))+H(1,1) - вообще не понимаю.

Похоже на то, что от каких то элементов надо найти максимум :D , но от каких неясно.

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

[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

[klem4]

особенно вот это ...(H^2)*(s-t,s*t)
H^2 понятно, это значение ф-ции в заданных s,t в квадрате(видимо :D ), но то-что дальше для меня загадка...

[volvo]

klem4
Скорее всего, вторая задача решается вот так:

Код

function H(a,B: real): real;
 begin
   H := (a/(1+sqr(b)))+(b/(1+sqr(a)))+(a-B)*sqr(a-B)
 end;
function max(a, b: real): real;
 begin
   max := a;
   if b > a then max := b
 end;

const
 s: real = 2.23;
 t: real = 3.45;

begin
 writeln( H(S,t) +
          max(sqr(H(S-t,S*t)), sqr(sqr(H(S-t,S+t)))) +
          H(1,1) );
end.