Практична робота № 8. Тема: Створити проект "тест з інформатики"

1. Постановка задачі

Створити програму, за допомогою якої можна виконати:

після запуску програми з'являється зображення аналогічне Рис. 1. Користувач за своїм розсудом обирає один з перемикачів у групі. Залежно від правильності відповідей з'являється одне з повідомлень "Погано", "Задовільно", "Добре", "Відмінно".

Рис. 1

Рис. 2

Пояснення: новими в цій програмі є група перемикачів RadioGroup на сторінці палітри компонентів Standard й оператор висновку повідомлень ShowMessage.

2.План розробки програми

1. Відкрити новий проект.

2. Розмістити у формі компоненти відповідно до рис. 1 і привласнити заголовки міткам і панелям.

3. Виконати наступні дії:

   Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
   Label1	Propeties	Caption	Перша радянська обчислювальна машина
   Label2	Propeties	Caption	Основоположник алгебри логіки
   Label3	Propeties	Caption	Об'єм блоку пам’яті
   Label4	Propeties	Caption	Автор першого обчислювального пристрою
   Label5	Propeties	Caption	Енергозалежна пам'ять
   RadioGroup1	Propeties	Caption	Видалити заголовок.
   		Columns (кількість відображуваних стовпчиків)	5
   		Items	Викликати String List Editor, двічі клацнувши мишкою поруч із властивістю Items. Увести 5 рядків: Урал-1 М-20 ЭВ-60 МЭСМ БЭСМ Уведений текст зберегти у файлі t1.txt.
   RadioGroup2	Propeties	Caption	Видалити заголовок.
   		Columns	4
   		Items	Увести 4 рядки: Лейбниц Буль Фарадей Паскаль Уведений текст зберегти у файлі t2.txt.
   RadioGroup3	Propeties	Caption	Видалити заголовок.
   		Columns	4
   		Items	Увести 4 рядки: 1024 байт 512 байт 1.5 Кбайт 2 Кбайт Уведений текст зберегти у файлі t3.txt.
   RadioGroup4	Propeties	Caption	Видалити заголовок.
   		Columns	4
   		Items	Увести 4 рядки: Бэббидж Паскаль Фарадей Лавлейс Уведений текст зберегти у файлі t4.txt.
   RadioGroup5	Propeties	Caption	Видалити заголовок.
   		Columns	3
   		Items	Увести 3 рядки: ПЗУ ОЗУ Зовнішня Уведений текст зберегти у файлі t5.txt.

4. Зберегти проект з ім'ям, наприклад, Pr7.pas й Pr7.dpr

5. Для підсумку балів, що набирає користувач, виконаєте наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
RadioGroup1	Events	OnClick	sum:=0; іf RadioGroup1.ItemIndex = 3 Then sum := sum+1; Пояснення: Індекс першого перемикача дорівнює 0. Правильну відповідь містить перемикач із міткою МЭСМ, що має індекс 3.

Цілочисельну змінну sum необхідно оголосити в розділі var перед розділом implementation.

6. Вставте в оброблювач подій RadioGroup2.OnClick, RadioGroup3.OnClick, RadioGroup4.OnClick, RadioGroup5.OnClick аналогічні коди, з урахуванням правильних відповідей, але без обнулення змінної sum, тому що воно необхідно лише один раз перед першим використанням.

7. Виведемо на контрольну панель підсумкове повідомлення залежно від набраної суми балів.

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
RadioGroup5	Events	OnClick	Case sum of 0..2: Panel1.Caption:='Погано!'; 3: Panel1.Caption:='Задовільно!'; 4: Panel1.Caption:='Добре!'; 5: Panel1.Caption:='Відмінно!'; end;

8. Вивести повідомлення про закінчення тестування, додавши в оброблювач подій RadioGroup5.OnClick код:

ShowMessage('Кінець тесту');

9. Зберегти проект остаточно, запустити й протестувати його.