Создание теста в Delphi

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: решебник по физике, реферат значение
| Добавил(а) на сайт: Dovmont.

12..13:a:=6;

14..15:a:=7;

16:a:=8;

17..18:a:=9;

19..20:a:=10; end; case bb of

0..1:b:=1;

8,9:b:=8;

11,12:b:=10; else b:=bb; end;

…

end; end; end; end;

{Отображение результата} case a of {Фактор А}

1..5:begin

FormTest.Memo1.Lines.Add('"Шизотермия"');

…

end; end; end;

{добавление вопросов в Memo} procedure addtest; begin if nomer=1 then begin nomer:=nomer+1; clear;

FormTest.memo1.Lines.Add('1. Я хорошо понял инструкцию, которую только что прочитал:');

FormTest.RadioGroup1.Items.Add('а) Да;');

FormTest.RadioGroup1.Items.Add('в) не уверен;');

FormTest.RadioGroup1.Items.Add('с) нет.'); end else begin if nomer