مساعدة في les fechies

[ouahed]

سلام إخواني ممكن مساعدة في الباسكال

- supprimie un enregestrement dans un fichie
- tri les nom par ordre alphabétique dans le fhichies

شكراااا مسبقا اخواني

.

[حمزة_89]

حاول أن تضع محاولتك

بكلمة fichier تقصد الملفات النصية text file ؟؟؟

-------

تحديث :
في الحل هنا استخدمت ملف نصي txt file تستطيع ان تستعمل انواع ملفات اخرى


1- بالنسبة لسؤالك الأول

- supprimie un enregestrement dans un fichie

هذه هو الاجراء :

Procedure sup ;
Var s,nom:string;
    i : integer;
Begin
Append (f) ;
Reset (f) ;
rewrite(f);
Write('entrer le enrregistremment que vous vouler supprimer : ') ;
readln(nom);
for i:=1 to max do
begin
if( nom <> t1[i] ) then
begin
writeln(f,t1[i]);
end;
end;
writeln('le enrregistremment est supprimer avec succes');
readkey;
End ;

وتستدعيها في البرنامج الرئيسي ب :

sup

2- بالنسبة لسؤالك الثاني

- tri les nom par ordre alphabétique dans le fhichies

لا يخفى عليك ان الكلمات ( الاسماء nom ) في حالتك انت ، انما هي مجموعة من حروف أو جدول من حروف

لذا يكفينا ان نقارن الحروف الاولى من كل كلمة
( الكلمات التي تبدأ بنفس الحرف لم اتطرق لها هنا ، يجب ان تقارن الحرف الثاني ثم الثالث ....الخ )

وكما لايخفى عليك الحروف انما هي ارقام بلغة البايت أو الاسكي ... يعني نقدر نقارن بينها ب < أو >

لذلك تكون عملية الترتيب كالتالي : ( اخترت ابسط عملية ترتيب لكي يسهل عليك فهمها )

procedure trie;
var tmp,tmp2 :string;
    i : integer;
begin
  i:=0;
  repeat
    tmp:=t1[i];
    tmp2:=t1[i+1];
    if tmp[1]>tmp2[1] then
    begin
        tmp:=t1[i];
        t1[i]:=t1[i+1];
        t1[i+1]:=tmp;
    end;
    Inc(i);
  until i=max-1 ;
end;

وتستدعيها في البرنامج ب :

trie

تعمدت وضع بعض الاخطاء في البرنامج ،،، لارى فقط كيف تجد اين الخطأ وكيف تفكر لحل الخطأ
( الكود مخدوم في turbo pascal لا أدري ماتستخدم انت )

------

في الاخير أرفقت لك البرنامج كاملا في المرفقات
ان كان لديك اي تساؤل تفضل أنا هنا لمساعدتك

[ouahed]

شكراااا أخي الفاضل أنا اريد suprimie un enregestrement dans un fichie d'un enregistrement
علما la position يجب اعطائها من طرف المستخدم
أما بخصوص tri شكرااا وجدتها

[حمزة_89]

المشاركة الأصلية كتبت بواسطة ouahed

شكراااا أخي الفاضل أنا اريد suprimie un enregestrement dans un fichie d'un enregistrement
علما la position يجب اعطائها من طرف المستخدم
أما بخصوص tri شكرااا وجدتها

اجراء supprimer وضعته لك أم لم ترى

في الكود الذي ارفقته لك سابقا المستخدم لا يعرف مكان الكلمات ،،، يعرف الكلمات فقط

تستطيغ بتعيير طفيف انجاز حذف مكان postion