Проверка на ввод целых чисел в Паскале посимвольно

[Nataly026]

Написана программа вычисления суммы/разницы целых чисел с рекурсией (например, "99+23-3+48="). Помогите пожалуйста добавить проверку на посимвольный ввод именно целых чисел(от 0 до 999) и знаков "+" и "-". Конец ввода - "=". У меня только для чисел от 0 до 9 получается...

uses crt;
function Calculate(s: string): integer;
begin
if Length(s)=1 then Calculate:= Ord(s[1])-Ord('0')
else case s[Length(s)-1] of
'+': Calculate:= Calculate(Copy(s,1,Length(s)-2))+Ord(s[Length(s)])-Ord('0');
'-': Calculate:= Calculate(Copy(s,1,Length(s)-2))-Ord(s[Length(s)])+Ord('0');
end
end;
var
Str: string;
Chr: char;
begin
repeat
read(Chr);
Str:=Str+Chr;
until (Chr = '=');
writeln('Введенное выражение: ', Str);
str:= copy(str,1,length(str)-1); {убрали =}
writeln('Результат: ', Calculate(Str));
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ByAlex]

Начиная с начала строки проверяешь на правильность ввода. Если символ не лежит в нужных диапазонах, то выводишь сообщение.

var
   Symbols:set of char;
begin
   Symbols:=['+','-','='];
   if (not (str[i] in ['0'..'9'])) or (not (str[i] in Symbols)) then
      вывод ошибки.
   ...
end;

[Plague]

не знаю нужна ли тут посивольная проверка на ввод строки.
но я бы предложил такой вариант решения задачи с рекурсией:

const d='-+'; 
function f(s:string):longint;
var i,a:longint;
    err:integer;
begin
  if s='' then f:=0 else
  if pos('+',s)+pos('-',s)<1 then 
      begin
        val(s,a,err); // f:=strtoint(s);
        f:=a;
       end
    else 
      begin
        i:=length(s);
        repeat dec(i);until pos(s[i],d)>0;
        val(copy(s,i,length(s)-i+1),a,err);        
        f:=f(copy(s,1,i-1))+a; //+strtoint(copy(s,i,length(s)-i+1));
      end;
end;
begin
  writeln(f('11+121-231+11-442+1-23-9-92'));
end.

[Nataly026]

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

не знаю нужна ли тут посивольная проверка на ввод строки.
но я бы предложил такой вариант решения задачи с рекурсией:

...   begin
        i:=length(s);
        repeat dec(i);until pos(s[i],d)>0;
        val(copy(s,i,length(s)-i+1),a,err);        
        f:=f(copy(s,1,i-1))+a;
      end;

Может я не понимаю, но тут только "+ а". А вычитание?


Извините, протупила - я разобралась с отр.числами...

[Plague]

+(-231) сколько будет?

[ByAlex]

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

не знаю нужна ли тут посивольная проверка на ввод строки.

Посимвольная проверка в таких программах обязательна, так как в строке для расчетов не должно быть ничего, кроме таких символов как - ('.','/','*','+','-','(',')','%','^' ... и так далее). Если в строке будет не нужный символ, то программа просто тупанет и все, считать не будет.

[Serge_Bliznykov]

ByAlex,
во-первых, откуда Вы столько знаков набрали то?! В исходной задаче допускается только плюс и минус!
а во-вторых, достаточно в коде, предложенном Plague добавить две проверки на то, что переменная err не равна нулю, как мы "автоматически" получим контроль на то, что введены допустимые символы.
в-третьих, пройтись по строке, проверяя, что она состоит только из нужных символов - это дело одной минуты программирования (я тут пост дольше пишу, чем код проверки писать)

p.s. правда, конечно, это будет не проверка в процессе ввода...

p.p.s. могу набросать код ввода строки, с разрешением ввода только правильных символов, это элементарно!

[ByAlex]

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

ByAlex,
во-первых, откуда Вы столько знаков набрали то?! В исходной задаче допускается только плюс и минус!

Я имел ввиду программы подобного содержания, там же не только + и -, а много много всяких действий производится. Но посимвольная проверка все равно необходима в таких прогах, если, конечно, не ведется контроль на правильность введенных символов в процессе ввода(можно разрешать ввод только разрешенных символов). А в данном случае программа простая.