лабораторна робота_5. Проект жартівливе тестування
Скачать 69 Kb.
|
Проект 5. «ЖАРТІВЛИВЕ ТЕСТУВАННЯ»Мета роботи - створити програму, за допомогою якої можна б було проводити тестування. В нашій програмі використовується жартівливий тест. Після запуску програми необхідно поставити позначки на вірних, на вашу думку, відповідях. Для перевірки клацніть на кнопку "Перевірити" Для виходу з програми необхідно нажати мишею на кнопці "Вихід". Опис плану розробки програми 1. Відкрити|відчиняти| новий проект. 2. Розмістити на формі екземпляри компонентів: мітку Label (4 шт.), дві кнопки Button, RadioGroup (2 шт.), RadioButton (6 шт.) 3. Виконати наступні дії з таблиці: Таблиця 4.
Починаємо програмування. Використовуємо умовний оператор "Якщо...то...інакше..." . На мові програмування цей оператор звучить таким чином: IF…THEN…ELSE.. IF | <умова> THEN| <гілка "Так"> ELSE | <гілка "Ні"> Як повинна працювати програма? Користувач вибирає відповідь із запропонованих, потім натискуємо кнопку "Перевірити". Програма перевіряє, чи правильно вибрані відповіді. Якщо правильна відповідь - виводимо відповідь "Вірно" і відключаємо кнопку "Перевірку" Інакше - відповідна відповідь і даємо можливість продовжити тест. Отже, програмувати необхідно кнопку "Перевірити". Редактор коду програми: procedure TForm1.Button1Click(Sender: TObject); begin if radioButton3.Checked then Begin label3.Caption:=' ; button1.Enabled:=True; End else label3.Caption:=' 'Помилка'; if radioButton5.Checked then Begin label4.Caption:='Вірно'; button1.Enabled:=false; End else label4.Caption:=' Помилка'; button1.Enabled:=false; end; Пропишемо кнопку виходу з програми одним словом "Close" 4. Збережіть проект, запустіть і протестуйте його. 5. Використовуючи даний проект за зразок, розробити програму тестування з 10 питань з інформатики за темами: - середовище програмування; - алгоритмічні конструкції; - текстовий процесор; - табличний процесор; - масиви; - типи даних; - процедури та функції роботи з рядками; - робота з файлами; - архітектура комп`ютера; - програмне забезпечення; |