Для матрицы А (4 строки, 4 столбца) вывести те столбцы, в которых есть нулевые элементы, или вывести сообщение "нет столбцов с нулями"

@Elaidja · Регистрация: 12.05.2013

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

Задание состоит в написании программного кода Delphi.

Для матрицы А (4 строки, 4 столбца) вывести те столбцы, в которых есть нулевые элементы, или вывести сообщение "нет столбцов с нулями". Для проверки наличия нулевых элементов в произвольном столбце матрицы использовать процедуру.

Просмотрел все темы и форумы в поисках, но увы, подавляющее большинство это Pascal, что в прочем для меня такой же темный лес. Нашедшим время и силы помочь буду очень признателен. Код должен функционировать в Lazarus.

Если найдутся те кто сможет перестроить программный код с Pascal на Delphi то оставляю профит в виде спойлера, что удалось найти.

Кликните здесь для просмотра всего текста

Pascal

var
A:array[1..4,1..4] of integer;
x,y:integer;
metka:array[1..4] of boolean;
elements:boolean;
procedure test(x:integer);
begin
metka[x]:=false;
for y:=1 to 4 do
if A[y,x]=0 then
begin
metka[x]:=true;
elements:=true;
end;
end;
begin
elements:=false;
writeln('Ishodnie dannie:');
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
write(a[y,x]:2,' ');
readln(a[y,x]);
end;
writeln;
end;
for x:=1 to 4 do
test(x);
writeln('Resultat:');
if elements=true then
begin
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
if metka[x]=true then
write(a[y,x]:2, ' ');
end;
writeln;
end;
end else
writeln('Stolbcob c nulyami net');
readln;
end.

@Elaidja · 13.05.2013, 20:48 **[ТС]**

Актуально, все еще в поисках хелпера!...

@Elaidja 0 / 0 / 0 Регистрация: 12.05.2013 Сообщений: 8
	13.05.2013, 20:48 [ТС]	2
	Актуально, все еще в поисках хелпера!... 0

Опции темы