Из данных a,b,c,d построить треугольник с наибольшим периметром - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника. Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник. Формат входных данных: С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек. Формат выходных данных: На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».

Решение задачи: «Из данных a,b,c,d построить треугольник с наибольшим периметром»

textual
Листинг программы
  1. var a, b, c, d ,max1, max2, max3, max, min1, min2, min3: integer;
  2. begin
  3.  write('Введите размеры 4-ёх волшебных палочек через пробел: '); readln(a,b,c,d);
  4.  {-----------------}
  5.  if a>b then
  6.   begin
  7.    max1:=a;
  8.    min1:=b;
  9.   end                
  10.                          {Нахождение максимального и минимального в первой паре чисел}
  11.  else
  12.   begin
  13.    max1:=b;
  14.    min1:=a;
  15.   end;
  16.  {-----------------}
  17.  if c>d then
  18.   begin
  19.    max2:=c;
  20.    min2:=d;
  21.   end
  22.                          {Нахождение максимального и минимального во второй паре чисел}
  23.  else
  24.   begin
  25.    max2:=d;
  26.    min2:=c;
  27.   end;
  28.  {-----------------}
  29.  if min1<min2 then
  30.   min3:=min2
  31.                          {Определяет максимальное число из минимальных чисел в первой и второй паре}
  32.  else min3:=min1;
  33.  {-----------------}
  34.  if max1<max2 then
  35.   begin
  36.    max:=max2;
  37.    max3:=max1;
  38.   end
  39.                          {Определяет максимальное и минимальное между 2-мя максимальными числами 2 пар}
  40.  else
  41.   begin
  42.    max:=max1;
  43.    max3:=max2;
  44.  end;
  45.  {-----------------}
  46.   if (a<=0)or(b<=0)or(c<=0)or(d<=0) then
  47.    write('NO')
  48.   else
  49.    writeln(min3,' ',max3,' ',max);
  50. readln;
  51. end.

Объяснение кода листинга программы

  1. Ввод размеров четырех волшебных палочек через пробел.
  2. Нахождение максимального и минимального значения в первой паре чисел (переменные max1 и min1).
  3. Нахождение максимального и минимального значения во второй паре чисел (переменные max2 и min2).
  4. Определение максимального числа из минимальных чисел в первой и второй парах (переменная min3).
  5. Определение максимального и минимального значения между двумя максимальными числами второй пары (переменные max и max3).
  6. Проверка условий для определения наибольшего периметра треугольника (переменная max).
  7. Вывод результата (переменная min3, max3, max).

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы