15.02.2010, 15:27
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
Сообщение от nec
Обработать двухмерный числовой массив. Выполнить обмен данными с процедурой через параметр-переменную, параметр-значение.При одном обращении к процедуре передать одну строку или столбец матрицы.Подсчитать количество нулевых элементов в каждой непарной строке матрицы Е(6,6). Вывести количество нулевых элементов и номера соответствующих строк.
надо на паскале это сделать....это вообще как делать то? мож подкиньте идеи
Код:
program Obmen_dannimi;
var
intA,intB:integer;
Mass:array[1..6,1..6] of integer;
Param_zn:array[1..6] of integer;
Para:byte;
procedure Parametr_Znachenie(Param:array of integer);
var
intC:integer;
kolichestvo_nulevih_elementov:byte;
begin
kolichestvo_nulevih_elementov:=0;
inc(Para);
if Para mod 2 = 0 then begin
for intC:= 0 to 5 do
if Param[intC]=0 then inc(kolichestvo_nulevih_elementov);
writeln('stroka nomer ',Para,' soderzhit ',kolichestvo_nulevih_elementov,' nulevih(oi) elementa(ov)');
end;
end;
procedure Parametr_Peremennaia(var Param:array of integer);
var
intC:integer;
kolichestvo_nulevih_elementov:byte;
begin
kolichestvo_nulevih_elementov:=0;
inc(Para);
if Para mod 2 = 0 then begin
for intC:= 0 to 5 do
if Param[intC]=0 then inc(kolichestvo_nulevih_elementov);
writeln('stroka nomer ',Para,' soderzhit ',kolichestvo_nulevih_elementov,' nulevih(oi) elementa(ov)');
end;
end;
begin
Para:=0;
writeln('Zapolniaiu massiv');
randomize;
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Mass[intA,intB]:=random(2);
write(Mass[intA,intB],' ');
end;
write(#13#10);
end;
writeln;
writeln('Ispolzuiu parametr - znachenie');
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Param_Zn[intB]:=Mass[intA,intB];
end;
Parametr_Znachenie(Param_Zn);
end;
Para:=0;
writeln;
writeln('Ispolzuiu parametr - peremennuiu');
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Param_Zn[intB]:=Mass[intA,intB];
end;
Parametr_Peremennaia(Param_zn);
end;
readln;
end.
Результат работы:
Код:
Zapolniaiu massiv
0 0 0 1 1 0
0 0 0 1 1 1
0 0 1 1 0 0
1 1 1 0 1 1
1 1 1 0 1 1
0 0 1 0 1 1
Ispolzuiu parametr - znachenie
stroka nomer 2 soderzhit 3 nulevih(oi) elementa(ov)
stroka nomer 4 soderzhit 1 nulevih(oi) elementa(ov)
stroka nomer 6 soderzhit 3 nulevih(oi) elementa(ov)
Ispolzuiu parametr - peremennuiu
stroka nomer 2 soderzhit 3 nulevih(oi) elementa(ov)
stroka nomer 4 soderzhit 1 nulevih(oi) elementa(ov)
stroka nomer 6 soderzhit 3 nulevih(oi) elementa(ov)
|
|
|