Написать программу, которая запрашивает номер дня недели и выводит его название. включить в программу модуль crt. запрос и результат работы программы вывести в окнах разного цвета. установить цвет символов по желанию. pascal
Procedure R(Nazvanie:string; Cvet:byte); Begin TextBackground(Cvet); ClrScr; GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2); Write(Nazvanie); End;
Var n:byte; Begin HideCursor; TextBackground(0); ClrScr; TextColor(15); GotoXY(WindowWidth div 2-12,WindowHeight div 2); Write('Введите номер дня недели'); Case ReadKey of '1': R('Понедельник',4); '2': R('Вторник',14); '3': R('Среда',2); '4': R('Четверг',9); '5': R('Пятница',1); '6': R('Суббота',13); '7': R('Воскресенье',12); else R('В неделе сейчас семь дней!',0); End; ReadKey End.
1.Запрещено самостоятельно разбирать компьютер и все его комплектующие. При возникновении неисправностей необходимо обратитьсяВсе кабели, соединяющие системный блок с другими устройствами, следует вставлять и вынимать только при выключенном компьютере. Исключение составляют USB-устройства: они могут быть подключены к включенному компьютеру;Запрещено самостоятельно устанавливать, удалять, деактивировать и изменять программное обеспечение и сетевые настройки на компьютере.Запрещено подвергать компьютер и периферийные устройства физическим, термическим и химическим воздействиям. (Нельзя сидеть на компьютере, проливать на него чай, кофе, просыпать семечки, ставить у батареи и других нагревательных приборов);При отключении электроэнергии источник бесперебойного питания (ИБП) позволяет компьютеру оставаться в рабочем состоянии от 5 до 20 минут. При отключении электроэнергии в помещении пользователь должен в немедленном порядке провести правильное выключение компьютера.В случае обнаружения неисправности компьютерного оборудования или программного обеспечения, пользователь должен обратиться в службу тех поддержки
1) Начало; 2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента; 3) Подключение библиотеки randomize; 4) Запуск Первого цикла со счетчиком от 1 до 5; 4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5; 4.1.1) Заполнение первой строки массива рандомными значениями; 4.1.2) Заполнение первой строки String grid -a; 4.1.2) Сравниваем текущий элемент массива с MAX элементом; 4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то Перезаписывеам MAX элемент на элемент массива;
Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива. 5) Выводим MAX элемент массива в Edit;
Как то так. Если не понятно что то можно в лс или коменты.
Procedure R(Nazvanie:string; Cvet:byte);
Begin
TextBackground(Cvet);
ClrScr;
GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2);
Write(Nazvanie);
End;
Var n:byte;
Begin
HideCursor;
TextBackground(0);
ClrScr;
TextColor(15);
GotoXY(WindowWidth div 2-12,WindowHeight div 2);
Write('Введите номер дня недели');
Case ReadKey of
'1':
R('Понедельник',4);
'2':
R('Вторник',14);
'3':
R('Среда',2);
'4':
R('Четверг',9);
'5':
R('Пятница',1);
'6':
R('Суббота',13);
'7':
R('Воскресенье',12);
else R('В неделе сейчас семь дней!',0);
End;
ReadKey
End.