Program Lab_1_4;
uses crt, Types, Transf, IOGeom;

(****************************************
 * Transformarea coordonatelor:
 * Trecerea de la coordonate carteziene la cele polare 
 ****************************************)
 
const
  filein  = 'Puncte.txt';
  fileout = 'Lab_1_3.txt';

var
  p: TabelPuncte;
  nr, i: integer;

begin
  clrscr;
  writeln;

  { Citirea datelor din fisierul <filein>, daca exista }
  nr := readf_puncte(filein ,p);

  { Citirea coordonatelor punctelor de la tastatura }
  if nr = 0 then nr := introdu_puncte(p);

  { Afisarea coordonatelor inainte de transformare }
  write_puncte(p, nr);

  { Transformarea coordonatelor setului de puncte }
  polar_set_puncte(p, nr);

  { Afisarea rezultatului }
  write_puncte_pol(p, nr);

  { Salvarea rezultatului in fisierul <fileout> }
  writef_puncte(fileout, p, nr);

  readkey;
end.