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.