2.3 Розробка програмного продукту «Проста програма»

Завдання. Ввести і вивести за допомогою компонентів TLabel, TEdit, TBatton значення змінних, заданих в таблиці згідно свого варіанту.

Конструктор форми зображено на рисунку 2.4

Рисунок 2.4 - Вікно робочої програми

Результати виконання програми зображені на рисунку 2.5

Рисунок 2.5- Вікно робочої програми

Текст програмного коду кнопки «Вивід даних»:

procedure TForm1.Button1Click(Sender: TObject);

var

F,N:string;

begin

F:=Edit1.text;

N:=Edit2.text;

Label3.Caption:='F='+F;

Label4.Caption:='N='+N;

end;

2.4 Розробка програмного продукту «Проста програма»

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

Конструктор форми зображено на рисунку 2.6

Рисунок 2.6

Результати виконання програми зображені на рисунку 2.7-2.8

Рисунок 2.7- Вікно робочої програми Рисунок 2.8- Вікно робочої програми

Як видно при натисканні на кнопку «Обчислити» обчисляється значення M та N, якщо х<у, то обчислюється M та N інакше обчислюється тільки N.

Текст программного коду кнопки «Обчислити»:

procedure TForm1.Button1Click(Sender: TObject);

label 1;

var

m,n,x,y,z:real;

i:integer;

begin

x:=StrToFloat(Edit1.Text); y:=StrToFloat(edit2.Text); z:=StrToFloat(edit3.Text);

i:=1;

1: if x<=y then

begin

m:=(0.8*cos(sqr(y))+sqr(x))/(1.3+sqr(cos(sqr(y))));

Label3.Caption:='M='+FloatToStrF(m,ffFixed,7,3);

end else begin

n:=(2*(sqrt(x)*x)*z+ln(x))/(exp(x+0.2)+sqr(y)+sqr(z));

Label4.Caption:='N='+FloatToStrF(n,ffFixed,7,3);

end;

y:=0.92;

i:=i+1;

if i<=2

then goto 1; end;

2.5 Розробка програмного продукту «Обмін валюти»

Завдання: створити форму з назвою «Обмін валюти», на якій можна змоделювати операції обміну валюти в обмінному пункті.

Конструктор форми зображено на рисунку 2.9

Рисунок 2.9

Результати виконання програми зображені на рисунку 2.10-2.11

Рисунок 2.10 та 2.11- Результати, отримані від операції купівлі та продажу

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

1. створити кнопку для очистки полів введення суми в доларах та обчисленої суми в гривнях;

2. забезпечити появу підказки при наведенні курсора миші на поля редагування курсів купівлі та продажу;

3. передбачити 1% збору у пенсійний фонд від операції купівлі-продажу;

4. передбачити зміну операцій при натисканні на стрілку;

Текст коду до завдання 1:

procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

end;

Для забезпечення появи підказки при наведенні курсора миші на поля редагування курсів купівлі та продажу було використано властивість Hint, значенням якої є «Введіть курс купівлі» для об’єкта Edit1та «Введіть курс продажу» для об’єкта Edit2 відповідно. Результати продемонстровані на рисунках 2.12 та 2.13.

Рисуноки 2.12 та 2.13– Поява підказки для об’єкта edit1 та edit2

Для того, щоб обчислити суму, яка повинна бути переведена до пенсійного фонду був використаний код:

p:=suma/100;

label5.Caption:='Збір до пенсійного фонду 1%='+FloatToStrF(p,ffFixed,0,2);

Suma – змінна, що має значення суми в гривнях. Даний фрагмент коду було додано до процедури натискання кнопки «Обчислити» (Button1Click).

Для того, щоб при натисканні на стрілку відбувалась зміна операції на протилежну була використана процедура:

Label4.Caption:= '<=' ;

radiobutton1.Checked:=true;

Наступним завданням було спростити форму та замінити код кнопки «Обчислити» так, щоб її можна було використати для переведення миль у кілометри і навпаки в залежності від положення перемикача. У створену форму додати пару об’єктів Checkbox для вибору звичайної або морської милі.

Конструктор форми продемонстровано на рисунку 2.12.

Рисунок 2.14

Результати виконання програми зображені на рисунках 2.15–2.16

Рисунки 2.15 та 2.16–Результат переведення з звичайної і морської милі в кілометри