Практическая работа Заполнение одномерного массива случайными числами и вывод его на экран.

Практическая работа №___
Тема: Заполнение одномерного массива случайными числами и вывод его на экран.

Цель: научить заполнять одномерный массив числами с помощью процедуры randomize (случайными числами) и выводить его на экран.


Задание 1. Рассмотреть программу заполнения массива случайными числами, используя процедуру randomize, ввести в среду программирования ABCPascal. При необходимости исправить ошибки.

Program Massiv2;
Uses Crt;



Const N=10; {раздел описания констант, т.е. постоянных величин, определяемых в программе заранее и не изменяющихся по ходу программы}

Var
i: integer;


A: array [1 .. N] of integer; {описываем массив, N определено в разделе констант}

Begin
ClrScr;


{1. Задание значений элементов массива как случайных чисел }

Randomize; {Инициализация датчика случайных чисел }


For i:=1 to N do {переменная i изменяется в цикле от 1 до N, т.е по очереди перебирает все элементы массива}

A[i]:=random (100); {В очередной элемент массива A[i] записывается случайное число от 0 до 99}

{2. Вывод элементов заданного массива на экран в одну строку}

For i:=1 to N do
write (A[i] :4);
readln;
end.


Задание 2. Сформировать одномерный массив из 8 элементов, где элементы массива целые случайные числа в пределах от 20 до 65. Напечатать элементы массива в прямом и обратном порядке.

Примечание.
Для получения массива целых случайных чисел из диапазона от [A, B], нужно задать random (B – A+1)+A.
Например, если необходимо задать случайные числа в пределах от 1 до 45, то запишем A[i]:=random (45)+1.

Приложенные файлы


Добавить комментарий