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

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

Текст программы.

PROGRAM SortNum;

{ Программа Лабораторной работы N 5

Вариант N 31.

А.Я.Умненькая, ст. гр. Я-007 }

VAR

M, N, Jmin, i, j, i1, ki: integer;

Amin, Pr: real;

A: array [1..7, 1..7] of real;

B: array [1..7] of real;

Fin, Fout: text;

LABEL

Vvod_M, Vvod_N;

BEGIN

{ Открытие входного и выходного файлов }

assign(Fout, 'UMNIK5.RES');

rewrite(Fout);

assign(Fin, 'D: \LAB1\DATF.TXT');

reset(Fin);

{ Ввод количества строк массива }

Vvod_M:

writeln ('Введите число строк массива');

readln(M);

if (M < 2) or (M > 7) then

begin

writeln('Недопустимое значение! ');

goto Vvod_M;

end;

{ Ввод количества столбцов массива }

Vvod_N:

writeln ('Введите число столбцов массива');

readln(N);

if (N < 2) or (N > 7) then

begin

writeln('Недопустимое значение! ');

goto Vvod_N;

end;

{ заполнение массива числами из файла }

for i: =1 to M do

for j: =1 to N do

read(Fin, A[i, j]);

{ Закрытие входного файла }

close(Fin);

{ Распечатка исходного массива }

Writeln(Fout, ' Исходный массив из ', M, 'x', N,

' элементов');

for i: =1 to M do

begin

for j: =1 to N do

Write(Fout, A[i, j]: 8: 2); {печать текущей строки }

Writeln(Fout);

end;

Writeln(Fout);

{ Поиск столбца с минимальным элементом }

Amin: = A[1, 1];

Jmin: = 1;

for i: =1 to M do

for j: =1 to N do

if A[i, j] < Amin then

begin

Amin: = A[i, j];

Jmin: = j;

end;

{ Определение признака незанятого места }

Pr: = Amin - 1.0;

{ Очистка выходного массива }

for i: =1 to M do B[i]: = Pr;

{ сортировка " Jmin-го" столбца в выходной файл пересчетом }

for i: = 1 to M do

begin

ki: = 1;

for i1: =1 to M do

if A[i1, Jmin] < A[i, Jmin] then ki: = ki+1;

{ сдвиг дальше, если элемент уже занят }

while B[ki] < > Pr do ki: = ki+1;

B[ki]: = A[i, Jmin];

end;

{ Печать номера столбца c минимальным элементом }

Writeln(Fout, 'Результаты работы': 30);

Writeln(Fout);

Writeln(Fout, ' Минимальный элемент находится в ',

Jmin, ' столбце');

{ Печать отсортированного массива }

Writeln(Fout, 'Сортированный массив': 30);

for i: =1 to M do

Write(Fout, B[i]: 8: 2);

Writeln(Fout);

{ Закрытие выходного файла }

close(Fout);

END.

Содержимое файла результатов UMNIK5.RES

Исходный массив из 7x7 элементов

-2.20 -6.93 0.20 8.97 8.09 5.38 7.82

5.43 15.33 13.60 9.32 17.38 17.70 16.26

13.13 13.78 20.59 17.91 15.16 19.02 21.66

18.71 17.73 20.59 21.77 22.49 21.99 19.42

15.68 17.73 21.90 13.50 17.68 18.50 15.51

11.54 19.04 17.86 13.20 10.25 10.44 8.46

11.92 5.60 5.75 2.69 8.51 0.52 3.61

Результаты работы

Минимальный элемент находится в 2 столбце

Сортированный массив

-6.93 5.60 13.78 15.33 17.73 17.73 19.04

Варианты заданий

Таблица 20 Варианты заданий лабораторной работы №5