Присвоить случайным образом значения числовым переменным - Free Pascal
Формулировка задачи:
Всем доброго времени суток. Нужна ваша помощь господа.
Задача:
Присвоить случайным образом значения числовым переменным a1,a2,a3....a12.
Вывести на экран значения этих переменных таблицей.
С таблицей я разберусь, но вот как первое сделать я без понятия. Буду весьма благодарен за помощь.
Решение задачи: «Присвоить случайным образом значения числовым переменным»
textual
Листинг программы
var i: byte; a: array [1..12] of integer; begin randomize; for i := 1 to 12 do a[i] := random(199) - 99; for i := 1 to 9 do case i of 1..3, 5, 8: write(a[i]:4) else writeln(a[i]:4) end; readln end.
Объяснение кода листинга программы
- Объявляется переменная i типа byte и переменная a типа array [1..12] of integer.
- Выполняется функция randomize, которая инициализирует генератор случайных чисел.
- Запускается цикл for, который выполняет 12 раз.
- Внутри цикла каждая ячейка массива a[i] присваивается случайное число в диапазоне от 0 до 199, вычитая из него 99. Это делается с помощью функции random(199) - 99.
- Запускается второй цикл for, который выполняет 9 раз.
- Внутри цикла проверяется значение переменной i. Если оно равно 1, 2, 3 или 5, то выводится значение переменной a[i] по умолчанию, то есть 4-й разряд числа.
- Если значение переменной i равно 8, то выводится значение переменной a[i] по умолчанию.
- Если значение переменной i не равно 1, 2, 3, 5 или 8, то выводится значение переменной a[i] по умолчанию.
- После выполнения всех циклов программа ожидает ввода данных с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д