// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var A,B,C,D,E,F:real;
Writeln('Введите коффициенты A B C D E F');
Read(A,B,C,D,E,F);
var p:=A*D+B*E;
if p=0 then Writeln('Прямые перпендикулярны')
else begin
var t:=arctan((A*E-D*B)/p);
Writeln('Угол между прямыми в градусах ',RadToDeg(t):0:2)
end
end.
Пример
Введите коффициенты A B C D E F
2.5 -1.5 7.1 -3.2 1.45 0.15
Угол между прямыми в градусах 6.59
Замечание: коэффициенты C,F в программе не используются и их можно вообще удалить из её текста.
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
begin
var x,y:real;
Write('Введите x y: '); Read(x,y);
if x*y<>0 then Writeln('Точка М не лежит на осях координат')
else begin
if x=0 then
if y=0 then Writeln('Точка М лежит в начале координат')
else
if y>0 then
Writeln('Точка М лежит на положительном участке оси ординат')
else
Writeln('Точка М лежит на отрицательном участке оси ординат')
else
if x=0 then Writeln('Точка М лежит в начале координат')
else
if x>0 then
Writeln('Точка М лежит на положительном участке оси абсцисс')
else
Writeln('Точка М лежит на отрицательном участке оси абсцисс')
end
end.
Пример
Введите x y: 1.37 0
Точка М лежит на положительном участке оси абсцисс