Является ли символ цифрой - Turbo Pascal
Формулировка задачи:
Нужно проверить является ли символ цифрой без использования циклов через функцию IsDigit( возвращать значение bool),(вывести надо Да или Нет)
Спасибо.
Решение задачи: «Является ли символ цифрой»
textual
Листинг программы
uses crt;
function IsDigit(s:char):boolean;
begin
IsDigit:=s in ['0'..'9'];
end;
var c:char;
begin
clrscr;
write('Введите символ c=');
readln(c);
writeln('Является ли он цифрой?');
if IsDigit(c) then write('да')
else write('нет');
readln
end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с функцией IsDigit.
- Затем определяется функция IsDigit, которая принимает один параметр s типа char. Функция использует оператор in для проверки, содержится ли символ в диапазоне от '0' до '9'.
- Переменная c инициализируется значением, введенным пользователем в консоли.
- Затем выполняется цикл чтения, который выводит сообщение
Введите символ c=и ожидает ввода пользователя. - Введенный символ сохраняется в переменной c.
- Выполняется проверка с помощью функции IsDigit. Если символ является цифрой, то выводится сообщение
да, иначе выводится сообщениенет. - Цикл чтения завершается вызовом функции readln.