Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
💸 Как сделать бизнес проще, а карман толще?
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже.
Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал.
Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее. ✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать». Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами! caseKey of ⇐ ПредыдущаяСтр 3 из 3
VK_Enter: window.Close; //при нажатии Enter графическое окно закроется end; end; Begin window.maximize; //максимальная величина окна f: ='test.bmp'; //переменной f присваиваем значение test.bmp c: = new PictureABC (20, 80, f); //добавляем рисунок (значение переменной f) OnMouseDown: =MouseDown; //вызов процедуры нажатия кнопки мыши t: = 'Для завершения задания нажмите Enter'; //переменной t присваиваем значение a: = new TextABC (80, 830, 15, t, clBlue); //добавление подсказки (значение переменной t) OnKeyDown: =KeyDown; //вызов процедуры нажатия на клавишу клавиатуры end.
Результат работы программы
8) Информатика (методическая основа)
Пример: написать программу, которая рисует окружности, количество которых задается пользователем, а цвет, радиус окружностей и координаты центра задаются случайным образом.
program random_; uses GraphABC; Var x, y, i, n, r: integer; Begin window.Maximize; //максимальный размер графического окна Write ('Введите количество окружностей '); readln (n); //количество окружностей for i: = 1 to n do //цикл с параметром от 1 до введенного количества окружностей Begin SetBrushColor (clrandom); //случайным образом выбирается цвет x: =random(1000); //случайным образом выбирается координата цента х, задано максимальное значение 1000 y: =random(600); //случайным образом выбирается координата цента y, задано максимальное значение 600 r: =random(80); //случайным образом выбирается величина радиуса окружности, задано максимальное значение 80 circle(x, y, r); //строим окружность по полученным параметрам end; end.
Результат работы программы при n=5, выполняется несколько раз для демонстрации
|