Методы приведены для последовательности sequence of T .
| function Min(): число; Вычисляет минимальный элемент последовательности значений числового типа. |
| function Min(selector: T->число): число; Вызывает функцию преобразования для каждого элемента последовательности и возвращает минимальное значение числового типа. |
| function Max(): число; Вычисляет максимальный элемент последовательности значений числового типа. |
| function Max(selector: T->число): число; Вызывает функцию преобразования для каждого элемента последовательности и возвращает максимальное значение числового типа. |
Пример
begin
var a := Lst(1,3,5,6);
Println(a.Min, a.Max);
var b := Arr((‘Иванов’,20),(‘Попов’,21),(‘Авилов’,28));
Println(b.Min(x -> x[1]));
end.
Источник: pascalabc.net
Видео уроки паскаль: поиск максимального и минимального значения
Помогите найти ошибку. . Ввести пять целых чисел, найти максимальное из них. Пример: Введите пять целых чисел: 1 5 4 3 2 Максимальное число 5 [закрыт]
Вопросы с просьбами помочь с отладкой («почему этот код не работает?») должны включать желаемое поведение, конкретную проблему или ошибку и минимальный код для её воспроизведения прямо в вопросе. Вопросы без явного описания проблемы бесполезны для остальных посетителей. См. Как создать минимальный, самодостаточный и воспроизводимый пример.
Закрыт 2 года назад .
a1, a2, a3,a4,a5, max : integer; begin write (‘Введите пять чисел: ‘); readln (a1, a2, a3,a4,a5); if a1 > a2 then max := a1 else max := a2; if a2 > a3 then max := a2 else max := a3; if a3 > a4 then max := a3 else max:=a4; if a4 > a5 then max := a4 else max := a5; writeln (‘Максимальное из них: ‘, max); end.
Отслеживать
Денис Подгородский
задан 11 апр 2020 в 18:49
Денис Подгородский Денис Подгородский
9 1 1 серебряный знак 4 4 бронзовых знака
Возьмите бумажку и ручку, пройдите по всем шагам вашей программы и выпишите значение всех переменных на каждом шаге.
11 апр 2020 в 19:37
Хотя сильно подозреваю, что задание на умение пользоваться массивами и циклами
11 апр 2020 в 19:37
11 апр 2020 в 19:56
2 ответа 2
Сортировка: Сброс на вариант по умолчанию
Как сказали в комменте, нужно сравнивать с максимумом. Здесь я задал максимумом первое число а далее сравнивал с этим максимумом остальные числа.
var a1, a2, a3,a4,a5, max : integer; begin write (‘Введите пять чисел: ‘); readln (a1, a2, a3,a4,a5); max := a1; if a2 > max then max := a2; if a3 > max then max := a3; if a4 > max then max := a4; if a5 > max then max := a5; writeln(‘Максимальное из них: ‘, max) end.
Источник: ru.stackoverflow.com
Паскаль: Поиск максимума из трех через максимум из двух чисел
Максимальное число массива — последовательности в Pascal
В этой публикации я расскажу вам, как найти максимальное число из заданной пользователем последовательности. Для этого мы проведем небольшое первое знакомство с массивами ( более детально они будут разобраны в будущих публикациях ).
Напишем нам задачу:
Разработать программу определения максимума из последовательности чисел. Все числа вводятся пользователем.
Хорошо. Значит исходя из задания можем предположить, что сначала нужно организовать ввод этой самой последовательности пользователем.
В конце статьи будет ссылка на скачивание кода с Яндекс.Диска!
1. Типы данных
Давайте подумаем: нам нужна последовательность цифр. Вроде бы логично ввести N переменных, чтобы пользователь просто вводил каждую. Вот.. Только сколько это — N ? Вот и первая сложность — простыми переменными нам тут не обойтись.
Объявим массив
Если с первыми тремя переменными проблем нет, то теперь у нас новый вариант их объявления — массивы.
Все переменные сделаем Integer для простоты эксперимента. Вы, разумеется, можете изменить тип данных на Real , при необходимости.
Как объявляется массив вы можете видеть выше.
- mass — имя массива, работает так же как имя переменной
- array — объявление переменной массивом
- [1..100] — диапазон массива. В данном массиве не может быть более 100 элементов
- of integer — тип данных массива, так же может быть и of char и of real и т.д.
Источник: dzen.ru