Задача на Pascal abc: комплексные числа (ввод, произведение, вывод)

[panda_tm]

Добрый вечер, нуждаюсь в вашей помощи, помогите решить следующую задачу:
Спасибо большое за помощь!

[type_Oleg]

Создайте запись, типа

type tComplex = record
 Re,Im:Real;
end;

И работайте с ними.
Записи проходили ?

[panda_tm]

К сожалению нет

[type_Oleg]

Ну, тогда можно без записей. Действительная и мнимая части будут - отдельные переменные.
Создавайте подпрограммы ( процедуры )

procedure CmplxProiz(aRe,aIm,bRe,bIm:Real;var abRe,abIm:Real);

Или вообще, и слов-то таких поганых не знаете ?

Тогда в раздел Фриланс.

[panda_tm]

Сообщение от type_Oleg

Ну, тогда можно без записей. Действительная и мнимая части будут - отдельные переменные.
Создавайте подпрограммы ( процедуры )

procedure CmplxProiz(aRe,aIm,bRe,bIm:Real;var abRe,abIm:Real);

Или вообще, и слов-то таких поганых не знаете ?

Тогда в раздел Фриланс.

А без фриланса никак да?(

[Serge_Bliznykov]

А без фриланса никак да?(

можно и без фриланса.

Вы пишите код, что не получается - спрашивайте, тут подскажут.
Вам самой надо разбираться и писать с помощью форумчан.
А то, знаете, если сделать ПОЛНОСТЬЮ всё за Вас, так это совсем и не помощь...

[panda_tm]

Вот так, как сделать его без конструктора?

type
  tComplex = record
    X, Y : Real;
    
    constructor (A, B : Real);
    begin
      X := A;
      Y := B;
    end;
  end;
  
procedure Write(C : tComplex);
begin
  case Sign(C.Y) of
    -1 : Write(C.X, ' - i·', Abs(C.Y));
     0 : Write(C.X);
    +1 : Write(C.X, ' + i·', C.Y);
  end;
end;
 
procedure WriteLn(C : tComplex);
begin
  Write(C);
  WriteLn;
end;
 
procedure Read(var C : tComplex);
var
  X, Y : Real;
begin
  WriteLn('Введите комплексное число x + iy :');
  Write('X = '); ReadLn(X);
  Write('Y = '); ReadLn(Y);
  C := New tComplex(X, Y);
end;
 
function Multi(A, B : tComplex) : tComplex;
begin
  Result := New tComplex(A.X*B.X - A.Y*B.Y, A.X*B.Y + A.Y*B.X);
end;
 
var
  A, B : tComplex;
 
begin
  Read(A);
  Read(B);
  WriteLn('Произведение двух комплексных чисел:');
  Write('a = '); Write(A); Write('  и  b = '); WriteLn(B);
  Write('равно  a·b = '); WriteLn(Multi(A, B));
end.

[newerow1989]

Все делается просто:

procedure CmplxProiz(aRe,aIm,bRe,bIm:Real;var abRe,abIm:Real);
begin
   abRe:=aRe*bRe-aIm*bIm;
   abIm:=aRe*bIm+aIm*bRe;
end;

var aRe,aIm,bRe,bIm,abRe,abIm:Real;
begin
   Readln(aRe,aIm,bRe,bIm);
   CmplxProiz(aRe,aIm,bRe,bIm,abRe,abIm);
   Write('a*b = ',abRe:5:5,' + ',abIm:5:5,' i');
   Readln;
end.