Tìm số phức có bình phương bằng một số phức khác Sử dụng Turbo Pascal program timsophucbinhphuong; uses crt; var a,b,x,y,t1,t2,delta:real; begin clrscr; write('Nhap phan thuc va phan ao cua so phuc: ');readln(a,b); {z=x+yi, z^2 = x^2-y^2+2xyi = a+bi => x^2-y^2=a & 2xy=b} if (b=0) then if (a<0) then begin y:=sqrt(-a);{neu y=0 thi x^2<0 nen loai} writeln('So phuc thoa man la z = 0+',y:10:5,'i hoac z = 0-',y:10:5,'i'); end else begin x:=sqrt(a);{neu x=0 thi y^2<0 loai nen y=0 x^2=a} writeln('So phuc thoa man la z = ',x:10:5,'+0i hoac z = ',x:10:5,'+0i');end; if b<>0 then begin {giai phuong trinh trung phuong: y=b/2x=> 4x^4-4ax^2-b^2 = 0, dat t=x^2} delta:=4*a*a+4*b*b;{delta phay luon duong trong TH nay do b<>0} t1:=(2*a+sqrt(delta))/4; t2:=(2*a-sqrt(delta))/4; if t1>=0 then begin {khong can xet x=0 vi 2a luon khac can(delta) khi b<>0} {t1 luon khong am do sqrt(4a^2+4b^2)>2a voi moi a thuc de chuong trinh don gian ta khong xet dau cua y} x:=sqrt(t1); y:=b/2/x; Writeln('Cac so phuc thoa man la: '); writeln('z1 = ',x:10:5,'+',y:10:5,'i'); writeln('z2 = ',-x:10:5,'+',-y:10:5,'i'); end; if t2>=0 then {thuc ra nghiem t2 luon am khi b<>0 do 2a<sqrt(4a^2+4^2)} begin x:=sqrt(t2); y:=b/2/x; Writeln('Cac so phuc thoa man la: '); writeln('z1 = ',x:10:5,'+',y:10:5,'i'); writeln('z2 = ',-x:10:5,'+',-y:10:5,'i'); end; end; readln end. Copy đoạn từ program đến end. Vào CT Notepad rồi lưu lại dưới dạng *.pas sau đó sao chép vào Thư mục BIN (C:\program files\Turbo Pascal\BIN) Mở Notepad, Start -> Run -> gõ notepad và Enter . Tìm số phức có bình phương bằng một số phức khác Sử dụng Turbo Pascal program timsophucbinhphuong; uses crt; var a,b,x,y,t1,t2,delta:real; begin clrscr; write('Nhap