Курсовая работа: Програма, яка знаходить квадратні корені коплексних чисел

Програма

uses crt; const dim=20; type ar=array [1. . dim] of real; var a1,b1: real; n1, i1: integer;

x,y: ar;

function sgn(xx: real): integer;

begin

if xx>0 then sgn: =1

else if xx<0 then sgn: =-1

else sgn: =0;

end;

procedure rootcom(a,b: real; n: integer; var x,y: ar);

var c,r,f: real;

i: integer;

begin

r: =a*a+b*b;

if r<>0 then r: =exp(ln(r) /2/n);

if a=0 then f: =sgn(b) *pi/2 else

if a>0 then f: =arctan(b/a) else

if b<0 then f: =arctan(b/a) - pi else f: =arctan(b/a) +pi;

f: =f/n;

c: =2*pi/n;

for i: =1 to n do

begin x [i]: =r*cos(f); y [i]: =r*sin(f); f: =f+c; end;

end;

begin clrscr;

textcolor(10);

write('ўўҐ¤iвм ¤i©б­г з бвЁ­г-');

textcolor(white);

read(a1);

textcolor(10);