Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Imwey
0 / 0 / 2
Регистрация: 08.10.2015
Сообщений: 74
1

Определить, у какого из прямоугольников площадь больше

14.03.2016, 21:43. Просмотров 870. Ответов 4
Метки нет (Все метки)

Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать ПРОЦЕДУРУ для вычисления площади прямоугольного треугольника по его катетам).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2016, 21:43
Ответы с готовыми решениями:

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

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

Определить у какого из чисел больше сумма цифр
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше...

Определить, у какого из числе сумма цифр больше
Даны три целых числа. Определить, сумма цифр которого из них больше. Не могу...

Вводится два целых числа. Определить у какого из них больше сумма цифр
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше...

4
yfk
0 / 0 / 3
Регистрация: 15.11.2015
Сообщений: 8
14.03.2016, 22:54 2
Лучший ответ Сообщение было отмечено Imwey как решение

Решение

Держи, братиш
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
var
  a, b, a1, b1, s, s1: real;
 
procedure Pl(a, b: real; var s: real);
 
begin
  s := a * b / 2;
  
end;
 
begin
  writeln('Введите длины двух катетов первого треугольника:');
  readln(a, b);
  
  pl(a, b, s);
  
  writeln('Введите длины двух катетов второго треугольника:');
  readln(a1, b1);
  
  pl(a1, b1, s1);
  
  
  
  if s > s1 then
    writeln('Площадь первого треугольника больше.');
  
  if s1 > s then
    writeln('Площадь второго треугольника больше.');
  
  if s1 = s then 
    writeln('Площади равны.');
  
end.
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
15.03.2016, 07:34 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Я бы взял, все таки , функцию:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, b, a1, b1: real;
  outOf: array [Boolean] of String[8] = (' меньше ', ' больше ');
 
function Pl(a, b: real): real;
begin
  pl := a * b / 2;  
end;
 
begin
  writeln('Введите длины двух катетов первого треугольника:');
  readln(a, b);
  writeln('Введите длины двух катетов второго треугольника:');
  readln(a1, b1); 
  if pl(a, b) = pl(a1, b1) then writeln('Площади равны.')
  else writeln('Площадь первого треугольника', outOf[pl(a, b) > pl(a1, b1)],'площади второго треугольника.');  
end.
0
JuriiMW
1952 / 1051 / 1560
Регистрация: 10.12.2014
Сообщений: 3,871
15.03.2016, 08:03 4
Imwey, изменив название темы, вы не изменили содержание: Определить, у какого из двух прямоугольных треугольников площадь больше
0
capricornus CF
315 / 205 / 162
Регистрация: 08.12.2015
Сообщений: 853
15.03.2016, 08:29 5
Можно и процедуру, хотя наверное, уже в нескольких темах ответили вам:
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a, b, a1, b1: real;
  outOf: array [Boolean] of String[8] = (' меньше ', ' больше ');
 
procedure Pl(a, b, a1, b1: real);
var s1,s:real;
begin
  s := a * b / 2; 
  s1 := a1 * b1 / 2;
  if s = s1 then writeln('Площади равны.')
  else writeln('Площадь первого треугольника', outOf[s > s1], 'площади второго треугольника.');  
end;
 
begin
  writeln('Введите длины двух катетов первого треугольника:');
  readln(a, b);
  writeln('Введите длины двух катетов второго треугольника:');
  readln(a1, b1); 
  Pl(a, b, a1, b1);
end.
0
15.03.2016, 08:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2016, 08:29

Определить, площадь какой трапеции больше
Столкнулся с проблемой, не могу решить задачу подобного типа, общаюсь за...

Найти площадь пересечения прямоугольников
Даны два прямоугольника со сторонами параллельными осям координат. Вычислите...

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


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

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

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