program TestComplex;
uses
  crt, CMath;

var
  Accu, C: Complex;
  Ang: real;
  Cmd: char;

function LoCase(C: char): char;
begin
  LoCase := C;
  if C in ['A'..'Z'] then
    LoCase := chr(ord(C) + 32);
end;

begin
  Accu.Inic(0.0, 0.0);
  writeln;
  repeat
    writeln('     ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
    writeln('Accu:³', Accu.aStr(8,3),
                ' ³é: ', aGrados(Accu.Angulo):8:3, 'ø',
                ' ³||: ', Accu.Modulo:8:3, ' ³');
    writeln('     ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
    write('+, -, *, /, (r)otar, (b)orrar, e(x)it - ');
    Cmd := LoCase(readkey); writeln(Cmd);
    case Cmd of
      '+','-','*','/': begin
                         write('Ingrese el valor - ');
                         C.Leer;
                       end;
      'r': begin
             write('Entre el angulo - ');
             readln(Ang);
           end;
    end;
    case Cmd of
      '+': Accu.Sumar(C);
      '-': Accu.Restar(C);
      '*': Accu.Mult(C);
      '/': Accu.Divid(C);
      'r': Accu.Rotar(aRad(Ang));
      'b': Accu.Inic(0.0, 0.0);
    end;
  until Cmd = 'x';
end.