Проект1. «Простий калькулятор»
Задача. Розробити проект в якому можна знаходити суму двох введених чисел, різницю, добуток та частку.
1. Задайте формі потрібних розмірів та назву формі «Калькулятор»
2. Розмістіть на формі потрібні компоненти за зразком, а саме два компоненти Edit, Label1, чотири кнопки Button для математичних дій та кнопки : Очистка та Вихід.
3. Для того, щоб мітка не змінювала свої розміри під час роботи проекту, слід присвоїти їй властивості Autosize значення False. Для мітки краще вибрати білий колір – властивість Color.
4. Переходимо у вікно коду та оголошуємо змінні після слів var Form1: TForm1;
a, b, r: Real;
5. Для кожної з кнопок створюємо відповідні процедури, текст яких буде виглядати так:
procedure TForm1.Button1Click(Sender: TObject);// очистка
begin
Edit1.Clear;
Edit2.Clear;
Label1.Caption:='';
end;
procedure TForm1.Button3Click(Sender: TObject);//сума
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a+b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button4Click(Sender: TObject);// різниця
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a-b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button5Click(Sender: TObject);//добуток
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a*b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button6Click(Sender: TObject);//частка
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a/b;
Label1.Caption:=FloatToStr(r);
end;
Для переведення рядкових величин в дійсні числа при читанні чисел з Edit1 та Edit2 використано функцію перетворення StrToFloat.
Проект2. «Інженерний калькулятор»
Задача. Доповнити проект «Простий калькулятор» додатковими функціями, а саме: sin, cos, tg, ctg , квадрат числа, корінь квадратний, модуль тощо.
1. Відкрийте проект «Простий калькулятор»
2. Поставте на форму ті компоненти, які потрібно для цього проекту.
3. Запрограмуйте кнопки для виконання потрібних функцій: sin, cos, tg, ctg, x^2, sqrt, abs, x^3. Для цього потрібно двічі клацнути на потрібну кнопку і написати відповідний код програми.
4. Відповідні процедури повинні бути записані таким чином:
procedure TForm1.Button9Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=Sin(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=cos(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=Sin(a)/cos(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=cos(a)/Sin(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=Sqr(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=Sqrt(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=abs(a);
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
r:=a*a*a;
Label1.Caption:=FloatToStr(r);
end;
Проект3. «Cтандартні функції мови Object Pascal»
1) Запустіть Delphi
2) Створіть проект для обчислення виразу:
Дайте назву проекту: Обчислення виразу.
3) Розмістіть на формі потрібні компоненти та задайте потрібні властивості за зразком.
4) На формі розмістіть компонент Image для вставки напису виразу, Label1, Label2, Edit1, Edit2 та дві кнопки Button: Обчислити та Вихід.
5) Опишіть змінні x, y типу real .
6) Для кнопки Обчислити напишіть процедуру для обчислення виразу та виводу результату в поле Edit2.
Код процедури буде мати такий вигляд:
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=sqr(x)+sqrt(abs(sin(x)+cos(x)))-sqr(sin(x));
Edit2.Text:=FloatToStrf(y,ffNumber,6,3);
end;
Щоб вивести число у певному форматі використали таку функцію: FloatToStrf(y,ffNumber,6,3), де 6 – всіх цифр в результаті, 3 – кількість цифр після коми.
Кнопку Вихід запрограмуйте так:
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
