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

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

var
  a, b: Segment;
  p: TPunct;
  rel: RelDrepte;

begin
  clrscr;

  { Citirea coeficientilor dreptelor de la tastatura }
  read_segment(a, 'a');
  read_segment(b, 'b');

  { Determinarea relatiei dintre a si b }
  rel := inters_seg_seg(a, b, p);

  { Afisarea rezultatului }
  case rel of
    vid:
        writeln('Segmentele nu se intersecteaza!');
    inters:
        begin
        writeln('Segmentele se intersecteaza in punctul cu coordonatele:');
        write_punct(p, '');
        end;
    else
       writeln('Erroare la apel inters_seg_seg()');
  end;

  readkey;

end.