Міністерство освіти і науки України

Український державний

хіміко-технологічний університет

ЛАБОРАТОРНИЙ ПРАКТИКУМ

по програмуванню в середовищі Delphi для студентів усіх спеціальностей

Дніпропетровськ УДХТУ 2005

Міністерство освіти і науки України

Український державний

хіміко-технологічний університет

ЛАБОРАТОРНИЙ ПРАКТИКУМ

по програмуванню в середовищі Delphi для студентів усіх спеціальностей

Затверджено

На засіданні кафедри ОТ та ПМ

Протокол №5 від 10.02.2005

Дніпропетровськ УДХТУ 2005

Методичні вказівки для проведення лабораторних робіт по програмуванню в середовищі Delphi для студентів усіх спеціальностей -Дніпропетровськ: УДХТУ. 2005.

Укладачі: О. В. Іванченко

Л. В. Підгорна

Відповідальний за випуск: С.І. Куліков

Навчальне видання

ЛАБОРАТОРНИЙ ПРАКТИКУМ

для проведення лабораторних робіт по програмуванню в Delphi для студентів усіх спеціальностей

Укладачі: Олександр Володимирович Іванченко

Людмила Віталіївна Підгорна

Вступ

Delphi – це середовище розробки програм, орієнтованих на роботу в операційних системах сімейства Windows. Програми в Delphi створюються на основі сучасної технології візуального проектування, яка, у свою чергу, базується на ідеях объектно-ориентированного програмування. Програми в Delphi пишуться алгоритмічною мовою Object Pascal, яка є спадкоємницею й розвитком алгоритмічної мови Turbo Pascal.

Методичні вказівки містять короткі теоретичні відомості, приклади та індивідуальні завдання по кожній темі. Метою даних методичних вказівок є надання допомоги студентам в освоєнні основних прийомів програмування на алгоритмічній мові Object Pascal і реалізація їх у середовищі Delphi

Елементи Палітри Компонентів

