Инфоурок / Информатика / Другие методич. материалы / Delphi. Викторина "Страны мира"
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Я люблю природу», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 15 ДЕКАБРЯ!

Конкурс "Я люблю природу"

Delphi. Викторина "Страны мира"




Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


библиотека
материалов

Программирование в среде Delphi

Викторина «Столицы мира»


  1. Создать новый проект

  2. Свойству Caption для формы установить значение «Викторина»

  3. Расположить на форме элементы управления по образцу

hello_html_m475252f.gif










  1. Для свойства Caption объектов Button установить значения в соответствии с образцом, т.е. для объекта Button1 – Вопрос 1, для объекта Button2 – Вопрос 2 и т.д.

  2. На событие Create для формы (procedure TForm1.FormCreate(Sender: TObject) написать код, чтобы рисунки сделать невидимыми:

procedure TForm1.FormCreate(Sender: TObject);

begin

Button1.Visible:=false;

Button2.Visible:=false;

Button10.Visible:=false;

End;


  1. Для каждой кнопки на событие Click написать процедуру для вывода вопроса и ввода ответа. Введенный ответ будет присвоен переменной S. Если ответ правильный, по соответствующий рисунок становится видимым, а кнопка недоступной

procedure TForm1.Button10Click(Sender: TObject);

var

s:string;

begin

s:=inputbox('Викторина', 'Столица Великобритании',' ');

if Ansilowercase(s)='лондон' then

begin

image10.visible:=true;

Button10.Enabled:=false;

end

else showmessage('Нужно лучше учить географию!');

end;






Пояснения:

1. Функция Ansilowercase(s) преобразует символы строки S к нижнему регистру

2. Диалоговая функция inputbox('заголовок окна', 'сообщение', ' х ') выводит диалоговое окно с сообщением и полем для ввода ответа. Параметр х является необязательным, он определяет координаты вывода диалогового окна

3. Для того, чтобы по кнопке можно было сделать только один щелчок, после каждого ответа кнопка должна стать недоступной. Функция Enabled отвечает за доступность объекта
















Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 13 декабря. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДВ-073815
Курсы профессиональной переподготовки
133 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 13 декабря
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>