VPF::Зависание программы - Форум программистов

nWizz

Дата 29.4.2014, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.4.2014

Репутация: нет
Всего: нет

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

Само решение выглядит так:

Код


c:=m;
while f=false do
begin
f:=true;
for j:=0 to m-1 do
 if A[0,j]>A[n-1,j] then
  begin
   f:=false;
   c:=c-1;
   for i:=0 to n-1 do
    for k:=j to m-1-j do
     A[i,k]:=A[i,k+1];
  end;
end;

Проблема в том, что при определенных значениях программа зависает, т.е. видимо цикл где-то не завершается. Но не пойму, почему? Проверил уже не раз, все равно не пойму и даже не представляю в чем дело.

Вот полный вариант кода

Код


procedure TForm1.Button3Click(Sender: TObject);
var
A:array of array of integer;
i,j,n,m,c,k:integer;
f:boolean;
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
SetLength(A,n,m);
for i:=1 to n do
 for j:=1 to m do
  A[i-1,j-1]:=random(11);
 
StringGrid2.RowCount:=n+1;
StringGrid2.ColCount:=m+1;
with StringGrid2 do
 begin
  i:=0;
  for j:=1 to rowcount do
   Cells[i,j]:=Inttostr(j);
  j:=0;
  for i:=1 to colcount do
   cells[i,j]:=inttostr(i);
 end;
 
with StringGrid2 do
 for i:=1 to n do
  for j:=1 to m do
   Cells[j,i]:=IntToStr(A[i-1,j-1]);
 
c:=m;
while f=false do
begin
f:=true;
for j:=0 to m-1 do
 if A[0,j]>A[n-1,j] then
  begin
   f:=false;
   c:=c-1;
   for i:=0 to n-1 do
    for k:=j to m-1-j do
     A[i,k]:=A[i,k+1];
  end;
end;
 
 
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=c+1;
with StringGrid1 do
 begin
  i:=0;
  for j:=1 to rowcount do
   Cells[i,j]:=Inttostr(j);
  j:=0;
  for i:=1 to colcount do
   cells[i,j]:=inttostr(i);
 end;
 
with StringGrid1 do
 for i:=1 to n do
  for j:=1 to m do
    Cells[j,i]:=IntToStr(A[i-1,j-1]);
end;

Это сообщение отредактировал(а) nWizz - 29.4.2014, 20:07

Poseidon

Дата 29.4.2014, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

По коду видно, что если условие if A[0,j]>A[n-1,j] выполняется при каком-нибудь j, то получаем вечный цикл.

Это сообщение отредактировал(а) Poseidon - 29.4.2014, 22:10

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »