АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Практическая работа №9

Читайте также:
  1. II. УЧЕБНАЯ, НАУЧНАЯ И ОБЩЕСТВЕННАЯ РАБОТА
  2. III. Производственная работа
  3. IV. Работа в режиме быстрой маски
  4. IV. Работа жюри и награждение победителей
  5. V. Работа с рисунками – символами, иллюстрациями
  6. А можно ли так работать с опухолью?
  7. А) рабочего времени, затраченного на механизированные работы к общему отработанному времени на данный объем продукции или работ
  8. Алгоритм расчета и условия выплаты премии работникАМ, работающиМ по программе кредитования малого бизнеса
  9. Аудиторная работа
  10. Б. Работа стали на продольный изгиб
  11. Блок ЛДМ. Назначение , работа схемы при приёме сигнала ТУ на ЛП.
  12. Блок ЦС ДЦ «Нева». Назначение, работа схемы при формировании и передаче сигнала ЦС

Разработка проекта ТЕСТ ПО ИНФОРМАТИКЕ

Постановка задачи

Создать программу, выполняющую следующие действия.

После запуска программы появляется изображение аналогичное рисунку 16. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений "Плохо", "Удовлетворительно", "Хорошо", "Отлично".

Новым в этой работе являются: · группа переключателей RadioGroup на странице палитры компонентов Standard, · оператор вывода сообщений ShowMessage.

План разработки программы, №9

1. Открыть новый проект.

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

3. Выполнить следующие действия:

Выделенный объект Вкладка окна Object Inspector Имя свойства/ Имя события Значение/Действие
Label1 Properties Caption Первая советская вычислительная машина
Label2 Properties Caption Основоположник алгебры логики
Label3 Properties Caption Объем блока начальной загрузки
Label4 Properties Caption Автор первого счетного устройства
Label5 Properties Caption Энергозависимая память
RadioGroup1 Properties Caption Удалить заголовок
Columns  
Items Вызвать String List Editor, дважды щелкнув мышкой рядом со свойством Items. Ввести 5 строк: Урал-1 М-20 ЭВ-60 МЭСМ БЭСМ Введенный текст сохранить в файле t1.txt.
RadioGroup2 Properties Caption Удалить заголовок
Columns  
Items Ввести 4 строки: Лейбниц Буль Нейман Паскаль Введенный текст сохранить в файле t2.txt.
RadioGroup3 Properties Caption Удалить заголовок
Columns  
Items Ввести 4 строки: 1024 байт 512 байт 1.5 Кбайт 2 Кбайт Введенный текст сохранить в файле t3.txt.
RadioGroup4 Properties Caption Удалить заголовок
Columns  
Items Ввести 4 строки: Бэббидж Паскаль Нейман Лавлейс Введенный текст сохранить в файле t4.txt.
RadioGroup5 Properties Caption Удалить заголовок
Columns  
Items Ввести 3 строки: ПЗУ ОЗУ Внешняя Введенный текст сохранить в файле t5.txt.

 

4. Сохранить проект под именем, например, Unit8.pas и Pr8.dpr.

5. Для суммирования набираемых пользователем баллов выполните следующие действия:

Выделенный объект Вкладка окна Object Inspector Имя свойства/ Имя события Значение/Действие
RadioGroup1 Events OnClick sum:=0; If RadioGroup1.ItemIndex=3 Then sum:=Sum+1; Пояснение: Индекс первого переключателя равен 0. Правильный ответ содержит переключатель с меткой МЭСМ, имеющий индекс 3.

Целочисленную переменную sum необходимо объявить в разделе Var перед разделом implementation.

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

7. Выведем на контрольную панель итоговое сообщение в зависимости от набранной суммы баллов.

Выделенный объект Вкладка окна Object Inspector Имя свойства/ Имя события Значение/Действие
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. Сохранить проект окончательно, запустить и протестировать его.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)