Код есть, но там не то нужно получить. Можно переписать его
uses crt;
type complex=record
re,im:real;
end;
{вывод результата}
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:5:2,' +',f.im:0:2,'i');
end;
{умножение комплексного на целое}
procedure UmCh(f:complex;var z:complex;k:byte);
begin
z.re:=k*f.re;
z.im:=k*f.im;
end;
{деление комплексного на целое}
procedure DelCh(f:complex;var z:complex;k:byte);
begin
z.re:=f.re/k;
z.im:=f.im/k;
end;
{вычитание из комплексного целого}
procedure VchCh(var z:complex;k:byte);
begin
z.re:=z.re-k;
end;
{сложение комплексных}
procedure Summa(var f:complex;g:complex);
begin
f.re:=f.re+g.re;
f.im:=f.im+g.im;
end;
{вычитание комплексных}
procedure Razn(var f:complex;g:complex);
begin
f.re:=f.re-g.re;
f.im:=f.im-g.im;
end;
{умножение комплексных}
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;

var u,v,w,u1,u2,w1,r:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti u:');
readln(u.re,u.im);
writeln('Vvedite deist. i mnim. chasti v:');
readln(v.re,v.im);
writeln('Vvedite deist. i mnim. chasti w:');
readln(w.re,w.im);
UmCh(u,u1,3);
DelCh(w,w1,2);
Proizvedenie(u1,w1,r);
Summa(r,w);
Razn(r,u2);
UmCh(u,u2,2);
Summa(r,u2);
VchCh(r,7);
write('2u+(3u*w/2+w-u)-7=');
Vyvod(r);
readln
end.

жазира22    3   08.05.2020 22:45    0