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

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

Ход работы.

1. Запустим среду Delphi и создадим новую форму (File → New → Form).

2. Используя компоненты, размещенные на странице Additional палитры создать форму, на которой разместить следующие активные объекты: Edit, Label, Button, Memo, и из палитры Standard выбрать объект – BitBtn

Метки Label1, Label2, Label3, которые переименовать соответственно на xn, xk та h с соответствующими свойствами Font (шрифт) – Синий, размером 14, жирный. Для этого одновременно отделим пять объектов: держа нажатой клавишу Shift, поочередно активизируйте объекты, щелкая на них левой клавишей мыши. Очистите поле редактирования Label1, Label2, Label3 -для этого удалите значение свойства Text для объектов.

Метки Button1, Button2, BitBtn1, которые переименовать соответственно на Вычислить, Очистить и Выход по соответствующим свойствам Font (шрифт) – Черный, размером 16, жирный.

1. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки:

procedure TForm1.Button1Click(Sender: TObject);

var

Form1: TForm1;

y, xn, xk, h, t, x: real;

begin

xn: =strtofloat(Edit1.Text);

xk: =strtofloat(Edit2.Text);

h: =strtofloat(Edit3.Text);

x: =xn;

repeat

t: =x-1;

if t< 0 then

memo1.Lines.Add('x='+FormatFloat('0.00', x)+' Нет решения')

else

begin

y: =sqrt(t)+cos(3*x);

memo1.Lines.Add('x='+FormatFloat('0.00', x)+' y='+FormatFloat('0.00', y));

end;

x: =x+h;

until x> xk;

end;

2. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки:

procedure TForm1.Button2Click(Sender: TObject);

begin

memo1.Lines.Clear;

end;

3. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

1. Скомпилировать созданный проект функциональной клавишей F9.

2. Проверить работоспособность программы по своиму варианту.

3. Сохранить созданный проект командой File-Save Project As… в папке 1 курс – папка вашей специальности - файл ПР_19

Контрольные вопросы

1. Что такое цикл?

2. Перечислить виды циклов.

3. Что такое тело цикла?

4. Отличие между циклами с пред условием и условием после?

5. Какими функциональными клавишами осуществляется переход из кода программы на форму?

6. Какая функция преобразует строку в числовой формат?