Помогите,пожалуйста,написать программы .(Паскаль)

Помогите,пожалуйста,написать программы .(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость
// 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 Точка М лежит на положительном участке оси абсцисс
Не нашли ответ?
Ответить на вопрос
Похожие вопросы