المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : موضوع مميز ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal


الصفحات : 1 2 [3]

كريم عربي
2013-06-07, 23:21
يا أخي وين راهي 1000 مشاركة حتى نقدر نراسلك.

ما تحير روحك ما والو، عندي أمر باغي فيه مساعتدك وخلاص وش فيها هذي.

تصعب فيها باطل أخي وسائل إتصال ومانعرف وش.

عموما شكراً أخي.

كريم عربي
2013-06-07, 23:37
اخي نكررلك انو مانقدرش نبعث رسالة خاصة لأي شخص ماعدا الإشراف.

you92cef
2013-06-08, 01:11
خويا يوسف، إذا تقدر تعطيني حسابك على الفـيسبوك أو الـسـكايب محتاجك في أمر خاص وضروري وعاجل.

ومستعد نخلصك فيه.

راجع الرسالة التي ارسلت اليك واعمل بمضمونها

كريم عربي
2013-06-08, 18:21
لقد فمت بمراسلتك أخي يوسف.

brahimce
2013-06-18, 06:26
إخواني ساعدوني
أريد تعلم كيفية تعريف un liste في c++
و كيفية العمل عليها

*ابو محمد الجزائري*
2013-07-15, 19:29
اخي نكررلك انو مانقدرش نبعث رسالة خاصة لأي شخص ماعدا الإشراف.

وضع وسائل الاتصال في المشاركات ممنوع بنص القانون

بما انك لا تستطيع مراسلة العضو
فاجعل مشرفا واسطة بينكم

يمكنني مساعدتك بتحويل اي رسالة الى العضو يوسف بعد ارسالها الي

خليل صلاح
2013-08-07, 19:00
إخواني ساعدوني
أريد تعلم كيفية تعريف un liste في c++
و كيفية العمل عليها



مادا تعني ب liste ، هل تعني liste chainée ( avec les pointeur)؟؟؟ ام مادا؟

bhazar
2013-09-26, 16:52
السلام عليكم
معليش خويا تعطيني نخصص مليح في تيارت سنة ثانية انفورماتيك
و بارك الله فيك،،ـ

you92cef
2013-10-03, 11:56
السلام عليكم
معليش خويا تعطيني نخصص مليح في تيارت سنة ثانية انفورماتيك
و بارك الله فيك،،ـ

للاسف ليس لدي علم عن تخصصات تيارت
ولكن بحسب الجامعات يوجد تقريبا 3 تخصصات

reseaux
gl
mid

reseaux الشبكات تدرسون عن الشبكات والاتصالات السلكية واللاسلكية وهي بحد ذاتها تنقسم الى فئتين تقريبا
فئة materiale اي كيف ربط شبكة والتوصيل بينها وغيرها
وفئة logiciel كبرمجة الشبكات وحمايتها واستخراج او ادخال المعلومات لها
------------------
gl genie logiciel تهتمون البرمجة وفعالية البرنامج واستهلاك الوقت واشياء اخرى سوف تتطرقون لها في السنة الثانية
-----------------
mid ’model intellegence et dicisuion
تهتمون بالذكاء الاصطناعي والانظمة الذكية وهذا عن طريق دراسة بعض المواد والخوارزميات كحال مثلا
المنطق الرياضي
البرمجة المنطقية عن طريق البرمجة بprolog

*نسيم الفجر*
2013-10-12, 21:13
اريد حل لهذا التمرين
soit la narration suivante :
Narration : inconnue
OBJET A,B
1-Lire A
2-Calculer B=1
3- Tester A par rapport à 0 (A<0?)
3.1-Oui, aller à 4
3.2-Non, aller à 6
4-Ecrire 'erreur'
5- Aller à 11
6- Tester A par rapport à 1 (Asuperieur a 1 ?)
6.1-POui,aller à 7
6.2-Non, aller à 10
7-Calculer B=B*A
8-Calculer A=A-1
9-Aller à 6
10-Ecrire B
11-Stopper.
Question:
1-faire tourner cette narration à la mainpour les valeurs de A=-5 , 0 ,1,5
2-que fait cettenarration

you92cef
2013-10-14, 12:03
اريد حل لهذا التمرين
soit la narration suivante :
Narration : Inconnue
objet a,b
1-lire a
2-calculer b=1
3- tester a par rapport à 0 (a<0?)
3.1-oui, aller à 4
3.2-non, aller à 6
4-ecrire 'erreur'
5- aller à 11
6- tester a par rapport à 1 (asuperieur a 1 ?)
6.1-poui,aller à 7
6.2-non, aller à 10
7-calculer b=b*a
8-calculer a=a-1
9-aller à 6
10-ecrire b
11-stopper.
Question:
1-faire tourner cette narration à la mainpour les valeurs de a=-5 , 0 ,1,5
2-que fait cettenarration


ارجوا كتابة التمرين بشكل مفهوم ومرتب وتفادي استعامل الاقواس قدر الامكان و الترقيم وشكرا
------------

*نسيم الفجر*
2013-10-14, 16:35
ارجوا كتابة التمرين بشكل مفهوم ومرتب وتفادي استعامل الاقواس قدر الامكان و الترقيم وشكرا
------------

Objet;A;B
1lire;A
2calculerB=1
3tester A par rapport a 0
oui aller a 4
non aller a6
4ecrire Erreur
aller a11
6tester A par rapport a1
oui aller a 7
non aller a10
7calculerB=B fois A
8calculerA=A-1
9aller a 6
10ecrire B
11arreter

question
faire tourner cette narration on a la main pour A=5. 0 .1, 5

que fait cette narration

you92cef
2013-10-14, 20:20
Objet;A;B
1lire;A
2calculerB=1
3tester A par rapport a 0
oui aller a 4
non aller a6
4ecrire Erreur
aller a11
6tester A par rapport a1
oui aller a 7
non aller a10
7calculerB=B fois A
8calculerA=A-1
9aller a 6
10ecrire B
11arreter

question
faire tourner cette narration on a la main pour A=5. 0 .1, 5

que fait cette narration
-------------------من اجل
a=5

1lire;A
a=5
2calculerB=1
b=1
3tester A par rapport a 0
مقارنة قيمة
a مع الصفر
5 الا تساوي 0
اذن نحاول ونذهب الى السطر السادس
oui aller a 4
non aller a6
4ecrire Erreur
aller a11
6tester A par rapport a1
نقارن 5 مع 1
5 لا تساوي 1 اذن نذهب الى السطر 10 كما هو موضح في البرنامج
oui aller a 7
non aller a10
7calculerB=B fois A
8calculerA=A-1
9aller a 6
10ecrire B
نقوم بكتابة
b
في هذه الحالة =1 لاننا لم نغيرها
بعدها ننفذ السطر 11
11arreter
------------------------------------
ارجوا ان تحاول(ي) مع باقي القيم وهذا بناءا على المثال السابق وعلى الامثلة التي اخذتموها
بخصوص
tester
فهي تهدف الى مقارنة المساوات
tester a par rapport a 0
معناها مقارنة اذا كانت قيمة
a
تساوي 0
اذا كانت صحيحة
oui
ننفذ الاوامر كما هي مكتوبة وكما هي مطلوبة
اذا كانت خاطئ
اي لا تساوي 0 ننفذ الاوامر كما هي مكتوبة

ملاحظة
في التمرين لم يتم توضيح نوعية المقارنة اذا كانت اصغر او اكبر او تساوي لذلك النتائج قد تختلف نظرا لان سطور البرنامج ليست موضحة بشكل جيد فارجوا توضيح نوعية المقارنة هل مقارنة اكبر او اصغر او مساوات وشكرا
في التمرين استعملنا مقارنة مساوات
حاول(ي) استعمال المقارنات الثلاث في كل مرة
مقارنة مساوات
مقارنة اكبر
ومقارنة اصغر
وحساب النتائج في كل مرحلة

*نسيم الفجر*
2013-10-15, 12:17
-------------------من اجل
a=5

1lire;A
a=5
2calculerB=1
b=1
3tester A par rapport a 0
مقارنة قيمة
a مع الصفر
5 الا تساوي 0
اذن نحاول ونذهب الى السطر السادس
oui aller a 4
non aller a6
4ecrire Erreur
aller a11
6tester A par rapport a1
نقارن 5 مع 1
5 لا تساوي 1 اذن نذهب الى السطر 10 كما هو موضح في البرنامج
oui aller a 7
non aller a10
7calculerB=B fois A
8calculerA=A-1
9aller a 6
10ecrire B
نقوم بكتابة
b
في هذه الحالة =1 لاننا لم نغيرها
بعدها ننفذ السطر 11
11arreter
------------------------------------
ارجوا ان تحاول(ي) مع باقي القيم وهذا بناءا على المثال السابق وعلى الامثلة التي اخذتموها
بخصوص
tester
فهي تهدف الى مقارنة المساوات
tester a par rapport a 0
معناها مقارنة اذا كانت قيمة
a
تساوي 0
اذا كانت صحيحة
oui
ننفذ الاوامر كما هي مكتوبة وكما هي مطلوبة
اذا كانت خاطئ
اي لا تساوي 0 ننفذ الاوامر كما هي مكتوبة

ملاحظة
في التمرين لم يتم توضيح نوعية المقارنة اذا كانت اصغر او اكبر او تساوي لذلك النتائج قد تختلف نظرا لان سطور البرنامج ليست موضحة بشكل جيد فارجوا توضيح نوعية المقارنة هل مقارنة اكبر او اصغر او مساوات وشكرا
في التمرين استعملنا مقارنة مساوات
حاول(ي) استعمال المقارنات الثلاث في كل مرة
مقارنة مساوات
مقارنة اكبر
ومقارنة اصغر
وحساب النتائج في كل مرحلة

في هذا التمرين المقارنة هي اصغر
ارجو الاجابة عن الاسئلة و ووضع الجدول و تسمية la narration
وشكراااا

you92cef
2013-10-15, 19:48
a:=5
b:=1
faux
faux
b:=1
areeter
-------------------------
a:=0
b:=1
faux
vrai
b:=1*0=0
a:=a-1=-1
faux
b:=0
arreter
------------
a:=1.5
b:=1
faux
faux
b:=1
areter

البرنامج يبدوا انه مخصص لمعرفة اذا كان الرقم فردي او زوجي
اذا كان فردي او عدد بفاصلة يكتب 1
اذا كان زوجي يكتب 0

قد تكون هناك اخطاء
+
التمرين فيه بعض الاخطاء خاصة في نوع
b=1
هنا لدينا b
كثابت
+اضافة الا نوع المقارنة غير محدد
هل هي = او< او <= او > او >=
في التمرين اعتبرنا
b كمتغير وفي نص التمرين والمعطيات هي ثابت

kennydefer
2013-10-16, 17:27
je vous conseille cet langage de programation il est trés facile WINDEV

*نسيم الفجر*
2013-10-16, 18:39
a:=5
b:=1
faux
faux
b:=1
areeter
-------------------------
a:=0
b:=1
faux
vrai
b:=1*0=0
a:=a-1=-1
faux
b:=0
arreter
------------
a:=1.5
b:=1
faux
faux
b:=1
areter

البرنامج يبدوا انه مخصص لمعرفة اذا كان الرقم فردي او زوجي
اذا كان فردي او عدد بفاصلة يكتب 1
اذا كان زوجي يكتب 0

قد تكون هناك اخطاء
+
التمرين فيه بعض الاخطاء خاصة في نوع
b=1
هنا لدينا b
كثابت
+اضافة الا نوع المقارنة غير محدد
هل هي = او< او <= او > او >=
في التمرين اعتبرنا
b كمتغير وفي نص التمرين والمعطيات هي ثابت

ساقوم بوضع التمرين كاملا في هذه الايام ...شكراا ...انا ضيعت عدة حصص td لهذا انا عالقة,

you92cef
2013-10-17, 09:13
je vous conseille cet langage de programation il est trés facile windev

ليس لدي اي نظرة عن هته اللغة ولكن حسب علمي كانت هناك دورة موجودة في منتدى البرمجة الخاص بمنتديات الجلفة
يمكن البحث عنها

