Program Primer_1;
Uses WinCrt;
Const n = 10; задание исходных данных в виде именованных констант
vect_min = -10;
vect_max = 20;
Var i : Word; параметр цикла
Vector : Array [1..n] Of Integer; описание вектора сиспользованием константы n
Begin
ClrScr; очистка экрана
Randomize; запуск генератора случайных чисел
For i:=1 To n Do заполнение вектора случайными числами
Vector[i]:=Random(vect_max – vect_min + 1) + vect_min;
For i:=1 To n Do форматный вывод вектора на экран в однустроку
Write(Vector[i]:5);
WriteLn; переход на новую строку на экране
ReadLn; задержка картинки на экране до нажатия на ENTER
End.
2. Задать элементы целочисленного массива massivnm случайными числами, лежащими в диапазоне от mass_min до mass_max. Полученный массив вывести на экран построчно.
Program Primer_2;
Uses WinCrt;
Const n = 5;
m = 8;
mass_min = -50;
mass_max = 50;
Var i, j : Word; параметры циклов
Massiv : Array [1..n, 1..m] Of Integer; описание массива сиспользованием констант n и m
Begin
ClrScr;
Randomize; запуск генератора случайных чисел
For i:=1 To n Do заполнение массива случайными числами
For j:=1 To m Do в заданном диапазоне
Massiv[i, j]:=Random(mass_max – mass_min + 1) + mass_min;
For i:=1 To n Do форматный вывод массива на экран построчно
Begin
For j:=1 To m Do
Write(Massiv[i, j]:5);
WriteLn; переход на новую строку на экране
End;
WriteLn;
ReadLn;
End.
3. Задать элементы целочисленного массива massivnm в виде чисел от 1 до n*m . Полученный массив вывести на экран построчно:
Дата добавления: 2015-08-08; просмотров: 944;