Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 3

Найти количество прямоугольных треугольников, которые могут получиться из заданного

21.12.2015, 21:18. Показов 1746. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
По значению периметра, равного 28, прямоугольного треугольника найти количество всех возможных прямоугольных треугольников с целочисленными значениями сторон и вывести значения их площадей в возрастном порядке в виде списка. В конце списка вывести значение n = количеству прямоугольных треугольников.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.12.2015, 21:18
Ответы с готовыми решениями:

Вычислить количество различных треугольников, которые могут быть собраны из лучей разной длины
Здравствуйте!Есть проблемы с написанием программы на языке СИ.Нужно написать программу ,которая вычисляет количество различных...

Определить, сколько прямоугольных треугольников можно создать из заданного набора точек
Помогите решить задачу. Дано множество точек на плоскости. Определить, сколько прямоугольных треугольников можно создать из этого...

Найдите количество прямоугольных треугольников с целочисленными сторонами, меньшими 100
Найдите количество прямоугольных треугольников с целочисленными сторонами, меньшими 100.

4
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
22.12.2015, 11:53
GuitarSport
Эта программа решает вашу задачу (проверено)
При ваших данных решений нет. Но программа
проверена при других данных, например периметр =24
Предупреждение
бейсик не любит проводить проверку в условном операторе
если там присутствует операция возведения в степень "^"
Просто надо ее заменить на умножение. А то будете гадать
- почему программа не работает. Удачи вам!

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
 
DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
 
FOR a = 3 TO 9
FOR b = a + 1 TO 14
   c = SQR(a * a + b * b)
   IF a * a + b * b = c * c AND a + b + c = 28 THEN
      n = n + 1
      PRINT "S ="; a * b / 2; "N ="; n
   END IF
NEXT b, a
 
END
0
 Аватар для vodav
572 / 141 / 37
Регистрация: 12.03.2012
Сообщений: 403
22.12.2015, 18:40
geh,
бейсик не любит проводить проверку в условном операторе
если там присутствует операция возведения в степень "^"
Позвольте Вас поправить. Дело не в том, что любит или не любит бейсик степень в условном операторе, а в том, что процедура возведения в степень производится с некоторой погрешностью, это особенность машинных алгоритмов и бейсик здесь совершенно ни причем.
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
22.12.2015, 18:56
vodav
Вы совершенно правы! Тысячу раз правы!
Я может не совсем точно выразился, но мое
предупреждение относится к теме. Я сам на этом
как-то споткнулся. И мой долг оповестить других
не совершить эту ошибку. Спасибо!
Большое СПАСИБО!!
0
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 3
23.12.2015, 15:30  [ТС]
geh, спасибо большое!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.12.2015, 15:30
Помогаю со студенческими работами здесь

Функция находит количество прямоугольных треугольников, если один из катетов равен 15
Доброго времени суток. Скоро контроль, преподаватель будет спрашивать решение задач, среди которых есть и такие: Как по вашему должно...

Найти суммарную площадь n прямоугольных треугольников
Найти суммарную площадь n прямоугольных треугольников, если длина меньшего катета треугольника равна квадратному корню из длины большего, а...

Дано н прямоугольных треугольников с а и б катетами, причем а + б = 9. Составить программу, которая вычисляет суммарную площадь этих треугольников
Дано н прямоугольных треугольников с а и б катетами, причем а + б = 9. Составить программу, которая вычисляет суммарную площадь этих...

Найти длины сторон всех прямоугольных треугольников с длиной гипотенузы до 30
Помогите пожалуйста мне создать такую программу: Найти всех прямоугольных треугольников (длины их сторон) до длины гипотенузы - 30. ...

Класс прямоугольных треугольников
Помогите решить задачу Создайте класс прямоугольных треугольников, описав в нём все необходимые свойства, подобрав им понятные имена и...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru