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

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

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

Цель работы: познакомиться с операторами ввода/вывода, присвоения, безусловного перехода, составными и пустыми операторами языка Pascal. Научиться применять оператор условного перехода.

Задача:

Используя оператор условного перехода, напишите программу, которая запрашивает у пользователя номер одного из зимних месяцев, и выводит количество дней в этом месяце. Программа должна проверять, является ли введенный месяц зимним;

Исходный код:

uses crt;

Var

n: integer;

Begin

writeln('Введите номер зимнего месяца: ');

readln(N);

if (n< > 1) and (n< > 12) and (n< > 2) then writeln('Месяц не зимний');

if (n=1) then writeln('Январь 31');

if (n=2) then writeln('Февраль 29');

if (n=12) then writeln('Декабрь 31');

readln;

end.

Рис. 5 – Результат работы программы

Вывод: в ходе работы мною были изучены операторы условного перехода и написана программа с их использованием.

Лабораторная работа 4

Цель работы: Научиться работать с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.

Задача:

заменить последний элемент массива минимальным (10);

Исходный код:

uses crt;

Var

a: array [1..10] of integer;

t, min, i: integer;

Begin

writeln(' Массив a: ');

i: =1;

min: =10000;

Whilei< 11 do

Begin

write(' a[', i, ']=');

read(a[i]);

if a[i]< min then min: =a[i];

i: =i+1;

end;

a[10]: =min;

writeln(' Массив a после обработки: ');

i: =0;

Repeat

i: =i+1;

if a[i]> 0 then a[i]: =a[i]+1;

write(a[i], ' ');

until i=10;

writeln;

readln;

end.

Рис. 6 – Результат работы программы

Вывод: в ходе работы мною были изучены методы работы с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.