написать программу распознающую по длинам сторон среди всех треугольников прямоугольные Если таковых нет, то вычислить величину уг
program rr; var ABC,c,x,y,z:real; begin Write (‘vvedite x: ‘); read (x); Write (‘vvedite y: ‘); read (y); Write (‘vvedite z: ‘); read (z); begin clrscr; If (x*x+y*y-z*z)
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
Помогите написать до конца!
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,126
1) Похоже, нужно обрабатывать не 1 треугольник, а несколько.
2) Добавил бы проверку, что треугольник с рассматриваемыми сторонами существует.
3) Проверку, что треугольник прямоугольный, делал бы так: отсортировал 3 стороны по возрастанию длины (стороны a, b, c), а затем проверял abs(a*a+b*b-c*c) 4) Непонятно какой именно угол искать.
Пишите язык программирования — это форум программистов , а не экстрасенсов. (<= это подпись )
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
1) Похоже, нужно обрабатывать не 1 треугольник, а несколько.
Информатика Босова 8 кл. №98 Решение задания
2) Добавил бы проверку, что треугольник с рассматриваемыми сторонами существует.
3) Проверку, что треугольник прямоугольный, делал бы так: отсортировал 3 стороны по возрастанию длины (стороны a, b, c), а затем проверял abs(a*a+b*b-c*c) 4) Непонятно какой именно угол искать.
Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольные. Если таковых нет, то вычислить величину угла С.
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
1) Похоже, нужно обрабатывать не 1 треугольник, а несколько.
2) Добавил бы проверку, что треугольник с рассматриваемыми сторонами существует.
3) Проверку, что треугольник прямоугольный, делал бы так: отсортировал 3 стороны по возрастанию длины (стороны a, b, c), а затем проверял abs(a*a+b*b-c*c) 4) Непонятно какой именно угол искать.
program art_1; uses crt; var a,b,c,cos1,cos2,cos3:real; begin clrscr; write(‘a=’); readln(a); write(‘b=’); readln(b); write(‘c=’); readln(c); if (a+b>c) and (a+c>b) and (b+c>a) then write(‘treugolnik’); begin cos1:=(sqr(a)-sqr(b)-sqr(c))/((-2)*b*c); cos2:=(sqr(c)-sqr(a)-sqr(b))/((-2)*a*b); cos3:=(sqr(b)-sqr(c)-sqr(a))/((-2)*c*a); if (cos1=1) or (cos2=1) or (cos3=1) then write(‘prjamougolnyi’) else write(‘neprjamougolnyi’); write(‘ cos C=’,cos2); end else write(‘netreugolnik’); readkey; end.
Посмотри я тут немного поменял )
На 21 строчке выдает ошибку
Источник: www.programmersforum.ru
Работа 3.3 Упражнение 5 Задание 1 ГДЗ Семакин
10 класс по информатике — ответы
5. Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольные. Если таковых нет, то вычислить величину угла С.
Занятие 9 (2022-23): Арбитры и разделение памяти между несколькими процессорными ядрами
На этой странице вы сможете найти и списать готовое домешнее задание (ГДЗ) для школьников по предмету Информатика, которые посещают 10 класс из книги или рабочей тетради под названием/издательством «ФГОС — базовый уровень», которая была написана автором/авторами: Семакин, Хеннер, Шеина. ГДЗ представлено для списывания совершенно бесплатно и в открытом доступе.
Источник: gdz-spishy.ru
Написать программу распознающую по длинам сторон среди всех треугольников прямоугольные если таковых
sansanic 10 лет назад
Светило науки — 212 ответов — 2952 помощи
const Radian = 57.295779513; //Сколько градусов в одном радиане
a, b, c: real; //Стороны, лежащие против углов A, B и C соответственно
writeln(‘Введите 3 стороны треугольника в следующем порядке: a, b, c’);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then writeln(‘Треугольник ABC — прямоугольный’)
else writeln(‘Угол C равен: ‘, arccos((sqr(a) + sqr(b) — sqr(c)) / (2 * a * b)) * Radian, ‘ градусов’);
Пользоваться компилятором Pascal ABC.Net, потому что это единственный компилятор из всех известных мне, который поддерживает функцию arccos.
Если будут вопросы, спрашивай.
Источник: vashurok.com