💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Створення оброблювачів подій FormCreate і ButtonClick

Процедури - оброблювачі подій FormCreate і ButtonClick створюються аналогічно тому, як і в другій лабораторній роботі. Текст процедур приведений нижче. Запустите програму і переконаєтеся в тому, що всі гілки алгоритму виконуються правильно. Форма приведена на рис. 1. Текст програми приведений нижче.

Рис. 1

unit unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

CheckBox1: TCheckBox;

RadioGroup1: TRadioGroup;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text: = '0, 1'; // Початкове значення Х

Edit2.Text: = '0, 356'; // Початкове значення Y

Edit3.Text: = '0'; // Початкове значення Z

Memo1.Clear; //Очищення вікна редактори Memo1

// Виведення рядка в багаторядковий редактор Memol

Memo1.Lines.Add('Ла6.раб.N3. Ст.гр. 2ЭК Іванов А.А.');

end;

procedure TForm1.Button1Click(Sender: TObject);

var x, y, z, a, u, ma: Extended;

begin

x: = StrToFloat(Edit1.Text);

//Зчитується значення X

Memo1.Lines.Add('Х = '+Edit1.Text);

// Виведення Х в вікно Memol

Y: = StrToFloat(Edit2.Text);

// Зчитується значення Y

Memo1.Lines.Add('Y ='+Edit2.Text);

// Виведення Y у вікно Memol

Z: = StrToFloat(Edit3.Text);

// Зчитується значення Z

Memo1.Lines.Add('Z = '+Edit3.Text);

//Перевірка номера натиснутої кнопки і вибір відповідної їй функції

case RadioGroup1.ItemIndex of

0: u: = cos(x);

1: u: = sin(x);

2: u: = sin(x)/cos(x);

end;

// Виведення U у вікно Memol

Memo1.Lines.Add('U = ' + FloatToStr(U, fffixed, 8, 2));

//Перевірка стану кнопки CheckBox1

if CheckBox1.Checked then

begin

u: = abs(u);

y: = abs(y);

z: = abs(z)

end;

//Знаходження максимального з трьох чисел

if u> y then ma: = u else ma: = y;

if z> ma then ma: = z;

if Checkbox1.checked then

Memo1.Lines.Add('maxabs=' + FloatToStrF(ma, fffixed, 8, 2))

else

Memo1.Lines.Add('max=' + FloatToStrF(ma, fffixed, 8, 2));

end;

end.