Respostas

2013-06-16T12:38:29-03:00

Fiz a função em delphi console, acredito que hoje em dia é linguagem mais didatica...

 

Coloquei comentário em cada linha do código para facilitar o entendimento, mas qualquer dúvida fico a disposição. :)

 

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils , System.Types ;

var
_sFormat : string;

Function InverterAlgarismo ( prNumero : string) : string;
var
I : Integer;
_sAux : string;
begin
//Percorrer cada letra do número
//LENGTH pega a quantidade total de letras na string
for I := 0 to Length(prNumero) -1 do
begin
//Copy - Copio da string a ultima posicao menos a posicao atual do FOR
_sAux := _sAux + Copy(prNumero,Length(prNumero) - I ,1);
end;
result := _sAux;
end;

begin
write('Informe um número de 3 algorismo: ');
Readln(_sFormat);
//Mostra na tela o resultado
writeln('Número invertido: ' + InverterAlgarismo(_sFormat));
readln;
end.

1 1 1