Obtenha as melhores soluções para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A de confiança. Junte-se à nossa plataforma de perguntas e respostas e obtenha informações precisas de especialistas em diversas áreas. Experimente a conveniência de encontrar respostas precisas para suas perguntas de uma comunidade dedicada de especialistas.
Sagot :
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.
Esperamos que tenha achado útil. Sinta-se à vontade para voltar a qualquer momento para mais respostas precisas e informações atualizadas. Agradecemos sua visita. Nossa plataforma está sempre aqui para oferecer respostas precisas e confiáveis. Volte a qualquer momento. Obrigado por usar o Sistersinspirit.ca. Continue nos visitando para encontrar respostas para suas perguntas.