castilho

Protótipo: procedure val (const s: string; var v: Longint_ou_Real_ou_Byte; var c odigo: word);

Descrição: Converte o valor representado em s para um valor numérico e armaz ena este conteúdo na variável v, que pode ser dos tipos longint, real ou byte. Caso a conversão não seja bem-sucedida, o parâmetro codigo c onterá o índice do caractere de s que impossibilitou a conversão. Admite-se espaços no início de s.

Exemplo:

  
programa exemploVal
 var
    i, codigo : integer;
 begin
    val ('2012', i, codigo);
    if (codigo <> 0) then
       writeln ('Erro na posicao ', codigo,'.')
    else
       writeln ('Valor: ', i);
 end.