Линейные списки. Стек. Дек. Очередь
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферати, сочинение 5 класс
| Добавил(а) на сайт: Губанов.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Inc(j); if Edit1.Text[j] = ' ' then Inc(i); end;
Image1.Left := Round(9 + (j + 1) * 7.5); end; end;
procedure TForm1.Button7Click(Sender: TObject);
var qListTwo: ListTwo; i, j: Integer;
begin
StatusBar1.Panels[0].Text := ''; qListTwo := ListTwoBegin; i := 0; if ListTwoPos 0 then dec(ListTwoPos); i := 0; j := 0; while i < ListTwoPos do begin
Inc(j); if Edit2.Text[j] = ' ' then Inc(i); end; if ListTwoPos = 0 then Image2.Left := 9 else Image2.Left := Round(9 + (j + 1) * 7.5); end;
procedure TForm1.Button8Click(Sender: TObject);
var qListTwo: ListTwo; i, j: Integer;
begin
StatusBar1.Panels[0].Text := ''; qListTwo := ListTwoBegin; i := 0; while i ListTwoPos do begin qListTwo := qListTwo^.Next;
Inc(i); end; if qListTwo nil then begin if qListTwo^.Next nil then Inc(ListTwoPos); i := 0; j := 0; while i < ListTwoPos do begin
Inc(j); if Edit2.Text[j] = ' ' then Inc(i); end;
Image2.Left := Round(9 + (j + 1) * 7.5); end; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DestroyList(ListBegin);
DestroyListTwo(ListTwoBegin);
DestroyList(QueueBegin);
DestroyList(Stack);
DestroyListTwo(DeckBegin);
Application.Terminate;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text := 'Нельзя !!!';
Memo1.Lines.Add('В стеке нельзя возвращаться в начало т.к. указатель
указывает сразу на начало;');
end;
procedure TForm1.Button16Click(Sender: TObject);
var i: Integer; s: string;
begin
StatusBar1.Panels[0].Text := '';
GetStack(Stack); if Stack nil then begin while Edit4.Text[StackPos] ' ' do Inc(StackPos);
Inc(StackPos); s := Edit4.Text; for i := 1 to StackPos - 1 do if s[i] ' ' then s[i] := ' ';
Edit4.Text := s; end else begin
ShowMessage('Стек пуст');
Edit4.Text := '';
Image4.Hide;
Button14.Enabled := False;
Button15.Enabled := False;
Button16.Enabled := False;
StatusBar1.Panels[1].Text := 'Стек пуст'; end;
Image4.Left := Round(StackPos * 7);
end;
procedure TForm1.Button20Click(Sender: TObject);
var i: Integer; s: string;
begin
StatusBar1.Panels[0].Text := '';
GetDeckBegin(DeckBegin); if DeckBegin nil then begin while Edit5.Text[DeckBeginPos] ' ' do Inc(DeckBeginPos);
Inc(DeckBeginPos); s := Edit5.Text; for i := 1 to DeckBeginPos - 1 do if s[i] ' ' then s[i] := ' ';
Edit5.Text := s; end; if (DeckBegin = nil) and (DeckBegin = DeckEnd) then begin
ShowMessage('Дек пуст');
Edit5.Text := '';
Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.
Категории:
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Главная