Вычислить значение выражения

@pixlancer · Регистрация: 18.12.2016

Author24 — интернет-сервис помощи студентам

Условие:

Даны действительные числа s, t, a₁, ..., a₈. Получить

p(1)-p²(s-t)-p³(1),

где (x)=a₈x⁸+a₇x⁷+...+a₁x.

Помогите, нужна программа на паскаль.

@Cyborg Drone · 19.12.2016, 09:49

Что за "p"? Что за (x)? Уточните задание.

Не по теме:

Ещё раз выложите фотку с текстом - и я поступлю с Вами нехорошо.

@Puporev · 19.12.2016, 10:23

Наверное так.

Pascal

const n=8;
var a:array[1..n] of real;
function P(x:real):real;
var t,s:real;
    i:byte;
begin
t:=1;
s:=0;
for i:=1 to n do
 begin
  t:=t*x;
  s:=s+a[i]*t;
 end;
P:=s;
end;
var i:byte;
    s,t,y:real;
begin
randomize;
writeln('Массив коэффициентов a',n,'..a1');
for i:=n downto 1 do
 begin
  a[i]:=1+5*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Введите s,t');
readln(s,t);
y:=P(1)-sqr(P(s-t))-sqr(P(1))+P(1);
write('Y=',y:0:2);
end.

Добавлено через 9 минут
В строке 29 нужно

Pascal

1	y:=P(1)-sqr(P(s-t))-sqr(P(1))*P(1);

@pixlancer 0 / 0 / 0 Регистрация: 18.12.2016 Сообщений: 3
		1
	Вычислить значение выражения 18.12.2016, 14:28. Показов 925. Ответов 2 Метки нет (Все метки) Условие: Даны действительные числа s, t, a₁, ..., a₈. Получить p(1)-p²(s-t)-p³(1), где (x)=a₈x⁸+a₇x⁷+...+a₁x. Помогите, нужна программа на паскаль. 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,011
	19.12.2016, 09:49	2
	Что за "p"? Что за (x)? Уточните задание. Не по теме: Ещё раз выложите фотку с текстом - и я поступлю с Вами нехорошо. 0

	19.12.2016, 10:23

Вычислить значение выражения

Решение