Вычислить выражение на основе массивов комплексных чисел

@vladyssov · Регистрация: 01.11.2014

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

Вычислить: , где z1, z2, z3 - векторы из 5 комплексных чисел, значения которых выбрать самостоятельно.
Я сделал , но похоже что не так. Надо через действительную и мнимую часть сделать.
P\S: Сделать не через запись , а МАССИВ. Спасибо.
Вот что у меня получилось:

Pascal

program massivy;
var
  z1,z2,z3,w:array[1..5] of integer;
  i:integer;
begin
  randomize;
  for i:=1 to 5 do
  begin
    z1[i]:=random(20)+1;
    z2[i]:=random(20)+1;
    z3[i]:=random(20)+1;
  end;
  writeln('Massiv z1');
  for i:=1 to 5 do
  begin
    write(z1[i]:4);
  end;
  writeln;
  writeln('Massiv z2');
  for i:=1 to 5 do
  begin
    write(z2[i]:4);
  end;
  writeln;
  writeln('Massiv z3');
  for i:=1 to 5 do
  begin
    write(z3[i]:4);
  end;
  writeln;
  writeln('Massiv w');
  for i:=1 to 5 do
  begin
    w[i]:=z1[i]+z2[i]*z3[i];
    write(w[i]:4);
  end;
end.

@ildwine · 29.11.2014, 22:24

Pascal

type
  cplx = record
    re : real;
    im : real
  end;
var
  z1,z2,z3,w:array[1..5] of cplx;
  i:integer;
begin
  randomize;
  for i:=1 to 5 do
  begin
    z1[i].re:=random(20)+1;
    z2[i].re:=random(20)+1;
    z3[i].re:=random(20)+1;
    z1[i].im:=random(20)+1;
    z2[i].im:=random(20)+1;
    z3[i].im:=random(20)+1
  end;
  writeln('Massiv z1');
  for i:=1 to 5 do
  begin
    write(z1[i].re, '+', z1[i].im, 'i  ')
  end;
  writeln;
  writeln('Massiv z2');
  for i:=1 to 5 do
  begin
    write(z2[i].re, '+', z2[i].im, 'i  ')
  end;
  writeln;
  writeln('Massiv z3');
  for i:=1 to 5 do
  begin
    write(z3[i].re, '+', z3[i].im, 'i  ')
  end;
  writeln;
  writeln('Massiv w');
  for i:=1 to 5 do
  begin
    w[i].re := z1[i].re + (z2[i].re * z3[i].re - z2[i].im * z3[i].im);
    w[i].im := z1[i].im + (z2[i].re * z3[i].im + z2[i].im * z3[i].re);    
    write(w[i].re, '+', w[i].im, 'i  ');
  end
end.

@vladyssov · 30.11.2014, 18:01 **[ТС]**

Добавлено через 18 часов 10 минут
ildwine, спасибо, но мне нужно без record

@ildwine · 30.11.2014, 19:09

vladyssov, не предствляю как представить комплексное число без записи, а то и класса...

Добавлено через 1 минуту
Ну можно сделать двумерные массивы, в которых хранить в 1 строке re, а во второй im

Добавлено через 7 минут
Ну вот так без записей:

Pascal

var
  z1, z2, z3, w : array[1..5, 1..2] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to 5 do
    for j := 1 to 2 do
    begin
      z1[i,j]:=random(20)+1;
      z2[i,j]:=random(20)+1;
      z3[i,j]:=random(20)+1      
  end;
  writeln('Massiv z1');
  for i:=1 to 5 do
  begin
    write(z1[i,1], '+', z1[i,2], 'i  ')
  end;
  writeln;
  writeln('Massiv z2');
  for i:=1 to 5 do
  begin
    write(z2[i,1], '+', z2[i,2], 'i  ')
  end;
  writeln;
  writeln('Massiv z3');
  for i:=1 to 5 do
  begin
    write(z3[i,1], '+', z3[i,2], 'i  ')
  end;
  writeln;
  writeln('Massiv w');
  for i:=1 to 5 do
  begin
    w[i,1] := z1[i,1] + (z2[i,1] * z3[i,1] - z2[i,2] * z3[i,2]);
    w[i,2] := z1[i,2] + (z2[i,1] * z3[i,2] + z2[i,2] * z3[i,1]);    
    write(w[i,1], '+', w[i,2], 'i  ');
  end
end.

@vladyssov 0 / 0 / 0 Регистрация: 01.11.2014 Сообщений: 38
	30.11.2014, 18:01 [ТС]	3
	Добавлено через 18 часов 10 минут ildwine, спасибо, но мне нужно без record 0

	30.11.2014, 19:09

Вычислить выражение на основе массивов комплексных чисел

Решение