Линейные списки. Стек. Дек. Очередь
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферати, сочинение 5 класс
Добавил(а) на сайт: Губанов.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
Image5.Hide;
Image6.Hide;
Button18.Enabled := False;
Button19.Enabled := False;
Button20.Enabled := False;
StatusBar1.Panels[1].Text := 'Дек пуст'; end;
Image5.Left := Round(DeckBeginPos * 7);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Windows.SetFocus(Button21.Handle);
end;
procedure TForm1.Button19Click(Sender: TObject);
var i, a: Integer; s: string;
begin
StatusBar1.Panels[0].Text := '';
GetDeckEnd(DeckEnd); if DeckEnd nil then begin while Edit5.Text[DeckEndPos] ' ' do Dec(DeckEndPos);
Dec(DeckEndPos); s := Edit5.Text; for i := DeckEndPosition downto DeckEndPos + 1 do if s[i] ' ' then s[i] := ' ';
Edit5.Text := s;
//удаляем все пробелы конце строки s := ''; i := Length(Edit5.Text) - 1; while Edit5.Text[i] = ' ' do Dec(i); for a := 1 to i do s := s + Edit5.Text[a];
Edit5.Text := s; end; if (DeckEnd = nil) and (DeckBegin = DeckEnd) then begin
ShowMessage('Дек пуст');
Edit5.Text := '';
Image5.Hide;
Image6.Hide;
Button19.Enabled := False;
Button20.Enabled := False;
StatusBar1.Panels[1].Text := 'Дек пуст'; end;
Image6.Left := Round(DeckEndPos * 7 - 9);
end;
procedure TForm1.Button5Click(Sender: TObject); begin
Form5.Show; end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DeleteFromList(ListPos);
DoNewEditList;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
DeleteFromListTwo(ListTwoPos);
DoNewEditListTwo;
end;
procedure TForm1.Button10Click(Sender: TObject);
var i, a: Integer; s1, s2: string;
begin
GetQueue(QueueBegin); if QueueBegin nil then begin i := QueuePos; while (Edit3.Text[i] ' ') and (i " служат для перемещения курсора по
списку.');
Memo1.Lines.Add(' а) Переместитесь влево до 3, 5 и последнего
элемента;');
Memo1.Lines.Add(' б) Переместитесь вправо до первого элемента (см.
коментарии);');
Memo1.Lines.Add(' Кнопка "Добавить" служит для добавления элемента в
список.');
Memo1.Lines.Add(' а) Добавьте после 3, 5, 7 элемента цифру 33 в обоих
списках;');
Memo1.Lines.Add(' б) Добавте 1-м и 3-м элементом цифру 55 в
двунаправленном списке;');
Memo1.Lines.Add(' Кнопка "Удалить" служит для удаления элемента из
списка.');
Memo1.Lines.Add(' а) Удалите 3, 5, 7 элементы в однонаправленном
списке;');
Memo1.Lines.Add(' б) Удалите последний, 1 и 3 элементы в
двунаправленном;');
Memo1.Lines.Add('');
Memo1.Lines.Add('3. На листе формата А4, опишите ход проделанной
работы.');
Memo1.Lines.Add(' Ответьте на поставленные вопросы:');
Memo1.Lines.Add(' 1) Обратите внимание как перемещается курсор?');
Memo1.Lines.Add(' 2) Чем отличается однонаправленный и двунаправленный
списки?');
Memo1.Lines.Add(' 3) Можно ли добавить элемент в любое место списка?');
Memo1.Lines.Add(' 4) Можно ли удалить любой элемент из списка?');
end;
procedure TForm1.N31Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(' Лабораторная работа №3.');
Memo1.Lines.Add(' "Циклический список"');
Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата