Линейные списки. Стек. Дек. Очередь
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферати, сочинение 5 класс
Добавил(а) на сайт: Губанов.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Button10.Enabled := False;
Button11.Enabled := False;
Button12.Enabled := False;
StatusBar1.Panels[1].Text := 'Очередь пуста'; end;
Image3.Left := Round(QueuePos * 7);
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
StatusBar1Panels[0].Text := 'Нельзя !!!';
Memo1.Lines.Add('В очерди нельзя возвращаться в начало т.к. указатель
указывает сразу на начало;');
end;
procedure TForm1.Button22Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button21Click(Sender: TObject);
var q: List; qTwo: ListTwo; qQueue, rQueue: List;
Info: Integer;
FlagList: Boolean; qStack: List; qDeckBegin, qDeckEnd: ListTwo; qRoundList: List; // начало циклич. списка
begin
Button1.Enabled := True;
Button2.Enabled := True;
Button3.Enabled := True;
Button4.Enabled := True;
Button5.Enabled := True;
Button6.Enabled := True;
Button7.Enabled := True;
Button8.Enabled := True;
Button9.Enabled := True;
Button10.Enabled := True;
Button11.Enabled := True;
Button12.Enabled := True;
Button13.Enabled := True;
Button14.Enabled := True;
Button15.Enabled := True;
Button16.Enabled := True;
Button17.Enabled := True;
Button18.Enabled := True;
Button19.Enabled := True;
Button20.Enabled := True;
Button23.Enabled := True;
Button24.Enabled := True;
Button25.Enabled := True;
Button26.Enabled := True;
Image1.Visible := True;
Image2.Visible := True;
Image3.Visible := True;
Image4.Visible := True;
Image5.Visible := True;
Image6.Visible := True;
Image7.Visible := True;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit7.Text := '';
StatusBar1.Panels[0].Text := '';
StatusBar1.Panels[1].Text := '';
CreateLists; q := ListBegin; qTwo := ListTwoBegin; while q nil do begin
Edit1.Text := Edit1.Text + ' ' + IntToStr(q^.Info); q := q^.Next; end;
Image1.Left := 9;
ListPos := 0; while qTwo nil do begin
Edit2.Text := Edit2.Text + ' ' + IntToStr(qTwo^.Info); qTwo := qTwo^.Next; end;
Image2.Left := 9;
ListTwoPos := 0;
FlagList := True; while QueueBegin nil do begin
Info := GetQueue(QueueBegin);
Edit3.Text := Edit3.Text + ' ' + IntToStr(Info);
AddToQueue(Info, qQueue); if FlagList then begin
FlagList := False; rQueue := qQueue; end; end;
QueueBegin := rQueue;
QueuePos := 2;
Image3.Left := 9; while Stack nil do begin
Info := GetStack(Stack);
Edit4.Text := Edit4.Text + ' ' + IntToStr(Info);
AddToStack(Info, qStack); end;
Stack := qStack;
Memo1.Lines.Add('В стеке числа идут на оборот т.к. элементы считываются
из конца стека.');
StackPos := 2;
Image4.Left := 9; while DeckEnd nil do begin
Info := GetDeckEnd(DeckEnd);
Edit5.Text := Edit5.Text + ' ' + IntToStr(Info);
AddToDeck(Info, qDeckBegin, qDeckEnd, 0); end;
DeckBegin := qDeckBegin;
DeckEnd := qDeckEnd;
DeckBeginPos := 2;
Image5.Left := 9;
Memo1.Lines.Add('Дек прочитывался с начала, поэтому элементы записались
по порядку.');
DeckEndPosition := 1; while Edit5.Text[DeckEndPosition] '' do Inc(DeckEndPosition);
Image6.Left := Round(9 + DeckEndPosition * 6.2);
Dec(DeckEndPosition);
DeckEndPos := DeckEndPosition; qRoundList := RoundList^.Next;
Edit7.Text := ' ' + IntToStr(RoundList^.Info); while qRoundList RoundList do begin
Edit7.Text := Edit7.Text + ' ' + IntToStr(qRoundList^.Info); qRoundList := qRoundList^.Next; end;
Image7.Left := 9;
RoundListPos := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text := 'Нельзя !!!';
Memo1.Lines.Add('В однонаправленном списке нельзя перемещаться назад, т.к. связь существует толко в одну сторону;');
end;
procedure TForm1.Button4Click(Sender: TObject);
var qList: List; i, j: Integer;
begin
StatusBar1.Panels[0].Text := ''; qList := ListBegin; i := 0; while i ListPos do begin qList := qList^.Next;
Inc(i); end; if qList nil then begin if qList^.Next nil then Inc(ListPos); i := 0; j := 0; while i < ListPos do begin
Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата