Получить последовательность по заданному правилу

@Lesya18 · Регистрация: 05.12.2018

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

Даны действительные числа а₁, ... ,ф₂₄. Получить последовательность b₁,...,d₁₀
Где
b₁= a₁+a₂+....+a₂₄
b₂= a₁²+a₂²+...+a₂₄²
. . .
b₁₀=a₁¹⁰+a₂¹⁰+...+a₂₄¹⁰

На делфи/паскаль

С процедурой надо
Пожалуйста помогите!!!!

@bormant · 22.03.2019, 11:13

Pascal

1	for i:=Low(b) to High(b) do b[i]:=SumExp(a,i);

Будем считать, что power() есть в наличии:

Pascal

function SumExp(const a: array of Real; p: Integer): Real;
var i: Integer;
begin
  Result:=0;
  for i:=Low(a) to High(a) do Result:=Result+Power(a[i],p);
end;

@Lesya18 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 23
		1
	Получить последовательность по заданному правилу 22.03.2019, 05:06. Показов 533. Ответов 1 Метки delphi, pascal abc (Все метки) Даны действительные числа а₁, ... ,ф₂₄. Получить последовательность b₁,...,d₁₀ Где b₁= a₁+a₂+....+a₂₄ b₂= a₁²+a₂²+...+a₂₄² . . . b₁₀=a₁¹⁰+a₂¹⁰+...+a₂₄¹⁰ На делфи/паскаль С процедурой надо Пожалуйста помогите!!!! 0

	22.03.2019, 11:13