Написать функцию, которая по номеру n определяет соответствующее название дня недели - Pascal
Формулировка задачи:
Program E1; Var n:integer; Begin write('введите число интересующего вас дня: '); ReadLn(n); Case n Of 1:WriteLn('понедельник'); 2:WriteLn('вториник'); 3:WriteLn('среда'); 4:WriteLn('четверг'); 5:WriteLn('пятница'); 6:WriteLn('суббота'); 7:Writeln('воскресенье'); else writeln ('некорректное условие'); end; End.
Решение задачи: «Написать функцию, которая по номеру n определяет соответствующее название дня недели»
program E1; function day(n: byte): string; var s: string; begin case n Of 1: s := 'понедельник'; 2: s := 'вториник'; 3: s := 'среда'; 4: s := 'четверг'; 5: s := 'пятница'; 6: s := 'суббота'; 7: s := 'воскресенье'; else s := 'некорректное условие'; end; day := s end; var n: integer; begin write('введите число интересующего вас дня: '); ReadLn(n); writeln(day(n)); end.
Объяснение кода листинга программы
В данном коде объявлена функция day, которая принимает один параметр n типа byte. Внутри функции используется переменная s типа string, которая инициализируется в зависимости от значения переменной n.
Сначала идет проверка на то, что значение n не превышает 7 (так как в неделе всего 7 дней). Если это условие выполняется, то в переменную s записывается соответствующее название дня недели.
В случае, если значение n выходит за пределы от 1 до 7, в переменную s записывается строка некорректное условие
.
Затем, функция возвращает значение переменной s.
Далее, вне функции, объявлено переменная n типа integer, и с помощью функции readln(n) пользователю предлагается ввести число, которое будет передаваться в функцию day.
После ввода числа, с помощью функции writeln выводится результат работы функции day(n).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д