Разработать алгоритм программы(Паскаль) - Pascal
Формулировка задачи:
Разработать алгоритм программы, которая запрашивает у пользователя номер дня недели и выводит его название или сообщает "Ошибка ввода данных".(Разработка алгоритмов разветвляющейся структуры).
Решение задачи: «Разработать алгоритм программы(Паскаль)»
textual
Листинг программы
uses crt; var n:Integer; begin ClrScr; Write('Введите номер дня недели: '); Readln(n); case n of 1:Writeln('Понедельник'); 2:Writeln('Вторник'); 3:Writeln('Среда'); 4:Writeln('Четверг'); 5:Writeln('Пятница'); 6:Writeln('Суббота'); 7:Writeln('Воскресенье'); else Writeln('Ошибка ввода данных'); end; Readln; end.
Объяснение кода листинга программы
- Объявляется переменная
n
типа Integer - Очищается экран с помощью функции ClrScr
- Выводится запрос на ввод номера дня недели с помощью функции Write
- Пользователь вводит номер дня недели с помощью функции Readln
- Введенное значение сохраняется в переменной
n
- С помощью оператора case проверяется значение переменной
n
- Если значение равно 1, то выводится сообщение
Понедельник
- Если значение равно 2, то выводится сообщение
Вторник
- Если значение равно 3, то выводится сообщение
Среда
- Если значение равно 4, то выводится сообщение
Четверг
- Если значение равно 5, то выводится сообщение
Пятница
- Если значение равно 6, то выводится сообщение
Суббота
- Если значение равно 7, то выводится сообщение
Воскресенье
- Если значение не равно ни одному из вышеперечисленных, то выводится сообщение
Ошибка ввода данных
- Программа ожидает ввода с помощью функции Readln
- Программа завершается
- Все операции выполняются в пределах одной функции, а именно Main
- Переменная
n
используется только для вывода сообщения об ошибке - Ввод данных осуществляется с помощью функции Readln
- Вывод данных осуществляется с помощью функции Writeln