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

  readkey;
end.