Елементи Палітри Компоненті࠲t@ࢂࢄࡼࢀࢬࡺࡴࡠ@¦иВЬИВдИ\˜ÂÄÊØb@䀦@(*࠸ࢬࢄࡴࡰ@䀦@ࡴࡼࡸࡾࡼࡺࡪࡺࢄࡰX@ࡾࢀࡰ࡮ࡺࡠࢎࡪࡺࢬ@ࡨࡶ࢞@ࡤࢬࡨࡼࡢࢀࡠ࡬ࡪࡺࡺ࢞@ࢄࡪࡴࢂࢄࡼࡤࡼࢮ@ࢬࡺ࢈ࡼࢀࡸࡠࢌࢬࢮ\@ࠤࢬࡨࡼࡢࢀࡠ࡬ࢆࡤࡠࡺࡰࡲ@ࡺࡰࡸࡰ@ࢄࡪࡴࢂࢄ@ࡸࡼ࡬ࡪ@ࡢࢆࢄࡰ@ࢀࡼ࡮ࢄࡠ࢐ࡼࡤࡠࡺࡰࡲ@ࢆ@ࡺࡰࢊ@࢞ࡴ@ࡺࡠ@ࡪࢄࡠࡾࢬ@ࡴࡼࡺࢂࢄࢀࢆ࢜ࡤࡠࡺࡺ࢞@࢈ࡼࢀࡸࡰX@ࢄࡠࡴ@ࢬ@ࡺࡠ@ࡪࢄࡠࡾࢬ@ࡤࡰࡴࡼࡺࡠࡺࡺ࢞@ࡾࢀࡼࡦࢀࡠࡸࡰ\ŠÈÒèb@䀦@

Рядок уведення – компонент, призначений для введення символьного рядка.

Button1 –

Кнопка – компонент, призначений для формування події при натисканні на нього.

Memo1 –

Текстовий редактор Memo може містити на відміну від рядка введення Edit не одну, а будь-яке число рядків.

Панель перемикачів RadioGroup –

Панель перемикачів призначена для формування групи регулярно розміщених радіокнопок (перемикачів), із яких у будь-який момент часу може бути включена тільки одна.

Елементи Палітри Компонентів: сторінка Additional.

StringGrid1 –

Таблиця String Grid призначена для відображення двовимірної інформації, наприклад, елементів матриці. У таблиці може знаходитися довільна кількість рядків і стовпців.

Компонент Chart –

Компонент Chart є панеллю, на якій можна створювати діаграми й графіки різних типів.

Список вимикачів CheckListBox –

Список вимикачів CheckListBox відображає список рядків з індикаторами (незалежними вимикачами).

Лабораторна робота №1 Тема: Обчислення площі кругу довільного радіуса.

Розв’язання

1. Створимо нову папку, у яку надалі помістимо усі файли, що входять у проект.

2. Запустимо Delphi.

3. З і сторінки Standard Палітри Компонентів розташуємо на формі

Form1 чотири компоненти: Label1, Label2, Edit1 і Button1:

4. Для компонента Form1 установимо наступні властивості:

• Left –200

• Top – 170

• Width – 450

• Height – 200

• Caption – 'Обчислення площі кругу'

5. Для компонента Label1 установимо наступні властивості:

• Left –20

• Top – 30

• Width – 250

• Height – 15

• Caption – 'Уведіть радіус кола і натисніть кнопку 'Рахунок''

6. Для компонента Label2 установимо наступні властивості:

• Left –120

• Top – 70

• Width – 15

• Height – 15

• Caption – ' '

7. Для компонента Edit1 установимо наступні властивості:

• Left –300

• Top – 25

• Width – 70

• Height – 20

• Text – ' '

8. Для компонента Button1 установимо наступні властивості:

• Left –180

• Top – 120

• Width – 80

• Height – 30

• Caption – 'Рахунок'

9. Переходимо до етапу написання коду програми.

Ми повинні написати оброблювач події OnClick для компонента Button1. Для цього необхідно зробити подвійний щиглик лівою кнопкою по Button1

procedure TForm1.Button1Click(Sender: TObject);

var r,s:real;

begin

r := StrToFloat(Edit1.Text);

s := pi*sqr(r);

label2.Caption := 'Площа кругу дорівнює '+

FloatToStrF(s,ffGeneral,7,2)

end;

10. Збережемо проект за допомогою команди головного меню File|Save All і запустимо його на виконання, використовуючи функціональну клавішу F9.

Лабораторна робота №2 Тема: Лінійний обчислювальний процес

Вираз – це послідовність, що складається з констант, імен, операцій, стандартних функцій. Значення виразу обчислюється послідовно зліва направо і з урахуванням пріоритетів операцій.

Пріоритет операцій

Назва операції	Пріоритет
@, not	найвищій
*, /, div, mod, as, and, shi, shr	другий за найвищім
+, -, or, xor	середній
=, <>, <, >, <=, >=, in, is	найнижчій

Стандартні математичні функції

Математичний вираз	Запис мовою Delphi	Значення, що повертається	Тип результату
|x|	Abs(x)	Абсолютна величина числа	Збігається з типом x
sin x	Sin(x)	Синус аргументу	real
cos x	Cos(x)	Косинус аргументу	real
arctg x	Arctan(x)	Арктангенс аргументу	real
х2	Sqr(X)	квадрат аргументу:	real
	Sqrt(x)	Корінь квадратний з аргументу	real
	Pi	число : 3.1415926535897932385	real
ex	Exp(x)	Експонента	real
ln x	Ln(x)	Натуральний логарифм	real
	a Mod b	Залишок від ділення цілих чисел	Integer
	a Div b	Ціла частина від ділення цілих чисел	integer
	Int(X)	ціла частина аргументу	integer
	Frac(X)	дрібна частина аргументу: X-Int(X)	real
	Round(X)	округлення до найближчого цілого значення аргументу	integer
	ODD(X)	визначення парності
	SUCC(X)	визначення наступного значення
	PRED(X)	визначення попереднього значення
	TRUNC(X)	відкидання дробової частини
	ORD(X)	визначення порядкового номера
	CHR(X)	визначення символу по порядковому номері

Математичні функції, що використовуються модулем Math

Математичний вираз	Запис мовою Delphi	Значення, що повертається	Тип результату
ab	Power(a,b)	Число a у ступені b	real
	Power(a,1/n)	Число a у ступені 1/n	real
tg x	Tan(x)	Тангенс аргументу	real
ctg x	CoTan(x)	Котангенс аргументу	real
arcsin x	Arcsin (x)	Арксинус аргументу	real
arccos x	Arccos (x)	Арккосинус аргументу	real
loga x	LogN(a,x)	Логарифм числа x по основі a	real

Приклад 1.

Обчислити значення змінних a і b при заданих значеннях x=3,981, y=-1,625, z=2.

Розв’язання

1. Створимо нову папку.

2. Запустимо Delphi.

3. Зі сторінки Standard Палітри Компонентів на Form1 розташуємо три компоненти Edit, чотири компоненти Label і компоненти Button і Memo:

4 . Для мітки Label1 установимо властивість Caption рівним 'Лінійний обчислювальний процес', а для Label2 ,Label3 і Label4: 'X=', 'Y=' і 'Z=' відповідно.

5. Для компонентів Edit1, Edit2 і Edit3 установимо значення властивості Text рівним порожньому рядку.

6. Для компонента Memo1 виберемо властивість Lines і клацнемо по кнопці з трьома крапками. У вікні, що з'явилося, String list editor видалимо рядок 'Memo1'.

7. Для кнопки Button1 установимо властивість Caption рівним 'Розв’язання'.

8. Створимо оброблювач події OnClick для кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z,a,b:real;

begin

x := StrToFloat(Edit1.Text);

y := StrToFloat(Edit2.Text);

z := StrToFloat(Edit3.Text);

a := power(2,-x)*sqrt(x+power(abs(y),1/4));

b := power(cos(x),3)/(2+sin(x))+exp(z+1);

Memo1.Clear;

Memo1.Lines.Add('Результат:');

Memo1.Lines.Add('a = '+FloatToStr(a));

Memo1.Lines.Add('b = '+FloatToStr(b));

end;

9. Збережемо проект за допомогою команди File|Save All і запустимо його на виконання, використовуючи функціональну клавішу F9.

Примітка: При виконанні цього прикладу необхідно використовувати функції модуля Math. Тому у тексті програми після службового слова Uses слід додати ім’я модуля, тобто: Uses … ,Math;

де … - список імен модулів, що необхідні при роботі даної програми (додаються автоматично).