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.