Линейные списки. Стек. Дек. Очередь
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферати, сочинение 5 класс
Добавил(а) на сайт: Губанов.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата
Button1: TButton;
RadioGroup1: TRadioGroup;
Button2: TButton; procedure RadioGroup1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{ Private declarations } public
{ Public declarations } end;
var
Form16: TForm16;
NumberQuestion: Integer = 0;
NumberTrueAnswer: Integer = 0; ff: Boolean = True;
implementation
uses Unit1, Un18_Lab;
{$R *.DFM}
procedure TForm16.RadioGroup1Click(Sender: TObject);
begin
Button1.Enabled := True;
Button1.SetFocus;
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
Form16.Hide;
Form1.Show;
end;
procedure TForm16.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Button1.Enabled := False;
Inc(NumberQuestion); case NumberQuestion of
1: begin if RadioGroup1.ItemIndex = 0 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Однонаправленный список - это ...');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('Список, элементы которого имеют связь со следующим и предыдущим элементом');
RadioGroup1.Items.Add('Список, элементы которого имеют связь со следующим элементом');
RadioGroup1.Items.Add('Список, элементы которого не имеют связи'); end;
2: begin if RadioGroup1.ItemIndex = 1 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Если элемент содержит ссылки на следующий и предыдущий элемент, то это ...');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('однонаправленный список');
RadioGroup1.Items.Add('двунаправленный список');
RadioGroup1.Items.Add('очередь');
RadioGroup1.Items.Add('стек');
RadioGroup1.Items.Add('дек');
RadioGroup1.Items.Add('циклический список'); end;
3: begin if RadioGroup1.ItemIndex = 1 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Куда добавляется элемент в двунаправленный список?');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('В начало');
RadioGroup1.Items.Add('В конец');
RadioGroup1.Items.Add('В любое другое место'); end;
4: begin if RadioGroup1.ItemIndex = 2 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Чем отличается однонаправленный список от двунаправленного?');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('Существует связь с предыдущим элементом');
RadioGroup1.Items.Add('Не существует связь с предыдущим элементом');
RadioGroup1.Items.Add('Не отличаются'); end;
5: begin if RadioGroup1.ItemIndex = 1 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Какой элемент считывается из стека?');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('Последний');
RadioGroup1.Items.Add('Любой');
RadioGroup1.Items.Add('Первый'); end;
6: begin if RadioGroup1.ItemIndex = 0 then Inc(NumberTrueAnswer);
Memo1.Lines.Add('Чем отличается дек от стека?');
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('Добавление в любом место. Удаление из начала');
RadioGroup1.Items.Add('Добавление в начало. Удаление из любого места');
Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата