Из данных 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).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д