C не равно d не равно e - Turbo Pascal

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

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

Здравствуйте. Помогите написать программу на Turbo Pascal условие. Даны числа c, d, e (c не равно d не равно e). или (c<>d<>e) Нужно найти какое из чисел является самым большим по модулю за ранее спасибо. вот что у меня получилось. А как сделать по модулю я не знаю

Решение задачи: «C не равно d не равно e»

textual
Листинг программы
var a,b,c:Integer;
function max_element:Integer;
begin
 if (Abs(b)>Abs(a)) then a:=b;
 if (Abs(c)>Abs(a)) then a:=c;
 max_element:=a;
end;
begin
repeat
  Write('Enter number_1 = ');Readln(a);
  Write('Enter number_2 = ');Readln(b);
  Write('Enter number_3 = ');Readln(c);
  until ((a<>b) and (a<>c) and (b<>c));
  Writeln('Answer = ',max_element);
readln;
end.

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

  1. Переменные a, b и c объявлены как целочисленные типы данных.
  2. Функция max_element принимает целочисленный параметр и возвращает наибольшее из трех чисел.
  3. Внутри функции проверяется, является ли значение переменной b больше значения переменной a. Если это так, то значение переменной a присваивается значению переменной b.
  4. Затем проверяется, является ли значение переменной c больше значения переменной a. Если это так, то значение переменной a присваивается значению переменной c.
  5. Значение переменной a, которое является наибольшим из трех чисел, присваивается переменной max_element.
  6. В основной части программы пользователю предлагается ввести три числа.
  7. Затем проверяется, равны ли эти числа друг другу. Если они не равны, то цикл повторяется, пока не будут введены числа, которые не равны друг другу.
  8. Когда все условия выполняются, программа выводит наибольшее число, которое было найдено функцией max_element.

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

8   голосов , оценка 3.5 из 5
Похожие ответы