Program Lab_2_1;
uses crt, Types, Transf, IntersDr, IOGeom;

(****************************************
 * Puncte de intersectie:
 * Intersectia a doua drepte
 ****************************************)

var
  d1, d2: Dreapta;
  p: TPunct;
  rel: RelDrepte;

begin
  clrscr;

  { Citirea coeficientilor dreptelor de la tastatura }
  read_dreapta(d1, 'd1');
  read_dreapta(d2, 'd2');

  { Determinarea relatiei dintre d1 si d2 }
  rel := inters_dr(d1, d2, p);

  { Afisarea rezultatului }
  case rel of
    vid:
        writeln('Dreptele sunt paralele!');
    incident:
        writeln('Dreptele coincid!');
    inters:
        begin
        writeln('Dreptele se intersecteaza in punctul cu coordonatele:');
        write_punct(p, '');
        end;
    else
       writeln('Erroare la apel inters_dr()');
  end;

  readkey;

end.