Pascal ABC

[ArcaN0id]

Как в паскале реализовать проверку правильности ввода данных? например если вместо числа ввели букву(или наоборот), то как сделать чтоб прога не вылетала, а выдавала сообщение типа: Ошибка, введите еще раз.

[ОДИНОЧЕСТВО В СЕТИ]

проверку правильности ввода данных

читать ввод как строку и проверять посимвольно!а потом либо конвертировать, либо выдавать сообщение

[ArcaN0id]

а как это в коде?

[russian-stalker]

Думаю смысл понятен:

for i:=1 to length(s) do
if not (s in [0..9]) then
writeln('Try Again');

[ArcaN0id]

Ошибка: "Операция in неприминима к типам string и set of byte"

[Serge_Bliznykov]

for i:=1 to length(s) do
if not (s[i] in [0..9]) then begin
  writeln('Try Again');
  break;
end;

[ArcaN0id]

все равно та же ошибка.
Операция in неприминима к типам char и set of byte

[notHaker]

Сообщение от ArcaN0id

все равно та же ошибка.
Операция in неприминима к типам char и set of byte

{для числа}
for i := 1 to length(str) do
if (ord(str[i]) < 48) or (ord(str[i]) > 57) then
  begin
    writeln('try again');
    break;
  end;

[Serge_Bliznykov]

ну конечно же. символ и множество цифр нельзя сопоставить..

а так попробуйте:

  for i:=1 to length(s) do
    if not (s[i] in ['0'..'9']) then begin
      writeln('try again');
      break;
    end;