jetski
2013-10-18, 11:25
السلام عليكم ورحمة الله وبركاته
صحى عيدكم وكل عام وانتم بالف خير
اريد مساعدة في تمرين ارجوا ان تشرحوه وتحلوه نحتاجوا بالاحد stp:sdf:
مافهمت فيه وااالو
cet exercice est l étude du codage PBM qui code des images en noir et blanc .Une image est décrire comme un rectangle
largeur x hauteur de carrés qui peuvent etre soit noirs .soit blanc.
Le format est le suivant:
D'abord le caractére P(codé comme dans le table ASCII donnée encours.
sur un octét suivi du caractére4.ensuite.on trouve une série de caractéres blancs(un ou plusieurs;voir si-dessous pour la définition d' un caractére blanc).Ensuite vient la largeur de l'image ;sous forme décimale ;ecrite en ASCII(un octétpar chiffre); puis un ou plusieurs caractére blancs.ensuite vient la hauteur de l'image (commepour la largeur;en décimale et en ASCII) suivi d'un unique caractére blanc.la partie décrite jusque là s'appelle l'entéte du format.
Aprés lentéte; on va coder bit par bit les pixels de l'image .UN pixel blanc se code par un 0 un noir par un 1 .si la largeur de la ligne n'est pas divisible par8;on fait comme si limage etait plus large que réellement (on va jusqu'au multipe de 8 immédiatement supérieur;et tout ce quine fait pas partie de l'image est considéré blanc),mais bien sur on ne ne maodifie pas dans l entéte la largeur de l'image (on la laisse à sa valeur réelle).
la caractére blancs sont les caractéres de code hexadecimale 0x09;0x0A;0x0D ou0x20.Ilscorrespondent au caractére de tabulation (TAB)
au carractére de nouvelle ligne (LF) au caractére de retour chariot(CR) et à l'éspaceSP.votre enseignant pourra vous expliquer l'utilisation habituelle de ces carractéres.
1EN utilisant votre cours trouvez le code du caractére P et le code du caractére 4.Donnez-le en hexadécimale.en binaire.en octale.en décimale.
2-combien de bits sont nécessaire pour code
de cette façon une image de taille 8pixeels de large et 1 de haut ?r -
http://www.djelfa.info/vb/images/smilies/confused.gif

*نسيم الفجر*
2013-10-18, 16:04
a:=5
b:=1
faux
faux
b:=1
areeter
-------------------------
a:=0
b:=1
faux
vrai
b:=1*0=0
a:=a-1=-1
faux
b:=0
arreter
------------
a:=1.5
b:=1
faux
faux
b:=1
areter

البرنامج يبدوا انه مخصص لمعرفة اذا كان الرقم فردي او زوجي
اذا كان فردي او عدد بفاصلة يكتب 1
اذا كان زوجي يكتب 0

قد تكون هناك اخطاء
+
التمرين فيه بعض الاخطاء خاصة في نوع
b=1
هنا لدينا b
كثابت
+اضافة الا نوع المقارنة غير محدد
هل هي = او< او <= او > او >=
في التمرين اعتبرنا
b كمتغير وفي نص التمرين والمعطيات هي ثابت

question
1- faire tourner cette narration à lamain pour les valeurs de a=-5, 0, 1,5
2- que fait cette narration ?

*نسيم الفجر*
2013-10-18, 17:54
http://im33.gulfup.com/CRov3.jpg (http://www.gulfup.com/?hJmMCV)

احتاجه هذا الاثنين .....ارجو المساعدة

you92cef
2013-10-18, 21:37
http://im33.gulfup.com/crov3.jpg (http://www.gulfup.com/?hjmmcv)

احتاجه هذا الاثنين .....ارجو المساعدة

التمرين بسيط
يجب فقط اتباع المطلوب والعمل بالمثال المقدم سابقا
حاول حله ونحن هنا للمساعدة ان شاء الله

you92cef
2013-10-18, 21:42
السلام عليكم ورحمة الله وبركاته
صحى عيدكم وكل عام وانتم بالف خير
اريد مساعدة في تمرين ارجوا ان تشرحوه وتحلوه نحتاجوا بالاحد stp:sdf:
مافهمت فيه وااالو
cet exercice est l étude du codage PBM qui code des images en noir et blanc .Une image est décrire comme un rectangle
largeur x hauteur de carrés qui peuvent etre soit noirs .soit blanc.
Le format est le suivant:
D'abord le caractére P(codé comme dans le table ASCII donnée encours.
sur un octét suivi du caractére4.ensuite.on trouve une série de caractéres blancs(un ou plusieurs;voir si-dessous pour la définition d' un caractére blanc).Ensuite vient la largeur de l'image ;sous forme décimale ;ecrite en ASCII(un octétpar chiffre); puis un ou plusieurs caractére blancs.ensuite vient la hauteur de l'image (commepour la largeur;en décimale et en ASCII) suivi d'un unique caractére blanc.la partie décrite jusque là s'appelle l'entéte du format.
Aprés lentéte; on va coder bit par bit les pixels de l'image .UN pixel blanc se code par un 0 un noir par un 1 .si la largeur de la ligne n'est pas divisible par8;on fait comme si limage etait plus large que réellement (on va jusqu'au multipe de 8 immédiatement supérieur;et tout ce quine fait pas partie de l'image est considéré blanc),mais bien sur on ne ne maodifie pas dans l entéte la largeur de l'image (on la laisse à sa valeur réelle).
la caractére blancs sont les caractéres de code hexadecimale 0x09;0x0A;0x0D ou0x20.Ilscorrespondent au caractére de tabulation (TAB)
au carractére de nouvelle ligne (LF) au caractére de retour chariot(CR) et à l'éspaceSP.votre enseignant pourra vous expliquer l'utilisation habituelle de ces carractéres.
1EN utilisant votre cours trouvez le code du caractére P et le code du caractére 4.Donnez-le en hexadécimale.en binaire.en octale.en décimale.
2-combien de bits sont nécessaire pour code
de cette façon une image de taille 8pixeels de large et 1 de haut ?r -
http://www.djelfa.info/vb/images/smilies/confused.gif
---------------
صراحة لم افهم التمرين ايضا
هته التمارين مخصصة لمادة
system information
وتكون معقدة نوعا ما لفهمها

اذا تحتاجه ظروري يمكن ان احاول حله

jetski
2013-10-19, 08:55
صراحة لم افهم التمرين ايضا
هته التمارين مخصصة لمادة
system information
وتكون معقدة نوعا ما لفهمها

اذا تحتاجه ظروري يمكن ان احاول حله
أ،آ ايضآ لم افهمه نعم احتاجه ضروري اخي
اتستطيع ان تحاول لا يهم ان لم يكن صحيحا فقط المحاولة؟

you92cef
2013-10-19, 11:41
أ،آ ايضآ لم افهمه نعم احتاجه ضروري اخي
اتستطيع ان تحاول لا يهم ان لم يكن صحيحا فقط المحاولة؟

اليك هته الصورة فيها محاولة لحل التمرين
http://im42.gulfup.com/QkOy3.jpg

اعتذر عن الخلفية لانها بسبب البرنامج المستعمل

حاولي وضع الرسم مجددا عن طريق قراءة نص التمرين مجددا

الاسئلة الباقية تتعلق بما تلقيتموه في المحاضرات وبالتطبيق العددي واستعمال الرسم الاول وتمثيل الصورة بحسب المعطيات

sab07
2013-10-19, 11:47
سلام عليكم
مشكورين على هذا ملتقى في مرا قادة ساشارك وبداية موفقة لي جميع

bhaital93
2013-10-21, 20:54
ممكن دكر المستوى هل التمارينات هي للسنة الاولى او الثانية لنستطيع ان نتابع
بارك الله فيكم

you92cef
2013-10-22, 10:53
ممكن دكر المستوى هل التمارينات هي للسنة الاولى او الثانية لنستطيع ان نتابع
بارك الله فيكم

هي في جلها تمارين المستوى الاول والثاني (101-102)

101= مستوى الانطلاق* المستوى الذي يكون فيه المبرمج لا يعرف اي شيء عن هته اللغة البرمجية *
102= مستوى يبدا المبرمج برمجة بعض التمارين البسيطة نوعا ما

jetski
2013-10-25, 08:29
اليك هته الصورة فيها محاولة لحل التمرين
http://im42.gulfup.com/qkoy3.jpg

اعتذر عن الخلفية لانها بسبب البرنامج المستعمل

حاولي وضع الرسم مجددا عن طريق قراءة نص التمرين مجددا

الاسئلة الباقية تتعلق بما تلقيتموه في المحاضرات وبالتطبيق العددي واستعمال الرسم الاول وتمثيل الصورة بحسب المعطيات
يعطيــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــك الصح خويا مرسيـــــ

you92cef
2013-11-01, 18:43
تمرين لقراءة
matrice (n*n)
باستعمال
function et recursive
يمكن تعديل الاوامر في الدالة للقيام بحسابات اخرى على
matrice
مثلا


program ex;
uses wincrt;
type mat=array[1..20,1..20] of integer;
var i,j,n,ii,jj:integer;
tab:mat;
function lire(i,j:integer):integer;
begin
jj:=1;
while i<=n do begin
while j<=n do begin
writeln('t[',i,j,']=');
readln(tab[i,j]);
j:=j+1;
tab[i,j]:=lire(i,j);
end;
while jj<=n do begin
i:=i+1;
tab[i,jj]:=lire (i,jj);
jj:=jj+1;
end;
end;
end;
begin
writeln('Donner la dimenesion de matrice');
repeat
readln(n);
until(n>=1);
lire(1,1);
end.

ندى الاسلام ندى
2013-11-02, 13:45
:dj_17:

السّلام عليكم عندي تمارين ممكن تساعدوني فيهم ؟ :sdf:

Exercice :1

ecrire un algorithme qui affiche la conjoction et la disconjoction de deux valeurs booléennes données par l'utilisateur.

Donner l'organigramme correspondant à cet algorithme.

merci d'avance

bhaital93
2013-11-02, 18:02
ممكن حل هته التمارينات من فضلكم


http://www9.0zz0.com/2013/11/02/17/821954403.jpg



في انتظار الردود

you92cef
2013-11-03, 18:13
ممكن حل هته التمارينات من فضلكم


http://www9.0zz0.com/2013/11/02/17/821954403.jpg



في انتظار الردود

هته التمارين خاصة بمادة
langage machive**cryptage**

لذلك اعتذر عن الاجابة عنها

يمكن ان تساعدك هته الاجابات والبرامج والخوارزميات في فهم الطريقة
http://www.djelfa.info/vb/showthread.php?t=1135321&page=27
االردود ابتداءا من 394
الردود
406 الى 409
http://www.djelfa.info/vb/showthread.php?t=1135321&page=27

you92cef
2013-11-03, 18:44
:dj_17:

السّلام عليكم عندي تمارين ممكن تساعدوني فيهم ؟ :sdf:

Exercice :1

ecrire un algorithme qui affiche la conjoction et la disconjoction de deux valeurs booléennes données par l'utilisateur.

Donner l'organigramme correspondant à cet algorithme.

merci d'avance

La conjonction logique de deux événements, comme son nom l'indique, représente le fait que deux événements sont conjoints (présents simultanément).
Dans le langage logique ou mathématique et dans les domaines techniques qui l'emploient, la conjonction, ou ET logique,
La conjonction
s'écrit : P ∧ Q
et se lit « P et Q »
Considérons
exemple :
(x > 13) ∧ (x < 27).
Si x vaut 36, alors x > 13 est vrai, mais x < 27 est faux, ainsi cette proposition est fausse. Mais si x vaut 20, alors les deux parties de la proposition sont vraies, ainsi la conjonction est également vraie.
Le symbole « ∧ » s'appelle connecteur de conjonction.



P Q P ∧ Q
vrai vrai vrai
vrai faux faux
faux vrai faux
faux faux faux

conclusion
la conjonction est une fonction telle que les valeur de cette fonction sont relient par un et
ex
p1 et p2 et non p3 et p4
est sous la forme conjonction
-----------------------
la disjonction c'est la meme definition de conjonction ou lieu de et c'est ou
ex
p1 ou p2 ou non p3 ou p4
************************************************** **********************************
مثل هته الخوارزميات المفروض لها مواد خاصة بها مثل
ALGEBRE DE BOOLE ET LOGIQUE MATHEMATIQUE

ندى الاسلام ندى
2013-11-05, 16:11
السلام عليكم
:19:

شكرا بارك الله فيكم على الشرح

عندي استفسار آخر لو سمحتم , الاستاذ طلب منا تجريب هذه القضية في برنامج اسمه باسكال لكن بصراحة لا اعرف ماهو هذا البرنامج و ليس لدي اي فكرة عن عمله
قال لنا انه يمكن تنزيله و هو موجود باسم DEVpascal حسب ما فهمت

اررررجوكم ان امكنكم مساعدتي لا تتاخروا و جزاكم الله خيرا :sdf:

you92cef
2013-11-05, 19:59
السلام عليكم
:19:

شكرا بارك الله فيكم على الشرح

عندي استفسار آخر لو سمحتم , الاستاذ طلب منا تجريب هذه القضية في برنامج اسمه باسكال لكن بصراحة لا اعرف ماهو هذا البرنامج و ليس لدي اي فكرة عن عمله
قال لنا انه يمكن تنزيله و هو موجود باسم DEVpascal حسب ما فهمت

اررررجوكم ان امكنكم مساعدتي لا تتاخروا و جزاكم الله خيرا :sdf:
-----------------------
برنامج باسكال هو برنامج يمكننا من برمجة الخوارزميات والتالي الحصول على برامج نستطيع العمل بها
ولغة البرمجة الخاصة بالباسكال بسيطة وسهلة وهي اقرب لغة برمجية الى الخوارزميات

يمكن تحميل البرنامج الموجود في اخر الرد هنا
http://www.djelfa.info/vb/showthread.php?t=1135321&page=14
الرد 194
يمكن تحميل برنامج الباسكال من هنا
http://wftp.yiotis.com/down/details.php?file=30
تجد مكتوب
Download Borland Turbo Pascal 1.5 for Windows (5.78MB) • Report Problem
اضغظ على الرابط للتحميل

mr boudebouz
2013-11-07, 16:17
السلام عليكم
اريد تحميل برنامج turbo pascal for windows الابيض
هل ممكن لاحد ان يرفعلي البنامج او يعطيني رابط تحميل

you92cef
2013-11-07, 16:39
السلام عليكم
اريد تحميل برنامج turbo pascal for windows الابيض
هل ممكن لاحد ان يرفعلي البنامج او يعطيني رابط تحميل
جرب هذا
http://wftp.yiotis.com/down/details.php?file=30
تجد مكتوب
Download Borland Turbo Pascal 1.5 for Windows (5.78MB) • Report Problem
اضغظ على الرابط للتحميل

mr boudebouz
2013-11-07, 20:48
جربت كل شيئ لكن لاجدوى
ممكن برنامج اخر لكن اريد نفس اللغة

asmadjellab
2013-11-08, 11:07
ecrivez alg qui lit une valeur d'angle en degré , la convertit en radian et affiche le résultat

asmadjellab
2013-11-08, 12:33
ارجوا ان تساعدونييييي

ayoub henni
2013-11-11, 19:09
écrire unalgorithme qui demande un nobre a l'utilisateur puis qui calculer et affiche le carré de cenombre

ندى الاسلام ندى
2013-11-13, 00:59
écrire unalgorithme qui demande un nobre a l'utilisateur puis qui calculer et affiche le carré de cenombre

algorithme carré;
var x:réel;

début
écrire('x');
lire(x);
écrire('le carré =',x**2);
fin.

dz hamed
2013-11-13, 11:12
algorithme carré;
var x:réel;

début
écrire('x');
lire(x);
écrire('le carré =',x**2);
fin.

ماهدا هده خورزمية سهلة يجب ان تحول بنفسك لو تكمل هكدا لا تتعلم

khalfaoui
2013-11-16, 15:29
ممكن مسا عدة في حل التمارين في أسرع وقت ... وشكرا




http://im35.gulfup.com/mCfgk.jpg

المتحمس
2013-11-16, 19:09
السلام عليكم
أرجو المساعدة في حل هذا التمرين :D
Ecrire un algorithme qui détermine la somme (l'utilisateur donner le n),
la relation
http://oi44.tinypic.com/714ljl.jpg
:19:

imane29
2013-11-18, 19:42
j ai besoin d aide svp 69349

69350

69351

you92cef
2013-11-19, 18:36
الاخوة اصحاب التمارين
ارجوا بذل بعض الجهد في ايجاد الحلول والاكتفاء بطرح التمارين والاشكاليات المستعصية او الصعبة
فنحن ايضا طلبة مثلكم بدانا من الصفر ووراءنا دراسة واشياء اخرى علينا القيام بها
لذلك ارجوا عدم التواكل على هذا الملتقى وفقط
لان الهدف هو الفهم وليس الحل
+
بعض التمارين شبيهة جدا بتمارين قد تم طرحها في الردود السابقة والحلول والشروحات موجودة لذلك يكفي فقط مراجعة الردود في الصفحات الاولى
وان شاء الله تلقون مبتغاكم
واي تاخر في الرد راجع اما لسهولة التمرين او لقلة الوقت الكافي لحل التمرين في الاجال المحددة
شكرا للجميع

hind-95
2013-11-20, 13:42
ecrire un algo qui donne la possibilité à l'utilisateur de creér une liste chainee et de faire le trie de la liste
1
une liste simplement chainée
2 une liste circulaire simplement chainée
3 une liste doublement chainée
4 une liste circulaire doublement chainnée



الله يخليكم عاونوني فهاد التمرين

bb_madjid
2013-11-22, 12:29
السلام عليكم ورحمة الله وبركاته
الى كل الاعضاء المشاركين و الاعضاء المشرفين لكم مني جزيل الشكر والاحترام (( بما أنني مبتدأفي مجال الخوارزميات لدي تمارين الرجاء منكم مساعدتي في حلها و وفقكم الله .


لدي تمارين في الخوارزميات و رجاء مساعدتي ولكم تحياتي الخالصة


-1) Ecrire l'algorithme qui permet de déterminer si un entier lu est pair ou impair.
-2) Ecrire l'algorithme qui permet de saisir deux nombres A et B et de déterminer si la valeur de A est supérieure, inférieure ou égale à B.
-Ecrire l'algorithme qui permet de saisir un numéro de couleur de l'arc-en-ciel et d'afficher la couleur correspondante : 1: rouge, 2 : orangé, 3 : jaune, 4 : vert, 5 : bleu, 6 : indigo et 7 : violet.

Arrowhead
2013-11-22, 15:23
السلام عليكم اريد algorithme pour que l'utilisateur crée liste chainée (tous les types)
اريد فهم فقط كيف يمكن للمستخدم ان يخلق قائمة بكل انواعها

josseline
2013-11-27, 16:57
ممكن تحلولي هاذ التمرين قيبل الاحد المقبل ارجوووووووووووووووووووووووووووووكم لكن في برنامج scilab
calculer les définies par les développements finis de : sin(x) ; exp(x) ; et (1+x)^alfa
sur tout (1+x)^alfa ne7taj la solution nta3ha fi a9reb wa9t

WissamI
2013-11-27, 18:22
السلام عليكم ......SVP KACH WA7ED YA9DAR Y7ALI HADA L' EXO:
ecrire un organigrame qui calcule :
S=1!*X^1! + (1!+2!)*X^(1!+2!)+.........(1!+2!+3!.....N!)*X^(1! +2!+3!+......N!)
merci d'avence ^_^

you92cef
2013-11-28, 17:36
ecrire un algo qui donne la possibilité à l'utilisateur de creér une liste chainee et de faire le trie de la liste
1
une liste simplement chainée
2 une liste circulaire simplement chainée
3 une liste doublement chainée
4 une liste circulaire doublement chainnée



الله يخليكم عاونوني فهاد التمرين


*******************
الخوارزميات موجودة هنا
https://www.academia.edu/1906505/Algorithmique_et_Structures_de_Donnees_II

يمكن تحميل الكتاب بعد التسجيل في الموقع
ويمكن الاطلاع عليه مباشرة

you92cef
2013-11-28, 17:47
السلام عليكم ......SVP KACH WA7ED YA9DAR Y7ALI HADA L' EXO:
ecrire un organigrame qui calcule :
S=1!*X^1! + (1!+2!)*X^(1!+2!)+.........(1!+2!+3!.....N!)*X^(1! +2!+3!+......N!)
merci d'avence ^_^

اولا هذا التمرين على ما اعتقد تم حله والحل موجود في الصفحات الاولى للموضوع
ثانيا
نحتاج اولا الى
boucle
ولهذا من الافضل استعمال
boucle for car on a 'n'
في الاول نحتاج الى 3 متغيرات
s: pour la somme
donc s est intialier a 0
في هذه الحالة يمكن ان تكون القيمة الاولية ل
s
تساوي 1 ولكن هذا راجع ل
la premier iteration égal a1
donc s est intialier a 0
المتغير x نفس الشيء
العنصر الحيادي للاس هو 1
لان الاس هو في الاساس عملية ضرب
donc x est intialiser a1
المتغير لحساب العاملي
pour calculer le factoriel
meme principe
le fact est est un multiplication donc fact intiale égale a 1
ملاحظة
القيم الاولية التي نستعملها لحساب المتتاليات ** ان صح التعبير**
تاخذ قيمة العنصر الحيادي الخحاص بهته العملية
كحال العنصر الحيادي للجمع هو 0
العنصر الحيادي للظرب هو 1
باقي العمليات** الاس-العاملي-القسمة....** يمكن ان نبسطها وهذا بناء على المعطيات السابقة ومنه نستنتج القيمة الاولوية لهته الدوال
بعض الدوال قد تاخذ قيم اولية مختلفة وهذا راجع فقط الى طبيعة الدالة او المتتالية فيكفي ان نحسب الحد الاول للدالة او المتتتالية

بما اننا نحتاج الى القيام بهته العمليات معا فنكتبها داخل
boucle for

حاول التطبيق بنفسك

you92cef
2013-11-28, 17:50
ممكن تحلولي هاذ التمرين قيبل الاحد المقبل ارجوووووووووووووووووووووووووووووكم لكن في برنامج scilab
calculer les définies par les développements finis de : sin(x) ; exp(x) ; et (1+x)^alfa
sur tout (1+x)^alfa ne7taj la solution nta3ha fi a9reb wa9t

*********************************
نحتاج اولا الى حساب
dl pour chaque fonction
aprés on doit connaitre la relation entre le terme i et terme i+1
apres on fait l'algo avec le meme principe
il reste l'implimentation on utilise la longage de programation

you92cef
2013-11-28, 17:54
السلام عليكم اريد algorithme pour que l'utilisateur crée liste chainée (tous les types)
اريد فهم فقط كيف يمكن للمستخدم ان يخلق قائمة بكل انواعها

هنا
https://www.academia.edu/1906505/Algorithmique_et_Structures_de_Donnees_II

you92cef
2013-11-28, 17:56
السلام عليكم ورحمة الله وبركاته
الى كل الاعضاء المشاركين و الاعضاء المشرفين لكم مني جزيل الشكر والاحترام (( بما أنني مبتدأفي مجال الخوارزميات لدي تمارين الرجاء منكم مساعدتي في حلها و وفقكم الله .


لدي تمارين في الخوارزميات و رجاء مساعدتي ولكم تحياتي الخالصة


-1) Ecrire l'algorithme qui permet de déterminer si un entier lu est pair ou impair.
-2) Ecrire l'algorithme qui permet de saisir deux nombres A et B et de déterminer si la valeur de A est supérieure, inférieure ou égale à B.
-Ecrire l'algorithme qui permet de saisir un numéro de couleur de l'arc-en-ciel et d'afficher la couleur correspondante : 1: rouge, 2 : orangé, 3 : jaune, 4 : vert, 5 : bleu, 6 : indigo et 7 : violet.

هنا https://www.academia.edu/1906492/Algorithmique_et_Structures_de_Donnees_I
+
راجع الردود السابقة الخاصة بهذا المضوع في الصفحات الاولى

Boufa rosemary
2013-11-29, 14:53
svp un petit aide
alors c un pb de fonctionnement d'une circulation des véhicules dans une intersection de deux grandes routes
cette intersection peut etre géree par 2 types d evenement
1- par l activation du feu rouge ( deux chemins en face bloqué ) pendant '10 unités " passage de voiture " et els autres deux chemins sont ouvertes
2-par priorité ... la voiture qui posséede le chemin de sa droite est prioritaire


alors c demander de faire un program en c++ et de le terminer avec une historique des 4 chemins
rmq ! en utilisent les lictes chainées
é salam

radia n
2013-11-30, 17:08
لدي تمرينين ارجو حلها في وقت قريب
ecrire un programme qui permet de remplir un tableau T par n caracteres (avec 6<=n<= 30)
et de répartir ces n caracteres sur 3 tableau et les afficher.
TL:un tableau de letres
TC:un tableau de chiffres
TS:UN TABLEAU DE SYMBOLES
EXEMPLE:
Soit n=10

T
On doit obtenir le tableau:
TL
H K R D
TC
4 2 6
TS
! } $






EXERCICE2
Soit T un tableau representant les salaires des employé un petite entroprise.
Ecrire un agorithme qui permet des terminnier le nombre des employé qui on le méme salaire.
Exemple:
15000 18000 10000 15000 18000 15000 15000
Le nombre des employé qui est le salaire 15000est=4
Le nombre des employé qui est salaire 18000est=2
Rq: on ignore le salaire est d’un seul employé.

radia n
2013-11-30, 17:10
لدي تمرينين ارجو حلها في وقت قريب
ecrire un programme qui permet de remplir un tableau T par n caracteres (avec 6<=n<= 30)
et de répartir ces n caracteres sur 3 tableau et les afficher.
TL:un tableau de letres
TC:un tableau de chiffres
TS:UN TABLEAU DE SYMBOLES
EXEMPLE:
Soit n=10

T
On doit obtenir le tableau:
TL
H K R D
TC
4 2 6
TS
! } $






EXERCICE2
Soit T un tableau representant les salaires des employé un petite entroprise.
Ecrire un agorithme qui permet des terminnier le nombre des employé qui on le méme salaire.
Exemple:
15000 18000 10000 15000 18000 15000 15000
Le nombre des employé qui est le salaire 15000est=4
Le nombre des employé qui est salaire 18000est=2
Rq: on ignore le salaire est d’un seul employé.

WissamI
2013-12-06, 12:18
thank you ^_^

bellamina21
2013-12-08, 21:21
je veux realisè une calculatrice en pascal en utilisant la pile aidez moi svp o moin bach nèbda une idèè bark comment je travaille

hadji231
2013-12-09, 02:05
موضوع رائع شكر لكم

تقرت30
2013-12-10, 17:39
تمرين اكتب خوارزمية بالباسكال قراءة ثلاث اعداد حقيقية وطبع العدد الاكبر والعدد الاصغر
ecrire program en pascal lire 3 numero reele et indique le max et le min

تقرت30
2013-12-10, 17:43
transformer en tantque et en repeter

pour k= 1 a 100 faire
debut
lire(n)
a---a+k
fin
ecrire(a)

you92cef
2013-12-13, 11:25
svp un petit aide
alors c un pb de fonctionnement d'une circulation des véhicules dans une intersection de deux grandes routes
cette intersection peut etre géree par 2 types d evenement
1- par l activation du feu rouge ( deux chemins en face bloqué ) pendant '10 unités " passage de voiture " et els autres deux chemins sont ouvertes
2-par priorité ... la voiture qui posséede le chemin de sa droite est prioritaire


alors c demander de faire un program en c++ et de le terminer avec une historique des 4 chemins
rmq ! en utilisent les lictes chainées
é salam
*************************************************
algo

route tableau de 2 unité chaque unité est un tableau de chemin
** puisque l'exo demande l'utilisation des l.c alors
route est une liste chaineé contient 3 champs
// route1,route2,NULL
chaque champ de route est lui meme une liste chainé ** chaque route countient 2 chemin est chemin est un l.c**
// de meme on a 5 chemin
chemin1,chemin2 de route 1
chemin 3 ,chemin4 de route2
+null

chaque chemin contien les champ suivant
faux rouge un boolean /0 ou1/
c'est mieaux d'utiliser un random qui genere de 0 ou 1
0:il n'ya pas de faux rouge
1 il ya de faux rouge
s'il ya une faux rouge on attende 10 seconde
** soit on utilise une commaintre pour indique qu'on attende10 seconde
soit on utilise

sleep(10)
cette fonction indique qu'on doit attende 10 seconde pour passer a l'instruction suivante
mais on doit utiliser une biblio pour que le compilateur lui connaitre
*** le compilateur de linux connaitre cette fonction normalelement**

dans ces cas on faire les instruction qui confient
*** c'est mieux d'utiliser un chemas pour comprendre**

le 2 ime champ est
est un chemin qui indique si la voiture se trouve au chemin droite(0) ou chemin gauche(1)
si le chemin est droite alors le 3 ieme champ est vrai**1**
sinon c'est faux**0*
le 3ieme champ indique la priorité

on suite il reste que d'appliquer l'algo

you92cef
2013-12-13, 11:44
لدي تمرينين ارجو حلها في وقت قريب
ecrire un programme qui permet de remplir un tableau T par n caracteres (avec 6<=n<= 30)
et de répartir ces n caracteres sur 3 tableau et les afficher.
TL:un tableau de letres
TC:un tableau de chiffres
TS:UN TABLEAU DE SYMBOLES
EXEMPLE:
Soit n=10

T
On doit obtenir le tableau:
TL
H K R D
TC
4 2 6
TS
! } $






