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

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

Тема роботи:Засоби налагодження програм у DELPHI. Створення програм для циклічних процесів.

Лабораторна робота №5

Мета роботи: вивчити засоби налагодження програм у середовищі DELPHI. Розробити і налагодити програму для циклічного обчислювального процесу.

Рекомендована література:

1. Бобровский С. И. Delphi 7. Учебный курс. - С.Пб. Питер, 2004. – 735 с.
2. Я. М. Глинский Інформатика. Алгоритмізація і програмування. Книжка 1. - Львів, 2003. – 198 с.
3. Симонович С.В., Евсеев Г.А. Занимательное программирование: Delphi. – М.: АСТ-Пресс Книга; Издательство «Развитие», 2003. – 368 с.
4. Кен Хендерсон. Руководство Разработчика баз данных в Delphi 2. – К. Диалектика, 1997, - 543 с.

Контрольні запитання.

1. Що назівають циклічним процесом?
2. Які класичні структури циклів Ви знаєте?
3. Які оператори мови Pascal описують цикли?
4. Яким чинном виконується компіляція проекту?
5. Який характер повідомлень про помилки?
6. Як можна виконати програму по крокам?
7. Як визначити значення потрібних програмісту змінних?

1. Теоретичні відомості.

У написаній програмі після її запуску, як правило, виявляються помилки. Помилки першого рівня (помилки компіляції) зв'язані з неправильним записом операторів (орфографічні і/або синтаксичні помилки). При виявленні помилки компілятор DELPHI зупиняється напроти першого оператора, у якому виявлена помилка. У нижній частині екрана з'являється текстове вікно, що містить зведення про всі помилки знайдених у проекті. Кожен рядок цього вікна містить ім'я файлу, у якому знайдена помилка, номер рядка з помилкою і характер помилки. Для швидкого переходу до цікавлячої помилки необхідно двічі клацнути на рядку з її описом.

Для одержання більш повної інформації про характер помилки необхідно звернеться до HELP натисканням клавіші F1. Варто звернути увагу на те, що одна помилка може викликати інші, які зникнуть при її виправленні. Тому варто виправляти помилки послідовно, зверху вниз і, після виправлення кожної помилки компілювати програму знову.

Помилки другого рівня - помилки часу виконання. Вони зв'язані з помилками обраного алгоритму рішення або з неправильною програмною реалізацією алгоритму. Ці помилки виявляються в тім, що результат розрахунку виявляється невірним або відбувається переповнення (розподіл на нуль) і ін. Тому перед використанням налагодженої програми її необхідно протестувати, тобто зробити прорахунки при таких комбінаціях вихідних даних, для яких заздалегідь відомий результат. Якщо тестові розрахунки вказують на помилку, то для їїпошуку варто використовувати убудовані засоби налагодження середовища DELPHI.

У найпростішому випадку для локалізації місця помилки рекомендується надходити в такий спосіб. У вікні редагування тексту установити курсор у рядку перед місцем, що перевіряється, виділити цей оператор, натисканням мишею на смузі ліворуч від тексту програми, натиснути клавішу F4 (виконання до курсору). При цьому виконання програм буде зупинено на рядку, що містить курсор. Тепер можна побачити, чому дорівнюють значення змінних, які цікавлять. Для цього потрібно помістити на змінну курсор і як підказку на екрані буде висвітлене її значення. В іншому варіанті потрібне натискання комбінації клавіш Ctrl-F7 і в діалоговому вікні, що з'явилося, вказати змінну, яка цікавит програміста (за допомогою даного вікна можна також змінити значення змінної під час виконання програми).

Натискаючи клавішу F7 (покрокове виконання), можна по рядкам виконувати програму, контролюючи зміну та або інших змінних і правильність обчислень. Якщо курсор знаходиться усередині циклу, то після натискання F4 розрахунок зупиняється після одного виконання тіла циклу. Для продовження розрахунків варто натиснути мишею на команді < Run> меню Run.

Натискаючи клавішу F8 можна продовжувати налагодження не заходячи усередину процедур і функцій.

Порядок виконання лабораторної роботи.

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

.

Панель діалогу представлена на мал.4.1.

 

 

Рис. 4.1.

 

Текст програми приведений нижче.

 

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

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: = '0';

Edit2.Text: = '2';

Edit3.Text: = '5';

Edit4.Text: = '0, 25';

Memo1.Clear;

Memo1.Lines.Add('Результати. Студ. гр.2ЭК Іванов А.А.');

end;

 

procedure TForm1.Button1Click(Sender: TObject);

Var

x1, x2, x, h, a, s: extended;

N, k, c: integer;

begin

x1: = StrToFloat(Edit1.Text);

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

x2: = StrToFloat(Edit2.Text);

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

N: = StrToInt(Edit3.Text);

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

h: = StrToFloat(Edit4.Text);

Memo1.Lines.Add('h = ' + Edit4.Text);

C: = -1;

X: = x1;

Repeat

A: = 1;

S: = 1;

for k: =1 to N do

begin

a: = c*a*x/k;

s: = s + a;

end;

Memo1.Lines.Add('nри x = ' + FloatToStr(x, ffFixed, 6, 2) +

' сума = ' + FloatToStr(s, ffFixed, 6, 2));

x: = x+h;

until x> x2;

end;

end.

Після налагодження програми складіть тест (N=2, X1=0, X2 = 1, h=3), установите курсор на перший оператор (N: =), натисніть клавішу F4. Після цього натискаючи клавішу F7, виконаєте покрокове налагодження програми і простежите, як міняються всі перемінні в процесі виконання.

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

Необхідно вивести на екран таблицю значень функції Y(x) і її розкладання в ряд S(x) для х змінюються від x ₀ до x_k із кроком h = (x₀ - x_k)/10. Близькість значень S(x) і Y(x) у всьому діапазоні значень x указує на правильність обчислення S(x) і Y(x).

Таблиця 3.1

№			S(x)		Y(x)
1.	0.1
2.	0.1
3.	0.1
4.	0.1
5.	0.1
6.	0.1
7.	0.1
8.	0.1
9.	0.1
№			S(x)		Y(x)
10.	0.1	0.5			arctgx
11.	0.1
12.	0.1
13.	-2	-0.1
14.	0.2	0.8
15.	0.1
16.	0.1
17.	0.1
18.	0.1
19.	0.1
20.	0.1
21.	0.1
22.	0.1
23.	0.1
24.	0.1	0.5			arctgx
№			S(x)		Y(x)
25.	0.1
26.	0.1
27.	-2	-0.1
28.	0.2	0.8
29.	0.1
30.	0.1
31.	0.1
32.	0.1
33.	0.1	0.8
34.	0.1