35. Проверка знаний по теме: Создание программ в среде программирования Delphi

Цель занятия: Проверка полученных знаний, умений и навыков работы в среде программирования Delphi.

1 Задание.

Вариант №1.

1. Форма, свойства формы, основные компоненты формы.

2. В среде программирования Delphi: нарисовать звёздное небо, состоящее из случайных точек

3. Организуйте работу следующим образом: при нажатии на левую кнопку мыши на форме цвет формы меняется на красный, а в поле ввода появляется строка «Здравствуйте, господа», а при нажатии на кнопку Button2 цвет формы меняется на аквамариновый, а в поле ввода появляется строка «До свидания, господа».

4. Написать программу – для рисования простейших геометрических фигур: прямоугольника, эллипса, линии.

Вариант №2.

1. Основные компоненты страницы Standard.

2. В среде программирования Delphi: нарисовать дом и солнце.

3. Организуйте работу следующим образом: если в поле ввода Edit введено число, большее 21, то свойству Caption для метки Label присвойте значение «Почему Вы сегодня работаете?», иначе полю Memo1 присвоить значение «Почему Вы сегодня учитесь?».

4. Написать программу для рисования линии выбранным стилем и цветом.

Вариант №3.

1. Основные компоненты страницы Additional.

2. В среде программирования Delphi: нарисовать прямоугольник, одна сторона которого в 2 раза больше второй, и закрасить его произвольным цветом.

3. Составить программу, которая возводит число, вводимой с клавиатуры в поле Edit1 в квадрат.

4. Написать программу для рисования квадрата выбранным цветом и стилем линии.

Вариант №4.

1. Основные компоненты страницы Win32.

2. В среде программирования Delphi: Выведите на экран перемещающееся изображение солнца.

3. Составить программу нахождения модуля введённого числа.

4. Написать программу для рисования эллипса заданным цветом и стилем линии.

Вариант №5.

1. Основные компоненты страницы Data Access и Data Control.

2. В среде программирования Delphi: нарисовать орнамент:

3. Создание консольного приложения для решения задачи: вычислить количество символов «&» в данной строке символов.

4. Написать программу для рисования и заливки прямоугольника выбранным цветом.

2 задание. Найдите и исправьте ошибки в программном коде:

procedure TForm1.Button(Sender: TObject);

begin

if IntToStr(Edit1.Text)>21 then

begin

Edit1.Caption:='';

Memo1.Text:='Почему Вы сегодня учитесь?';

end;

e

43

nd;

3 задание. В данной таблице заполните пропуски данными:

Комбинация клавиш	Действие
Shift+Ctrl+C
Ctrl+лев. кн. мыши
	Всплывающий список шаблонов процедур, функций, массивов, стандартных операторов, констант и т. д.
	Копирует выделенную часть текста.
	Вырезает выделенную часть текста..
	Вставляет текст из буфера.
Ctrl+Z
	Выполняет отмененное действие.
	Удаляет выделенный текст.
Shift+End	.
	Закрывает текущий модуль.
Ctrl+S
Alt+G
	Находит введенный фрагмент текста.
Ctrl+Y
	Всплывающий список классов, объектов, методов, свойств и т. д.
Ctrl+	Переход курсора на слово правее данного.
Ctrl+	Переход курсора на слово левее данного.