Из данных a,b,c,d построить треугольник с наибольшим периметром - Turbo Pascal
Формулировка задачи:
Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника.
Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник.
Формат входных данных:
С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек.
Формат выходных данных:
На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».
Решение задачи: «Из данных a,b,c,d построить треугольник с наибольшим периметром»
textual
Листинг программы
var a, b, c, d ,max1, max2, max3, max, min1, min2, min3: integer;
begin
write('Введите размеры 4-ёх волшебных палочек через пробел: '); readln(a,b,c,d);
{-----------------}
if a>b then
begin
max1:=a;
min1:=b;
end
{Нахождение максимального и минимального в первой паре чисел}
else
begin
max1:=b;
min1:=a;
end;
{-----------------}
if c>d then
begin
max2:=c;
min2:=d;
end
{Нахождение максимального и минимального во второй паре чисел}
else
begin
max2:=d;
min2:=c;
end;
{-----------------}
if min1<min2 then
min3:=min2
{Определяет максимальное число из минимальных чисел в первой и второй паре}
else min3:=min1;
{-----------------}
if max1<max2 then
begin
max:=max2;
max3:=max1;
end
{Определяет максимальное и минимальное между 2-мя максимальными числами 2-х пар}
else
begin
max:=max1;
max3:=max2;
end;
{-----------------}
if (a<=0)or(b<=0)or(c<=0)or(d<=0) then
write('NO')
else
writeln(min3,' ',max3,' ',max);
readln;
end.
Объяснение кода листинга программы
- Ввод размеров четырех волшебных палочек через пробел.
- Нахождение максимального и минимального значения в первой паре чисел (переменные max1 и min1).
- Нахождение максимального и минимального значения во второй паре чисел (переменные max2 и min2).
- Определение максимального числа из минимальных чисел в первой и второй парах (переменная min3).
- Определение максимального и минимального значения между двумя максимальными числами второй пары (переменные max и max3).
- Проверка условий для определения наибольшего периметра треугольника (переменная max).
- Вывод результата (переменная min3, max3, max).