до 19:00 по мск

1. Напишите программу, запрашивающую у пользователя пароль. Если пароль не совпадает с эталонным (придумайте его сами например, "12345"), то программа возвращает пользователя на шаг ввода пароля. данная программа должна быть выполнено с оператора Repeat...Until

2. Напишите программу викторину, которая задаёт три во и предлагает пользователи на них ответить. Переход на следующий во не происходит до тех пор, пока пользователь не ответит правильно на предыдущий во Переменную под ответа используйте текстовую (string). данная программа должна быть выполнено с оператора Repeat... Until.​

Прикладные программы это такие программы, предназначение которых направлено на решение определенных задач и непосредственно взаимодействуют с пользователем. Компьютерные программы необходимы для автоматизации каких-либо процессов, хранения и обработки данных, моделирование, проектирование и т.п. сложных вычислительных процессов. Программы обычно разделяют на два класса: это системные программы и прикладные программы. Первые в основном используются для обработки поступающей информации с какого-нибудь оборудования: сетевой карты, видеокарты, подключенного оборудования, т.е. это те программы, которые взаимодействуют с "железом" или внешними устройствами. О них мы расскажем в следующих статьях. А вот о вторых – прикладных программах, поговорим более подробно.
Прикладные программы предназначены для взаимодействия с конечным пользователем, т.е. пользователь как бы взаимодействует сам с собой, но только через программу, вводит какие-либо данные на входе и получает определенный результат обработанных данных на выходе. Это своего рода решение определенной прикладной задачи, например, это сканированние изображений и последующая их обработка или поиск нужных файлов. Использование прикладных программ можно наблюдать практически во всех сферах деятельности человека, будь это ведение бухгалтерского учета на предприятии или создание графических изображений, рисование и т.п. Так же использование прикладных программ присутствует в таких очень важных системах как системы управления базами данных. Это очень актуально на больших предприятиях, где работает большое количество пользователей и которым очень нужно хранить и использовать большие объемы информации.

ОТДЕЛ ЗаданиеПроСортировку+;

ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";

ПОСТ

 ДлинаМассива = 100;

ПЕР

 массивы: РЯД 3 ИЗ РЯД ДлинаМассива ИЗ ЦЕЛ;

 сч1, сч2: УЗКЦЕЛ;

ЗАДАЧА Вставкой(ряд+:РЯД ИЗ ЦЕЛ);

ПЕР

 число:ЦЕЛ;

 позНеуп:ЦЕЛ;

 позВставки:ЦЕЛ;

 поз:ЦЕЛ;

УКАЗ

 ОТ позНеуп:=1 ДО РАЗМЕР(ряд)-1 ВЫП

   число:=ряд[позНеуп];

   позВставки:=0;

   ПОКА число < ряд[позВставки] ВЫП

     УВЕЛИЧИТЬ(позВставки)

   КОН;

   ОТ поз:=позНеуп-1 ДО позВставки ПО -1 ВЫП

     ряд[поз+1]:=ряд[поз]

   КОН;

   ряд[позВставки]:=число

 КОН

КОН Вставкой;

ЗАДАЧА Выбором(ряд+:РЯД ИЗ ЦЕЛ);

ПЕР

 позВставки:ЦЕЛ;

 позНеуп:ЦЕЛ;

 число:ЦЕЛ;

 поз:ЦЕЛ;

УКАЗ

 ОТ позНеуп:=0 ДО РАЗМЕР(ряд)-2 ВЫП

   позВставки:=позНеуп;

   число:=ряд[позНеуп];

   ОТ поз:=позНеуп+1 ДО РАЗМЕР(ряд)-1 ВЫП

     ЕСЛИ число < ряд[поз] ТО

       число:=ряд[поз];

       позВставки:=поз

     КОН

   КОН;

   ряд[позВставки]:=ряд[позНеуп];

   ряд[позНеуп]:=число

 КОН

КОН Выбором;

ЗАДАЧА Обменом(ряд+:РЯД ИЗ ЦЕЛ);

ПЕР

 число:ЦЕЛ;

 позНеуп:ЦЕЛ;

 позОбмена:ЦЕЛ;

УКАЗ

 ОТ позНеуп:=0 ДО РАЗМЕР(ряд)-2 ВЫП

   ОТ позОбмена:=РАЗМЕР(ряд)-2 ДО позНеуп ПО -1 ВЫП

     ЕСЛИ ряд[позОбмена] < ряд[позОбмена+1] ТО

       число:=ряд[позОбмена];

       ряд[позОбмена]:=ряд[позОбмена+1];

       ряд[позОбмена+1]:=число

     КОН

   КОН  

 КОН

КОН Обменом;

УКАЗ

 ОТ сч1 := 0 ДО 2 ВЫП

   ОТ сч2 := 0 ДО ДлинаМассива - 1 ВЫП

     массивы[сч1, сч2] := УЗК(ВШИРЦЕЛ(ЦЕЛЧАСТЬ(Матем.случ() * 21) - 20 * 2))

   КОН

 КОН;

 Обменом(массивы[0]);

 Выбором(массивы[1]);

 Вставкой(массивы[2])

КОН ЗаданиеПроСортировку.