Створення додатка речового поділу в середовищі Delphi

[ виправити ] текст може містити помилки, будь ласка перевіряйте перш ніж використовувати.

скачати

Кафедра: автоматика і інф. технології
Лабораторна робота
На тему:
"Створення додатка речового поділу в середовищі Delphi".
Єкатеринбург, 2008

Завдання 1. Створіть додаток, реалізує введення двох цілих чисел, по клацанню на кнопці з символом "=" обчислює результат операції речового поділу та виводить значення результату на екран.
Рішення:
Запустіть Delphi і створіть новий проект (див. лаб. Роб. № 1). У вікні Save As створіть нову папку для файлів проекту, папку назвіть "Речовий розподіл". Потім відкрийте створену папку і задайте в полі Ім'я файлу ім'я main і клацнете по кнопці Зберегти. Після збереження файлу модуля main. Pas відкриється вікно збереження проекту Save Project As, в якому слід задати ім'я файлу проекту Delenie, а потім натиснути кнопку Зберегти.
1. Змініть властивості форми. Змініть напис в заголовку форми за допомогою Інспектора об'єктів у властивості Caption задайте нове значення "Речовий поділ двох цілих чисел".
2. Розмістіть на формі компоненти Edit1, 2, 3, Label1, 2, 3, 4 і Button1, як показано на рис.2. Видаліть текст Edit1, 2, 3 з відповідних компонентів (скористайтеся властивістю Text).
3. Задайте властивість Caption компонента Label1 значення "/", компонента Label2 значення "подільності", для Label3 - "Дільник", для Label4 - "Приватне", для Button1 - "=". Змініть розміри символів і накреслення відповідних компонентів (див. лаб. Роб. № 1).
SHAPE \ * MERGEFORMAT
Ділене
Дільник
Приватне
/
=
Речовий поділ двох цілих чисел

Рис.2 Приклад форми з компонентами
Щоб додаток виконувало обчислення при клацанні мишею на кнопці з зображенням "=", слід написати код обробки цієї події.
4. Вибілити на формі компонент Button1, потім на сторінці події двічі клацніть мишею на порожньому полі списку в події OnClick. Після цього курсор отримає фокус у вікні Редактора коду.
5. У розділ опису змінних слід ввести наступне:
Var
A, b: integer;
C: real;
У тіло обробки події введіть текст:
A: = StrToInt (Edit1. text);
B: = StrToInt (Edit2. text);
C: = A / B;
Edit3. Text: = FloatToStrF (c, ffGeneral, 7,4); {перетворення дійсного числа в текстову рядок}
6. Запустіть програму на виконання за допомогою команди RUN і перевірте результат роботи.
Завдання 2. Доповніть програму обробника події таким чином, щоб перед операцією ділення виконувалася перевірка дільника на рівність нулю. У випадку рівності нулю замість поділу у вікні Edit3 повинно відображатися повідомлення "На нуль ділити не можна".
Рішення: для цього вставте в процедуру обробника події TForm1. Button1Click оператор if then else.
У тіло процедури введіть додатковий текст:
If b <> 0 then begin
C: = A / B;
Edit3. text: = FloatToStrF (c, ffGeneral, 7,4);
End
Else
Edit3. Text: = 'На нуль ділити не можна! ';
Збережіть зміни і запустіть програму на виконання.
Завдання 3. Змініть програму, щоб повідомлення "На нуль ділити не можна!" виводилося червоним кольором.
Рішення: для цього доповніть код наступним оператором:
Edit3. Font. Color: = clRed; {встановити червоний колір шрифту}
Відкомпілюйте і запустіть програму на виконання. Перевірте її роботу, задаючи різні варіанти вирішення. Зверніть увагу, що у разі введення в якості подільника нуля, повідомлення виводиться червоним кольором. Причому колір шрифту залишається червоним, навіть якщо при наступній ітерації дільник не дорівнював нулю. Щоб відновити чорний колір шрифту у вікні Edit3, доповніть код модуля перед оператором if then else наступним рядком:
Edit3. Font. Color: = clBlack; {встановити чорний колір шрифту}
Збережіть зміни і перевірте роботу програми. Зверніть увагу, що текст повідомлення "На нуль ділити не можна" відображається не цілком.
Завдання 4. Змініть програму, щоб ширина вікна Edit3 змінювалася в ході виконання програми.
Рішення: для того, щоб ширина вікна Edit3 змінювалася в ході виконання програми, відредагуйте код модуля доповнивши його наступними операторами:
Edit3. Width: = 130; {збільшення ширини компонента Edit3}
Edit3. Width: = 81; {відновити первинну ширину}
Збережіть зміни і запустіть програму на виконання.
Завдання 5. Змініть програму таким чином, щоб текст "На нуль ділити не можна" виводився в окремому вікні.
Рішення:
Щоб не вносити зміни в проект, створений в попередніх завданнях, збережіть проект під новим ім'ям Delenie2, а текст програми під ім'ям - main2. Pas.
Відредагуйте текст модуля main2 наступним чином:
Begin
A: = StrToInt (Edit1. text);
B: = StrToInt (Edit2. text);
Edit3. text: = '';
If b = 0 then ShowMessage ('На нуль ділити не можна!')
Else begin
C: = A / B;
Edit3. text: = FloatTo Str (C);
End;
End;
Додати в блог або на сайт

Цей текст може містити помилки.

Програмування, комп'ютери, інформатика і кібернетика | Лабораторна робота
9.8кб. | скачати


Схожі роботи:
Створення Web-додатків в середовищі Delphi
Створення таблиць за допомогою SQL-запитів в середовищі DELPHI 2
Створення таблиць за допомогою SQL запитів в середовищі DELPHI
Створення таблиць за допомогою SQL-запитів в середовищі DELPHI
Створення розрахункових додатків і програми пошуку в базі даних у середовищі Delphi 7 0
Створення розрахункових додатків і програми пошуку в базі даних у середовищі Delphi 1970
Створення компіляція та налагодження простого додатка
Основи програмування в середовищі Delphi 7 0
Обробка файлів в середовищі Delphi
© Усі права захищені
написати до нас