Подпрограммы - Pascal ABC (14274)

Формулировка задачи:

Даны целочисленные матрицы А(4х5) и В(3х7) Проверить есть ли в матрице элементы А элементы ,равные D, а в матрице В - элементы ,равные Q,где D,Q -заданные значения

Код к задаче: «Подпрограммы - Pascal ABC (14274)»

textual
type mtr=array[1..4,1..7] of integer;
procedure vvod(var a:mtr;m,n:byte;c:char);
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
function poisk(a:mtr;m,n:byte;x:integer):boolean;
var i,j,k:byte;
begin
k:=0;
i:=1;
while(i<=m)and(k=0) do
 begin
  j:=1;
  while(j<=n)and(k=0) do
  if a[i,j]=x then k:=1
  else j:=j+1;
  if k=0 then i:=i+1;
 end;
poisk:=k=1;
end;
var a,b:mtr;
    d,q:integer;
begin
vvod(a,4,5,'A');
write('Введите число для поиска d=');
readln(d);
if poisk(a,4,5,d) then
writeln('В матрице есть числа равные ',d)
else writeln('В матрице нет чисел равных ',d);
vvod(b,3,7,'B');
write('Введите число для поиска q=');
readln(q);
if poisk(b,3,7,q) then
write('В матрице есть числа равные ',q)
else writeln('В матрице нет чисел равных ',q)
end.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