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.
Объяснение кода листинга программы
- Переменные a, b и c объявлены как целочисленные типы данных.
- Функция max_element принимает целочисленный параметр и возвращает наибольшее из трех чисел.
- Внутри функции проверяется, является ли значение переменной b больше значения переменной a. Если это так, то значение переменной a присваивается значению переменной b.
- Затем проверяется, является ли значение переменной c больше значения переменной a. Если это так, то значение переменной a присваивается значению переменной c.
- Значение переменной a, которое является наибольшим из трех чисел, присваивается переменной max_element.
- В основной части программы пользователю предлагается ввести три числа.
- Затем проверяется, равны ли эти числа друг другу. Если они не равны, то цикл повторяется, пока не будут введены числа, которые не равны друг другу.
- Когда все условия выполняются, программа выводит наибольшее число, которое было найдено функцией max_element.