Версия для печати темы

Автор: andreybatka 28.12.2006 20:21

Здравствуйте уважаемые! Собсна вот задача...не могу найти ошибку... (ессено в Паскале нуп =( )
Подсчитать число нулевых элементов для матриц А(3,3) и В(2,4) Матрицы вводятся.

Program MATR_0
uses crt;
type mass:array[1..10.1..10]of real;
VAR A,B:mass; zA,zB,iA,iB,gA,gB:integer;
Procedure vvodmassiva(var M:mass; iM,gM:integer; st:char);
VAR i,g:integer;
BEGIN
For i:=1 to iM do
For g:=1 to gM do
Begin
write (st, ',i,',',g,']=');
readln (M[i,g]);
end;
end;
Function zero (M:mass; iM,gM:integer):integer;
VAR i,g,z:integer;
BEGIN z:=0;
For i:=1 to iM do
For g:=1 to gM do
if M[i,g]=0 then z:=z+1;
zero:=z;
end;
BEGIN 
write ('A[i,g], i,g= ');
readln(iA,gA);
write ('B[i,g], i,g= ');
readln (iB,gB);
vvodmassiva (A, iA, gA, 'A');
zA:=zero(A,iA,gA);
vvodmassiva(B, iB,gB,'B');
zB:=zero(B,iB,gB);
writeln ('Chislo 0 v A= ',zA);
writeln ('Chislo 0 v B= ',zB);
readln;
end.

Заранее спаибо. ПС в поиске не нашел если действительно есть плиз киньте ссылку

Автор: hiv 28.12.2006 21:46

Плохо списывал... см. ошибки:

Автор: andreybatka 28.12.2006 22:24

спасибо ошибки нашел и исправил...программа работает но НЕПРАВИЛЬНО

Автор: мисс_граффити 28.12.2006 22:51

Приведи тесты, на которых работает неправильно.

Автор: andreybatka 28.12.2006 23:16

ой простите всё работает!!! (не усмотрел кое-чего у себя) ВСЕМ ОГРОМНОЕ СПАСИБО

Автор: мисс_граффити 29.12.2006 1:51

М

Одна тема - одна задача. Разделено.