مرحبا بكم في منتديات المهدية yoo7

مرحبا بكم في منتديات المهدية yoo7


 
الرئيسيةاليوميةمكتبة الصوربحـثالتسجيلالمجموعاتدخول

شاطر | 
 

 exercice:inverser une chaine de caractère

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
moriss
المشرف العام للمنتدى
المشرف العام للمنتدى
avatar

عدد الرسائل : 100
العمر : 32
تاريخ التسجيل : 27/02/2008

مُساهمةموضوع: exercice:inverser une chaine de caractère   الأربعاء مارس 05, 2008 3:40 pm

ecrire un programme modulaire qui permet de:

-saisir une chaine de caractere non vide

-inverser cette chaine on utilisant une module recursive

exemple:

CH="INFOR"

la chaine devient

CH="ROFNI"



Code: program inverse;

uses wincrt;

var

i,n:integer;

ch:string;

aux:char;




procedure inv ( var ch:string; i,n:integer);

begin



if i<n then

begin

aux:= ch[i];

ch[i]:=ch[n];

ch[n]:= aux;

inv(ch,i+1,n-1) ;

end;

end;


begin

writeln('saisir une chaine');

readln(ch);

i:=1;

n:=length(ch);

inv(ch,i,n);

writeln('l"inverse est ');

writeln(ch);

. end


oici une solution là ou on peut ecrire la fonction inverser autrement


program solution ;

uses wincrt ;

var

ch,s:string ;


{ ============ CORPS DE LA PROCEDURE SAISIR ===================}


procedure saisir (var ch:string);

begin

writeln('donner une chaine');

readln(ch);

End;


{ ============ CORPS DE LA FONCTION INVERSER ===================}


function inverser(ch:string;g,d:integer):string;

var

aux:char;

begin

if (d-g)<1 then inverser:=ch

else

begin

aux:=ch[g]
;

ch[g]:=ch[d];

ch[d]:=aux;

inverser:=inverser(ch,g+1,d-1);

End;

End;


{ ============ CORPS DE PROGRAMME PRINCIPAL ===================}


begin

saisir(ch);

s:=inverser(ch,1,length(ch));

writeln('la chaine devient: ',s);

End.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
sofiane
المدير العام للمنتدى
المدير العام للمنتدى
avatar

عدد الرسائل : 376
العمر : 27
المدينة : Mahdia
الهواية : internet
المهنة : élève
تاريخ التسجيل : 26/02/2008

مُساهمةموضوع: رد: exercice:inverser une chaine de caractère   الأربعاء مارس 05, 2008 3:49 pm

moriss tu es un grand chef
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.mahdia.yoo7.com
 
exercice:inverser une chaine de caractère
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» Exemples d'exercices de sport pour femmes

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
مرحبا بكم في منتديات المهدية yoo7 :: Science informatique :: Programmation-
انتقل الى: