منتديات معمورة لوف --- forum maamoura love
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


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

 

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

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

marouene


عدد الرسائل : 155
العمر : 35
الوصف الشخصى : sqw
تعيين الادارة : specialement sur maamoura love    correction d'exercice de livre N 14 page 71 sur 5 partie(partie N1) Nachit10
تاريخ التسجيل : 29/10/2008

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

program
EX14P71;



uses
wincrt;



type


Film = record


Titre : string[30];


Acteur: string[10];


Annee : 1950..2007;


disponible : string[3];


end;





FFilm = file of Film;





var choix : 1..3;



F:FFilm;




q:boolean;




chemin : string;









{**************** Procedure pour creer un
nouveau fichier ********************}



procedure nouveauFichier (var F:FFilm);


var


rep : 'N'..'O';


racine
: 'A'..'H';



dossier,nomF : string[20];





begin


clrscr;


repeat



repeat




writeln('Voulez vous utiliser un chemin par défaut (C:\)? O pour oui, N
pour non ');



readln(rep);


rep := upcase(rep);


until (rep in ['N','O']);





writeln('Entrer le nom du fichier ');


readln(nomF);





if rep = 'O' then


begin


assign (F ,'C:\'+nomF+'.dat');


rewrite(F);


end


else


begin


{$i-}


write('Entrez le nom de la dossier (s''il ya
plusieurs dossier séparer les par \ (ALTGR + _ )');




readln(dossier);




write('Entrez la racine: (C , D , E etc ');




readln(racine);


if dossier = '' then


begin


assign(F, racine+':\'+nomF+'.dat');


rewrite(F);


end


else


begin


assign(F,
racine+':\'+dossier+'\'+nomF+'.dat');



rewrite(F);


end;


{$I+}





if IOResult <> 0 then


begin



writeln('*** Un problème est
servenu, verfir le chemin d''accée.
***');




end




else




writeln('*** La fichier ',nomF,' à
été creer dans ',racine+':\'+dossier+' avec succée.
***');


end;


until (rep = 'O') or (IOResult = 0);





readln;


end;





{****************
Procedure pour ouvrir une fichier existant *****************************}



procedure ouvrirFichier(var F:FFilm);


var
chemin:string;



racine
: 'A'..'H';



dossier,nomF : string[20];


begin


clrscr;



repeat




{$i-}




write('Entrez la racine: (C , D , E etc )');




readln(racine);




write('Entrez le nom de la dossier (s''il ya plusieurs dossier séparer
les par \ (ALTGR + _ )');




readln(dossier);




write('Entrer le nom du fichier ');
الرجوع الى أعلى الصفحة اذهب الى الأسفل
marouene

marouene


عدد الرسائل : 155
العمر : 35
الوصف الشخصى : sqw
تعيين الادارة : specialement sur maamoura love    correction d'exercice de livre N 14 page 71 sur 5 partie(partie N1) Nachit10
تاريخ التسجيل : 29/10/2008

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

je sui 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 sue maamoura love
j'attend vous commentaire
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N1)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N2
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N3
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N4)
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N5)
» maamoura-love

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