EXERCICE2
Soit T un tableau representant les salaires des employé un petite entroprise.
Ecrire un agorithme qui permet des terminnier le nombre des employé qui on le méme salaire.
Exemple:
15000 18000 10000 15000 18000 15000 15000
Le nombre des employé qui est le salaire 15000est=4
Le nombre des employé qui est salaire 18000est=2
Rq: on ignore le salaire est d’un seul employé.

******************
التمرينين تقريبا يعتمدان على نفس الالغوريتم

لهذا مثلا في التمرين الاول
نحتاج اولا الى تعريف 3 جداول
3tableau
tableau 1 des lettre
tableau 2 des chiffre
tableau 3 des symbole
********
ensuite on utilise une boucle
for par example
on lire le characterre
ensuite on tete avec les 3 tableau
avec if et else ou avec switch et case
et on affiche le commaintre correspondant

you92cef
2013-12-13, 12:03
je veux realisè une calculatrice en pascal en utilisant la pile aidez moi svp o moin bach nèbda une idèè bark comment je travaille

liste contient 4 champ
nombre1:entier ou real
operateur :char ou chane de carractaire
nombre2 entier ou real
resultat

chaque fois on lit les3 champ on calcule le resultat est on stoque dans le champ 4


ex

nombre1:=5 // entier
operateur:=+// operateur est un char
nombre2:=5.5//real
resultat10.5// real
*****************
on peut modifier le programe
par example
nombre1:=+5
nombre2:=-5
operateur:=+
resultat:=0

autre example
nombre1:=7pi
operateur:= cos
nombre2:=3 pi
resultat:= cos 10 pi

you92cef
2013-12-13, 12:11
تمرين اكتب خوارزمية بالباسكال قراءة ثلاث اعداد حقيقية وطبع العدد الاكبر والعدد الاصغر
ecrire program en pascal lire 3 numero reele et indique le max et le min

هذا برنامج يقوم بقراءة 3 اعداد ويقوم بترتيبها
من الاكبر فالمتوسط فالاصغر

مثال
a:=1
b:=3
c:=2
النتيجة هي
le grand :=3
le moyen est:=2
le petit est:=1
******
autre example
a:=-5
b:=4
c:=-10

le resultat est
grand 4
moyen -5
petit-9

يمكن التعديل في البرنامج لجعله يقوم بعرض الاكبر والاصغر وجعله يقرا عددين فقط او 3 او 5 ....


program ex05;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
begin
writeln('Entrez le nombre numéro1');
readln(a);
writeln('Entrez le nombre numéro2');
readln(b);
writeln('Entrez le nombre numéro3');
readln(c);
if a>b then if b>c then begin
grand:=a;
moyen:=b;
petit:=c;
end
else if a>c then begin
grand:=a;
moyen:=c;
petit:=b;
end
else begin
grand:=c;
moyen:=a;
petit:=b;
end
else if a>c then begin grand:=b;
moyen:=a;
petit:=c;
end
else if b>c then begin grand:=c;
moyen:=c;
petit:=a;
end
else begin grand:=c;
moyen:=b;
petit:=a;
end;

writeln('grand:',grand);
writeln('moyen:',moyen);
writeln('petit:',petit);
end.

