Заданы длины сторон трёх треугольников. Найти больший периметр

@Satisfaction89 · Регистрация: 15.12.2018

Студворк — интернет-сервис помощи студентам

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

@Puporev · 19.12.2018, 11:19

Добавил еще процедуру ввода чтобы не писать три раза одно и тоже.

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
uses crt;
procedure Vvod(var a,b,c:real;k:byte);
begin
writeln('Введите длины сторон ',k,' треугольника');
repeat
readln(a,b,c);
if(a+b<=c)or(a+c<=b)or(b+c<=a) then
writeln('Эти отрезки не могут быть сторонами треугольника, повторите ввод');
until (a+b>c)and(a+c>b)and(b+c>a);
end;
procedure Perimetr(a,b,c:real;var p:real);
begin
p:=a+b+c;
writeln('Периметр=',p:0:2);
end;
procedure Max(p1,p2,p3:real;var m:real);
begin
if p1>p2 then m:=p1 else m:=p2;
if p3>m then m:=p3;
writeln('Максимальный периметр=',m:0:2);
end;
var a1,b1,c1,p1,a2,b2,c2,p2,a3,b3,c3,p3,mx:real;
begin
Vvod(a1,b1,c1,1);
Perimetr(a1,b1,c1,p1);
Vvod(a2,b2,c2,2);
Perimetr(a2,b2,c2,p2);
Vvod(a3,b3,c3,3);
Perimetr(a3,b3,c3,p3);
Max(p1,p2,p3,mx);
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Satisfaction89 0 / 0 / 0 Регистрация: 15.12.2018 Сообщений: 5

	Заданы длины сторон трёх треугольников. Найти больший периметр 19.12.2018, 07:11. Показов 2362. Ответов 1 Метки нет (Все метки) Заданы длины сторон трёх треугольников. Найти больший периметр. Для вычисления периметра треугольника используется процедура Perimetr, для определения большего из двух чисел - процедура max. 0