Практична робота № 4 Робота у середовищі програмування Borland Delphi 7.0. Вивчення окремих об’єктів мови

Мета роботи: ознайомитись із такими об’єктами як форма, текстове поле, кнопка та їхніми основними властивостями, навчитись виводити текстові повідомлення, спливаючі підказки, використовувати команду розгалуження, застосовувати паролі.

Завдання 1 (низького рівня): ознайомитись із середовищем програмування Borland  Delphi7.0, розробити найпростішу програму, в якій виконати вивід і форматування тексту, та зберегти її.

Хід роботи

1. Завантажити середовище програмування Borland Delphi7.0.

2. Показати: меню, панель інструментів, палітру компонентів, інспектор об’єктів, форму, модуль.

3. Розробимо програму, в результаті виконання якої на форму виведеться текст ‘Це моя перша програма’. Для цього потрібно встановити на форму компонент Label1 із вкладки Standart. І в Інспекторі об’єктів змінити його властивість Caption з "Label1”на “Це моя перша програма”.

Щоб виконати програму можна використати інструмент, або натиснути клавішу F9. В результаті виконання програми на формі з’явиться текст. Після перегляду результату потрібно закрити форму з результатом, щоб знову повернутися в середовище розробки.

4. Форматувати  текст можна, використовуючи властивість Font компонента Label1. Щоб зробити це, потрібно встановити потрібні значення властивостей Color, Name, Size.

Додаткові завдання:

5. Самостійно вивести на форму ще один напис  - “2013” і змінити його розмір на 24, колір на червоний, шрифт на Impact.

6. Виконати програму.

7. Записати створений проект на диск у спеціально створену для цього проекту папку.

1 спосіб. В меню вибрати File/Save All.

2 спосіб. Натиснути комбінацію клавіш Shift+Ctrl+S.

8. Закрити проект. Для цього в меню вибрати File/Close All.

9. Відкрити новий проект. Для цього у меню вибрати File/New/ Application.

10. Самостійно створити програму, в результаті виконання якої на форму буде виводитись ваше Ім’я і прізвище шрифтом Comic Sans MS, розміру 22, синього кольору і сьогоднішня дата шрифтом Arial Narrow, розміру 14, червоного кольору.

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

Хід роботи

1. Завантажити середовище програмування Borland Delphi7.0.

2. Розмістити на формі компоненти: Edit1, Label1, Edit2, Button1, Label2 із закладки Standart.  

3. Змінити властивості компонентів, користуючись інспектором об’єктів:

Компонент	Властивість	Значення
Edit1	Text	Порожній рядок
Label1	Caption	+
Edit2	Text	Порожній рядок
Button1	Caption	=
Label2	Caption	Порожній рядок

4. Виконати подвійний клік на кнопці Button1 і ввести програмний код: 

procedure TForm1.Button1Click(Sender: TObject);

begin

Label2.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Еdit2.Text));

end;

5. Виконати програму, ввести цілі числа в поля вводу і натиснути кнопку. Ви отримаєте результат.

6. Зберегти і закрити результат виконання програми.

Додаткові завдання:

7. Доповнити програму так, щоб можна було виконувати віднімання і множення.

8. Вивести спливаючу підказку до компонента Edit1. Для цього в полі значення його властивості Hint ввести текст Доданок1 і встановити значення властивості ShowHint рівне True. Аналогічно вивести спливаючі підказки до всіх полів вводу, відповідно Доданок2, Зменшуване, Від’ємник, Множник1, Множник2.

9.Зберегти проект в окрему папку і закрити.

Завдання 3 (достатнього рівня): навчитись використовувати команду розгалуження у програмах, виводити текстове повідомлення в окремому вікні, вводити паролі.

Хід роботи

1. Завантажити середовище програмування Borland Delphi7.0.

2. Розмістити на формі компоненти Edit1, Label1, Edit2, Button1, Label2,  Label4, Label5 із закладки Standart.

3. Змінити властивості компонентів, користуючись інспектором об’єктів.

Компонент	Властивість	Значення
Edit1	Text	Порожній рядок
Label1	Caption	X  +
Edit2	Text	Мал1 Порожній рядок
Button1	Caption	Розв’язати рівняння
Label2	Caption	= 0
Label3	Caption	Х =

5. Виконати подвійний клік на кнопці Button1 і ввести програмний код:

procedure TForm1.Button1Click(Sender: TObject);

begin

if StrToInt(Edit1.text)<>0 then

Label4.Caption:=FloatToStr(-(StrToInt(Edit2.Text))/(2*StrToInt(edit1.Text)))

else ShowMessage(' Рівняння розв'язків немає');

end;

6. Виконати програму, ввести цілі числа в поля вводу і натиснути кнопку Button1. 

7. Виконати програму, ввести в якості першого коефіцієнта 0. На екрані з’явиться повідомлення.

8. Зберегти проект в окрему папку і закрити.

Додаткове завдання:

9. Відкрити новий проект. Встановити на форму компоненти Label1 i Edit1. Встановити властивість Caption  для Label1 “Ввести пароль”. Для Edit1 змінити значення властивості PasswordChar на *. Додати на форму кнопку «Гаразд». Написати для неї програмний код:

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit1.Text='2013' then ShowMessage('Yes') else ShowMessage('No');

end;

10. Виконати програму. В поле вводу ввести пароль 2013 і натиснути кнопку «Гаразд».

Після виконання 3 обов’язкових завдань студентам пропонується самостійне виконання завдань згідно варіанту, причому вони можуть, зважаючи на свої можливості, вибрати одне або більше із запропонованих завдань.

1. Виводити корінь введеного числа, якщо воно додатне, і підносити введене число до квадрату в протилежному випадку.

2. За введеними довжинами сторін прямокутника вивести його площу, якщо сторони рівні між собою, і периметр в протилежному випадку.

3. За введеним радіусом вивести площу, якщо введений радіус менший за 10, і довжину кола в протилежному випадку.

4. За введеною кількістю сторінок вивести суму, яку необхідно оплатити за їх друк. Причому, якщо ведена кількість сторінок більша за 10, то ціна за одну сторінку – 40 коп, інакше – 50 коп.

5. Вивести на екран запитання “Скільки сторін має трикутник?”. Дати можливість ввести відповідь. Якщо введена відповідь 3, то вивести повідомлення “Правильно”, інакше вивести плвідомлення “Неправильно”.

6. За введеними коефіцієнтами квадратного рівняння,  вивести його розв’язки.