Заполнить массив из 20 элементов случайными числами из отрезка [-20,20].ПАСКАЛЬ ПОМОГИТЕ ПОЖАЛУЙСТА!

Тематика Информатика
Уровень 10 - 11 классы
Паскаль массив случайные числа программирование отрезок элементы помощь
0

Заполнить массив из 20 элементов случайными числами из отрезка [-20,20].ПАСКАЛЬ ПОМОГИТЕ ПОЖАЛУЙСТА!

avatar
задан 28 дней назад

2 Ответа

0

Для того чтобы заполнить массив из 20 элементов случайными числами из отрезка [-20, 20] на языке программирования Pascal, можно воспользоваться следующим кодом:

program FillArrayRandomNumbers;

var
  arr: array[1.20] of integer;
  i: integer;

begin
  randomize;
  
  for i := 1 to 20 do
  begin
    arr[i] := random(41) - 20; // генерация случайного числа из отрезка [-20, 20]
  end;
  
  // Вывод массива на экран
  writeln('Массив из 20 элементов случайными числами из отрезка [-20, 20]:');
  for i := 1 to 20 do
  begin
    write(arr[i], ' ');
  end;
  
end.

Этот код создает массив из 20 элементов, заполняет его случайными числами из отрезка [-20, 20] и выводит на экран полученный массив. Мы используем функцию random(41) - 20, чтобы получить случайное число из отрезка [-20, 20].

avatar
ответил 28 дней назад
0

Чтобы заполнить массив из 20 элементов случайными числами из отрезка [-20, 20] на языке программирования Паскаль, вы можете воспользоваться модулем Random. Этот модуль предоставляет функции для работы со случайными числами. Вот подробный пример кода, который выполняет поставленную задачу:

program FillArrayWithRandomNumbers;

uses
  SysUtils;  // Подключаем модуль для работы с системными функциями

const
  ArraySize = 20;  // Размер массива

var
  arr: array[1.ArraySize] of Integer;  // Объявляем массив из 20 элементов
  i: Integer;  // Переменная для цикла

begin
  Randomize;  // Инициализируем генератор случайных чисел

  // Заполняем массив случайными числами из диапазона [-20, 20]
  for i := 1 to ArraySize do
  begin
    arr[i] := Random(41) - 20;  // Генерируем случайное число от 0 до 40 и сдвигаем диапазон
  end;

  // Выводим массив на экран
  writeln('Массив из 20 случайных чисел в диапазоне [-20, 20]:');
  for i := 1 to ArraySize do
  begin
    write(arr[i]:4);  // Выводим элемент массива с отступом для удобства чтения
  end;
  writeln;  // Переходим на новую строку
end.

Объяснение кода:

  1. Модуль SysUtils: Подключается для использования различных системных функций. Хотя в данном примере он не обязателен, его часто подключают для удобства.

  2. Константа ArraySize: Определяет размер массива, что делает код более читабельным и удобным для изменения в будущем.

  3. Массив arr: Объявляется как массив из 20 целочисленных элементов.

  4. Процедура Randomize: Инициализирует генератор случайных чисел. Ее вызов необходим, чтобы каждый запуск программы давал разные результаты.

  5. Цикл for: Используется для заполнения массива. В каждой итерации вызывается функция Random(41), которая возвращает случайное число от 0 до 40. Мы вычитаем 20, чтобы сдвинуть диапазон до [-20, 20].

  6. Вывод массива: Используется еще один цикл for для вывода элементов массива на экран. Команда write(arr[i]:4) обеспечивает вывод каждого элемента с отступом в 4 символа для аккуратного отображения.

Этот код решает задачу заполнения массива случайными числами в заданном диапазоне и демонстрирует основные возможности языка Паскаль для работы с массивами и случайными числами.

avatar
ответил 28 дней назад

Ваш ответ

Вопросы по теме