Используя генератор случайных чисел, заполните комплекснозначный вектор

@Glebdota228 · Регистрация: 20.01.2017

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

Прошу у вас помощи, о великие гуру программирования. Нужно решить вот такую задачу:

С помощью генератора случайных чисел заполните комплекснозначный вектор a[1..n] и вычислить произведение:
P=a1*(a1+a2)*(a1+a2+a3)*..*(a1+a2+a3+..+an).

@Joy · 20.01.2017, 11:17

если ничего не напутал, то так:

Pascal

const n=5;
var
  s,p:Complex;  
  a:array[1..n] of Complex;
begin
  randomize;
  writeln('A=');
  for i:integer:=1 to n do begin
    a[i]:=new Complex(10*random-5,10*random-5);
    WritelnFormat('{0,10:N2} {1,10:N2}*i ',a[i].Real,a[i].Imaginary);
  end;  
  s:=a[1];p:=a[1];
  for i:integer:=2 to n do begin
     s:=s+a[i];
     p:=p*s;
  end;    
  WritelnFormat('P = {0,10:N2} {1,10:N2}*i ',p.Real,p.Imaginary); 
end.

@Glebdota228 0 / 0 / 0 Регистрация: 20.01.2017 Сообщений: 1
		1
	Используя генератор случайных чисел, заполните комплекснозначный вектор 20.01.2017, 08:42. Показов 1822. Ответов 1 Метки нет (Все метки) Прошу у вас помощи, о великие гуру программирования. Нужно решить вот такую задачу: С помощью генератора случайных чисел заполните комплекснозначный вектор a[1..n] и вычислить произведение: P=a1(a1+a2)(a1+a2+a3)..(a1+a2+a3+..+an). 0

	20.01.2017, 11:17

Используя генератор случайных чисел, заполните комплекснозначный вектор

Решение