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

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

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

Условие:

Даны действительные числа 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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);

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@pixlancer 0 / 0 / 0 Регистрация: 18.12.2016 Сообщений: 3

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

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

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

Решение