Prgrammation en pascal

Fermé
kader - 10 mars 2010 à 12:30
Bonjour, je transfer ce programme simple a programme fonction (en pascal):
program palindrome;
uses crt;
var nom,ch:string; i,m:integer;
label 2;
begin
clrscr;
write ('le programme palindrome <par exemple:ressasser,reer>');
2: write <'est un programme qui test si le mot entré est palindrome ou non');
readln(nom);
m:=lenght(nom);
if lenght (nom)=1 then writeln('',nom,':est un palindrome');
for i:=1 to m div 2 do begin
if nom[i]=nom[m+1-i] then begin
write('',nom,':n' 'est un palindrome');
end
else writeln ('',nom,':n est pas un palindrome');
end;
writeln ('appuiyer sur 0/n pour tappez un autre mot:');
readln(ch);
if ch='0' then goto 2;
writeln ('appuyez sur entre pour terminer le progremme palindrome');
readln;
end
A voir également: