لغة الدالفي delphi كل ما يتعلق بالدالفي و الباسكال

قديم 14-05-2010, 10:12 AM
  #1
khelef
VIP_MEMBRE
 الصورة الرمزية khelef
 
تاريخ التسجيل: 29-05-2008
المشاركات: 1,024
khelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداع
04 ^programme en pascal


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


__________________
كن حذرا اليوم مما تزرع لتحصد غدا

وعلى قدر عطائك في الحياة تأتيك ثمارها


رب ضاحك والألم يعتصر كبده، وآخر هادئ الجنان والسعادة والحبور تحمله على جناحيها وتطير به في عوالمها.
khelef غير متواجد حالياً  
قديم 15-05-2010, 11:38 AM
  #2
Amir_Kader
 
La spécialité: Génie civil
جامعة أبو بكر بلقايد - تلمسان
تاريخ التسجيل: 26-11-2008
الدولة: الجزائر الحبيبة
المشاركات: 16
Amir_Kader عضو يستحق التميز
افتراضي رد: ^programme en pascal

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[I]; //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[I]:=S1; //affecter la nouvelle chaîne S1 ne contenant pas de 'E' à la valeur en cours dans le tableau
End; //o

End; //o
Amir_Kader غير متواجد حالياً  
قديم 15-05-2010, 02:16 PM
  #3
khelef
VIP_MEMBRE
 الصورة الرمزية khelef
 
تاريخ التسجيل: 29-05-2008
المشاركات: 1,024
khelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداع
افتراضي رد: ^programme en pascal

اريد البرنامج كاملا و ليست الاجراء
__________________
كن حذرا اليوم مما تزرع لتحصد غدا

وعلى قدر عطائك في الحياة تأتيك ثمارها


رب ضاحك والألم يعتصر كبده، وآخر هادئ الجنان والسعادة والحبور تحمله على جناحيها وتطير به في عوالمها.
khelef غير متواجد حالياً  
قديم 15-05-2010, 02:39 PM
  #4
Amir_Kader
 
La spécialité: Génie civil
جامعة أبو بكر بلقايد - تلمسان
تاريخ التسجيل: 26-11-2008
الدولة: الجزائر الحبيبة
المشاركات: 16
Amir_Kader عضو يستحق التميز
افتراضي رد: ^programme en pascal

اقتباس:
المشاركة الأصلية كتبت بواسطة khelef مشاهدة المشاركة
اريد البرنامج كاملا و ليست الاجراء
و الله أعتقد أن ما كتبته كامل بما فيه الكفاية، ولا يمكنني إملاء البقية مادمت لا أعلم إن كنت تستعمل الدلفي أو التربو باسكال، إضافة إلى طريقة قراءة المعلومات و عرض النتائج؟؟
لذا وجدت من الأفضل و الأفيد عرض Procedure يمكن إدراجها في أي برنامج و من ثم استعمالها و استغلال نتائجها.
Amir_Kader غير متواجد حالياً  
قديم 17-05-2010, 09:38 PM
  #5
ING_HYD
مشرف منتدى هندسة الري
 الصورة الرمزية ING_HYD
 
La spécialité: Hydraulique
جامعة حسيبة بن بوعلي شلف
تاريخ التسجيل: 08-05-2010
الدولة: الجزائر
المشاركات: 1,127
ING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداع
افتراضي رد: ^programme en pascal

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
ING_HYD غير متواجد حالياً  

الكلمات الدلالية (Tags)
programme en pascal

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{برنامج} programme par matlab ou pascal ''écoulement de puissance''e amynou31 الإستفسارات و الطّلبات 7 12-12-2013 07:07 PM
{طلب} programme par matlab ou pascal ''écoulement de puissance''e amynou31 الإستفسارات و الطّلبات 1 12-01-2010 09:33 PM
Pascal mimik لغة الدالفي delphi 6 20-05-2009 09:00 PM
un programme en pascal lucky girl لغة الدالفي delphi 2 20-04-2009 10:01 PM
Pascal achraf.mouni الإعــلام الآلي والرياضيــات 8 22-01-2009 05:40 PM


الساعة الآن 06:44 AM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir