Входит ли элемент Е в заданный двухмерный массив?

@ShamanX · Регистрация: 05.09.2010

Author24 — интернет-сервис помощи студентам

Помогите плиз решить задачку на массив, а то завтра сдать надо.

Условие задачи: Написать функцию (или процедуру), которая определяет, входит ли элемент Е в заданный двухмерный массив

@Puporev · 07.09.2010, 18:32

Pascal

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
function IsElement(a:matr;n,m:byte;k:integer):boolean;
var i,j:byte;
    f:boolean;
begin
f:=false;
i:=1;
while not f and(i<=n) do
 begin
  j:=1;
  while not f and(j<=m) do
   begin
    if a[i,j]=k then
    f:=true
    else j:=j+1;
   end;
  if j>m then i:=i+1;
 end;
IsElement:=f;
end;
var a:matr;
    m,n,i,j:byte;
    k:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
write('Введите число для поиска k=');
readln(k);
if IsElement(a,n,m,k) then write('Элемент ',k,' входит в матрицу')
else write('Элемент ',k,' не входит в матрицу');
readln
end.

@ShamanX 0 / 0 / 1 Регистрация: 05.09.2010 Сообщений: 15
		1
	Входит ли элемент Е в заданный двухмерный массив? 07.09.2010, 17:09. Показов 1318. Ответов 1 Метки нет (Все метки) Помогите плиз решить задачку на массив, а то завтра сдать надо. Условие задачи: Написать функцию (или процедуру), которая определяет, входит ли элемент Е в заданный двухмерный массив 0

	07.09.2010, 18:32

Опции темы

Входит ли элемент Е в заданный двухмерный массив?

Решение