Комментарии 1

• Починил вашу функцию:

  function Calculation(S: String): integer; var Stemp: string; begin Stemp := S; delete(Stemp, Length(s) - 1, 2); // if length(S) = 0 then Result := 0 // else if length(S) = 1 then Result := Ord(S[1]) - Ord('0') else if s[Length(s) - 1] = '-' then Result := Calculation(STemp) - (Ord(s[Length(s)]) - Ord('0')) else if s[Length(s) - 1] = '+' then Result := Calculation(STemp) + (Ord(s[Length(s)]) - Ord('0')); end;

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  function Calculation(S: String): integer; var   Stemp: string; begin   Stemp := S;   delete(Stemp, Length(s) - 1, 2); //  if length(S) = 0 then Result := 0 //  else   if length(S) = 1 then Result := Ord(S[1]) - Ord('0')   else   if s[Length(s) - 1] = '-' then     Result := Calculation(STemp) - (Ord(s[Length(s)]) - Ord('0'))   else if s[Length(s) - 1] = '+' then     Result := Calculation(STemp) + (Ord(s[Length(s)]) - Ord('0')); end;

  И еще такой вариант решения:

  program Recur14; //pabc.net // uses PT4; function foo(s: string; n: integer): integer; begin if n = 1 then Result := s[n].ToDigit else if s[n - 1] = '+' then Result := foo(s, n - 2) + s[n].ToDigit else if s[n - 1] = '-' then Result := foo(s, n - 2) - s[n].ToDigit end; begin // Task('Recur14'); var s := '1+2+3+4+5-5'; Write(foo(s, s.Length)) end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

  program Recur14; //pabc.net   // uses PT4;   function foo(s: string; n: integer): integer; begin   if n = 1 then     Result := s[n].ToDigit   else   if s[n - 1] = '+' then     Result := foo(s, n - 2) + s[n].ToDigit   else   if s[n - 1] = '-' then     Result := foo(s, n - 2) - s[n].ToDigit end;   begin   // Task('Recur14');   var s := '1+2+3+4+5-5';   Write(foo(s, s.Length)) end.

  Ответить