Составить процедуру для заполнения массива из 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.

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

  1. В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
  2. Затем определяется константа nmax, которая ограничивает размер массива до 100 элементов.
  3. Определяется тип данных mas, который представляет собой массив целых чисел размером от 1 до nmax.
  4. Создается процедура massiv, которая принимает в качестве параметров переменную a типа mas и переменную n типа byte. Эта процедура предназначена для заполнения массива случайными числами в диапазоне от -40 до 35.
  5. В цикле repeat-until происходит запрос размера массива у пользователя. Размер массива должен быть от 2 до nmax.
  6. После получения размера массива, выводится сообщение с этим размером.
  7. Далее, в цикле for i:=1 до n do происходит заполнение массива случайными числами от -40 до 35.
  8. После завершения цикла, выводится сообщение с заполненным массивом.
  9. В конце кода определяется переменная a типа mas и переменная n типа byte.
  10. Выполняется инициализация генератора случайных чисел.
  11. Выводится начальное сообщение с приглашением ввести размер массива.
  12. Запускается цикл, в котором выполняются все предыдущие шаги.
  13. По завершении ввода размера массива и его заполнения, выводится сообщение с заполненным массивом.
  14. Конец программы.

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


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

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

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