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

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

Для циклических вычислительных процессов

О Т Ч Е Т

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

по курсу:

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

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

Минск - 2007

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

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

ДЛЯ ЦИКЛИЧЕСКИХ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ

Цель лабораторной работы: изучить средства отладки программ в среде DELPHI. Составить и отладить программу для циклического вычислительного процесса.

Задание: написать и отладить программу, которая выводит таблицу значений функций S(x) для х изменяющихся в интервале от x1 до x2 с шагом h.

0.1

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

EditX1: TEdit;

EditXn: TEdit;

EditN: TEdit;

EditH: TEdit;

Memo1: TMemo;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

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

EditX1.Text: = '0, 1';

EditXn.Text: = '1';

EditN.Text: = '8';

EditH.Text: = ' ';

Memo1.Clear;

Button1Click(Sender);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

n, i: integer;

x1, xn, x, h, s: real;

function factorial(n: integer): integer;

begin

if n=0 then factorial: =1

else factorial: =n*factorial(n-1);

end;

begin

x1: = StrToFloat(EditX1.Text);

xn: = StrToFloat(EditXn.Text);

n: = StrToInt(EditN.Text);

h: = (xn - x1) / 10;

EditH.Text: = FloatToStr(h);

Memo1.Clear();

Memo1.Lines.Add('Ë aá î ð à ò î ð í à ÿ ð à á î ò à ¹ 3');

Memo1.Lines.Add('');

x: = x1;

Memo1.Lines.Add(' ************************************* ');

Memo1.Lines.Add(' * X * S(X) * Y(X) * ');

Memo1.Lines.Add(' ************************************* ');

while (xn > x) do

begin

s: = x;

for i: =1 to n do

begin

s: = s + exp((2*i+1)*ln(x)) / factorial(2*i+1);

end;

Memo1.Lines.Add(

' * ' + FloatToStrF(x, ffFixed, 5, 2) +

' * ' + FloatToStrF(s, ffFixed, 7, 2) +

' * ' + FloatToStrF((exp(x)-exp(-x))/2, ffFixed, 7, 2) +

' * ');

x: = x + h;

end;

Memo1.Lines.Add(' *************************************** ');

end;

end.

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

Выводы: изучили средства отладки программ в среде DELPHI. Составили и отладили программу для циклического вычислительного процесса.