Предыдущая страница реферата | 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 | Следующая страница реферата