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

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

Записи.

Пример:

Для реализации объединения данных разного типа в языке Pascal существует специальная структура - запись. Объявление записи начинается с зарезервированного слова record, за которым перечисляются имена и типы всех составляющих записей ее полей. Заканчивается объявление скобкой end.

Пример:

type

karta = record

family: string[20];

name: string[15];

age: integer;

end;

При обращении к записи в программе указывается имя записи и через точку имя поля.

Пример:

karta.family: ='Иванов';

karta.name: ='Иван';

karta.age: =20;

Для упрощения обращения к записи может быть использован оператор работы со структурой with.

Пример:

with karta do

begin

family: ='Иванов';

name: ='Иван';

age: =20;

end;

Полями записи наряду с простыми типами могут быть и данные структурированных типов, например, массивы или записи.

Пример 1:

var z: record

pole1: string;

pole2: array [1..10] of byte;

end;

Begin

for i: =1 to 10 do

read (z.pole2[i]);

End.

Пример 2: объявите запись, содержащую сведения о фамилии, дате рождения и адресе студента.

var student: record

fam: string[15];

data: record

day: 1..31;

mes: 1..12;

year: integer;

end;

adres: record

street: string[15];

dom: byte;

kvart: byte;

end;

end;

Begin

with student do

begin

fam: = 'Иванов';

with data do

begin

day: = 30;

mes: = 4;

year: = 1987;

end;

with adres do

begin

street: = 'Туполева';

dom: = 22;

kvart: = 154;

end;

end;

End.

Для использования в программе набора с одинаковыми полями используются массивы записей.

Пример: объявить массив из десяти записей.

1 вариант решения:

var A: array [1..10] of record

fam: string;

name: string;

end;

2 вариант решения:

type student = record

fam: string;

name: string;

end;

var A: array [1..10] of student;