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

(****************************************
 * Puncte de intersectie:
 * Intersectia a unei drepte cu un segment 
 ****************************************)
 
var  d: Dreapta;
     s: Segment;
     p: TPunct;
     rel: RelDrepte;
     
begin
  clrscr;                            

  { Citirea coeficientilor dreptelor de la tastatura }
  read_dreapta(d, 'd');
  read_segment(s, 's');
  
  { Determinarea relatiei dintre d1 si d2 }
  rel := inters_dr_seg(d, s, p);

  { Afisarea rezultatului }
  case rel of
     vid:
        writeln('Dreapta si segmentul nu se intersecteaza!');
     incident:
        writeln('Segmentul apartine dreptei!');
     inters:
       begin
         writeln('Dreapta intersecteaza segmentul in punctul cu coordonatele:');
         write_punct(p, '');
       end;  
     else
       writeln('Erroare la apel inters_dr_seg()');
  end;

  readkey;

end.