Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
💸 Как сделать бизнес проще, а карман толще?
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже.
Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал.
Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее. ✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать». Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами! Задание 1. 1. Создать типизированный файл целых чисел
1. Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить сумму и количество введенных чисел, их среднее арифметическое, минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля). Массивы не использовать.
Создадим на D: \User файл chisla.dat, откроем его для записи и заполним его целыми числами. Откроем его для чтения и прочитаем первое число, которое и будет пока минимальным min и максимальным max, при этом их индексы (позиция в файле) равны нулю. Снова откроем файл для чтения и прочитаем все записанные числа, сравнивая каждое из них с текущим минимумом и максимумом: если очередное число больше текущего максимума, то оно – максимум, если меньше текущего минимума – то оно минимум. В процессе поиска индексы максимального и минимального чисел (i_max, i_min) запоминаются. Одновременно будем определять сумму summa и количество записанных чисел count.
2. Схема алгоритма решения задачи:
3. Код программы
3.1. На языке Паскаль
Program Variant_0; Uses WinCrt; Var i, i_max, max, i_min, min, count: Integer; summa, sr_arifm: Real; chisla: File Of Integer; Begin WriteLn('Лабораторная работа №8_1'); WriteLn('Вариант №0'); WriteLn('ИС-11-1'); WriteLn('Пупкин Василий'); WriteLn; Assign(chisla, 'D: \User\chisla.dat'); ReWrite(chisla); {открываем файл для записи} Write('Введите первое число: ');
|