Correction d'exercice N°2 de Bac Blanc

Voir le sujet précédent Voir le sujet suivant Aller en bas

Correction d'exercice N°2 de Bac Blanc

Message  Hanafi le Mar 12 Mai - 0:06

Voici la correction d'ex 2. Vos commentaires S.V.P
Exclamation

program ex_ar;
uses wincrt;
var ch1,ch2:string;
function verif(ch1,ch2:string;i,j:integer):boolean;
begin
if (i=length(ch1)) and (ch1[i]=ch2[j]) then
verif:=true
else
if j>length(ch2) then
verif:=false
else
if ch1[i]=ch2[j] then
verif:=verif(ch1,ch2,i+1,j+1)
else
verif:=verif(ch1,ch2,1,j+1);
end;
begin
write('Donner ch1 ');
readln(ch1);
write('Donner ch2 ');
readln(ch2);
if verif(ch1,ch2,1,1) then
write(ch1,' existe dans ',ch2)
else
write(ch1,' n''existe pas dans ',ch2);
end.
bounce
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum