Program Lab_1_2; uses crt, Types, Transf, IOGeom; (**************************************** * Transformarea coordonatelor: * Deplasarea unui set de puncte ****************************************) const filein = 'Puncte.txt'; fileout = 'Lab_1_2.txt'; var p: TabelPuncte; nr, i: integer; a, b: 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); { Afisarea coordonatelor inainte de transformare } write_puncte(p, nr); { Deplasarea setului de puncte } depl_set_puncte(p, nr, a, b); { Afisarea rezultatului } write_puncte(p, nr); { Salvarea rezultatului in fisierul } writef_puncte(fileout, p, nr); readkey; end.