Функция не работает как надо

@Mark52 · Регистрация: 08.03.2020

Author24 — интернет-сервис помощи студентам

Pascal

function IsDigit(c: char): Boolean;
var
    digits: array of Char = ('0','1','2','3','4','5','6','7','8','9');
    e: char;
 
begin
    for e in digits do if c = e then IsDigit := True;
    IsDigit := False
end;

Кто нибудь может подсказать, почему функция постоянно возвращает False?..

@Cyborg Drone · 12.03.2023, 00:20

Потому что как бы там ни было в строке 7, в строке 8 всё равно будет выполнено IsDigit := False. Строки 7 и 8 нужно поменять местами:

Pascal

7 8	IsDigit := False; for e in digits do if c = e then IsDigit := True

Но, вообще, я не понимаю, зачем Вы так нелепо функцию написали. На кой чёрт нужен цикл? Чтобы подольше считало? Вот так

Pascal

function IsDigit(c: char): Boolean;
begin
  IsDigit := c in ['0'..'9']
end;

не попроще будет?

Можно ещё вот так:

Pascal

3	IsDigit := (c >= '0') and (c <= '9')

@abit · 17.03.2023, 15:30

Pascal

uses Character;
begin
  writeln(isdigit('1'));
  writeln(isdigit('d'));
end.

	17.03.2023, 15:30

Опции темы

Функция не работает как надо

Решение