palindroma

Publicado por Perfil removido 27/12/2007

[ Hits: 5.296 ]

Download PALINDRO.PAS




Programa simples que lê uma string e verifica se é um palíndroma.

Palíndroma é uma palavra que é igual se lida ao contrário (ex. ana;lol;ata...).

  



Esconder código-fonte

program pa;

var frase,n2,t:string;
i,x:integer;

begin
 clrscr;
 readln(frase);
 x:=length(frase);
 for i:=x downto 1 do
 begin
  t:=copy(frase,i,1);
  n2:=n2+t;
  end;
 writeln(n2);
 if n2=frase
  then writeln(frase,' e um palindroma')
  else writeln(frase,' n e um palindroma');
 readln;

end.

Scripts recomendados

Rompecompiladores Ackerman

Array de números aleatórios não-repetidos de um intervalo em Pascal

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

média de uma turma

Calculadora usando procedures


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts