![]()
Главная Обратная связь Дисциплины:
Архитектура (936) ![]()
|
Інструкція до практичної роботи № 17
Тема:Введення й виведення даних, робота зі змінними. Мета:придбати практичні навички розміщення на формі елементів керування та настроювання їх властивостей. Обладнання:ЕОМ «Сeleron» Завдання Введення й виведення даних, робота зі змінними. Хід роботи: 1. Запустимо середовище Delphi 2. Поставити на форму необхідні об’єкти за допомогою сторінки палітри Standard.
3. Задати їх відповідні властивості:
4. Для кнопок +, – , *, / потрібно записати код програми:
5. Перевірити правильність виконання програми, відредагувати її при наявності в ній помилок (командами Run-Run або F9). 6. Cкомпілювати створений проект функціональними клавішами F9; 7. Зберегти створений проект командою File-Save Project As…у папці 1 курс – папка вашої спеціальності - файл ПР_17 Контрольні питання 1.Як створити форму? 2. Які активні елементи застосовуються в ці роботі? 3. Що таке змінна? 4. Що таке компоненти Delphi 5. За допомогою якої закладки можна змінити подію кнопок +, – , *, /? 6. За допомогою якої команди можна зберегти створений проект?
Інструкція до практичної роботи № 18. Тема:Складання програм з розгалуженнями. Мета:навчитися складати програми, що мають розгалужену структуру. Обладнання:ЕОМ «Сeleron» Завдання Створити форму з назвою "Обмін валюти", на якій можна змоделювати операції обміну валюти в обмінному пункті (див. зразок форми на рис.). Хід роботи 1. Запустимо середовище Delphi 2. Поставити на форму необхідні об’єкти.
3. Задати їм відповідні властивості.
4. Для кнопки RadioButton2 потрібно записати код програми. procedureTForml.RadioButton2Click(Sender: TObject); I Begin Label3.Caption: = ‘р’; end;
5. Для кнопки RadioButton1 потрібно записати код програми. procedureTForml.RadioButton2Click(Sender: TObject); I Begin Label3.Caption: = ‘п’; end;
6. Для кнопки Button1 потрібно записати код програми. procedureTForml.ButtonlClick(Sender: TObject); varkursl, kurs2, suma : real; cod : integer; ed : string[9]; Begin Val (Editl .Text, kursl, cod); Val (Edit2.Text, kurs2, cod); Val (EditS.Text, suma, cod); ifRadioButton2.Checked = True then suma:= suma * kurs2 Else suma := suma * kursl; Str(suma:9:2, ed); Edit4.Text := ed; end;
7. Для кнопки Button2 потрібно записати код програми. procedureTForml.Button2Click(Sender: TObject); I begin end;
8. Cкомпілювати створений проект функціональними клавішами Ctrl+F9. 9. Перевірити працездатність програми F9. 10. Зберегти створений проект командою File-Save Project As…у папці 1 курс – папка вашої спеціальності - файл ПР_18 Висновок Контрольні питання. 1. Поняття розгалуження? 2. Що називають алгоритмам з розгалуженням? 3. Що пишеться між begin таend; 4. Що таке інспектор об’єктів? 5. Зо допомогою якої клавіші можна активувати інспектор об’єктів?
![]() |