 ПОЗНАВАТЕЛЬНОЕ Сила воли ведет к действию, а позитивные действия формируют позитивное отношение Как определить диапазон голоса - ваш вокал Игровые автоматы с быстрым выводом Как самому избавиться от обидчивости Противоречивые взгляды на качества, присущие мужчинам Вкуснейший "Салат из свеклы с чесноком" Натюрморт и его изобразительные возможности Применение, как принимать мумие? Мумие для волос, лица, при переломах, при кровотечении и т.д. Как научиться брать на себя ответственность Зачем нужны границы в отношениях с детьми? Световозвращающие элементы на детской одежде Как победить свой возраст? Восемь уникальных способов, которые помогут достичь долголетия Классификация ожирения по ИМТ (ВОЗ) Глава 3. Завет мужчины с женщиной
Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.
| Процедура для кнопки «Обчислити»
procedure TForm1.Button1Click(Sender: TObject); var kurs, suma:real; Begin kurs:=StrtoFloat(Edit1.Text); suma:=StrtoFloat(Edit2.Text); suma:=kurs*suma; Label4.Caption:=FloatToStr(suma); end; 5. Збережіть проект у папці Проект3_1. 6. Виконайте проект. 7. Закрийте проект. Завдання 2 Написати програму «Арифмометр» для двох заданих чисел, які вводяться з клавіатури (рис. 5). Арифмометр – це пристрій, який виконує чотири арифметичні операції над запропонованою кількістю чисел. Результати виконання програми виводяться у окремих вікнах (рис.6).
Порядок виконання 1. У папці ЛР-Delphiстворіть папку Проект3_2. 2. Відкрийте Delphi 7. 3. На заготовку форми, що з’явилася на екрані після запуску Delphi 7, помістіть два написи, два поля редагування, чотири стандартних кнопки відповідно до рисунка 7. 4. Встановіть значення властивостей компонентів згідно даних таблиці 7. Таблиця 7
Процедура_1 для кнопки «Додати» procedure TForm1.Button1Click(Sender: TObject); var suma:real; Begin suma:=StrToFloat(Edit1.Text)+ StrToFloat(Edit2.Text); ShowMessage(‘Сума ’+FloatToStr(suma)); end;
5. Збережіть проект у папці Проект3_2. 6. Запустіть проект та перевірте правильність його виконання. 7. Закрийте проект.
Завдання 3 Самостійно створити програму, яка за введеними значеннями довжини, ширини та висоти прямокутного паралелепіпеда виводить об’єм фігури. Програму зберегти у папці Проект 3_3, яку створити у своїй папці ЛР-Delphi.
Контрольні запитання 1. Назвіть основні типи даних у Delphi. 2. Що таке змінна і як вона описується в програмі? 3. Які типи констант використовуються у Delphi? Навести приклади. 4. Який вигляд має інструкція присвоєння і як вона виконується? 5. Назвіть декілька функцій перетворення і поясніть їх призначення. 6. Запишіть інструкцію введення даних з використанням функції Inputbox. 7. Наведіть приклад введення даних із поля редагування Edit. 8. Запишіть інструкцію виведення даних з використанням функції Showmessage. 9. Який компонент використовується для виведення даних? 10. Як записуються коментарі в програмі і для чого вони використовуються?
Література 1. Забарна А. Візуальне програмування у Delphi: Практикум/ А. Забарна, О. Войченко – К.: Вид.дім «Шкіл.світ»: Вид. Л.Галіцина, 2006 – 128 с. 2. Кащеєв Л.Б. Інформатика. Основи візуального програмування: Навч. Посібник/ Л.Б. Кащеєв, С.В. Коваленко, С.М. Коваленко. – Х.: Веста, 2011. – 192 с. 3. Ривкінд Й.А., Лисенко Т.І., Чернікова Л.А., Шакотько В.В.; за аг. Ред.. М.З. Згуровського. Інформатика: 11 кл.– К.: Генеза, 2011. – 304 с.
|
Процедуру_2, Процедуру_3 і Процедуру_4 відповідно для кнопок «Відняти», «Помножити» і «Поділити» записати самостійно по аналогії з Процедурою_1 для кнопки «Додати», врахувавши зміни знака для відповідних арифметичних операцій.