Сколько раз число встречается в двумерном массиве?

Сколько раз число встречается в двумерном массиве?

Когда-то я рассказывал про двумерные массивы в Паскаль, сегодня выкладываю исходник программы, задача которого - посчитать, сколько раз встречается число в матрице. Так как структура языка паскаль очень простая, то и написать данную программу не сложно. В программе есть подробные комментарии, что поможет Вам понять код. Открыть можно с помощью программ Pascal ABC, Pascal ABC.Net, Turbo Pascal, Lazarus и других. Скачать исходник и просмотреть исходный код программы на Pascal, Вы можете далее. А если вам нужен промокод для buy.ru, то перейдите по ссылке (промокод bay.ru 750 рублей).

Исходный код программы:

Const mmax = 100; //Описание констант
nmax = 100;
Type TMatrix=array[1..mmax,1..nmax] of integer; //Описание типа
Var //Описание переменных
a:TMatrix;
ch, m, n, i, j, k: integer;
begin //Начаало программы
writeln ('Vvedite razmernost: ');
readln (m,n); //Считывание размерности
For i:=1 to m do //Инициализация массива
For j:= 1 to n do
a[i,j]:=random(10)-5;
writeln ('Massiv:');
for i:=1 to m do begin//Вывод массива
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
writeln('Vvedite chislo: ');
readln(ch); //Считывание нужного числа
k := 0; //Зануление переменной k
for i:=1 to m do // Подсчёт
for j:=1 to n do
if a[i,j] = ch then
k := k + 1;
writeln('Chislo vstrechaetsya', k, ' raz(a)'); //Вывод результата

//readln; //Для Turbo Pascal
end. //Конец программы


Если вы программируете на Turbo Pascal, то уберите // в предпоследней строке перед readln.

Скачать исходник: chislomas.pas

На сегодня всё, заходите на ZedPost.Ru и скачивайте готовые программы на паскале!
Дата: 2012-10-31 12:42:31   Просмотров: 5650

Теги: Паскаль Pascal исходники массивы исходник