aminekarime
2013-12-13, 12:16
السلام عليكم ورحمة الله وتعالى وبركاته
ارجوا من اخوتي الكرام حل هذا التمرين
اكتب algorithme لحساب المعدل الفصلي
مثال ناخذ
x=نقطة في الرياضيات
f=معامل في الرياضيات
x1=نقطة في مادة الفيزياء
f1=معامل الفيزياء
.
.
.
xn
fn

you92cef
2013-12-13, 12:20
transformer en tantque et en repeter

pour k= 1 a 100 faire
debut
lire(n)
a---a+k
fin
ecrire(a)

اليك هذا الرابط المفيد
https://www.academia.edu/1906492/Algorithmique_et_Structures_de_Donnees_I

اليك هذا الرابط
http://www.djelfa.info/vb/showthread.php?t=1135321&page=17

راجع الردود ابتداءا من الرد 244

ارجوا ان تفيدك

bellamina21
2013-12-15, 20:55
liste contient 4 champ
nombre1:entier ou real
operateur :char ou chane de carractaire
nombre2 entier ou real
resultat

chaque fois on lit les3 champ on calcule le resultat est on stoque dans le champ 4


ex

nombre1:=5 // entier
operateur:=+// operateur est un char
nombre2:=5.5//real
resultat10.5// real
*****************
on peut modifier le programe
par example
nombre1:=+5
nombre2:=-5
operateur:=+
resultat:=0

autre example
nombre1:=7pi
operateur:= cos
nombre2:=3 pi
resultat:= cos 10 pi
merciiiii rabi yahafdak bessah kifah na9der ndir had l programme fl pascal en utilisant l interface graphique

benchocha
2013-12-16, 17:22
يا هل ترى مدوا المعدلات و لا

you92cef
2013-12-17, 18:41
merciiiii rabi yahafdak bessah kifah na9der ndir had l programme fl pascal en utilisant l interface graphique

يمكن الاستعانة بالدلفي بو لازاروس واستعمال خاصية الايقونات مثلا
ولكن هته ليست بمشكلة البتة
اصعب شيء في هذا البرنامج هي برمجته بالباسكال والباقي لا يمثل سوى 5 بالمئة تقريبا من البرنامج الكلي

حالو وضع برنامج الباسكال الخاص بك والذي بامكانه معالجات المطلوب من البرنامج الباقي سوف نقوم بمساعدتك
شكرا

you92cef
2013-12-17, 18:47
السلام عليكم ورحمة الله وتعالى وبركاته
ارجوا من اخوتي الكرام حل هذا التمرين
اكتب algorithme لحساب المعدل الفصلي
مثال ناخذ
x=نقطة في الرياضيات
f=معامل في الرياضيات
x1=نقطة في مادة الفيزياء
f1=معامل الفيزياء
.
.
.
Xn
fn

التمرين بسيط
المعدل هو مجموع نقطة كل مادة *في معاملها /مجموع المعاملات
يمكن استعمال اكثر من طريقة لحل هذا المشكل من بينها
تعريف معاملات كل مادة في البرنامج ووضع المعاملات المشتركة معا
استعمال حلقة تكرارية
في كل مرة نقوم بقراءة نقطة المادة
نقوم بتخزين النقاط الاجمالية في متغير** النقطة*المعامل +النقط السابقة الخاصة بكل مادة*
نقوم بجمع المعاملات في متغير اخر
في الاخير نقوم بالقسمة ونظهر النتيجة

فضلاوي عيسى
2013-12-20, 12:43
السلام عليكم
ارجوا من اخوتي الكرام حل هذا التمرين
اكتب algorithme و pascal لي برنامج
لي حل المصفوفات بطرق مختلفة
jacobi
Gauss-seidel
Gauss-Jordan
Choleski
ارجو الحل إن امكن ك طريقة لي وحدها

enemi05
2013-12-20, 15:34
السلام عليكم
ارجوا من اخوتي الكرام حل هذا التمرين
اكتب algorithme و pascal لي برنامج
لي حل المصفوفات بطرق مختلفة
jacobi
Gauss-seidel
Gauss-Jordan
Choleski
ارجو الحل إن امكن ك طريقة لي وحدها
ms avec c++ (gauss-jordan -seidel)l
http://im38.gulfup.com/vjc3r.jpg


http://im38.gulfup.com/Xe9jW.jpg

http://im38.gulfup.com/O5ROg.jpg

http://im38.gulfup.com/PlXs9.jpg

http://im40.gulfup.com/GURsR.jpg

enemi05
2013-12-20, 15:52
*************************************************
algo

route tableau de 2 unité chaque unité est un tableau de chemin
** puisque l'exo demande l'utilisation des l.c alors
route est une liste chaineé contient 3 champs
// route1,route2,NULL
chaque champ de route est lui meme une liste chainé ** chaque route countient 2 chemin est chemin est un l.c**
// de meme on a 5 chemin
chemin1,chemin2 de route 1
chemin 3 ,chemin4 de route2
+null

chaque chemin contien les champ suivant
faux rouge un boolean /0 ou1/
c'est mieaux d'utiliser un random qui genere de 0 ou 1
0:il n'ya pas de faux rouge
1 il ya de faux rouge
s'il ya une faux rouge on attende 10 seconde
** soit on utilise une commaintre pour indique qu'on attende10 seconde
soit on utilise

sleep(10)
cette fonction indique qu'on doit attende 10 seconde pour passer a l'instruction suivante
mais on doit utiliser une biblio pour que le compilateur lui connaitre
*** le compilateur de linux connaitre cette fonction normalelement**

dans ces cas on faire les instruction qui confient
*** c'est mieux d'utiliser un chemas pour comprendre**

le 2 ime champ est
est un chemin qui indique si la voiture se trouve au chemin droite(0) ou chemin gauche(1)
si le chemin est droite alors le 3 ieme champ est vrai**1**
sinon c'est faux**0*
le 3ieme champ indique la priorité

on suite il reste que d'appliquer l'algo


comment supprime une vouture et comment fait l feu fouge dans la supprision

comment supprim10 voiture si le feu n'estpas rouge
si ilya 5 voiture !!!!stt
svp j besion la procedure de supp

you92cef
2013-12-21, 12:26
comment supprime une vouture et comment fait l feu fouge dans la supprision

comment supprim10 voiture si le feu n'estpas rouge
si ilya 5 voiture !!!!stt
svp j besion la procedure de supp

هذا بحسب الطريقة التي تعتمدها انت
يمكن اعتبار السيارات
liste chainé
donc la supp ce fait comme la supp d'un element de l.c
****
on peut meme stoque les voiture dans un tableau
********
c'est mieaux d'utiliser le voiture comme paramaitre car les procedure de passage ou attaende ou de priorité
ce font sur les voiture
pour cela si on doit bloquer une voiture on fait l'appel de procedure de blocage avec le numero de voiture
ou on fait une liste chainé de s voiture contient les information de voiture par example

enreg voiture
{
num voiture:entier
ou se trouve : char*** ex voiture 1 se trouve au chemin 1
chemin:boolean **0 le voiture ce trouve dans le chemain droite
1 chemin gauche
proirité :e,tier

a chaque fois on fait l'appele des procedure avec les champ d'enregistrement de voiture

ex
procedure pririté(voiture[1]. priorité

tomba
2013-12-25, 00:09
centre du produit,l'indicatif est découpé en 2 parties,une composée des 3 primaires positions et l'autre des 4 suivantes, ensuite on effectue le produit de ces 2 parties. on extrait de produit 4 chiffres a partir de la 2eme position que l'on considère comme un nombre aléatoire compris entre 0 et 1. on multiplie ce nombre par le nombre total d'enregistrements et on prend la partie entière comme adresse.

you92cef
2013-12-25, 11:00
centre du produit,l'indicatif est découpé en 2 parties,une composée des 3 primaires positions et l'autre des 4 suivantes, ensuite on effectue le produit de ces 2 parties. On extrait de produit 4 chiffres a partir de la 2eme position que l'on considère comme un nombre aléatoire compris entre 0 et 1. On multiplie ce nombre par le nombre total d'enregistrements et on prend la partie entière comme adresse.

راجع الرد 580 نفس المبدا تقريبا
+
حاول استعمال رسم توضيحي لحل المشكل

فضلاوي عيسى
2013-12-25, 12:48
ms avec c++ (gauss-jordan -seidel)l
http://im38.gulfup.com/vjc3r.jpg


http://im38.gulfup.com/Xe9jW.jpg

http://im38.gulfup.com/O5ROg.jpg

http://im38.gulfup.com/PlXs9.jpg

http://im40.gulfup.com/GURsR.jpg


باركل الله فيك وجعلها في ميزان حسناتك

ان امكنك تكون في ملف doc او pdf
او رابط موقع إوجدة

بنت الرضى
2013-12-25, 17:09
السلام عليكم
أريد حل هذه الخوارزمية وهي لـ Mike Keith في الباسكال سنة أولى.
pour une date la forme jour/mois/année,ou'
"jour" prend une valeur de 01 à 31;
"mois" de 01 à 12;
et "année" de 1583 à 9999.
on utilise la formule suivante pour déterminer le jour de la semaine << j >> de cette date.
j=(jour + a (a div 4) - (a div 100) + (a div 400) + (31*m div 12)) mod 7
la réponse obtenue pour j correspond alors à un jour de la semaine de la manière suivante:
0=dimanche, 1=lundi, 2= mardi,..., 6=samedi.
pour utiliser la formule il faut d'abord calculer "c" pour calculer "a" et "m" qui sont utilisés dans la formule:
c=(14 - mois)div 12; en fait, c=1 pour janvier et février, c=0 pour les autres mois .
a=année - c.
m=mois + (12*c) - 2.
conseils: attention aux dates invalides.
exemples de dates invalides:
31/04/2000; 29/02/2003; 34/01/1830.donc, vous devriez forcer l'utilisateur à introduire une date valide.
Structure du programme:
program jour_de_lasemaine;
..................................{déclaration des variables}
.................................. {lecture et vérification de la validité des données (pensez à la boucle repeat)}
……………………..{calcul de j}
……………………..{edition du résultat (vous devriez utiliser la structure à choix multiples << case >> )}
Fin.

aissamkari
2013-12-27, 11:27
السلام عليكم ورحمة الله وبركاته
التمرين
travail de TP:
on veut développer une petite application <<GMoy>> qui permet de gérer les moyennes obtenues par des étudiants de la deuxième année LMD dans un semestre .
chaque étudiant doit avoir les information suivant:
-numéro étudiant
-nom
-prénom
-moyen
l application GMoy doit permettre :
- de saisir les information d un étudiant
-d'afficher la moyenne d un étudiant
- d'affiche les information de l'étudiant (des étudiants)qui a obtenu (ont obtenu) la plus grande moyenne
-de supprimer les information de l'étudiant (des étudiants) a obtenu (ont obtenu) la plus petite moyenne
-d'affiche la liste des étudiants triée dans un ordre décroissant selon la valeur de la moyenne
-d'affiche la liste des étudiants admis dans le semestre.
-quitter
travail demandé:
en utiliser un arbre binaire de recherche , écrivez un programme en langage c qui permet de réaliser les fonctionnalités de application GMoy.

بنت الرضى
2013-12-29, 21:42
أين المساعدة؟

جَسَّاس
2013-12-31, 21:31
السلام عليكم
الرجاء من اخواني مساعدتي في وضع Algorithmes +programme لهذا التمرين



centre du carré la clé est élevé au carre on enlevé du résultat un nombre 4 chiffres à partir de la 4 eme position
puis on multiplie ce nombre par le nombre d'adresse on extrait à nouveau 4 chiffres à partir de la 2 eme position
lesquels vont . composer l'adresse de l’enregistrent

الحآذق
2014-01-02, 13:28
بليز قولولي كيفاه ncree une liste simple chainee trie et doublement trie

bellamina21
2014-01-02, 17:41
aidez moi a realiser des memoires M1et M2 fi had la calculatrice en delphiiii hada houwa le programme rahou juste il manque les memoires bark ma3raftch ndirhoum help me pliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiiizzzzzzzzzzzzT].
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
EditChiffres: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ButtonDivi: TButton;
ButtonMult: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
ButtonMoins: TButton;
Button13: TButton;
ButtonVirgule: TButton;
ButtonResultat: TButton;
ButtonPlus: TButton;
Button17: TButton;
Button4: TButton;
memoire1: TButton;
memoire2: TButton;
procedure ButtonVirguleClick(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure ButtonPlusClick(Sender: TObject);
procedure ButtonMoinsClick(Sender: TObject);
procedure ButtonMultClick(Sender: TObject);
procedure ButtonDiviClick(Sender: TObject);
procedure ButtonResultatClick(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure memoire1Click(Sender: TObject);

private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;
Operande1: Real;
Operation:string;
Operande2:real;

implementation

{$R *.DFM}
procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+','
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'1'
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'2'
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'3'
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'4'
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'5'
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'6'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'7'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'8'
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'9'
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'0'
end;
procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='+';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='-';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMultClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='*';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonDiviClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='/';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonResultatClick(Sender: TObject);
begin
Operande2:=StrToFloat(EditChiffres.Text);
if Operation='+' then
EditChiffres.Text:=FloatToStr(Operande1+Operande2) ;
if Operation='-' then
EditChiffres.Text:=FloatToStr(Operande1-Operande2);
if Operation='*' then
EditChiffres.Text:=FloatToStr(Operande1*Operande2) ;
if Operation='/' then
EditChiffres.Text:=FloatToStr(Operande1/Operande2);
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
EditChiffres.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
end.

tomba
2014-01-02, 22:47
centre du produit,l'indicatif est découpé en 2 parties,une composée des 3 primaires positions et l'autre des 4 suivantes, ensuite on effectue le produit de ces 2 parties. on extrait de produit 4 chiffres a partir de la 2eme position que l'on considère comme un nombre aléatoire compris entre 0 et 1. on multiplie ce nombre par le nombre total d'enregistrements et on prend la partie entière comme adresse.

enemi05
2014-01-03, 01:56
بليز قولولي كيفاه ncree une liste simple chainee trie et doublement trie


had pdf y3awnke :)



http://www.gulfup.com/?wB94r3

enemi05
2014-01-03, 02:28
باركل الله فيك وجعلها في ميزان حسناتك

ان امكنك تكون في ملف doc او pdf
او رابط موقع إوجدة

dsl
c mn cours ana/num

polycopie
scanithom

بنت الرضى
2014-01-04, 17:54
السلام عليكم
أريد حل هذه الخوارزمية وهي لـ mike keith في الباسكال سنة أولى.
pour une date la forme jour/mois/année,ou'
"jour" prend une valeur de 01 à 31;
"mois" de 01 à 12;
et "année" de 1583 à 9999.
on utilise la formule suivante pour déterminer le jour de la semaine << j >> de cette date.
j=(jour + a (a div 4) - (a div 100) + (a div 400) + (31*m div 12)) mod 7
la réponse obtenue pour j correspond alors à un jour de la semaine de la manière suivante:
0=dimanche, 1=lundi, 2= mardi,..., 6=samedi.
pour utiliser la formule il faut d'abord calculer "c" pour calculer "a" et "m" qui sont utilisés dans la formule:
c=(14 - mois)div 12; en fait, c=1 pour janvier et février, c=0 pour les autres mois .
a=année - c.
m=mois + (12*c) - 2.
conseils: Attention aux dates invalides.
exemples de dates invalides:
31/04/2000; 29/02/2003; 34/01/1830.donc, vous devriez forcer l'utilisateur à introduire une date valide.
structure du programme:
program jour_de_lasemaine;
..................................{déclaration des variables}
.................................. {lecture et vérification de la validité des données (pensez à la boucle repeat)}
……………………..{calcul de j}
……………………..{edition du résultat (vous devriez utiliser la structure à choix multiples << case >> )}
fin.




أين المساعدة
أريد حل ه>ه الخوارزمية في أسرع وقت ممكن

youcef 16
2014-01-05, 15:40
من فضلكم انا بحاجة ماسة للمساعدة
ecrire un algorithme qui lit une suite de nombre et calcul :la some des nombres,la some des nombre paires ,et le max et le min des nombres
طالب سنة أولى ساعدوني

pericolo
2014-01-06, 14:00
salam alikoum
dans un tableau on peut faire une désincrémentation
ii.e ; pour i<- --N a 1
merciii :)

تقرت30
2014-01-09, 06:04
السلام عليكم
أريد حل هذه الخوارزمية وهي لـ Mike Keith في الباسكال سنة أولى.
pour une date la forme jour/mois/année,ou'
"jour" prend une valeur de 01 à 31;
"mois" de 01 à 12;
et "année" de 1583 à 9999.
on utilise la formule suivante pour déterminer le jour de la semaine << j >> de cette date.
j=(jour + a (a div 4) - (a div 100) + (a div 400) + (31*m div 12)) mod 7
la réponse obtenue pour j correspond alors à un jour de la semaine de la manière suivante:
0=dimanche, 1=lundi, 2= mardi,..., 6=samedi.
pour utiliser la formule il faut d'abord calculer "c" pour calculer "a" et "m" qui sont utilisés dans la formule:
c=(14 - mois)div 12; en fait, c=1 pour janvier et février, c=0 pour les autres mois .
a=année - c.
m=mois + (12*c) - 2.
conseils: attention aux dates invalides.
exemples de dates invalides:
31/04/2000; 29/02/2003; 34/01/1830.donc, vous devriez forcer l'utilisateur à introduire une date valide.
Structure du programme:
program jour_de_lasemaine;
..................................{déclaration des variables}
.................................. {lecture et vérification de la validité des données (pensez à la boucle repeat)}
……………………..{calcul de j}
……………………..{edition du résultat (vous devriez utiliser la structure à choix multiples << case >> )}
Fin.




الحل
عليك باستخدام if - else
والطريقة سهلة جدا وتعتمد على تحديد ان يكون التاريخ صحيح
ارجوا ان تكون قد وضخت الفكرة

dreamergirl
2014-01-10, 16:30
j'ai exercice de module compilation : micro compilateur de programme pascal(analyse lexical+analyse syntaxique) aidez moi svp

بن علي عبد الغاني
2014-01-10, 16:30
ecrire un programme qui lit N nombres entiers qui calcule leur moyenne et affiche sa valeur en utilisant
la boucle for
la boucle while
-la boucle repeat
dèduire laquelle est la plus appropriée

jabermrf
2014-01-10, 23:21
nous voulons sauvegarder les moyennes d'une classe de 30 élèves en mathématique. sachant que la moyenne est egale (devoir+compo*2)/3 faites ce qui suit
créer un tableau en sauvegardant ces moyennes
classer les moyennes des élèves en utilisant le tri a bulle
donner la moyenne générale de la classe

راجية المغفرة
2014-01-16, 20:31
where is the solution of (centre du carré ) help me please

كريمة 118
2014-01-22, 10:25
Soit un ordinateur multicouches ou chaque couche des instructions m fois plus puissantes que celles de la couche immédiatement inférieure , c'est-à-dire qu’une instructions de niveau r fait le même travail que m instructions de niveau r 1.si un programme de niveau 1 nécessite k secondes pour s’exécuter . combien de temps prendraient des programmes équivalents de niveau 2 et 3 ,en supposant qu’il faut n instructions de niveau r pour interpréter une instruction de niveau r+1?
application numérique ;m=5,n=3,et k=10 .

kadourbousaada
2014-01-24, 21:26
السلام عليكم و رحمة الله تعالى، اريد طريقة تحميل بعض التمارينات المحلولة في الرياضيات و الإعلام الآلي للسنة الأولى جامعي و شكرا

عبدالرحيم1995
2014-02-19, 22:29
TRAVAIL DEMANDÉ
En utilisant le langage C++, on vous demande d’écrire le programme qui réalise
l’évaluation d’une expression arithmétique en utilisant une structure de données sous
forme d’une pile.
NB : enrichir le code avec les commentaires nécessaires

lysine
2014-03-15, 20:52
موضوع رائع ساحتاج اليه في الايام القادمة

للدراسة

شكرا

سماعين عصام
2014-03-23, 20:02
من فضلكم اريد حل تكاملات Fredholemمن الدرجة الثانية باستعمالMtlab أوMatématicaأوMAPLEوشكرا.

عودة امل
2014-03-24, 16:12
السلام عليكم
كيف اقوم بحذف عنصر من الجدول دون استخدام الدالة
بارك الله فيكم

ayoub henni
2014-03-27, 12:07
الرجاء المساعدة في حل هذا التمرين
On désire programmer un agenda dans le but de mémoriser une liste de rendez-vous est défini par sa date, ses horaires ( heure et minute de début et fin ) et sa description (message de 200 caractères au plus) .
. proposer une structure de donné
. écrire la procédure afficher rendez-vous du jour qui prend comme paramètres d’entrée la date d’un jour et affiche à l’écran les rendez-vous du jour spécifié.
Exemple d’affichage :
Journée du 16-11-1997
8h15-10h15 réunion pédagogique
14h00-15h30 cours info 2
18h30-19h30 faire des cours
3 rendez-vous pour cette journée

sak86
2014-04-09, 19:41
Exercice04 ) -
Écrire un algorithme effectuant la saisie de 3 nombres entiers. Vous concevrez un algorithme affichant ces 3 nombres dans l'ordre croissant. Vous utiliserez exclusivement des conditions élémentaires (i.e. ne faisant pas intervenir d'opérateurs logiques).
من فضلكم الااااااااااااااااااااااااااان

