Операторы цикла языка «Pascal». Работа с двумерными массивами и вложенными операторами цикла

ЛАБОРАТОРНАЯ РАБОТА №2

Тема: Операторы цикла языка «Pascal» .

Цель работы:  Научиться работать с двумерными массивами и вложенными операторами цикла.

Постановка задачи:  Определить количество элементов матрицы [MxN] больших A и расположенных в четных строках и столбцах.

Псевдокод программы:

program massiv;

const {Описание констант}

m {Задание количества строк массива}

n {Задание количества столбцов массива}

var {Описание переменных}

a, i, j, kol {переменные целого типа данных}

mas {двумерный массив целого типа данных}

begin

{Инициализация генератора псевдослучайных чисел}

{Запрос и ввод данных}

{Запрос ввода числа, с которым будет происходить сравнение}

Readln(a);

{установка начального значения счётчика количества элементов}

kol := 0;

{Генерация элементов двумерного массива}

for i := 1 to m do

for j := 1 to n do

begin

mas[i, j] := random(100);

end;

{for}

{for}

{Сравнение элементов массива с ранее заданным числом}

{только в чётных строках и столбцах}

{Вывод элементов массива}

for i := 1 to m do

begin

for j := 1 to n do

begin

if (i mod 2 = 0) and (j mod 2 = 0) then

begin

if mas[i, j] > a then

begin

{Увеличение счётчика количества элементов}

{Вывод элементов массива помеченных звёздочкой}

end

else {Вывод элементов массива в чётных строках и столбцах}

end

else {Вывод элементов остальных массива}

end;

{Перенос строки}

end;

{end for}

{Вывод количества элементов массива больших заданного числа}

end. {Конец программы}

Контрольный пример:

Программа просит ввести значение из заданного диапазона. Вводим значение 38. Программа выводит на экран весь массив, и помечает звёздочкой те элементы, которые больше 38. Таких элементов со звёздочкой оказалось 13, о чём ниже программа сообщает.

Примечание: Размерность массива определена как 8x10, значение каждого элемента массива программа генерирует в диапазоне [0,99].

Результат работы программы:

Рисунок 1 – Результат работы программы

 Текст программы:

program massiv;

const

m = 8;

n = 10;

var

a, i, j, kol: Integer;

mas: Array [1..m, 1..n] of Integer;

begin

Randomize;

Write('Введите число A, так чтобы 0<A<90: ');

Readln(a);

kol := 0;

for i := 1 to m do

for j := 1 to n do

begin

mas[i, j] := random(100);

end;

{for}

{for}

for i := 1 to m do

begin

for j := 1 to n do

begin

if (i mod 2 = 0) and (j mod 2 = 0) then

begin

if mas[i, j] > a then

begin

inc(kol);

write('*', mas[i, j], ' ');

end

else write(mas[i, j], ' ');

end

else write(mas[i, j], ' ');

end;

writeln;

end;

{end for}

Writeln('Количество элеметов массива больше ', a, ' в чётных строках и столбцах: ', kol);

end.