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

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

Запуск програми

Запустити програму можна, натиснувши Run у головному меню Run, або клавішу F9, або піктограму. При цьому відбувається трансляція і, якщо немає помилок, компонування програми і створення єдиного файлу, що завантажується, з розширенням.exe. На екрані з'являється активна форма програми (Рис. 2.1)

Робота з програмою відбувається в такий спосіб. Натисніть (клацніть мишею) кнопку “Виконати”. У вікні Memo1 з'являється результат. Зміните вихідні значення x, y, z у вікнах Edit і знову натисніть кнопку “Виконати” - з'являться нові результати.

Завершити роботу програми можна натиснувши або Program Reset у головному меню Run, або кнопку (на формі.

Текст програми має вигляд:

unit unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

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: = '3, 4'; // Початкове значення Х

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

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

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

// Висновок рядка в многострочный редактор Memo1

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

end;

procedure TForm1.Button1Click(Sender: TObject);

var x, y, z, a, b, c, u: Extended;

begin

x: = StrToFloat(Edit1.Text);

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

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

// Висновок X у вікно Memo1

Y: = StrToFloat(Edit2.Text);

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

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

// Висновок Y у вікно Memo1

Z: = StrToFloat(Edit3.Text);

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

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

// Висновок Z у вікно Memo1

// Обчислюємо арифметичне вираження

a: = Sqr(Sin(x+y)/Cos(x+y));

b: = Exp(y-z);

C: = Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));

U: = a - b * C;

//Виводимо результат у вікно Memo1

Memo1.Lines.Add(Результат U: = '+ FloatToStr(u, fffixed, 8, 3));

end;

end.

4. Індивідуальні завдання

Прочитайте в додатку опис меню File, Edit, Run, а також компонентів TEdit, TMemo, TButton. За допомогою інспектора об'єктів зміните колір форми, шрифт виведених символів.

Варіанти завдання

Обчислити значення функції:

1.
2.
3.
4.
5.
6.
7.
8.	= 5arctg
9.
10.	= +sin arctg(z)
11.	=
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.