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.