Program Lab_1_3; uses crt, Types, Transf, IOGeom; (**************************************** * Transformarea coordonatelor: * Deplasarea si rotatia unui set de puncte ****************************************) const filein = 'Puncte.txt'; fileout = 'Lab_1_3.txt'; var p: TabelPuncte; nr, i: integer; a, b, alfa: real; begin clrscr; { 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); writeln; writeln('Introdu coeficientii deplasarii: '); write(' a = '); readln(a); write(' b = '); readln(b); writeln; writeln('Introdu unghiul de rotatie: '); readln(alfa); { Afisarea coordonatelor inainte de transformare } write_puncte(p, nr); { Deplasarea setului de puncte } depl_rot_set_puncte(p, nr, a, b, alfa); { Afisarea rezultatului } write_puncte(p, nr); { Salvarea rezultatului in fisierul } writef_puncte(fileout, p, nr); readkey; end.