Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 18.12.2015
Сообщений: 5
1

Определить номер треугольника с наибольшей гипотенузой

18.12.2015, 23:53. Показов 979. Ответов 1
Метки нет (Все метки)

Даны три прямоугольных треугольника, катеты которых равны а1,а2; в1,в2; с1,с2 соответственно. Определить номер треугольника с наибольшей гипотенузой. Результат вывести на экран.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2015, 23:53
Ответы с готовыми решениями:

Рекурсия: найти номер треугольника с наибольшей площадью
1. Задано N Треугольников координатами своих вершин на плоскости. Напечатать номер треугольника с...

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

Матрица. Найти номер ее ряда с наибольшей суммой элементов и вывести данный ее номер, а также значение наибольшей суммы
Дана матрица размерности M x N. Найти номер ее ряда з найбольшою суммой элементов и вивести...

В матрице размерностью MxN найти номер строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы
Данная матрица размерности M x N. Найти номер ее строки с наибольшей суммой элементов и вывести...

1
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,120
19.12.2015, 09:57 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var a1,b1,c1,a2,b2,c2,a3,b3,c3,mx:real;
    k:byte;
begin
clrscr;
writeln('Введите длины катетов 1 треугольника');
readln(a1,b1);
c1:=sqrt(a1*a1+b1*b1);
writeln('Введите длины катетов 2 треугольника');
readln(a2,b2);
c2:=sqrt(a2*a2+b2*b2);
writeln('Введите длины катетов 3 треугольника');
readln(a3,b3);
c3:=sqrt(a3*a3+b3*b3);
writeln('Длины гипотенуз:');
writeln('1=',c1:0:2,' 2=',c2:0:2,' 3=',c3:0:2);
if c1>c2 then
 begin
  mx:=c1;
  k:=1;
 end
else
 begin
  mx:=c2;
  k:=2;
 end;
if c3>mx then
 begin
  mx:=c3;
  k:=3;
 end;
write('Наибольшая гипотенуза  у треугольника ',k);
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2015, 09:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.
Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный...

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

Задача "Найти номер треугольника с наибольшей площадью"
Очень нужна помощь с данной задачкой,желательно с комментариями. Даны одномерные массивы A и B...

Определить номер строки с наибольшей характеристикой
Доброго времени суток ! Помогите пожалуйста с программкой, вот задание: Характеристикой строки...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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