Foro de elhacker.net

procedure EstadoT2;
var
  c : char;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T2');
{$endif}
  Avanzar;
  c := Leer;
  while c in ['a'..'z'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;
  strtoint (const S: string): LongInt;  //Problema aqui 57 / 19
  writeln('Token ID reconocido: ', S);
end;
 

Disculpen esque en devpascal no me reconoce esa funcion me dice

57 / 19 automa~1.pas
 Fatal: Syntax error, ) expected but identifier S found

y

tambien este error

57 / 20 automa~1.pas
 Error: Illegal expression


y segun yo esta bien como lo quiero transformar... o esta mal :/ ¿?
ya que lo que quiero es imprimir la constante en entero.

Estas usando mal la función. Sería algo así:

var
Numero: integer;
Cadena: string;
begin
 
Cadena:= '14';
Numero:= StrToInt(Cadena);
end;

En FreePascal y en Delphi la función StrToInt está declarada en la unidad SysUtils. Debes tener en cuenta, que si intentas convertir una cadena de texto a integer vas a producir un error. Para ese caso puedes usar la función TryStrToInt().

Saludos.

Gracias khronos14 oye disculpa otras 2 preguntas.

procedure EstadoT3;
var
  c : char;
  Numero : integer;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T3');
{$endif}
  Avanzar;
  while c in ['0'..'7'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;
  case c of
  'x': EstadoT4;
  else
  end;
 
  Numero:= OctToInt(S);     {error aqui 175/12}
  writeln('Token OP reconocido: ', Numero);
end;

Disculpa este error me sale para pasar de octal a entero.
175 / 12 avanze~1.pas  Error: Identifier not found OCTTOINT

lo que veo esque no estoy ingresando un numero octal si no una cadena, entonces estoy intentando pasar de una cadena a octal pero no me funciona entonces como seria pasar eso ¿? si se puede saber

entonces tambien intetne usar el octtoint(08) intentando usar un numero y tampoco me funciono me salio el error de el identificador no encontrado.

Hola ¡Micronet!, la función OctToInt no existe o al menos no está definida en el estándar de Pascal. Si buscas por google encontrarás algo como esto:

function OctToInt(Value: string): Longint; 
var 
  i: Integer; 
  int: Integer; 
begin 
  int := 0; 
  for i := 1 to Length(Value) do 
  begin 
    int := int * 8 + StrToInt(Copy(Value, i, 1)); 
  end; 
  Result := int; 
end; 
 

Esta función te convertiría un número octal, almacenado como cadena, a integer.

Saludos.

Gracias... am am y ya para dejarte de molestar crees que me puedas ayudar con los hexadecimales. ¿?

tambien los tengo en una cadena.  :-[

porque tambien me dijieron que tengo que usar el HextoInt.

59 / 12 avanze~1.pas  Error: Identifier not found HEXTOINT

e igual me sale error :/ el mismo.

HexToInt tampoco forma parte del estándar de Pascal. En programación, más que en cualquier otro tema, google es un gran amigo  ;D

Saludos.