houssem.hammache
2014-04-18, 18:53
يا طلبة اريد حل هدا التمرين من فضلكم ex
ecrire lalgorithme qui parmet le calcul le produit de n nombre entier avec les condiotion
* nombre de type entier
* utiliser le boucle do
*
des message delectioner avec lutilisatur

*
des commintre
وشكرا انا محتاج الحل اليوم وشكرا مسبقا .

bila rose
2014-04-18, 20:40
merci beaucoup

بنت الرضى
2014-04-25, 13:32
السلام عليكم
اريدمنكم تصحيح هذا التمرين لأن لدي مشكلة في المنادات بالنسبة لprocédure و fonction
نص التمرين والحل في الملفات المرفقة

من فضلكم أريد تكملة programme principale

llezghed-amir
2014-04-25, 13:56
program pascal sur les arbres binaires

entrer arbre

puis faire les parcoures
posfixé,infixé et prefixé

en pascal

بنت الرضى
2014-04-25, 19:28
شكرا على المساعدة
لكن لم افهم

بنت الرضى
2014-04-25, 19:29
ممكن مساعدة أخرى
يا أعضاء المنتدى

بنت الرضى
2014-04-29, 22:04
أين المساعدة ؟

بنت عمران
2014-05-01, 14:11
الرجاء مساعدتي بهذا التمرين و هو كتابة برنامج في الـــ pascal و هذا هو التمرين :
engendrer un echantillon de la variable aleatoire X qui suit la loi d'Erlang d'ordre 4 (la taille de echantillon n=30 ). A PARTIR DE cet echantillon ; estimer la moyenne et la variance de population correspondantes
*la Solution Mathematique :
Algo:
1) generer{ui} 1<i<k U[0;1] ; هنا قلتلنا استعملو RANDOM
2) poser X:=-1/lamda*Ln(produit ui) tel que 1<i<k
* la moyenne :
X(bar)=1/n ∑xi la somme ( i=1 ti n=30) . و قتلنا نحسبوا
x(bar)1 ....x(bar)5 ; وكل x(bar) فاها من x1......x30
estimateur de la moyenne
Y(bar)=1/m ∑[x(bar]puissance j la somme( j=1 to m=10)
estimateur de la variance
VAR(X)=1/m-1 ∑([Y(bar)]puissance j –[Y(bar)])

riima23
2014-05-01, 18:53
من فضلكم اريد :programme pascal d'un horloge numérique a l'aide DELPHI وشكرا

nadoush.1984
2014-05-06, 20:27
أحتاج الى مساعدة عاجلة

EX:ecrire un algorithme qui demande un nombre de départ ,et ensuite écrit la table de multiplication de ce nombre

bboyfarid
2014-05-16, 15:16
يا جماعة انا عندي امتحان في هذا السؤال ارجو المساعدة

ecrire un program en pascal de liste chainée qui permet lire liste des etudiant (nom,prenom,matricule,note) et calcule le moyenne puis affriche le plus grand moyanne
ارجوا منكم المساعدة ان عندي امتحان فيه

insafbel
2014-05-16, 16:42
السلام عليكم

تم فتح هذه الصفحة لتبادل المعارف ومناقشة تمارين وحلولها

فكل من لديه تمرين صعب او يحتاج مساعدة نحن في الخدمة ان شاء الله

شكرا وارجوا التفاعل
بارك الله فيك يا اخي اود منك مساعدتي لدي تمرين تطبيقي لم اتمكن من فهمه و حله فهل بامكانك مساعدتتي


Objectif du TP
 Manipulation de variables de type enregistrement
 Ecriture et appel de procédures et de fonctions


Travail à réaliser
Un cabinet médical veut automatiser sa gestion des patients. Soit deux tableaux Patients et Consultations (le nombre d’éléments <=250).
* Description du tableau Patients :
Chaque élément est un enregistrement contenant les informations suivantes, concernant un patient :
- Patient :

un patient :
- Patient : de type enregistrement, tel que patient contient :
o Identifiant Patient : un numéro unique qui identifie le patient.
o Nom : de type chaîne de caractère d’au maximum 30 caractères.
o Prénom : de type chaîne de caractère d’au maximum 30 caractères.
o Age : de type entier.

* Description du tableau Consultations :
Chaque élément est un enregistrement contenant les informations suivantes, concernant une consultation :
- Date de consultation.
- Identifiant Patient : un numéro unique qui identifie le patient.
- Description : de type chaîne de caractère d’au maximum 100 caractères.

Ecrire les actions paramétrées (procédures ou fonctions) suivantes :
2 M.Yaiche-Achour
Ecrire les actions paramétrées (procédures ou fonctions) suivantes :
1. Création : sauvegarde les N éléments du tableau Consultations, ainsi que la création du tableau Patients. Lorsqu’on crée une consultation, un message est affiché à l’écran demandant à l’utilisateur si c’est un nouveau patient afin de le sauvegarder dans le tableau Patients. Et dans le cas où il existe (ce n’est pas sa première consultation), on récupère juste son identifiant afin de créer la consultation.
PS : Vous pouvez vous appuyer sur la procédure insertion (Etape 4), ainsi qu’une fonction de recherche qui permet de chercher un patient par nom et prénom dans le tableau Patients.

2. Visites du jour : affiche la liste de consultations d’une certaine date donnée par l’utilisateur.


3. Historique de consultation : affiche l’historique de consultation concernant un patient en précisant le nom et le prénom.
PS : Vous pouvez vous appuyer sur la fonction recherche (Etape 1)


4. Ajout de consultation (Insertion d’un élément dans le tableau Consultations): permet d’ajouter une consultation et de faire une recherche par nom et prénom du patient. Cependant, dans le cas où il existe (ce n’est pas sa première consultation) on récupère son identifiant. Sinon, on crée un nouveau.


5. Recherche par tranche d’âge : recherche toutes les informations des consultations faisant partie d’un certain intervalle d’âge.

Indications
L’interface principale du programme doit se présenter sous forme d’un menu à choix multiples afin d’exécuter l’opération choisie par l’utilisateur. Il pourra ainsi choisir une action du menu afin de l’exécuter. Il faut donner la possibilité à l’utilisateur d’exécuter les actions du menu autant de fois qu’il le désire.

insafbel
2014-05-16, 16:51
Objectif du TP
 Manipulation de variables de type enregistrement
 Ecriture et appel de procédures et de fonctions


Travail à réaliser
Un cabinet médical veut automatiser sa gestion des patients. Soit deux tableaux Patients et Consultations (le nombre d’éléments <=250).
* Description du tableau Patients :


Chaque élément est un enregistrement contenant les informations suivantes, concernant un patient :
- Patient : de type enregistrement, tel que patient contient :
o Identifiant Patient : un numéro unique qui identifie le patient.
o Nom : de type chaîne de caractère d’au maximum 30 caractères.
o Prénom : de type chaîne de caractère d’au maximum 30 caractères.
o Age : de type entier.


* Description du tableau Consultations :
Chaque élément est un enregistrement contenant les informations suivantes, concernant une consultation :
- Date de consultation.
- Identifiant Patient : un numéro unique qui identifie le patient.
- Description : de type chaîne de caractère d’au maximum 100 caractères.

Ecrire les actions paramétrées (procédures ou fonctions) suivantes :


1. Création : sauvegarde les N éléments du tableau Consultations, ainsi que la création du tableau Patients. Lorsqu’on crée une consultation, un message est affiché à l’écran demandant à l’utilisateur si c’est un nouveau patient afin de le sauvegarder dans le tableau Patients. Et dans le cas où il existe (ce n’est pas sa première consultation), on récupère juste son identifiant afin de créer la consultation.
PS : Vous pouvez vous appuyer sur la procédure insertion (Etape 4), ainsi qu’une fonction de recherche qui permet de chercher un patient par nom et prénom dans le tableau Patients.

2. Visites du jour : affiche la liste de consultations d’une certaine date donnée par l’utilisateur.
3. Historique de consultation : affiche l’historique de consultation concernant un patient en précisant le nom et le prénom.
PS : Vous pouvez vous appuyer sur la fonction recherche (Etape 1)

4. Ajout de consultation (Insertion d’un élément dans le tableau Consultations): permet d’ajouter une consultation et de faire une recherche par nom et prénom du patient. Cependant, dans le cas où il existe (ce n’est pas sa première consultation) on récupère son identifiant. Sinon, on crée un nouveau.

5. Recherche par tranche d’âge : recherche toutes les informations des consultations faisant partie d’un certain intervalle d’âge.
Indications
L’interface principale du programme doit se présenter sous forme d’un menu à choix multiples afin d’exécuter l’opération choisie par l’utilisateur. Il pourra ainsi choisir une action du menu afin de l’exécuter. Il faut donner la possibilité à l’utilisateur d’exécuter les actions du menu autant de fois qu’il le désire.

ارجوطم ساعدوني فيه اريده للغد عاجل

ayoub henni
2014-05-19, 11:44
الرجاء المساعذة في كيفية إستدعاء هذه الدالة مع العلم أن البرنامج المستعمل هو bluej

(public void fastMove (int horizentaleDistance, int verticalDistance
{
int ; h
int; l
(if ( horizentaleDistance > verticalDistance
{
h = horizentaleDistance
l = verticalDistance
}
else
{ h = verticalDistance
l = horizentaleDistance
}
(++ for (int i = 0; i < l ; i
{
l = l + 1
( h = h + (h % l
; ()draw
}

moh140
2014-05-19, 11:50
جزاك الله خيرا أخي

you92cef
2014-05-20, 00:32
الموضوع يشهد اتكال كبير وغياب للمساعدة والاعظاء الفاعلين

فارجوا من الاشراف غلقه

فاليد الواحدة لا تصفق

شكرا

شوقي الجزائري
2014-05-28, 13:26
أحتاج الى مساعدة عاجلة

EX:ecrire un algorithme qui demande un nombre de départ ,et ensuite écrit la table de multiplication de ce nombre


algorithme exo01;
Variables
N, i: Entier;
Debut
Ecrire ("Entrez un nombre : ")
Lire (N);
Ecrire ("La table de multiplication de ce nombre est : ")
Pour i ← 1 à 10 faire
Ecrire (N, " x ", i, " = ", n*i);
finpour,
Fin.

شوقي الجزائري
2014-05-28, 13:50
يا جماعة انا عندي امتحان في هذا السؤال ارجو المساعدة

ecrire un program en pascal de liste chainée qui permet lire liste des etudiant (nom,prenom,matricule,note) et calcule le moyenne puis affriche le plus grand moyanne
ارجوا منكم المساعدة ان عندي امتحان فيه

ما فهمت واش يقصد ب calcule le moyenne الى تاع معدل كل المعدلات راه مخدوم في البرنامج ان كان غير ذلك ممكن توضح المقصود

program Project2;
uses wincrt;
type
etudients=record
nom:string;
prenom:string;
matricule:string;
note:1..20;
end;

var
max,som,nbr,i:integer;
st:etudients;
begin
writeln('quel est le nbr d etudients');
readln(nbr);
max:=0;
for i:=1 to nbr do
begin
with st do
begin
writeln('Nom: ');readln(nom);
writeln('Prénom: ');readln(prenom);
writeln('Matricule: ');readln(matricule);
writeln('Note: ');readln(note);
som:=som+note;
if note > max then
max:=note;
end;
end;

writeln('la plus grand moyen est: ',max,' moyenne: ',som/nbr:2:2);
end.

mr boudebouz
2014-06-14, 12:43
http://im59.gulfup.com/ggneBM.jpg
:sdf:
http://im59.gulfup.com/ggneBM.jpg
:sdf:

AGHA.WISSAL
2014-06-18, 11:40
ممكن مساعدة في دالة =RECHERCHEV(B1;Feuil2!A2:E3;2;2) نكتب الصيغة وماتخرجش

mmnouri
2014-06-19, 19:00
quelle est la différence entre les boucles for while et repeat

salemk
2014-07-27, 14:38
quelle est la différence entre les boucles for while et repeat


EN PASCAL

La structure itérative complète


La structure itérative complète consiste à itérer un traitement un nombre de fois connu à l’avance, la répétition va être faite grâce à la valeur de départ de la boucle et celle de la fin.

For Compteur := V_initiale To V_finale Do
Begin
Actions
End ;


================================================== =====================
 Le bloc d'instructions (Actions) est répété en modifiant le contenu de la variable Compteur par la valeur du SUCC(compteur),
 la valeur de départ que prend la variable Compteur est celle de V_initiale,
 la dernière valeur que la variable Compteur va prendre est V_finale,
 Le bloc d'instructions (Actions) est exécuté pour chacune des valeurs que prend successivement la variable Compteur,
 La variable Compteur doit être de type scalaire (entier, caractère, booléen ou énuméré).
) Le nombre d’itérations ou de répétition est :abs( ORD (V_finale) - ORD (V_initiale) + 1




Le parcourt décroissant

For Compteur :=V_finale Downto V_initiale Do
Begin
Actions
End ;

================================================== =====================
 Le bloc d'instructions (Actions) est répété en modifiant le contenu de la variable Compteur par la valeur du SUCC(Compteur), aussi on peut modifier le contenu de la variable Compteur par la valeur du PRED(Compteur)




La structure itérative à condition d’arrêt


Cette structure consiste à répéter une action autant de fois JUSQU'A QUE (ou bien TANT QUE) une condition est vérifiée.


Repeat
Actions
Until Condition ;



================================================== ====================
La boucle répéter jusqu’à peut être exécutée au moins une seule fois ;
Il est nécessaire qu’une instruction à l’intérieur du traitement de la boucle puisse modifier la valeur de la condition, si non on aura une boucle infinie ;
L’ordre des instructions à répéter dans la boucle est parfois important.



While Condition Do
Begin
Actions
End ;

================================================== ====================
La boucle Tantque peut ne pas être exécutée (zéro fois) ;
Si la valeur de la condition de non arrêt est vraie alors la boucle continue à s’exécuter, sinon la boucle s’arrête.
En Pascal Begin et End; sont obligatoires même si la boucle comporte une seule instruction

chemseddine
2014-07-29, 16:00
سلام أخي

بالتوفيق

ranguek
2014-08-08, 20:45
بارك الله فيكم أخي الكريم

cherfaoui nasreddine
2014-08-15, 15:31
شكرا على كل المعلومات المقدمة
من فضلكم اريد برنامج باسكال و كيفية تشغيله ؟ و شكرا

you92cef
2014-09-13, 23:40
شكرا على كل المعلومات المقدمة
من فضلكم اريد برنامج باسكال و كيفية تشغيله ؟ و شكرا

جرب تحميل نسخة

tpw

تنصيبها عادي بعد تنصبيها يفتح لك ملف فيه اختصارين قم بنسخها ووضعهما في المكتب لكي تستخدم الاختصار بسهولة

الروابط اسف اخي اذا نشرت سيحذفها المشرف كالعادة للاسف!!

takhailimagine
2014-09-14, 10:10
السلام عليكم
تحية طيبة
أحتاج لمساعدة لحل تمارين في الجافا و بارك الله فيكم على المساعدة
مرفق التمارين:
http://s30.postimg.org/y9jzofehc/001.jpg

http://s21.postimg.org/4su9rt5p2/002.jpg

algeriano1194
2014-09-30, 23:44
http://im70.gulfup.com/t8CW44.jpg



عاااااااااااااااااااااااااجل اريد حل لهذا التمرين

mehdiz bac
2014-10-10, 16:43
السلام عليكم
طلب منا مسؤول tp كتابة programme c de permutation de 3 variables X Y Z مع العلم عملنا algorithme جربت كل الطرق و لم اصل الي نتيجة فاتمني مساعدتي و جزاكم الله خيرا

RAM38
2014-10-22, 12:26
rani mahtago wbel langage C++ exo 1: ercire un algorithme qui faire un multiplication d'un deux matrice carrée

boutaiba
2014-10-31, 11:08
exercice: ecrire un algorithme qui affiche le nombre de jours d'un moins donne par l'utilisateur . et merci

mima 500
2014-11-03, 17:59
1ecrire un algorithme permettant de calculer la longueur et la surface d'un rectangle
2 ecrire un algorithme permettant de calculer la longueur et la surface d'un carré
3 ecrire un algorithme permettant de calculer la surface d'un triangle
4 donne organigrammes correspondants à ces algorithmes

*نسيم الفجر*
2014-11-11, 19:15
ecrire un algorithme qui simule une calculatrice recevant deux operandes entiers et un opérateur (addition , soustraction, multiplication,division et inversion) et affichant le resultat!!!

svppppp

اميرة الابتسامة
2014-11-14, 15:35
merciiiiiiiiii

mima 500
2014-11-15, 12:22
السلام عليكم ارجو المساعدة في حل هده التمارين
1 Ecrire un algorithme qui vérifie si un nombre donné par l’utilisateur est paire ou impaire.
2 Ecrire un algorithme qui demande un nombre à l’utilisateur , ensuite affiche la racine carrée de ce nombre ( N’oubliez pas qu’un nombre négatif n’a pas une racine carrée réelle)
3 Ecrire un algorithme qui permet de vérifier si un nombre donné par l’utilisateur est positif , négatif ou nul
4 donner les organigrammes correspondants à ces algorithmes.
Exercice 3 :
Ecrire un algorithme qui détermine la mention d’un étudiant en fonction de sa moyenne :
Moyenne ˂ 10 : mention : Ajourné
10 ˂ moyenne ˂ 12 : mention : passable
12 ≤ moyenne ˂ 14 : mention : Assez bien
14 ≤ moyenne ˂ 16 : mention : Bien
Moyenne ≥ 16 : mention : très bien

**sliman**
2014-11-18, 22:41
مشكورين على المجهودات المبذولة ...

nasreddine2013
2014-11-24, 21:53
مساعدة بللللليييز
ecrire un program en pascal de liste chainée multiplication de deux matrice

mima 500
2014-12-19, 11:43
السلام عليكم ارجو المساعدة في حل هدا التمرين
Soit T1 [N] et T2 [M] deux tableaux triés par ordre croissant et qui contiennent des éléments entiers. On veut fusionner les deux tableaux dans un seul tableau T qui doit être trié par ordre décroissant.
1. quelle est la dimension du tableau T
2. donner l’algorithme qui réalise cette fusion.

Nedine 19
2014-12-22, 18:32
السلام عليكم
Exercice01:Ecrire un programme qui permet de lire un entier puis calculer et afficher sa raccine carrés
Exercice02:ecrire un programme qui permet de lire un réel X puis calculer et afficher f(x)
avec f(x=
racine((x²-sin(x+2)/x^3((
ارجو المساعدة من فضلكم
وكيف اكتبها في dev c++

dotZero
2014-12-23, 18:58
السلام عليكم ارجو المساعدة في حل هدا التمرين
Soit T1 [N] et T2 [M] deux tableaux triés par ordre croissant et qui contiennent des éléments entiers. On veut fusionner les deux tableaux dans un seul tableau T qui doit être trié par ordre décroissant.
1. quelle est la dimension du tableau T
2. donner l’algorithme qui réalise cette fusion.





Le tableau T doit êavoir comme taille N+M au minimum
L'algorithme :

Algorithme Fusionner
Constantes
{Définir N et M}
Variables
T1 : Tableau [1..N] d'entiers;
T2 : Tableau [1..M] d'entiers;
T3 : Tableau d[1..N+M] d'entiers;

i, j, k : entiers;

Dénbut
i<--N;
j<--M,
k<--1;

Tant que (i>0 et j>0)faire
Si(T1[i]>=T2[j])alors
T[k]<--T1[i];
i<--i-1;
Sinon
T[k]<--T2[j];
j<--j-1;
FSi
k<--k+1;
FTQ;

Si(i>0)alors
Tant que(i>0)faire
T[k]<--T1[i];
i<--i-1;
k<--k+1;
FTQ
Sinon
Tant que(j>0)faire
T[k]<--T2[j];
j<--j-1;
k<--k+1;
FTQ
FSi

Fin.

youcef_dz31
2015-01-04, 16:10
برنامج c++ لجدولles listes تستخدم فيه insertion اي إدخال قيمة في الجدول بين قيمتين و suppression اي مسح خانة من الجدول و tri اي ترتيب قيم الجدول

ayoub henni
2015-01-07, 23:00
أريد برنامج pascal من فضلكم

loufy773
2015-01-07, 23:29
la difference entre les composants .net et les composants des services osgi ربي يعيشكم عاونوني

malak54
2015-01-18, 19:43
سلام يا اصدقائي ساعدوني من فضلكم في كيفية ترتيب مجموعة من الاعداد ترتيبا تصاعديا وذالك بلغة الباسكال

سنان
2015-02-19, 18:29
السلام عليكم ممكن تساعدوني في حل هذا program pascal
exercice:
ecrire un program en pascal qui permet de:
-lire une chaine caractèresla plus longue possible et qui contient des caractères alphanumèriques de la ponctuation et des espaces.
d'affiche cette chaine de caractères.-
de calculer le nombre de caractères ,mot et occurrrnce d'un caractères -
de transformer le texte en majuscule ou rn minuscule-
rechercher un mot -
modifier un mot.-
وشكرا

اسماء عمر
2015-02-20, 10:11
ممكن تعطوني موقع يساعدني علي الفهم اخوتي:mh92:

salim.salim
2015-02-21, 12:53
السلام عليكم
اريد ان اتعلم الخوارزميات من الالف الى الياء لدلك ارجو تزويدي بدروس او مواقع سهلة للتعلم

Hacker_Imed
2015-02-22, 21:12
السلام عليكم ارجو المساعدة في حل هدا التمرين
Soit T1 [N] et T2 [M] deux tableaux triés par ordre croissant et qui contiennent des éléments entiers. On veut fusionner les deux tableaux dans un seul tableau T qui doit être trié par ordre décroissant.
1. quelle est la dimension du tableau T
2. donner l’algorithme qui réalise cette fusion.



La dimansion du tableu T = N + M

l'algorithme :

algorithme tabl;

Constante :
N = 10;
M = 5;

type:
TAB1 : tableu de N entier;
TAB2 : tableu de M entier;
TAB3 : tableu de M+N entier ;

variable:
I,J,K : emtier;
T1 : TAB1 ;
T2 : TAB2 ;
T3 : TAB3 ;

debut
I <-- 1 ;
J <-- 1 ;
K <-- 1 ;
Tantque (I # N) et (J # M) faire
Si (T1(I) > T(J) )alors
K <-- T1(I) ;
I <-- I + 1 ;
Si non
K <-- T(J) ;
J <-- J + 1 ;
fin si ;
K <-- K + 1 ;
fin tantque;
si (I = N) alors
tantque ( K <= M+N ) et (J <= M) faire
T3(k) <-- T2(J) ;
K <-- K + 1 ;
J <-- J + 1 ;
fin tantque ;
Si non
Si (J = M ) alors
tantque ( K <= M+N ) et ( I <= N ) faire
T3(K) <-- T1(I) ;
K <-- K + 1 ;
J ,-- J + 1 ;
fin si ;
fin si;
pour K <-- 1 a M+N faire
ecrire (T3(K));
fin pour ;
fin.

csdsoft
2015-02-24, 19:34
السلام عليكم من الممكن المساعدة في حل التمارين التالية في الباسكال


و شكرا

sarasamo
2015-02-28, 17:56
السلام عليكم

أرجـــــــو منكم المساعدة لمن يعرف الحــل

**ecrire un program pascal qui affiche le triangle de pascal pour un nombre N**


**pour N valeur lues..afficher ces valeurs par ordre croissant ou descroissant**



**pour N impair. -- evrire un program pascal qui affiche un matrice carrée pour N*N **



** ecrire un program pascal qui resond tous les TP presedent **


و شكرااااااااااا

sarasamo
2015-03-02, 17:40
هل من مساعدة
من فضلكم ارجو الرد

safia11
2015-03-05, 12:33
comment arriver d'un probléme réel à un programmepouvant étre exécuté par ordinateur

a quoi servent les fonction ord(c) et majus(c

que représente une matrice en algorithmique





exercice2 les boucles





ecrire un algorithme qui affiche le nom du joueur gagnant du jeu suivant:deux joueurs lancent un dé,chacun de son coté,le joueur qui a le plus grand résultat marque un point.On arrete le jeu lorsque l'un des joueurs atteint 15





EXERCICE3 les tableaux



ecrire un programme minimun (en langage pascal) permettant de cherche le minimum dans un tableau T de'n'entiers



exercice4 les matrices



soit mat une matrice carrée d'entiers de dimension N=5 ecrire un algorithme qui permet de remplir la matrice mat et de:

calculer p le nombre des éléments pairs

calculer imp le nombre des éléments impairs

afficher p et imp



exercice 4 les chaine de caractére



ecrire un algorithme qui lit une chaine de caractéres et affiche son équivalent en majuscules

sarasamo
2015-03-09, 10:44
السلام عليكم

أرجـــــــو منكم المساعدة لمن يعرف الحــل

**ecrire un program pascal qui affiche le triangle de pascal pour un nombre n**


**pour n valeur lues..afficher ces valeurs par ordre croissant ou descroissant**



**pour n impair. -- evrire un program pascal qui affiche un matrice carrée pour n*n **



** ecrire un program pascal qui resond tous les tp presedent **


و شكرااااااااااا



أرجوكم ساعدوني في الحل احتاجه للغذ

sarasamo
2015-03-19, 19:06
الا يوجد من لديه فكرة عن طريقة حلهااا
أرجوكم طلب مساعدة

malak54
2015-03-19, 22:06
J'ai 3 Exo d Algorithme !
ecrire un sous programme permettant d'afficher le mot miroire d'un chaine de caractéres .


ecrire un sous programme permettant de vérifier si un mot est palindrome.

peut on utiliser l'un des sous _programmes précédents pour écrire l'autre ? si oui ,comment ?

malak54
2015-03-25, 20:56
ساعدوني اين انتم !!

oussamalb7
2015-04-08, 19:03
https://fbcdn-sphotos-h-a.akamaihd.net/hphotos-ak-xpf1/v/t35.0-12/11069445_858967460831252_358543154_o.jpg?oh=69510d 1d95043b6be2519adfb7b5dcdd&oe=55282530&__gda__=1428632301_0bc8d50ce8ca775898c05966e666304 5
أرجوكم أريد حل Exercice 01 et 03
في أقرب وقتا
و شكرا

samir94
2015-05-20, 23:46
PROGRAMATION AVEC NETLOGO


السلام عليكم . اريد حلا لمشكلة و هي بعد النقر على زر التشغيل كل لون يتكون في مجموعة بدون اختلاط
I want after clicking on operating each color in a private circle button . example yellow in a circle and blue in a circle and pink in a circle
************************************************** *
patches-own [

chemicalblue
chemicaljaune
chemicalrose]
to setup

crt populationblue
[ set color blue
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalblue 0 ]
reset-ticks



crt populationjaune
[ set color yellow
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicaljaune 0]
reset-ticks

crt populationrose
[ set color pink
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalrose 0]
reset-ticks


end

to go

ask turtles
[ if chemicalblue > sniff-threshold
[ turn-chemicalblue ]

rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches

[ set chemicalblue chemicalblue * (1 - evaporation / 100 )
set pcolor scale-color green chemicalblue 0.1 3]
reset-ticks
ask turtles
[ if chemicaljaune > sniff-threshold
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches

[ set chemicaljaune chemicaljaune * (1 - evaporation / 100 )
set pcolor scale-color green chemicaljaune 0.1 3]
reset-ticks
ask turtles
[ if chemicalrose > sniff-threshold
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches

[ set chemicalrose chemicalrose * (1 - evaporation / 100 )
set pcolor scale-color green chemicalrose 0.1 3]


reset-ticks

end
to go-blue
ask turtles
[ if color = blue
[ turn-chemicalblue ]

rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches

[ set chemicalblue chemicalblue * (1 - evaporation / 100)
set pcolor scale-color green chemicalblue 0.1 3 ]
reset-ticks
end
to go-yellow
ask turtles
[ if color = yellow
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches

[ set chemicaljaune chemicaljaune * (1 - evaporation / 100)
set pcolor scale-color green chemicaljaune 0.1 3 ]
reset-ticks
end
to go-pink
ask turtles
[ if color = pink
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches

[ set chemicalrose chemicalrose * (1 - evaporation / 100)
set pcolor scale-color green chemicalrose 0.1 3 ]

reset-ticks
end



to turn-chemicalblue


let ahead [chemicalblue] of patch-ahead 1
let myright [chemicalblue] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalblue] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]

end
to turn-chemicaljaune

let ahead [chemicaljaune] of patch-ahead 1
let myright [chemicaljaune] of patch-right-and-ahead sniff-angle 1
let myleft [chemicaljaune] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]

end

to turn-chemicalrose
let ahead [chemicalrose] of patch-ahead 1
let myright [chemicalrose] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalrose] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]
end

ahmed4all
2015-05-23, 20:58
أنصح الجميع بالمحاولة بمفرده، ثم إرفاق المحاولة هنا من أجل النقاش

ahmed4all
2015-05-23, 20:59
لأن الاعتماد على الحل الجاهز لا ينفع

عثمان الجزائري.
2015-05-26, 13:39
نصيحة إخوتي البرمجة لا تكون بهذه الطريقة و كما قال الأخ حالوا ثم ناقشوا فالكثير يقوم بما تقومون به الآن ثم بعد التخرج يكون عندنا مهندس دولة لا يفقه أي شيئ في البرمجة... يمكنكم في المقابل السؤال عن فكرة الحل و ليس الحل نفسه. و فقكم الله.

chachou lamia
2015-06-07, 09:41
salam 3alaykom
khawti ana nakra mathematique et informatique
w drt informatique gololi cha yakraw fiha w chahom takhasosat li fiha mlah w fihom afak

ليليا_سوسو
2015-06-14, 13:44
يا اخي انا لاحضت ان هذا الموضوع يعلم الطلبة الاعتماد على الغير و التمارين الموضوعة جد بسيطة و بقليل من الاجتهاد يمكنهم حلها. و ارجوكم كفانا من تخرج الطلاب و هم لايفقهون شيئا في البرمجة .

abdelghani19300
2015-07-11, 01:49
السلام عليكم
هل هناك لغات برمجة اخرى و تمارين اخرى غير pascal

مسامح.
2015-08-13, 17:39
السلام عليكم
هل هناك لغات برمجة اخرى و تمارين اخرى غير pascal

الباسكال عادة تدرس في السنة الأولى نعم توجد بطبيعة الحال
مثل matlabcpp c # java

مقران ديدو
2015-08-29, 20:25
merci
karabatess

wiss16
2015-10-24, 13:46
les algorith;es et le pascal surtout les boucles

tcom2
2015-10-26, 09:23
ارجوكم حل
Carte Mere : Gigabyte Fsb 1066 Ga945gcmx S2
WEB SITE: www .gigabyte .fr/fileupload/ product/2/2521/711.jpg






Le travail à faire:

1) Télécharger le fichier pour cette carte en PDF.

2)Quel est le rôle du connecteur ORANGE?

3)Quel est le rôle des contrôleurs RTL 8110 SC et IT 8718F-S ?


4) Quel est l'emplacement de la puce du BIOS sur cette carte mère?

5) Qu'est ce qu'on peut placer sur le connecteur F_PANEL?

malak54
2015-10-26, 20:29
ممكن شرح trouve و متى افكر في استعملها في لغة الباسكال ???? و شكراا :)
.

wiss16
2015-11-06, 12:54
ممكن مساعدة من فضلكم.
ecrire un programme qui lit un nombre n .
ensuite il lit n caractère et puis compte et affiche le nombre de fois ou les caractères 'a' et 'b' se suivent.

حمزة_89
2015-11-06, 15:59
ممكن مساعدة من فضلكم.
ecrire un programme qui lit un nombre n .
ensuite il lit n caractère et puis compte et affiche le nombre de fois ou les caractères 'a' et 'b' se suivent.


الحل في مضمون السؤال

هذا عندما تكون a وبعدها b ( لم أتطرق لحالة b وبعدها a أظن لما تشوفي الحل تجيك سهلة )

program copmter_ab;
uses crt;
var
i,cpt_ab,n: integer;
c:char;
begin
write('Entrer le nb des cractere sohaiter :');
readln(n);
cpt_ab:=0;
for i:=1 to n-1 do
begin
readln(c);
if (c=='a') then
begin
readln(c);
if (c=='b') then
begin
cpt_ab:=cpt_ab+1;
end;
writeln(' le nombre de a et b sont suivent est : ', cpt_ab);
end.

wiss16
2015-11-06, 18:08
[QUOTE=حمزة_89;3994614949]الحل في مضمون السؤال

هذا عندما تكون a وبعدها b ( لم أتطرق لحالة b وبعدها a أظن لما تشوفي الحل تجيك سهلة )

program copmter_ab;
uses crt;
var
i,cpt_ab,n: integer;
c:char;
begin
write('Entrer le nb des cractere sohaiter :');
readln(n);
cpt_ab:=0;
for i:=1 to n-1 do
begin
readln(c);
if (c=='a') then
begin
readln(c);
if (c=='b') then
begin
cpt_ab:=cpt_ab+1;
end;
writeln(' le nombre de a et b sont suivent est : ', cpt_ab);
end.
[/QUO
j'ai bien compris la solution, mrc bcp

nana47
2015-11-07, 16:14
ممكن شرح trouve و متى افكر في استعملها في لغة الباسكال ???? و شكراا :)
.
ana jamais sme3et b instruction fi pascal assemha trouve peut etre c un variable

padribatr
2015-11-15, 21:27
السلام عليكم ورحمة الله وبركاته

wiss16
2015-11-16, 17:48
Vous pouvez m'aider svp ?
Ecrire un programme qui lit un entier n compris entre 1 et 5 lit n n caractère. Affiche tous les mots possibes faits de ces n caractère. Un mot étant une suite de caractère

achref230
2015-11-18, 21:51
مممكن تمرينات في lasemblage مع الحل عندي micro عليهم وشكرا

achref 12
2015-11-19, 16:04
أرجو المساعدة في حل هذه المسألة وشكرا

houssem smail
2015-11-21, 11:57
ارجوا المساعدة في الحل بلغة ال c

http://store1.up-00.com/2015-11/1448101683342.png

http://store1.up-00.com/2015-11/1448101683251.png

houssem smail
2015-11-21, 11:59
ارجوا المساعدة في الحل بلغة ال c
http://store1.up-00.com/2015-11/1448101683251.png

http://store1.up-00.com/2015-11/1448101683342.png

Amel Oumansour
2015-11-21, 17:48
السلام عليكم
svp solution de cette Exo
écriver le programme en c qui lit un nombre N (Nombre de jours ) [et l'ajoute à la date du 15/11/2015

il affichera alors la datequi correspond au jour 01/01/2014+N jours sous la forme
XXXX,yyyy,ZZZZ
(...XXXX:jour de la semaine (dimanche,lundi
(yyyy: jour du mois (01 ou 30
(ZZZZ:le mois (janvier ;Février


On suppose que
chaque mois est de 30jours
le premier jour de la semaine est le Dimanche
N est inférieur à 360

malak54
2015-11-28, 17:42
salam , svp momkin ta36oni lprncipe kifah ncoupi une pile P1 fi P2 bla manzido autre piles
mrc

ramsis213
2015-12-04, 19:27
[Ecrire un algorithme pour calculer le quotient de deux nombre :
a/b
المشكلة في الإسناد هل يكون قبل si أو بعدها

]Algo quotient
Variables a, b, Q : réel
Début
Ecrire (« entrer le nombre a : « )
Lire (a)
Ecrire (« entrer le nombre b ; « )
Lire (b)
Si b = 0 alors
Ecrire (« impossible de diviser par 0 « )
Sinon
Q = a/b
Ecrire (« le quotient est : «, Q)
Finsi
fin
أو أو أو أو أو أو أو
Algo quotient
Variables a, b, Q : réel
Début
Ecrire (« entrer le nombre a : « )
Lire (a)
Ecrire (« entrer le nombre b ; « )
Lire (b)
Q = a/b
Si b = 0 alors
Ecrire (« impossible de diviser par 0 « )
Sinon
Ecrire (« le quotient est : «, Q)
Finsi
fin

nassro nouar
2015-12-05, 12:18
السلام عليكم

الله يخليكم راني باغي نكتب a = et b = et somme = a+b في سطر واحد في langage c .... يعني ندير \t مي وين نديرها ؟؟؟؟؟؟؟


الله يخليكم مساعدة عاجلة

Merwankh
2015-12-08, 00:06
نعم الاجابة

nour reine
2015-12-11, 18:27
(sv solution pour ce tp en pascal (unité avec programme
on veut faire la gestion des étudiants par les listes
un etudiant est caractérisée par:
;matricule:enier
nom:string
prénom:string
date de naissance:date
matière:tableau de 5 case, chaque case contient le nom de la matiere, le coefficient et la note
la moyenne:real
année d'étude:1,2,3
:le programme doit assurrer les taches suivantes
création de la liste
ajout d'un étudiant s'il n'éxist pas
suppréssion d'un étudiant s'il éxiste
extraire le major de promo
la division de la liste en trois d'aprés l'année d'étude
l'affichage des listes
:il faut faire 2 éxception qui sont
les notes doit etre des réels
la matricule doit etre un entier
tous ces taches sont des procédure et des fonctions

JavaSE
2015-12-12, 02:21
مشكورين على المجهودات

السوفي محمد
2015-12-12, 15:50
ممكن مسااااعدة
بلييييز



السؤال هو


اكتب خوارزمية تقوم بقراءة العدد x ثم تطبع وزنه احتااااااااج الرد اليوووم ممكن لو سمحتو الحل





وشكرااا

nour reine
2015-12-17, 18:44
SVP SOLUTION POUR CES DEUX TP EN ASSEMBLEUR MIPS
En utilisant l’algorithme d’Euclide, écrire la fonction int pgcd(int a, int b) en assembleur.
Rappel
(a=pgcd(a,b
si b == 0,
pgcd(b, rem(a, b)) sinon
avec la précondition a > b.
On testera la fonction avec plusieurs jeux d’essais.
EXO2
ecrire un programme qui de mande deux entiers et un operateur arithmétique a l'utilisateur puis affiche le résultat de l'operation
:exemple
:donnez deux entiers séparer par un opérateur
4-=3-7:3-7

رميساء خولة
2015-12-19, 17:56
انا يهمني الموضوع مشكوريييين بارك الله فيكم

السوفي محمد
2015-12-25, 08:35
السلام عليكم
ممكن تساعدوني في حل هذا التمرين
وهو كالتالي
اكتب خوارزمية تقوم بقراءة عددين صحيحين x وy من نفس الطول ونقوم بدمجها كالمثال التالي

x=123
y=789
172839

السؤال الثاني
دمجها بالطريقة هذي


x=123
y=879
دمجها بالطريقة هذي

937281



ارجوووو المساااعدة في اقرب وقت بليييييييز

Fares El Amine
2016-01-04, 12:40
خاوتي ممكن مساعدة رجاءا أحتاج برنامج يقوم بعمل المربع السحري le carré magique أنا في أمس الحاجة اليه

hmitcs
2016-01-07, 20:24
[QUOTE=حمزة_89;3994614949]الحل في مضمون السؤال

هذا عندما تكون a وبعدها b ( لم أتطرق لحالة b وبعدها a أظن لما تشوفي الحل تجيك سهلة )

program copmter_ab;
uses crt;
var
i,cpt_ab,n: integer;
c:char;
begin
write('Entrer le nb des cractere sohaiter :');
readln(n);
cpt_ab:=0;
for i:=1 to n-1 do
begin
readln(c);
if (c=='a') then
begin
readln(c);
if (c=='b') then
begin
cpt_ab:=cpt_ab+1;
end;
writeln(' le nombre de a et b sont suivent est : ', cpt_ab);
end.
[/QUO
j'ai bien compris la solution, mrc bcp


Je veux saisir la chaine suivant
"abababab"
Elle est de longeur n=8
Le programe fourni va m'inviter à saisir 8+3 caractères aux minimum,
or moi je veux saisir 8 caractère seulement,

:Un autre contre exemple
"La chaine "aab
"Elle contient une occurence de "ab
or le programme va trouver 0 occurence.

hmitcs
2016-01-07, 20:45
(sv solution pour ce tp en pascal (unité avec programme
on veut faire la gestion des étudiants par les listes
un etudiant est caractérisée par:
;matricule:enier
nom:string
prénom:string
date de naissance:date
matière:tableau de 5 case, chaque case contient le nom de la matiere, le coefficient et la note
la moyenne:real
année d'étude:1,2,3
:le programme doit assurrer les taches suivantes
création de la liste
ajout d'un étudiant s'il n'éxist pas
suppréssion d'un étudiant s'il éxiste
extraire le major de promo
la division de la liste en trois d'aprés l'année d'étude
l'affichage des listes
:il faut faire 2 éxception qui sont
les notes doit etre des réels
la matricule doit etre un entier
tous ces taches sont des procédure et des fonctions

Je pense qu'il serai mieux, pour vous et pour nous, que vous essayé de résoudre ce problème ensuite de poster la solution ici s'elle ne marche pas afin qu'on vous aide à la corriger. bonne courage.

kim2009
2016-01-11, 22:18
من فضلكم شكون يقدر يساعدني في حل التمرين
117921

سوسو 1
2016-01-14, 13:04
يعاني الطالب الجزائري من تغير لغة التدريس عند الدخول إلى الجامعة، ويصادف أمامه عائقا كبيرا، يقلل من استيعابه للدروس، لذا فهذا الدليل للمصطلحات يساعد الطالب الجديد ويمكنه من ربط وفهم أهم المصطلحات الجديدة،
(http://www.ouarsenis.com/vb/newthread.php?do=newthread&f=185)

menassel oussama
2016-01-25, 20:17
'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

حمزة_89
2016-02-18, 10:21
[QUOTE=wiss16;3994615722]


Je veux saisir la chaine suivant
"abababab"
Elle est de longeur n=8
Le programe fourni va m'inviter à saisir 8+3 caractères aux minimum,
or moi je veux saisir 8 caractère seulement,

:Un autre contre exemple
"La chaine "aab
"Elle contient une occurence de "ab
or le programme va trouver 0 occurence.



يابني انا اعطيت فكرة عامة عن الحل وليس الحل كاملا

أما لمشكلتك في عدد الحروف التي يقرءها ، عدلت لك البرنامج ليصبح كالتالي

program copmter_ab;
uses crt;
var
i,cpt_ab,n: integer;
c,temp:char;
begin
write('Entrer le nb des cractere sohaiter :');
readln(n);
cpt_ab:=0;
temp := ' ';
for i:=1 to n do
begin
readln(c);
if (c='b') then
begin
if (temp='a') then cpt_ab:=cpt_ab+1;
end
else if (c='a') then temp:=c;
end;
// fin de boucle
writeln('Le nombre de a et b sont suivent est : ', cpt_ab);
end.




و هذا أظنه يحل جميع مشكلاتكــ

----
أنا لا اريد ان اقدم حلولا جاهزة ...أنا احب دائما ان اقدم أفكار ...
حتى وان كانت أفكاري خاطئة ,,, الواجب منكم مناقشتها وتقديم حلول أخرى
لمناقشتها كذلك ،،، لنستفيد كلنا ،، ا
ثم نضع حلا متكاملا

حمزة_89
2016-02-18, 10:47
'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

على الاقل ضع محاولتك لنتناقش فيها

القائمة أظنها سهلة وتستطيع كتباتها بكل سهولة

لعلي سأساعدك ب fonction الأولى فقط ...

function bin_to_dec(b,k:longint):integer;
begin
if b=0 then bin_to_dec:=0
else bin_to_dec:=bin_to_dec(b div 10, k*2)+b mod 10 * k; // k est la nombre recursivité
// la premiere demande de bin_to_dec est bin_to_dec(b,1);
end;

----

واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة

salemk
2016-03-07, 21:31
'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

الفاصلة3الفاصلة3


program conv1_b_10;
uses wincrt;



function puissance(x,y:integer):longint;
begin
if y=0 then
puissance:=1
else
puissance:= x * puissance(x,y-1);
end;


function convb_10(s:string;b:integer):longint;
var
d,e,i:integer;
r:longint;
begin
r:=0;
for i:=length(s) downto 1 do
begin
if(s[i] in ['0'..'9']) then
val(s[i],d,e)
else
case upcase(s[i]) of
'A': d := 10;
'B': d := 11;
'C': d := 12;
'D': d := 13;
'E': d := 14;
'F': d := 15;
end;
r:= r + d * puissance(b,length(s)-i);
end;
convb_10:=r;
end;


function convb1_10(s:string;b:integer):longint;
var
d,e,i:integer;
r:longint;
begin
r:=0;
for i:=1 to length(s) do
begin
if(s[i] in ['0'..'9']) then
val(s[i],d,e)
else
case upcase(s[i]) of
'A': d := 10;
'B': d := 11;
'C': d := 12;
'D': d := 13;
'E': d := 14;
'F': d := 15;
end;
r:= r*b + d ;
end;
convb1_10:=r;
end;


function conv10_b1(n:longint;b:integer):string;
var
s,c:string;
d:integer;

begin
s:='';
repeat
d:=n mod b;
n:= n div b;
if d in [0..9] then
str(d,c)
else
case d of
10 : c := 'A';
11 : c := 'B';
12 : c := 'C';
13 : c := 'D';
14 : c := 'E';
15 : c := 'F';
end;
s:=c+s;
until n = 0;
conv10_b1:=s;
end;





var
ch:string;
b,b1:integer;


begin

writeln('saisir la valeur à convertir');
readln(ch);
writeln('dans quelle base?');
readln(b);
writeln('vers quelle base?');
readln(b1);
writeln(conv10_b1(convb1_10(ch,b),b1));

end.






الفاصلة2الفاصلة2

hayat khan
2016-03-26, 17:02
السلام عليك هل بمساعدتي في كيفية صناعة واجهة معناها interface de reseau sociaux en html.css.php

ratil talin
2016-03-26, 18:03
من فضلكم ساعدوني في تحويل هذه ALGORITHME اللى الللغة C
procedure tri par insertion (tableau T,n:entier)
debut
pour i allant de 1 a n-1
val reçois T[i]
j reçois i
tant que (j>0 et T[j-1]<val)
T[j] reçois T[j-1]
j reçois j-1
FTQ
T[j] reçois val

fpour
fin

safahdz
2016-03-27, 02:24
من فضلكم ساعدوني في تحويل هذه ALGORITHME اللى الللغة C
procedure tri par insertion (tableau T,n:entier)
debut
pour i allant de 1 a n-1
val reçois T[i]
j reçois i
tant que (j>0 et T[j-1]<val)
T[j] reçois T[j-1]
j reçois j-1
FTQ
T[j] reçois val

fpour
fin

اجبتك في موضوعك

خولة 96
2016-03-29, 11:21
ااالسلام عليكم من فضلكم عندي بعض الاسئلة في الخوارزميات رجاءامنكم اافادة
من يريد مساعدتي رجاءا انا في امس الحاجة في اقرب وقت ........رجاءا لا تبخلو عليا

safahdz
2016-03-29, 19:09
ااالسلام عليكم من فضلكم عندي بعض الاسئلة في الخوارزميات رجاءامنكم اافادة
من يريد مساعدتي رجاءا انا في امس الحاجة في اقرب وقت ........رجاءا لا تبخلو عليا

كان من الأحسن ان تضعي سؤالك مباشرة لربح الوقت

تفضلي سنحاول المساعدة

خولة 96
2016-03-30, 11:03
كان من الأحسن ان تضعي سؤالك مباشرة لربح الوقت

تفضلي سنحاول المساعدة

حاولت نضع الصورة بصح و الله ماعرفت تقول اول مرة :sdf:

خولة 96
2016-03-30, 21:11
http://www11.0zz0.com/2016/03/30/18/251835346.jpg
http://www12.0zz0.com/2016/03/30/18/442032602.jpg
سلام رجاءا لريد حل التمرينات 2 و12 و17 بارك الله فيكم

safahdz
2016-04-01, 23:04
سبق وارسلت لك هذا الحل بالإيميل .. سأعيد رفعه عسى يستفيد يفيد آخرين

جومانةج
2016-04-04, 14:44
سلام عليكم الله يخليكم عندي اختي تدرس سنة اولى ماستر اعلام الى شعبة micr تحتاج االى برنامج sac de mot ou bag of words au ******** java الله يخليكم الي عنده معلومة يساعدنا

batoul1994
2016-04-22, 19:35
salem mes chers programmateurs svp aidez moi :sdf: f l'exercice hada G besoin de votre solution :) turbo pascal 1.5 alr :
une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes:
==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction
==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70%
_ ecriver un programme qui calcule le net apayer sachant que :
net a payer =prix d'achat_prix de reduction==>
==>prix de reduction =(prix d'achat*70)/100
yaaa svp svp aidez moi psk c mon controle :sdf::sdf::sdf::sdf::sdf::sdf::sdf:
awel mara ncharek m3akom svp matrodonich

absosm
2016-04-24, 18:14
أخي بارك الله فيك على المساعدة

s.de.be
2016-04-27, 09:52
salem mes chers programmateurs svp aidez moi :sdf: f l'exercice hada G besoin de votre solution :) turbo pascal 1.5 alr :
une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes:
==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction
==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70%
_ ecriver un programme qui calcule le net apayer sachant que :
net a payer =prix d'achat_prix de reduction==>
==>prix de reduction =(prix d'achat*70)/100
yaaa svp svp aidez moi psk c mon controle :sdf::sdf::sdf::sdf::sdf::sdf::sdf:
awel mara ncharek m3akom svp matrodonich



bonjour, un petit programme corespond à la solution de votre problème

program total;

var prix,reduction,prixachat:real;
nombre,i:integer;
begin
prixachat:=0;
reduction:=0;
writeln('entrer le nombre de livre achetés');
readln(nombre);
for i:=1 to nombre do
begin
writeln('entrer le prix du livre n',i);
readln(prix);
prixachat:=prixachat+prix;
end;
if(nombre>3)then
begin
reduction =(prixachat*70)/100;
end
prix:=prixachat-reduction
;
writeln('le net à payer est de',prix);
end.:19:

Aures Soft
2016-05-05, 21:28
برنامج الدليل المدرسي اللغة الفرنسية - السنة الثالثة ابتدائي - مجاني - مجاني - مجاني - مجاني
- الدليل المدرسي مردد صفحة بصفحة، يتيح لطفلك التعلم بشكل مستقل، لإعداد أو مراجعة الدروس بطريقة مستقلة وتفاعلية.
- البرنامج يسمح لطفلك التقييم بواسطة اختبار مناسب لكل درس.
- يمكن طفلك تسجل القراءة والاستماع إليها.
صفحة مضافة للحروف الأبجدية مرتبطة بالبرنامج.
يمكنك تحميل من الموقع
aures-soft.com

malekbba
2016-05-19, 09:35
فكرة الملتقى جيدة و أتمنى أن تتستمر

Magmaaka
2016-06-02, 21:39
السلام عليكم اخواني
اريد شخص يدرس في الجامعة تخصص رياضيات
لحل عمل تطبيقي
العمل يمكنك تحميله من المرفقات

رقم العمل هو tp n :7 فقط

من فضلك هذا العمل ضروري جدا ان ارجعه يوم الثلاثاء و هو مهم جدا في امر النجاح او السقوط ، جزاكم الله خيرا من يعرف الاجابة لا يبخل علي

baki1303
2022-01-16, 18:03
السلام عليكم
ممكن حل التمارين هذه
4. Jeu du devine le nombre : écrire un programme qui crée un nombre entier aléatoire x entre 0 et 9999 et qui demande à un joueur humain d'essayer de le trouver. A chaque essai du joueur, l'ordinateur doit répondre si celui-ci est "trop grand", "trop petit" ou s'il a "gagné". Le jeu se poursuit tant que l'être humain n'a pas trouvé le nombre x. Lorsque le joueur a gagné, l'ordinateur annonce le nombre d'essais effectués par le joueur. L'ordinateur demande ensuite au joueur s'il veut rejouer et agit en conséquence.

Il existe en Pascal un générateur de nombres aléatoires. Pour l'utiliser, il faut écrire l'instruction randomize au début du programme (après le begin). Ensuite, la fonction random(expression) a pour valeur un nombre réel compris entre 0 et la valeur de l'expression. Exemple :

x = random (100);

{ Donne à x une valeur entre 0 et 100, plus exactement [0,100[}

5. Ecrire un programme qui demande à l'utilisateur un nombre entier positif et détermine si celui-ci est un nombre premier, en utilisant un while.

6. Jeu des allumettes. Ce jeu se joue à 2. On dispose au départ de n allumettes sur un tapis. Chacun son tour, un joueur prend une, deux ou trois allumettes. Le joueur qui prend la

dernière allumette a perdu.

Version 1 Ecrire un programme qui permet à 2 personnes de jouer à ce jeu. Le nombre d'allumettes au départ est demandé à l'utilisateur.

Version 2: Le joueur va jouer contre l'ordinateur. La stratégie de l'ordinateur est simple : s'il reste k allumettes avec 2 ≤ k ≤ 4, l'ordinateur en prend k-1 pour gagner, sinon il en prend au hasard 1, 2, ou 3.

Version 3 S'il le peut, l'ordinateur laisse sur le tapis un multiple de 4 plus 1 allumettes.

وبارك الله فيكم