Написать программу, определяющую, будут ли прямые A1X + В1у + C1 = 0 и А2х + В2у + С2 = 0 перпендикулярны. Если нет, то найти угол между ними.
267
311
Ответы на вопрос:
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.
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
ryvdgruhcdgghhhFrubf20.03.2023 05:17
-
Якино23.02.2021 17:28
-
kirifili00710.06.2022 06:40
-
эмилисенок203.08.2020 03:44
-
kristina23122012.12.2022 01:06
-
savinanika2007p06u7226.09.2022 17:29
-
гнг6902.06.2021 09:46
-
maks73718.05.2023 06:41
-
NastyaMishacheva29.09.2021 08:36
-
базлайдер11.02.2023 15:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.