Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Анютка98
-19 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 422
1

Организовать разветвляющийся процесс для решения следующих задач Определить будут ли прямые A1x+B1y+C1 и A2x+B

26.01.2016, 12:32. Просмотров 334. Ответов 5
Метки нет (Все метки)

Организовать разветвляющийся процесс для решения следующих задач
Определить будут ли прямые A1x+B1y+C1 и A2x+B2y+C2 перпендикулярны. Если нет, то
найти угол между ними.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2016, 12:32
Ответы с готовыми решениями:

Организовать разветвляющийся процесс для решения следующих задач Определить принадлежит ли некоторая точка М с
Организовать разветвляющийся процесс для решения следующих задач Определить принадлежит ли...

Даны две прямые y=a1x+b1 и y=a2x+b2 . Нужно в с++ написать код совпадают ли прямые, параллельны,перескаются
Подскажите ,как правильно сделать #include <iostream> using namespace std; int main() {...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
26.01.2016, 15:46 2
Вводите коэффициенты прямых
Delphi
1
2
3
4
5
6
if a1*a2+b1*b2=0 then//перпендикулярны
else
 begin
 // не перпендикулярны
 //угол между ними=abs(arctan((a1*b2-a2*b1)/(a1*a2+b1*b2))*180/pi)
 end;
0
Анютка98
-19 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 422
27.01.2016, 10:32  [ТС] 3
не поняла можно подробное решение пожалуйста

Добавлено через 1 минуту
а то ошибку выводит
0
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
27.01.2016, 10:33 4
Цитата Сообщение от Анютка98 Посмотреть сообщение
не поняла
Похоже это Ваше любимое выражение. И какой смысл Вам вообще что-то писать?
0
Анютка98
-19 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 422
27.01.2016, 10:37  [ТС] 5
вместе с var напишите и выводом пожалуйста программу (
0
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
27.01.2016, 10:45 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a1,b1,c1,a2,b2,c2:real;
begin
writeln('Введите коэффициенты 1 прямой');
readln(a1,b1,c1);
writeln('Введите коэффициенты 2 прямой');
readln(a2,b2,c2);
if a1*a2+b1*b2=0 then write('Прямые перпендикулярны')
else
 begin
  writeln('Прямые не перпендикулярны');
  write('угол между ними=',abs(arctan((a1*b2-a2*b1)/(a1*a2+b1*b2))*180/pi))
 end;
readln
end.
0
27.01.2016, 10:45
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.