لو لم أكن معموري لتمنيت أن أكون معموري
 
الرئيسيةالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N4)

اذهب الى الأسفل 
كاتب الموضوعرسالة
marouene

avatar

عدد الرسائل : 155
العمر : 30
الوصف الشخصى : sqw
تعيين الادارة :
تاريخ التسجيل : 29/10/2008

مُساهمةموضوع: specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N4)   الجمعة 19 ديسمبر - 16:34


end;




readln;




end;




readln;



end;





{=============\\\ Procedure pour afficher les
resultats de recherche par acteur(RActeur) ///==================}



procedure
RActeur(var F:FFilm; Films:Film);



var


Acteur: string[10];


i:byte;


begin



clrscr;




write('Tappez nom d''acteur : ');



readln(Acteur);





reset(F);





for i:= 0 to (filesize(F)-1) do


begin


clrscr;


read(F,Films);


if acteur = Films.acteur then


with Films do


begin



writeln('Le Titre du film est : ',titre);




writeln('L''année de sortire est : ',annee);




writeln('Disponibilité : ' ,disponible);




end;




readln;


end;


readln;


end;








{-------------\\\
Procedure pour chercher un film ///----------------}



procedure ChercherFilm (var F:FFilm);


var



choix : char;




Films:Film;






begin



clrscr;




repeat




writeln('Recherche par titre :
T');







writeln('Recherche par acteur : A');




writeln;




readln(choix);




choix := upcase(choix);



until
(choix = 'T') or (choix = 'A');






case choix of


'T': RTitre(F,Films);


'A': RActeur(F,Films);


end;


end;





{------------\\\ Procedure pour modifier un
film ///---------------}



procedure
ModifierFilm (var F:FFilm);



var


Films:Film;


begin


clrscr;


ChercherFilm(F);





with Films do


begin



write('L''ancien titre est : ',titre);




readln(titre);




write('l''ancien nom d''acteur est : ',acteur);




readln(acteur);




write('L''ancien année de sortir est : ',annee);




readln(annee);




repeat




write('Ce film est : ',disponible);




readln(disponible);




until (disponible = 'OUI') or (disponible = 'NON') or (disponible =
'oui') or (disponible = 'non');



end;


end;


{****************************************procedure
menu edition**************************************}



procedure
menuEdition;



var
choix : char;



begin


clrscr;



repeat




writeln('Pour Ajouter un film tappez
-- A --');
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
marouene

avatar

عدد الرسائل : 155
العمر : 30
الوصف الشخصى : sqw
تعيين الادارة :
تاريخ التسجيل : 29/10/2008

مُساهمةموضوع: رد: specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N4)   الجمعة 19 ديسمبر - 16:47

i sur ili hata had handou corection wili handou minha yebhathali ali
kedmti ana mich koli shiha fama des faute ........ama netsawer kan
tjini fi devoir najam nakou fiha 15/20
Et encore je suis sur ili cette exercice matelkach solution matahou fi hata forum juste sur maamoura love
j'attend vous commentaire
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N4)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» تحميل تنزيل اغنية What Is Love للنجمة Jennifer Lopez بصيغة Mp3
» صور حب و قلوب و ورود بال glitter
» ااروع واجمل الالحان الموسيقى العالمية بروابط مباشرة
» رحيل اريك سيغال مؤلف "قصة حب" Love Story" التي استهلها بعبارة (الحب يعني ان لا نقول ابدا نحن اسفون)
» Exemples d'exercices de sport pour femmes

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات معمورة لوف --- forum maamoura love :: الأقسام العامة :: Special BAC 2008/2009-
انتقل الى: