Вычислить значение выражения - Turbo Pascal (33730)

Формулировка задачи:

Даны три комплексных числа X=x_(1 )+1x_(2 ), y=y_(1)+1y_(2), z=z_(1)+1z_(2) . Вычислить величину (xy+z)(y-2z). Прошу вас помогите, нужен код программы!


textual

Код к задаче: «Вычислить значение выражения - Turbo Pascal (33730)»

uses crt;
type
   Complex = record
      Re:double;
      Im:double;
   end;
function mult(var  A : Complex; var B : Complex):Complex;
var
   res:Complex;
begin
   res.Re := (A.Re *B.Re - A.Im*B.Im);
   res.Im := A.Re*B.Im + A.Im*B.Re;
   mult := res;
end;
 
 
function sum(var  A : Complex; var B : Complex):Complex;
var
   res:Complex;
begin
   res.Re := A.Re + B.Re;
   res.Im := A.Im + B.Im;
   sum := res;
end;
function difference(var  A : Complex; var B : Complex):Complex;
var
   res:Complex;
begin
   res.Re := A.Re - B.Re;
   res.Im := A.Im - B.Im;
   difference := res;
end;
procedure input (var A : Complex);
begin
   writeln('please enter a valid part number');
   readln(A.Re);
   writeln('please enter imaginari  part number');
   readln(A.Im);
end;
procedure print(var A : Complex);
begin
   if (A.Im < 0) then
      writeln (A.Re:5:5,A.Im:5:5,'i')
   else
      writeln (A.Re:5:5,'+',A.Im:5:5,'i');
end;
var
 A,B,C : Complex;
 ch : char;
begin
  clrscr;
  repeat
      clrscr;
      writeln('1 addition complex number');
      writeln('2 subtraction complex number');
      writeln('ESC exit');
      ch := readkey;
      case ch of
          '1' : begin
                  clrscr;
                  input(A);
                  input(B);
                  C := sum(A,B);
                  print(C);
                  readkey;
                end;
          '2' : begin
                  clrscr;
                  input(A);
                  input(B);
                  C := difference(A,B);
                  print(C);
                  readkey;
                end;
      end;
  until(ord(ch)=27);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.133 из 5

Источник