ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

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

*-*sujet td avec solution*-*

ارجوا برمجة الخورازيميات بالباسكال لفهم اكثر

https://www.academia.edu/1906492/Algo...s_de_Donnees_I

[you92cef]

سلسلة تمارين مع الحل لطلاب الاعلام الالي سنة ثانية

*-*sujet td avec correction*-*

https://www.academia.edu/1906505/Algo..._de_Donnees_II

[salemk]

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

مبدا
tri par comptage
هو تريب جدول او مصفوفة

من اجل هذا نحتاج الى قراءة جدول او مصفوفة
ثانيا نحتاج الى مقارنة القيم
فالقيمة الاولى للجدول نقارنها مع كل القيم الاخرى فاذا وجدنا قيمة اصغر منها نقوم بعمل تبديل بين القيم
permutation
وهكذا
ثم ناخذ القيمة الثانثة من الجدول
من الواضح اننا لا نحتاج الى ان نقارنها مع القيمة التي قبلها لانها اصغر منها نقارنها مع كل القيم واذا وجدنا قيمة اصغر منها ننقوم بعمل تبديل

اذا تلاحظ فيها هذا الالغوريتم فاننا نحتاج الى دالتين من نوع
for
الدالة الاولى تقوم بتثبيت قيمة الجدول التي نريد مقارنتها ونستعمل فيها المبدا التالي
for i:=1 to n-1

هذه الدالة تقوم باخذ قيمة الجدول فقط
نلاحظ اننا اخذنا
n-1
ولم ناخذ
n
iهذا نفمه من الدالة الثانثة
نلاحظ ان الدالة الثانية تنطلق من
i+1 to n
لماذا
لاننا لا نحتاج الى مقارنة قيمة
i
مع نفسها
فاذا كانت قيمة
i=3
n=10
فاننا نقارن القيمة الثالثة من الجدول مع القيم 4-5-6-7-8-9-10
من اجل هذا استعملنا
i+1

الدالة الاولى انتهت عند
n-1
والدالة الثانثة انتهت عند
n
لماذا؟
حتى نقارن بين القيم
فاذا انتهت قيمة الدالة الاولى عند
n
فان الدالة الاثنة لن تقوم بمقارنة قيمة
n
من اجل اجل هذا نجعل الدالة الاولى تنتهي عند
n-1
والتي تساوي 9
فالدالة الثانية تسمح بمقارنة القيمة 9 للجدول مع القيمة العاشرة
اذا كانت القيمة التاسعة اصغر من العشارة تبقي على نفس الترتيب واذا كانت اكبر تغير الترتيب
فتصبح القيمة التاسعة في المكان العاشرة والقيمة العاشرة في المكان التاسع

لفهم اكثر
سوف اعطيك اللغوريتم وارجوا ان تضعه في برنامج

اللغوريتم لديك الان قم ببرمجته

المعذرة
أليس هذا
Le tri par sélection?
الرجاء التثبت
-----------------------------------------------------------------------------------------

Le tri par sélection

Dans cet algorithme nous allons travailler sur un tableau de 10 entier.

Jeu d'essai

			|52|10|1|25|62|3|8|55|3|22|

Principe :
Le tri par sélection consiste à chercher le plus petit élément du tableau pour le placer en 1er, puis de chercher le plus petit élement dans le reste et de le mettre en second, etc…
On stock dans la variable petit le 1er élément du tableau puis on reparcour le tableau en partant de l'indice en cours jusqu'à la fin pour chercher si un élement est plus petit que lui.
Si c'est le cas on va remplacer la valeur de la variable petit par la nouvelle valeur trouvé puis stocker dans la variable position à quelle position du tableau on l'a trouvé . La deuxieme boucle va nous permettre de mettre le plus petit élément trouvé à la bonne place et de décaler les autres élement.

Tournage

			|52|10|1 |25|62|3 |8 |55|3 |23|
			|1 |52|10|25|62|3 |8 |55|3 |23|
			|1 |3 |52|10|25|3 |8 |55|3 |23|
			|1 |3 |3 |52|10|25|62|8 |55|23|
			|1 |3 |3 |8 |52|10|25|62|55|23|
			|1 |3 |3 |8 |10|52|25|62|55|23|
			|1 |3 |3 |8 |10|23|25|25|62|55|
			|1 |3 |3 |8 |10|23|25|52|62|55|
			|1 |3 |3 |8 |10|23|25|52|62|55|
			|1 |3 |3 |8 |10|23|25|52|55|62|

[salemk]

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

أيــــــــــن الردوود
الرجاء الرد في أقرب وقت ممكن

Le tri par comptage

Principe
le tri par comptage consiste pour chaque élément du tableau à compter combien d'élément sont plus petit que lui, grâce à ce chiffre on connaît la position dans le tableau résultat.

exemple

Tableau1 à trier

|52|10| 1|25|62| 3| 8|55| 3|23|

On compte pour chaque élément les éléments qui lui sont inférieurs,

Après comptage, dans le tableau2, le nombre des éléments qui sont inférieurs à l’élément d’indice correspondante du tableau1 de départ


Tableau1 à trier (tableau dans l’algorithme)

|52|10|1|25|62|3|8|55|3|23|

Tableau2 (nb dans l’algorithme)

|7 |4 |0 |6 |9 |1 |3 |8 |1 |5 |

Resultat (res dans l’algorithme)

|1 |3 |3 |8 |10|23|25|52|55|62|

Algorithme

Pour i allant de 1 a (fin de tableau)
  Res(i) = 0
  Nb(i) = 0
  'calcule des compteurs
  Pour j allant de 1 a (fin de tableau)
    Si tableau(j) < tableau(i) alors
      Nb(i) = nb(i) + 1
    Fin de si
  Fin de pour
Fin de pour
Pour i allant de 1 a (fin de tableau)
  j = nb(i)
  Tant que res(j) <> 0 'cas des doubles
    j = j + 1
  Fin de tant que
  Res(j) = tableau(i)
Fin de pour

[أبو عبد الرحمن 87]

S= 1+(x/1!)+(x²/2!)+(x*3/3!)+..........+(x*n/n!)w

* تعني اس
w لاتعني اي شيء
ما رأيك أخي يوسف في هذا الحل؟

PROGRAM FDS;
var b,n :integer;
var x,s,c,d:real;
begin
readln(n,x);
if n=1 then
s:=1
else for b:=1 to n do
s:=1;
b:=1;
c:=1;
begin
c:=c*b;
b:=b+1;
s:=exp(ln(b)*x)/c;
end;
writeln(s);
readln;
end.

[marwa.dz]

Ecrire un program (pascal) qui déclare et remplisse un tableau de 7 valeurs numériques en les
mettant toutes à zero

Ecrire un program (pascal) qui déclare et remplisse un tableau contenant les six voyelles de lalphabet

[جهيدة جهودة]

السلام عليكم
انا عندي مشكل code source d'un analyseur lexicale langage delphi

[you92cef]

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

S= 1+(x/1!)+(x²/2!)+(x*3/3!)+..........+(x*n/n!)w

* تعني اس
w لاتعني اي شيء
ما رأيك أخي يوسف في هذا الحل؟

PROGRAM FDS;
var b,n :integer;
var x,s,c,d:real;
begin
readln(n,x);
if n=1 then
s:=1
else for b:=1 to n do
s:=1;
b:=1;
c:=1;
begin
c:=c*b;
b:=b+1;
s:=exp(ln(b)*x)/c;
end;
writeln(s);
readln;
end.

ليس هو الحل المطلوب

يجب برمجة المطلوب كما هو
يعني تبرمج الدالة كما هي لا ان تغيرها وتدخل الاسية واللوغاريتم

+
لا تنسى
uses wincrt

نستعمل
var
مرة واحدة وليس مرتين

القيم الاولية
valeur initiatialisation
نضعها غالبا بعد
begin
الخاصة بالرنامج الرئيسي ما عدا في حالات خاصة

حاول استعمال التعلقات
commentaire
*-*لديهم نقطة في الامتحان او الفرض*-*


جرب ان تبرمج المطلوب

نقوم بقرائة
x
و
n

نقوم باستدعاء الدالة
for

نقوم بحساب
x**i
** تعني الاس
هذه القيمة نضيفها ل
s
بعدها نقوم بعرض
s

*-* لا تغير ابدا الدالة التي طلب منك برمجتها*-*

[you92cef]

المشاركة الأصلية كتبت بواسطة جهيدة جهودة

السلام عليكم
انا عندي مشكل code source d'un analyseur lexicale langage delphi

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

اسف
قد يساعدك بعض الطلبة

[you92cef]

المشاركة الأصلية كتبت بواسطة marwa.dz

ecrire un program (pascal) qui déclare et remplisse un tableau de 7 valeurs numériques en les
mettant toutes à zero

ecrire un program (pascal) qui déclare et remplisse un tableau contenant les six voyelles de lalphabet

حاول*-*ي*-* برمجتها بنفسك*-*ي*-*

ضع*-*ي*-* محاولتك او الالغوريتم

[you92cef]

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

Le tri par comptage

Principe
le tri par comptage consiste pour chaque élément du tableau à compter combien d'élément sont plus petit que lui, grâce à ce chiffre on connaît la position dans le tableau résultat.

exemple

Tableau1 à trier

|52|10| 1|25|62| 3| 8|55| 3|23|

On compte pour chaque élément les éléments qui lui sont inférieurs,

Après comptage, dans le tableau2, le nombre des éléments qui sont inférieurs à l’élément d’indice correspondante du tableau1 de départ


Tableau1 à trier (tableau dans l’algorithme)

|52|10|1|25|62|3|8|55|3|23|

Tableau2 (nb dans l’algorithme)

|7 |4 |0 |6 |9 |1 |3 |8 |1 |5 |

Resultat (res dans l’algorithme)

|1 |3 |3 |8 |10|23|25|52|55|62|

Algorithme

Pour i allant de 1 a (fin de tableau)
  Res(i) = 0
  Nb(i) = 0
  'calcule des compteurs
  Pour j allant de 1 a (fin de tableau)
    Si tableau(j) < tableau(i) alors
      Nb(i) = nb(i) + 1
    Fin de si
  Fin de pour
Fin de pour
Pour i allant de 1 a (fin de tableau)
  j = nb(i)
  Tant que res(j) <> 0 'cas des doubles
    j = j + 1
  Fin de tant que
  Res(j) = tableau(i)
Fin de pour

شكرا على الشرح
اسف لم ادرك المطلوب جيدا لاننا لم نتطرق لدرس
tri par comptage

وانما تطرقنا لدرس
tri par selection
لذلبك لم افهم المطلوب جيدا

ارجوا ان تستمر في مساعدة الطلبة لانني سوف اغيب بسبب الامتحانات

[you92cef]

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

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

[AKKAINMOH]

السلام عليكم aide moi,svp
écrire le programme pascal qui lit une phrase caractère par caractèreet l’affiche dans le sens inverse (de la fin au début) .la fin de la phrase est détectépar le caractère

[بهاار]

السلام عليكم ورحمة الله تعالى وبركاته

أنا عندي مشكلة في طباعة l'execution تاع لبروقرام
ارجو افادتي بطريقة

[you92cef]

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

السلام عليكم ورحمة الله تعالى وبركاته

أنا عندي مشكلة في طباعة l'execution تاع لبروقرام
ارجو افادتي بطريقة

قد تكون*-*ي*-* نسيت استعمال الدالة
wincrt

لان عدم كتابتها يعني لا يكون هناك اظهار للنتائج