Практична робота "Введення й виведення даних, робота зі змінними"
Практична робота № 6. Введення й виведення даних, робота зі змінними.
-
Відкрийте середовище Delphi 7 і створіть новий проект.
- Установіть для форми колір фону жовтий, розміри 50 на 150 пікселів, текст заголовка Практична №6.
- Розмістіть на формі дві кнопки, три поля.
- Задайте на першій кнопці текст Переміщення, на другій – Обчислення, у полів і написів – порожній текст.
- Розмістіть на формі біля кожного поля додаткові написи з текстами, що будуть пояснювати їхні призначення.
- Складіть обробник події OnClick першої кнопки, виконання якого приведе до переміщення форми на 50 пікселів управо та на 30 пікселів униз, кожного текстового поля – на 20 пікселів уліво та на 30 пікселів уверх і зробить їхній фон різнокольоровим (на власний смак).
- Запустіть проект та переконайтеся у правильності результатів.
-
Складіть обробник події OnClick другої кнопки, виконання якого приведе до:
- знаходження об’єму та площі повної поверхні прямокутного паралелепіпеда, вважаючи, що у поля будуть уведені довжини його ребер.
- Знаходження площі трикутника за трьома сторонами.
- Обчислення середнє арифметичне трьох чисел.
- Знаходження катета трикутника за заданим значенням гіпотенузи та іншого катета.
- Додайте до другого обробника події команду виведення повідомлення про об’єм паралелепіпеда у вікно повідомлень.
- Запустіть проект і переконайтеся у правильності результатів.
- Створіть у власній папці папку Практична 6 і збережіть у ній проект.
Додаткове завдання (12 балів):
Переробіть програму так, щоб для будь-якого трицифрового числа, введеного у текстове поле, виводилася сума його цифр у окремому вікні.
Практична робота № 6. Введення й виведення даних, робота зі змінними.
-
Відкрийте середовище Delphi 7 і створіть новий проект.
- Установіть для форми колір фону жовтий, розміри 50 на 150 пікселів, текст заголовка Практична №6.
- Розмістіть на формі дві кнопки, три поля.
- Задайте на першій кнопці текст Переміщення, на другій – Обчислення, у полів і написів – порожній текст.
- Розмістіть на формі біля кожного поля додаткові написи з текстами, що будуть пояснювати їхні призначення.
- Складіть обробник події OnClick першої кнопки, виконання якого приведе до переміщення форми на 50 пікселів управо та на 30 пікселів униз, кожного текстового поля – на 20 пікселів уліво та на 30 пікселів уверх і зробить їхній фон різнокольоровим (на власний смак).
- Запустіть проект та переконайтеся у правильності результатів.
-
Складіть обробник події OnClick другої кнопки, виконання якого приведе до:
- знаходження об’єму та площі повної поверхні прямокутного паралелепіпеда, вважаючи, що у поля будуть уведені довжини його ребер.
- Знаходження площі трикутника за трьома сторонами.
- Обчислення середнє арифметичне трьох чисел.
- Знаходження катета трикутника за заданим значенням гіпотенузи та іншого катета.
- Додайте до другого обробника події команду виведення повідомлення про об’єм паралелепіпеда у вікно повідомлень.
- Запустіть проект і переконайтеся у правильності результатів.
- Створіть у власній папці папку Практична 6 і збережіть у ній проект.
Додаткове завдання (12 балів):
Переробіть програму так, щоб для будь-якого трицифрового числа, введеного у текстове поле, виводилася сума його цифр у окремому вікні.
Поняття змінної. Поняття операції та виразу. Арифметичні операції.
Для введення даних під час виконання проекту використовують текстові поля. Об'єкт – Edit Для введення тексту використовується властивість - Text
Вправа 1 Створити процедуру натиснення на кнопку (On. Click), виконання якої дає змогу встановити довільний колір вікна та збільшити його висоту на довільну цілу кількість пікселів за допомогою текстових полів.
Розв'язанняprocedure TForm1. Button1 Click (Sender: TObject);begin. Form1. Color := Edit1. Text;Form1. Hight := Form1. Hight + Str. To. Int (Edit2. Text);end;
Вправа 2: Простий калькулятор, який буде додавати два довільні дійсні числа. Під час виконання проекту користувач вводить по одному довільному дійсному числу в кожне поле і вибирає кнопку із заголовком Додати.
Розв'язання
Змінні та їх властивостіЗмінні описуються у розділі VAR в межах коду процедури;У мові програмування Delphi кожна змінна має:ім’я – х, y, a і т.п;значення – 3, «текст», -2.5;тип. Опис змінних у коді:<ім’я змінної> := <вираз> ;
Типи змінних. Real – дійсний тип;Integer – цілий тип;String – текстовий тип.var <список імен змінних одного типу, розділених комою>: <ім’я типу>;<список імен змінних іншого типу, розділених комою>: <ім’я типу>;Наприклад: Var z, y: integer; x: real; r: string;Опис змінних у розділі змінних:
Функції перетворення типів. Str. To. Int – переведення тексту у ціле число;Str. To. Float – переведення тексту у дійсне число;Float. To. Str – переведення дійсного числа у текст
Засоби виведення інформаціїНапис – обєкт типу Label. Label1. Caption := Int. To. Str(x)Label1. Caption := ‘my ferst program’Label1. Caption := Float. To. Str(Edit. Text)команда Show. Message(<текст>)Show. Message('Сума '+Float. To. Str(z));
Математичні функції+, -, *, / - додавання, віднімання, множення, ділення; ^ - піднесення до степеня;Abs(x) – |x|;Sqr(x) – x*x;Sqrt(x) –;Trunc(x) – повертає цілу частину дійсного виразу. Round(x) – округлення. Int(x) - залишає цілу частину;5 div 2 = 2 - повертає цілу частину від ділення;3 mod 2 = 1 – повертає остачу від ділення;
Завдання Створіть програму, що відтворює роботу простого калькулятора за допомогою кнопок дії. Додайте кнопку для встановлення кольору фону;Задайте синій колір тексту для виведення результату у коді програми для кнопки «Відняти». Передбачте виведення запитання про збереження форми для кнопки «Закрити», у окремому вікні.
Вправа. Змінити текст у рядку заголовка, зменшить ширину форми на 150 пікселів, змінити положення кнопки і текст на ній:procedure TForm1. Button1 Click (Sender: TObject);begin. Form1. Color := cl. Blue;Form1. Caption := 'Значення властивостей змінилися';Form1. Width := Form1. Width – 150;Button1. Left := 60;Button1. Top := 100;Button1. Caption := 'Змінити!';end;
про публікацію авторської розробки
Додати розробку