Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Урок по программированию в среде Delphi (8 класс)
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Урок по программированию в среде Delphi (8 класс)

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

Программирование в среде 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 отвечает за доступность объекта










Автор
Дата добавления 16.09.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров162
Номер материала ДA-047385
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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