Условие задачи: Сформировать и вывести на экран последовательность из n элементов заданных датчиком случайных чисел на интервале [12, 23] через процедуру.
Сложность : легкая .
Решение задачи :
Очередная задача по Pascal. Для начала продумаем наше решение. Создадим процедуру в которой с помощью цикла мы будем получать значение элемента массива , а потом сразу его выводить. Затем просто вызовем процедуру.
И так погнали, создаем массив и у него будет свой тип данных, зачем читайте (тут)
type massiv = array [1.100] of integer; // объявляем свой тип данных var mass : massiv ;
Теперь надо подумать какие переменные нам нужны :
- Для массива, уже создали (mass).
- Для кол-ва элементов массива — n
- Для цикла for, хоть как —- i, но объявим её в процедуре
var mass : massiv ; n : integer;
Дальше наш нужно написать процедуру, в качестве её параметров у нас будет массив и его размер, в самой процедуре как я и сказал мы сделаем цикл в котором будем каждому элементу присваивать случайное значение, а затем его выводить :
procedure output (var mass1 : massiv; var count : integer) ; begin var i : integer; for i:=1 to count do begin mass1[i] := random(12) + 12 ; write(mass1[i], ' | '); end; end;
Довольно просто. Может вам и не понятно, но вам просто нужно прочитать про процедуры или дождаться моего видео урока.
Теперь нам нужно вызвать процедуру, но до вызова нам надо включить генератор случайных чисел, зачем читайте (тут), и ввести длину массива.
randomize; write('Введите длину массива : '); readln(n); output(mass,n);
Всё решение задачи :
uses crt; type massiv = array [1..100] of integer; var mass : massiv ; n : integer; procedure output (var mass1 : massiv; var count : integer) ; begin var i : integer; for i:=1 to count do begin mass1[i] := random(12) + 12 ; write(mass1[i], ' | '); end; end; begin clrscr; randomize; write('Введите длину массива : '); readln(n); output(mass,n); readln; end.