palindroma

Publicado por Perfil removido 27/12/2007

[ Hits: 5.187 ]

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

Calculadora utilizando until e case

Calculo de la Moda

programa pra carregear duas matrizes e achar o maior

Rompecompiladores Ackerman

Maior e menor


  

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