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

شاطر | 
 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
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 N2   الجمعة 19 ديسمبر - 16:30

readln(nomF);


if dossier = '' then


chemin := (racine+':\'+nomF+'.dat')



else




chemin := (racine+':\'+dossier+'\'+nomF+'.dat');



assign(F, chemin);


reset(F);


{$I+}






if IOResult <> 0 then




begin




writeln('*** Attention au chemin
et au nom du fichier ***');




end




else




writeln('*** La fichier ',nomF,'
est maintenant ouvert *** ');




until (IOResult = 0);







readln;



end;





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



procedure supprimerFichier(var F:FFilm);


var



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 ');



readln(nomF);


if dossier = '' then


begin


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


Erase(F);


end


else


begin


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



Erase(F);


end;


{$I+}





if IOResult <> 0 then


begin



writeln('*** Fichier introuvable,
verifier le chemin d''accee et/ou le nom du fechier ***');




end




else




writeln('*** La fichier ',nomF,'
est supprimer avec succes *** ');




until (IOResult = 0);







readln;



end;





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



procedure fermerFichier(var F:FFilm);


var



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 \ ');




readln(dossier);




write('Entrer le nom du fichier ');



readln(nomF);


if dossier = '' then


begin


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


Close(F);


end


else


begin


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



Close(F);
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
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 N2   الجمعة 19 ديسمبر - 16:44

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 N2
الرجوع الى أعلى الصفحة 
صفحة 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-
انتقل الى: