Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от W!z@rD

while(true)
begin
try
забыл уже как на Delphi

Вобщем просто тупо тут пробуешь сделать Val (если я не ошибаюсь, функция переводит из string в integer;
если
except
Извините вы ввели не числа

end;

вобщем логика такова, я на дельфи уже год не пишу, даже больше, подзабыл

Человек просил на Паскале, а не в Дельфи. Разве try-except имеет место в Паскале? Это ж не ООЯП, тут ток run-time error's могут иметь место

А вот насчёт val - это тру =)

Код:

repeat
   readln(mystr);
   Val(mystr, num_int, errorflag);
   if errorflag = 0 then writeln('not a number');
until (errorflag <> 0);

Либо тупо проверяем все символы на принадлежность к [0..9] , но это малясь извращённее)
Нечто типо

Код:

readln(s);
c:=0;
for q:= 0 to length(s) do begin
  for i:=0 to 9 do begin;
  if copy(s,q,1)=IntToStr(i) then c:=c+1;
  end;
end;
if c<>length(s) then writeln('Это не число') else writeln('Это число');