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

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

Конструирование программ для разветвляющихся вычислительных процессов

О Т Ч Е Т

ПО ЛАБОРАТОРНЫМ РАБОТАМ

по курсу:

Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И

ЯЗЫКИ ПРОГРАММИРОВАНИЯ"

Минск - 2007

Лабораторная работа №2

КОНСТРУИРОВАНИЕ ПРОГРАММ ДЛЯ РАЗВЕТВЛЯЮЩИХСЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ

Цель лабораторной работы: научиться пользоваться стандартными компонентами организации переключений (TCheckBox, TradioGroup и др.). Используя компонентами организации переключений разработать интерфейс и программу для заданного разветвляющегося алгоритма.

Задание: ввести два числа - x, b. Вычислить по усмотрению одно из трёх выражений. Найти по желанию произведение двух чисел: r=x*b.

Листинг программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

CheckBox1: TCheckBox;

RadioGroup1: TRadioGroup;

Memo1: TMemo;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text: ='2';

Edit2.Text: ='6';

CheckBox1.Checked: =True;

RadioGroup1.ItemIndex: =2;

Memo1.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x, b, r, xb: real;

begin

Memo1.Clear;

x: =StrToFloat(Edit1.Text);

b: =StrToFloat(Edit2.Text);

case RadioGroup1.ItemIndex of

0: r: =exp(sqr(x)-abs(b));

1: r: =sqrt(abs(sqr(x)+b));

2: r: =2*exp(4*ln(x));

end;

//x*b

xb: =x*b;

Memo1.Lines.Add('Лаб.раб.N2, гр. 107226, бригада №6');

Memo1.Lines.Add('Результат: ');

if Checkbox1.Checked then

Memo1.Lines.Add('x*b='+FloatToStrF(xb, fffixed, 8, 3))

else

Memo1.Lines.Add('R='+FloatToStrF(r, fffixed, 8, 3));

end;

end.

Результат выполнения программы:

Выводы: научились пользоваться стандартными компонентами организации переключений (TCheckBox, TradioGroup и др.). Используя компоненты организации переключений, разработали интерфейс и программу для заданного разветвляющегося алгоритма.