Составить процедуру для заполнения массива из N элементов значениями в интервале от -40 до 35 - Turbo Pascal
Формулировка задачи:
Составить процедуру для заполнение массива из N элементов значениями в интервале от - 40 до 35.
Решение задачи: «Составить процедуру для заполнения массива из N элементов значениями в интервале от -40 до 35»
textual
Листинг программы
uses crt; const nmax=100; type mas=array[1..nmax] of integer; procedure massiv(var a:mas;var n:byte); var i:byte; begin repeat write('Размер массива от 2 до ',nmax,' n='); readln(n); until n in [2..nmax]; writeln('Массив'); for i:=1 to n do begin a[i]:=-40+random(76); write(a[i]:4) end; writeln; end; var a:mas; n:byte; begin clrscr; randomize; massiv(a,n); readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
- Затем определяется константа nmax, которая ограничивает размер массива до 100 элементов.
- Определяется тип данных mas, который представляет собой массив целых чисел размером от 1 до nmax.
- Создается процедура massiv, которая принимает в качестве параметров переменную a типа mas и переменную n типа byte. Эта процедура предназначена для заполнения массива случайными числами в диапазоне от -40 до 35.
- В цикле repeat-until происходит запрос размера массива у пользователя. Размер массива должен быть от 2 до nmax.
- После получения размера массива, выводится сообщение с этим размером.
- Далее, в цикле for i:=1 до n do происходит заполнение массива случайными числами от -40 до 35.
- После завершения цикла, выводится сообщение с заполненным массивом.
- В конце кода определяется переменная a типа mas и переменная n типа byte.
- Выполняется инициализация генератора случайных чисел.
- Выводится начальное сообщение с приглашением ввести размер массива.
- Запускается цикл, в котором выполняются все предыдущие шаги.
- По завершении ввода размера массива и его заполнения, выводится сообщение с заполненным массивом.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д