Помогите доделать задачку : комплексные числа, реализовать в модуле Опции

[Димас]

Задача: Дан массив комплексных чисел A[M], Получить массив B[N,M], каждая строка которого получается возведением в степень, равную номеру этой строки в массиве А.
~~~
Реализовать в виде модуля набор подпрограмм для выполнения следующих операция над комплексными числами:
* сложения
* вычитания
* умножения
* деления
* вычисления модуля комплексного числа
* возведения комплексного числа в степень n
* комплексное число предоставить следующим типом:
type complex = record
re : real;
im : real;
end;

используя этот модуля решить данную задачу.

у меня есть(нарыл поиском тут ) :

 
Unit m_1369;

  interface

 uses crt;

 type
     complex = record
     re, im: real
 end;

 var
     Eps: real;
     z, res:Complex;

implementation

{Функция для определения модуля комплексного числа}
function AbsComplex(z: Complex): real;
 begin
      AbsComplex := sqrt(sqr(z.re) + sqr(z. im))
 end;

{Процедура сложения двух комплексных чисел}
procedure AddComplex(z1,z2: Complex; var res:Complex);
 begin
      res.re := z1.re + z2.re;
      res.im := z1.im + z2.im;
 end;

{процедура умножения двух комплексных чисел}
procedure Multicomplex(z1,z2: Complex; var res:Complex);
 begin
      res.re := z1.re * z2.re - z1.im * z2.im;
      res.im := z1.re * z2.im - z1.im * z2.re
 end;
{Процедура деления комплексного числа на вещественное}
procedure MultCoplToReal(var z:Complex; c:real);
 begin
      z.re := z.re * c;
      z.im := z.im * c
 end;

end.
 

как быть?

Сообщение отредактировано: Димас - 11.09.2007 21:40

[volvo]

Димас, во-первых, у тебя ошибка в реализации Multicomplex: при вычислении res.im надо не минус, а плюс... Ну, а во-вторых, вот программа, делающая то же самое, что и приведенная тобой, но с использованием модуля complex.tpu (исходник модуля я прикрепил...) :

uses crt, complex;

const
  max_n     = 20;
  max_power = 10;

var
  i, j: integer;
  m, n: integer;
  a: array[1 .. max_n] of tcomplex;
  b: array[1 .. max_n, 1 .. max_power] of tcomplex;

begin
  randomize;
  clrscr;

  write('Kollichestvo kompleksnih chisel : '); readln(m);
  write('Stepen : '); readln(n);

  for i := 1 to m do
    with a[i] do begin
      re := random(9) + 1;
      im := random(9) + 1;
    end;

  writeln;
  writeln('Masiv A :');
  writeln;

  for i := 1 to m do begin
    PrintComplex(a[i]); writeln;
  end;

  readln;
  for i := 1 to m do begin
    b[i, 1] := a[i];
    for j := 2 to n do
      PowerComplex(a[i], b[i, j], j);
  end;

  writeln;
  clrscr;
  writeln('Masiv B :');
  writeln;

  textcolor(lightgray);
  for i :=1 to m do begin
    for j :=1 to n do begin
      PrintComplex(b[i, j]);
      textcolor(lightred);
      write(' <-',j,'| ');
      textcolor(lightgray);
    end;
    writeln;
  end;

  writeln;
  write('Dlya vihoda nagmite knopky ...');
  readln;
end.

[Димас]

Volvo
ОГО !
не ожидал, Спасибо !!!