Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедуры и функции.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ManyaK
Люди помогите исправить программу!!!
Вот задание:
В численных матрицах X(3x4) и Y(4х4) найти количество столбцов начинающихся на заданное число.
А вот та программа которая у меня работает не правильно...

Program pr1_2;
type mas1=array[1..3,1..4]of integer;
mas2=array[1..4,1..4]of integer;
Var i,j,k:integer;
A:mas1;
B:mas2;
Procedure Poisk(m1:mas1;m2:mas2);
Var k,I,j,d,f:integer;
Begin
for i:=1 to 3 do
If m1[1,i]=1 then k:=k+1;
for j:=1 to 4 do
If m1[1,j]=1 then d:=d+1;
writeln('k=',k,'d=',d);
readln;
end;
Begin
writeln('MaccuB 1');
randomize;
for i:=1 to 3 do
begin
For j:=1 to 4 do
begin
A[i,j]:=random(20);
write(a[i,j]:6);
end;
writeln;
end;
writeln('MACCuB 2');
randomize;
for i:=1 to 4 do
begin
For j:=1 to 4 do
begin
B[i,j]:=random(20);
write(B[i,j]:6);
end;
writeln;
end;
poisk(a,b);
readln;
readln;
end.
volvo
Во-первых, кто будет K и D обнулять? Компилятор этого не делает, вот ты и получаешь огромные числа... А во-вторых: у тебя и в первой и во второй матрице по 4 столбца, почему ты в первой проверяешь только 3?

3 это число строк, к столбцам отношения не имеет...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.