VPF::[Delphi] Ошибки в программе на списки и рекурсию

ProgrammistRoman

Дата 17.4.2011, 12:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 6.6.2009
Где: Воронеж

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

Здравствуйте! Мне надо сделать программу с процедурой удаления заданного элемента (из Edit) из списка. В программе есть два типа создания списка:
1) с заданными значениями (StringGrid)
2) с случайными числами.
Проблемы происходят при работе с заданными значениями (удаляет с каждым нажатием кнопке по одному значению), при выводе (выводит по очереди то в обратном порядке то нормально).
Помогите пожалуйста, что-то никак не разберусь(((

Присоединённый файл ( Кол-во скачиваний: 4 )

Pr5.rar 23,58 Kb

Keeper89

Дата 17.4.2011, 13:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Программист Роман, размести код тут.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

MetalFan

Дата 19.4.2011, 17:36 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Что то мне подсказывает, что тема эта для ЦП....

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

There are always someone smarter than you...

bems

Дата 19.4.2011, 22:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Обижено школьников: 8

ProgrammistRoman

Дата 20.4.2011, 16:57 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 6.6.2009
Где: Воронеж

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

Вот код:

Код


unit Pr5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TInfo    =  Integer;
  PLink = ^TLink;
  TLink =  record
    Info: TInfo;
    Next: PLink;
  end;
  TForm1 = class(TForm)
    ButtonExit: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    ButtonDelRand: TButton;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Button3: TButton;
    Procedure AddRandEl(Var p,beg: PLink);
    Procedure AddEl(Var p,beg: Plink);
    procedure dele(r:Plink; w:integer);
    Procedure PrintResult(p: PLink);
    Procedure PrintResult2(p: PLink);
    procedure ButtonExitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ButtonDelRandClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Var
  check: boolean;

Procedure TForm1.AddRandEl(Var p,beg: PLink);
Var
  k: integer;
begin
  k:=0;
  while k<StrToInt(Edit2.Text) do begin
    new(p);
    p.Info:=Random(100)-50;
    p.Next:=beg; beg:=p;
    Inc(k);
  end;
end;

Procedure TForm1.AddEl(Var p,beg: PLink);
Var
  i: integer;
begin
  With StringGrid1 do begin
    i:=0;
    while i<RowCount do begin
      if Cells[0,i]='' then begin
        ShowMessage('Ячейка под номером '+IntToStr(i)+' пуста!');
        check:=true;
        Exit;
      end;
      new(p);
      p.Info:=StrToInt(Cells[0,i]);
      p.Next:=beg; beg:=p;
      inc(i);
    end;
  end;
end;

procedure TForm1.dele(r:Plink; w:integer);
Var
  p: PLink;
begin
  if r^.Info=w then begin
    r^.Info:=r^.Next.Info;
    Dispose(r.next);
  end;
  if r.next<>nil then begin
    r:=r.Next;
    dele(r,w);
  end
  //Else
    //Dispose(r.Next);
end;

Procedure TForm1.PrintResult(p: PLink);
Var
  k: integer;
begin
  k:=0;
  while p<>nil do begin
    StringGrid1.Cells[0,k]:=IntToStr(p.Info);
    p:=p.Next;
    StringGrid1.RowCount:=k+1;
    Inc(k);
  end;
end;

Procedure TForm1.PrintResult2(p: PLink);
Var
  k: integer;
begin
  k:=0;
  while p.next<>nil do begin
    StringGrid1.Cells[0,k]:=IntToStr(p.Info);
    p:=p.Next;
    StringGrid1.RowCount:=k+1;
    Inc(k);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  With StringGrid1 do begin
    RowCount:=RowCount+1;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With StringGrid1 do begin
    RowCount:=RowCount-1;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  p,beg: PLink;
  w,i: integer;
begin
  if Edit1.Text='' then begin
    ShowMessage('Искомое поле пусто!');
    Exit
  end;
  p:=nil;
  beg:=nil;
  check:=false;
  AddEl(p,beg);
  if check=true then
    Exit;
  w:=StrToInt(Edit1.Text);
  Dele(beg,w);
  PrintResult2(beg);
end;

procedure TForm1.ButtonDelRandClick(Sender: TObject);
Var
  p,beg: PLink;
  w,i: integer;
begin
  if Edit1.Text='' then begin
    ShowMessage('Искомое поле пусто!');
    Exit
  end;
  p:=nil;
  beg:=nil;
  check:=false;
  AddRandEl(p,beg);
  w:=StrToInt(Edit1.Text);
  Dele(beg,w);
  PrintResult(beg);
end;

procedure TForm1.ButtonExitClick(Sender: TObject);
begin
  Close
end;

end.

ProgrammistRoman

Дата 23.4.2011, 20:41 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 6.6.2009
Где: Воронеж

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

Всё, не надо, я справился сам.
Здесь самое главное - рекурсивная процедура удаления элемента списка
Вот, если кому пригодится:

Код


unit Pr5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TInfo    =  Integer;
  PLink = ^TLink;
  TLink =  record
    Info: TInfo;
    Next: PLink;
  end;
  TForm1 = class(TForm)
    ButtonExit: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    ButtonDelRand: TButton;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Button3: TButton;
    Procedure AddRandEl(Var p,beg: PLink);
    Procedure AddEl(Var p,beg: Plink);
    procedure dele(r:Plink; w:integer);
    Procedure PrintResult(p: PLink);
    Procedure PrintResult2(p: PLink);
    procedure ButtonExitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ButtonDelRandClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Var
  check: boolean;

Procedure TForm1.AddRandEl(Var p,beg: PLink);
Var
  k: integer;
begin
  k:=0;
  while k<StrToInt(Edit2.Text) do begin
    new(p);
    p.Info:=Random(10);
    p.Next:=beg; beg:=p;
    Inc(k);
  end;
end;

Procedure TForm1.AddEl(Var p,beg: PLink);
Var
  i: integer;
begin
  With StringGrid1 do begin
    i:=RowCount-1;
    while i>=0 do begin
      if Cells[0,i]='' then begin
        ShowMessage('Ячейка под номером '+IntToStr(i)+' пуста!');
        check:=true;
        Exit;
      end;
      new(p);
      p.Info:=StrToInt(Cells[0,i]);
      p.Next:=beg; beg:=p;
      i:=i-1;
    end;
  end;
end;

procedure TForm1.dele(r:Plink; w:integer);
Var
  p:PLink;
begin
   if (r^.Next.Info=w)and(r.Next.Next=nil) then begin
    p:=r.Next.Next;
    Dispose(p);
    r.Next:=nil;
  end;

  if (r^.Info=w)and(r.Next<>nil) then begin
    r^.Info:=r^.Next.Info;
    p:=r.Next;
    r.Next:=r.Next.Next;
    Dispose(p);
  end;

  if (r.next<>nil)and(r.Next.Next<>nil) then begin
    r:=r.Next;
    dele(r,w);
  end
end;

Procedure TForm1.PrintResult(p: PLink);
Var
  k: integer;
begin
  k:=0;
  while p<>nil do begin
    StringGrid1.RowCount:=k+1;
    StringGrid1.Cells[0,k]:=IntToStr(p^.Info);
    p:=p.Next;
    Inc(k);
  end;
end;

Procedure TForm1.PrintResult2(p: PLink);
Var
  k: integer;
begin
  k:=0;
  while p<>nil do begin
    StringGrid1.RowCount:=k+1;
    StringGrid1.Cells[0,k]:=IntToStr(p.Info);
    p:=p.Next;
    Inc(k);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  With StringGrid1 do begin
    RowCount:=RowCount+1;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With StringGrid1 do begin
    RowCount:=RowCount-1;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  p,beg,r: PLink;
  w,i: integer;
begin
  if Edit1.Text='' then begin
    ShowMessage('Искомое поле пусто!');
    Exit
  end;
  p:=nil;
  beg:=nil;
  check:=false;
  AddEl(p,beg);
  if check=true then
    Exit;
  w:=StrToInt(Edit1.Text);
  r:=beg;
  Dele(beg,w);
  beg:=r;
  PrintResult2(beg);
  p:=nil;
end;

procedure TForm1.ButtonDelRandClick(Sender: TObject);
Var
  p,beg: PLink;
  w,i: integer;
begin
  if Edit1.Text='' then begin
    ShowMessage('Искомое поле пусто!');
    Exit
  end;
  p:=nil;
  beg:=nil;
  check:=false;
  AddRandEl(p,beg);
  w:=StrToInt(Edit1.Text);
  Dele(beg,w);
  PrintResult(beg);
  p:=nil;
end;

procedure TForm1.ButtonExitClick(Sender: TObject);
begin
  Close
end;

end.

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