Двумерный массив.

27.12.2011, 16:44. **Показов** 1051. **Ответов** 2

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

Помоги пожалуйста с лаб. работой, обычно проблем не возникает но тут, возникла проблема с тем, что нужно определить есть ли в массиве столбец, в котором имеются одинаковые элементы.
Задание:
Дан двумерный массив размером m*n, заполненный случ. Числами. определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы.

@anonimus · 27.12.2011, 17:43

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j,q,tmp:byte; mas:array[0..9,0..9]of byte;
begin
label1.Caption:='';
label2.Caption:='';
//заполняем массив
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
    mas[i,j]:=Random(100);
 
//выводим массив в label1
for i:=0 to high(mas) do begin
  for j:=0 to high(mas) do
    label1.Caption:=label1.Caption+inttostr(mas[i,j])+' ';
label1.Caption:=label1.Caption+#13#10;
end;
 
 
//проверяем столбцы массива
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
  for q:=j+1 to high(mas) do
    if (mas[q,i]=mas[j,i])and(pos(inttostr(i),label2.Caption)=0)then
      label2.Caption:=label2.Caption+inttostr(i)+' ';   //если есть совпадения и раньше номер столбца не выводился, то выводим его в label2
 
label2.Caption:='В столбцах есть совпадения:'+#13#10+label2.Caption;
end;

27.12.2011, 18:13

Сообщение от anonimus

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j,q,tmp:byte; mas:array[0..9,0..9]of byte;
begin
label1.Caption:='';
label2.Caption:='';
//заполняем массив
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
    mas[i,j]:=Random(100);
 
//выводим массив в label1
for i:=0 to high(mas) do begin
  for j:=0 to high(mas) do
    label1.Caption:=label1.Caption+inttostr(mas[i,j])+' ';
label1.Caption:=label1.Caption+#13#10;
end;
 
 
//проверяем столбцы массива
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
  for q:=j+1 to high(mas) do
    if (mas[q,i]=mas[j,i])and(pos(inttostr(i),label2.Caption)=0)then
      label2.Caption:=label2.Caption+inttostr(i)+' ';   //если есть совпадения и раньше номер столбца не выводился, то выводим его в label2
 
label2.Caption:='В столбцах есть совпадения:'+#13#10+label2.Caption;
end;

в принципе работает) но как сделать чтобы результат выводился не в лейбл а в СтрингГрид?

Добавлено через 12 минут

Сообщение от upgpwnz

в принципе работает) но как сделать чтобы результат выводился не в лейбл а в СтрингГрид?

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var i,j,q,tmp:byte; mas:array[0..9,0..9]of byte;
begin
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
    mas[i,j]:=Random(100);
 
for i:=0 to high(mas) do begin
  for j:=0 to high(mas) do
StringGrid1.Cells[i,j]:= inttostr(mas[i,j]);
end;
Application.ProcessMessages;
 
for i:=0 to high(mas) do
  for j:=0 to high(mas) do
  for q:=j+1 to high(mas) do
    if (mas[q,i]=mas[j,i])and(pos(inttostr(i), Edit1.Text)=0)then
   Edit1.text:=Edit1.text+inttostr(i)+' ';
 
edit1.text:='Â ñòîëáöàõ åñòü ñîâïàäåíèÿ:'+#13#10+Edit1.text;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

сделал вроде)) массив выводится в стринггрид а совпадения в эдит1. Спасибо огромное )

upgpwnz
		1
	Двумерный массив. 27.12.2011, 16:44. Показов 1051. Ответов 2 Метки нет (Все метки) Помоги пожалуйста с лаб. работой, обычно проблем не возникает но тут, возникла проблема с тем, что нужно определить есть ли в массиве столбец, в котором имеются одинаковые элементы. Задание: Дан двумерный массив размером m*n, заполненный случ. Числами. определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы.

	27.12.2011, 18:13

Двумерный массив.

Решение