Помощь - Поиск - Пользователи - Календарь
Полная версия: 2Лабы. вычисления с фунциями. очень срочно.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
bednyi student
24.12.2004 10:28
речь идет об отчислении завтра. те уже сегодня.
не сочтите за труд. потртьте свое время. надо днем мне все уже сдать.
Цитата
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.


помогите плиз, очень прошу.
klem4
24.12.2004 21:56
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
24.12.2004 22:09
H(a,=(a/(1+b^2))+(b/(1+a^2))+(a-^3.
а как вот это понять blink.gif ???
volvo
24.12.2004 22:12
klem4
Смотри теперь - там просто были смайлики включены... :yes:
klem4
24.12.2004 22:13
Ну теперь намного лучше! щас разберемся
klem4
24.12.2004 22:30
max((H^2)*(S-t,S*t), (H^4)*(S-t,S+t))+H(1,1) - вообще не понимаю.

Похоже на то, что от каких то элементов надо найти максимум :D , но от каких неясно.
Jahnerus
24.12.2004 22:32
Без коментариев !!!
Задача 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.

Эх давно ни чё не писал ... smile.gif
klem4
24.12.2004 22:34
особенно вот это ...(H^2)*(s-t,s*t)
H^2 понятно, это значение ф-ции в заданных s,t в квадрате(видимо :D ), но то-что дальше для меня загадка... blink.gif
volvo
24.12.2004 22:46
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.