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 , 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 } writef_puncte(fileout, p, nr); readkey; end.