Присвоить случайным образом значения числовым переменным - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Всем доброго времени суток. Нужна ваша помощь господа. Задача: Присвоить случайным образом значения числовым переменным a1,a2,a3....a12. Вывести на экран значения этих переменных таблицей. С таблицей я разберусь, но вот как первое сделать я без понятия. Буду весьма благодарен за помощь.

Решение задачи: «Присвоить случайным образом значения числовым переменным»

textual
Листинг программы
  1. var i: byte;
  2.     a: array [1..12] of integer;
  3. begin
  4.   randomize;
  5.   for i := 1 to 12 do a[i] := random(199) - 99;
  6.   for i := 1 to 9 do
  7.     case i of
  8.       1..3, 5, 8: write(a[i]:4)
  9.       else writeln(a[i]:4)
  10.     end;
  11.   readln
  12. end.

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

  1. Объявляется переменная i типа byte и переменная a типа array [1..12] of integer.
  2. Выполняется функция randomize, которая инициализирует генератор случайных чисел.
  3. Запускается цикл for, который выполняет 12 раз.
  4. Внутри цикла каждая ячейка массива a[i] присваивается случайное число в диапазоне от 0 до 199, вычитая из него 99. Это делается с помощью функции random(199) - 99.
  5. Запускается второй цикл for, который выполняет 9 раз.
  6. Внутри цикла проверяется значение переменной i. Если оно равно 1, 2, 3 или 5, то выводится значение переменной a[i] по умолчанию, то есть 4-й разряд числа.
  7. Если значение переменной i равно 8, то выводится значение переменной a[i] по умолчанию.
  8. Если значение переменной i не равно 1, 2, 3, 5 или 8, то выводится значение переменной a[i] по умолчанию.
  9. После выполнения всех циклов программа ожидает ввода данных с помощью функции readln.

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


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

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

13   голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы