Chương trình cộng hai số phức A, B


Viết chương trình cộng hai số phức A, B.

Program Cong_Hai_So_Phuc;
Uses Crt;
Type sophuc= record
pa,pt:real;
end;
Var a,b,c:sophuc;

Begin
Clrscr;
Writeln(‘TONG HAI SO PHUC’);
Write(‘Nhap phan thuc cua so a=’);readln(a.pt); Write(‘Nhap phan ao cua so a=’);readln(a.pa); Write(‘Nhap phan thuc cua so b=’);readln(b.pt); Write(‘Nhap phan ao cua so b=’);readln(b.pa); c.pt:=a.pt +b.pt;
c.pa:=a.pa + b.pa;
Writeln(‘Tong cua hai so phuc a va b la: ‘); If c.pa<0 then
Writeln('c=',c.pt:6:2,'-j',abs(c.pa):4:2)
Else
Writeln('c=',c.pt:6:2,'+j',c.pa:4:2);

Readln;

End.