Смоленский техникум электронных приборов

Сборник лабораторных работ

по дисциплине

«Основы алгоритмизации и программирования»

Раздел «Интегрированная среда Delphi»

Смоленск

2007

Содержание

Лабораторная работа №13 3

Изучение среды разработчика 3

Лабораторная работа № 14 5

События в Delphi 5

Лабораторная работа №15 13

Примеры создания модулей 13

Лабораторная работа №16 15

Примеры использования компонентов Label, Edit, Memo 15

Лабораторная работа №17 18

Примеры использования командных кнопок 18

Лабораторная работа№18 21

Изучение методов и свойств 21

Пример использования компонентов RadioGroup и CheckListBox, Radiobutton, CheckBox. 28

Лабораторная работа№20 35

Примеры использования компонентов ListBox и ComboBox. 35

Лабораторная работа№21 40

Примеры использования компонента StringGrid. 40

Лабораторная работа №22 46

Отладка программ 46

Лабораторная работа№23 50

Примеры использования компонентов Image, Shape, Timer. 50

Лабораторная работа №24 54

Работа с формами 54

Лабораторная работа№25 62

Примеры использования компонента MainMenu и PopupMenu. 62

Лабораторная работа№26 68

Примеры использования компонентов OpenDialog, SaveDialog и FontDialog. 68

Лабораторная работа№27 72

Создание мультимедийных приложений. 72

Лабораторная работа№28 78

Печать текстовая и графическая. 78

Лабораторная работа№29 80

Работа с базами данных 80

Лабораторная работа№30 86

Сортировка и фильтрация данных 86

86

Лабораторная работа№31 90

Вычисляемые поля. Перенос полей на форму 90

Лабораторная работа №13 Изучение среды разработчика

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

Студент должен

знать:

главные части рабочей среды программирования Delphi

уметь:

• создавать оконные приложения,

• создавать выполняемый файл для Windows,

• сохранять проект.

Задания.

Рассмотрите приведенный ниже пример, создайте проект Delphi, сохраните проект.

Найти сумму целых чисел от 0 до введенного числа.

procedure TForm1.Button1Click(Sender: TObject);

var

N, Sum, i: Integer;

S: String;

begin

N := StrToInt(ed.Text);

Sum := 0; // Начальное значение суммы

if N>=0 then // Анализ знака N

for i := 1 to N do // - положительное число

Sum := Sum+i

else

for i := -1 downto N do // - отрицательное число

Sum := Sum+i;

// Вывод результата:

S := 'Сумма всех целых чисел в диапазоне от 0 до ';

label1.Caption:=S+ed.Text+' равна '+IntToStr(Sum);

end;

end.

II. Создайте проекты, согласно варианту задания.

Варианты заданий:

1. Определить большее из трех чисел А, В, С.

2. Ввести координаты точки и определить в какой четверти координатной плоскости она расположена

3. Определить поместится ли круг радиусом R в квадрате со стороной А.

4. Найти корни уравнения А*Х²=В.

5. Найти корни уравнения А*Х³+В*Х=0.

6. На плоскости расположена окружность с центром в начале координат. Ввести координаты точки и определить находиться ли она на окружности.

7. В продаже книг принимает участие ЭВМ. Составить программу, которая запрашивает стоимость книги, сумму денег, внесенную покупателем; определяется сдача (если денег внесено больше), печатается "СПАСИБО" (если сдачи не требуется) или выдается сообщение о недостаточности внесенной суммы.

В ЭВМ поступают результаты соревнований по плаванию для трех спортсме­нов. Вывести лучший результат.

8. Составить программу, которая выводит словесное описание оценок 5, 4, 3.

9. Пассажирский самолет может поднять груз общей массой 30 тонн. Составить программу для определения массы почтового груза после посадки пассажи­ров. Средний вес одного пассажира 55 кг. Предусмотреть ввод числа пассажи­ров.

10. В ЭВМ поочередно вводятся числа: положительные, отрицательные и равные нулю. Составить программу, которая после каждого ввода числа выводит соответствующее сообщение о нем.

11. Составить программу, определяющую число корней уравнения Х²=А в за­висимости от А.

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

13. Ввести два действительных числа и вывести те из них, которые принадлежат отрезку [1,31].

Контрольные вопросы:

1. Назовите главные части рабочей среды программирования Delphi

2. Как создавать оконные приложения?

3. Как создавать выполняемый файл для Windows?

4. Как сохранять проект Delphi?