Question

Написать программу, определяющую, будут ли прямые A1X + В1у + C1 = 0 и А2х + В2у + С2 = 0 перпендикулярны. Если нет, то найти угол между ними.

Answer 1

uses crt;
var a1,b1,c1,a2,b2,c2:integer;
    u:real;
begin
clrscr;
repeat
writeln('Введите коэффициенты первой прямой:');
readln(a1,b1,c1);
if (a1=0)and(b1=0) then writeln('Это не прямая, повторите ввод.');
until (a1<>0)or(b1<>0);
repeat
writeln('Введите коэффициенты второй прямой:');
readln(a2,b2,c2);
if (a2=0)and(b2=0) then writeln('Это не прямая, повторите ввод.');
until (a2<>0)or(b2<>0);
if a1*a2+b1*b2=0 then write('Прямые перепендикулярны')
else
 begin
  u:=abs((arctan((a1*b2-a2*b1)/(a1*a2+b1*b2)))*180/pi);
  write('Прямые не перепендикулярны, угол=',u:0:2,#248);
 end;
readln
end.