Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

RadioGroup1.Items.Add('Все включения исключения происходят на обоих его концах'); end;

7: begin if RadioGroup1.ItemIndex = 2 then Inc(NumberTrueAnswer);

Memo1.Lines.Add('Откуда считывается элемент из очереди?');

RadioGroup1.Items.Clear;

RadioGroup1.Items.Add('С конца');

RadioGroup1.Items.Add('С начала');

RadioGroup1.Items.Add('Из люього места'); end;

8: begin if RadioGroup1.ItemIndex = 1 then Inc(NumberTrueAnswer);

Memo1.Lines.Add('Куда добавляется элемент в стек?');

RadioGroup1.Items.Clear;

RadioGroup1.Items.Add('В конец');

RadioGroup1.Items.Add('В начало');

RadioGroup1.Items.Add('В любое место'); end;

9: begin if RadioGroup1.ItemIndex = 0 then Inc(NumberTrueAnswer);

Memo1.Lines.Add('Какую ссылку содержит последний элемент циклического списка?');

RadioGroup1.Items.Clear;

RadioGroup1.Items.Add('На первый элемент');

RadioGroup1.Items.Add('На предыдущий элемент');

RadioGroup1.Items.Add('NIL'); end;

10: begin if RadioGroup1.ItemIndex = 0 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;

11: begin if RadioGroup1.ItemIndex = 3 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;

12: begin if RadioGroup1.ItemIndex = 5 then Inc(NumberTrueAnswer);

Button1.Hide; if NumberTrueAnswer >= 10 then ShowMessage('Ваша оценка -
ОТЛИЧНО!'); if (NumberTrueAnswer >= 8) and (NumberTrueAnswer < 10) then
ShowMessage('Ваша оценка - ХОРОШО!'); if (NumberTrueAnswer >= 6) and (NumberTrueAnswer < 8) then
ShowMessage('Ваша оценка - ТРИ!'); if NumberTrueAnswer < 6 then begin

ShowMessage('Тебе однозначно нужно почитать теорию. Твоя оценка
- Два!!!'); ff := False; end;

Form16.Hide;

Form1.Show; if not ff then Form18.Show; end; end; end;

procedure TForm16.FormClose(Sender: TObject; var Action: TCloseAction); begin
Form16.Hide;
Form1.Show; if not ff then Form18.Show; end;

end.

-----------------------

4

2

1

3

5

Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.



Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки