^programme en pascal

khelef

  • Hero Member
  • *****
    • مشاركة: 1023
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: أيار 14, 2010, 09:12:00 صباحاً
Soit un tableau T contenant 10 mots supposés écrits en majiscules
ecrire un programme en pascal qui permet de supprimer les lettres " E " de chaque mot.
exemple : T = elle, texte, non,pascal, ==> T= ll, txt, non,pascal


Amir_Kader

  • Newbie
  • *
    • مشاركة: 16
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: أيار 15, 2010, 10:38:52 صباحاً
Procedure SuppE(Var T:Array[1..10] Of String); //le nombre d'éléments sera 10
Var S0,S1:String; //déclarer les chaînes sources et cibles
I,J:Integer; //o
St:String[1]; //chaîne temporaire unitaire
Begin
For I:=1 To 10 Do //boucler sur les éléments du tableau
Begin
S0:=T; //ce n'est pas absolument nécessaire d'utiliser S0 mais ça permet de ne pas avoir de confusion
S1:=''; //initialiser la chaîne S1
For J:=1 To Length(S0) do //boucler sur la longueur de la chaîne S0
Begin
St:=Copy(S0,J,1); //mettre la lettre à la position J dans St
If St<>'E' Then
S1:=S1+St; //on ne va prendre que les lettres différentes de E
End; //o
T:=S1; //affecter la nouvelle chaîne S1 ne contenant pas de 'E' à la valeur en cours dans le tableau
End; //o

End; //o


khelef

  • Hero Member
  • *****
    • مشاركة: 1023
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: أيار 15, 2010, 01:16:11 مسائاً
اريد البرنامج كاملا و ليست الاجراء


Amir_Kader

  • Newbie
  • *
    • مشاركة: 16
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: أيار 15, 2010, 01:39:21 مسائاً
مقتبس من: khelef;459174
اريد البرنامج كاملا و ليست الاجراء

و الله أعتقد أن ما كتبته كامل بما فيه الكفاية، ولا يمكنني إملاء البقية مادمت لا أعلم إن كنت تستعمل الدلفي أو التربو باسكال، إضافة إلى طريقة قراءة المعلومات و عرض النتائج؟؟
لذا وجدت من الأفضل و الأفيد عرض Procedure يمكن إدراجها في أي برنامج و من ثم استعمالها و استغلال نتائجها.


ING_HYD

  • Hero Member
  • *****
    • مشاركة: 1124
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: أيار 17, 2010, 08:38:54 مسائاً
Personne ne peut faire ton travail, un peu d'effort de ta part et si tu as des questions sur des parties précises du code alors poses tes questions