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

[razokix]

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

program ex;
uses wincrt;
type tab=array[1..25] of integer;
var i,z,p,n:integer;
t,tt:tab;
function tot (m:integer):integer;
begin
if m=1 then
for i:=1 to n do begin
write('t[',i,']=');
read(t[i]);
tt[i]:=t[i]+1;
end;
if m=2 then begin
writeln('Les valeur initiale de tableau sont');
for i:=1 to n do
writeln('t[',i,']= ',t[i]);
end;
if m=3 then begin
writeln('Les valeur de tableau apres augmentation de 1 sont');
for i:=1 to n do 
writeln('t[',i,']= ',tt[i]); 
end;
end;
begin
writeln('S.V.P entrez le nombre de valeur de tableau');
readln(n);
if n<=0 then writeln('Immpossible!');
tot(1);
tot(2);
tot(3);
end.

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

حول ان تفهم البرنامج

اخي يبدو انك لم تفهم المطلوب من السوال
البرنامج الدي عملته انت يقوم بزيادة 1 لكل خانة
اما السوال فهو يقول
2_inserer la valeur X a la kieme place (on obtiendra un tableau de n+1 elements) ^^i
يعني مثلا لو وضعت 4 قيم للجدول هي 4 و 2 و 5 و6
تضع قيمة x وتضع مكانها مثلا في الموقع 3
عندها الناتج يجب ان يكون
4 و 2 وx و5 و 6
يعني الي بعد x يتقدمو برتبه

+ تسلم على مجهوداتك اخي وارجو ان تخبرني بكيفية الحل ^^
واررجو توضيح كيفية المقارن بين جدولين t1[i] wa t2[j] v

[you92cef]

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

اخي يبدو انك لم تفهم المطلوب من السوال
البرنامج الدي عملته انت يقوم بزيادة 1 لكل خانة
اما السوال فهو يقول
2_inserer la valeur X a la kieme place (on obtiendra un tableau de n+1 elements) ^^i
يعني مثلا لو وضعت 4 قيم للجدول هي 4 و 2 و 5 و6
تضع قيمة x وتضع مكانها مثلا في الموقع 3
عندها الناتج يجب ان يكون
4 و 2 وx و5 و 6
يعني الي بعد x يتقدمو برتبه

+ تسلم على مجهوداتك اخي وارجو ان تخبرني بكيفية الحل ^^
واررجو توضيح كيفية المقارن بين جدولين t1[i] wa t2[j] v

نعم لم ابرمج اضافة عنصر للجدول
ajouter un element dans le tableau je pence que on fait ces exercice dans cette page alors il suffit de revoir le sujet et les reponce precedent

ce qui la comparaison entre les tableau cela revient au type de comparason par exemple ordre croissant ou decroissant ,la moyen .. extra

mais je pences que vous vouler connaitre si deux tableau contient les meme element
pour cela
on a duex chemin ou plusieurs a suivre
par example
si on tient compte ou classement
alors le tableau 1
qui contient les element suivant
1
2
3
4
c'est pas le meme pour le tableau 2 qui contient les element suivant
1
3
2
4

alors cela revient ou type de reponce ou tout simplement la maniere qu'on veut resoudre l'exo

donc a mon avis je pence que vous avez l'algo de l'insertion d'un element dans un tableau *-* ajouter un element*-*
donc il reste d'appliquer

essayer et si vous trouver des difficulteé on est la
ان شاء الله
شكرا

[razokix]

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

نعم لم ابرمج اضافة عنصر للجدول
ajouter un element dans le tableau je pence que on fait ces exercice dans cette page alors il suffit de revoir le sujet et les reponce precedent

ce qui la comparaison entre les tableau cela revient au type de comparason par exemple ordre croissant ou decroissant ,la moyen .. extra

mais je pences que vous vouler connaitre si deux tableau contient les meme element
pour cela
on a duex chemin ou plusieurs a suivre
par example
si on tient compte ou classement
alors le tableau 1
qui contient les element suivant
1
2
3
4
c'est pas le meme pour le tableau 2 qui contient les element suivant
1
3
2
4

alors cela revient ou type de reponce ou tout simplement la maniere qu'on veut resoudre l'exo

donc a mon avis je pence que vous avez l'algo de l'insertion d'un element dans un tableau *-* ajouter un element*-*
donc il reste d'appliquer

essayer et si vous trouver des difficulteé on est la
ان شاء الله
شكرا

مشكور لاهتمامك اخي
بخصوص السوال 2 انا برمجت برنامج يسمح بقراءة جدول
ثم وضع قيمه x
واختيار المكان الدي سوف توضع في هالقيمة x
لكن المشكل هو مثلا لو كانت قيم الجدول
5
2
3
1
انا احدد القيمه x=20 ثم احدد مكان وضعها 2
الجدول الدي ينتج
5
20
3
1
نلاحط ان القيمة السابق التي هي 2 اختفت ووضع مكانها 20

لكن المفروض في السوال هو ان الجدول الناتج يجب ان يكون
5
20
2
3
1
ارجو مساعدتي في كتابة الطريقة التي تسمح بهدا

اما بخصوص المقارن فالمطلوب المقارن مع جدولين
مثلا
الجدول الاول الجدول الثاني
5 ,,,,,,,,,,,,,,,,, 5
2 ,,,,,,,,,,,,,,,, 33
3 ,,,,,,,,,,,,,,, 3
1 ,,,,,,,,,,,,,,,, 1
هنا المفروض يخبرنا البرنامج ان الجدولين غير متماثلين
حتى ولو كان الاختلاف في قيمة
اما ادا كانا
الجدول الاول الجدول الثاني
5 ,,,,,,,,,,,,,,,,, 5
2 ,,,,,,,,,,,,,,,, 2
3 ,,,,,,,,,,,,,,, 3
1 ,,,,,,,,,,,,,,,, 1

هنا المفروض البرنامج يخبرنا ان الجدولين متماثلين

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

[razokix]

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

مشكور لاهتمامك اخي
بخصوص السوال 2 انا برمجت برنامج يسمح بقراءة جدول
ثم وضع قيمه x
واختيار المكان الدي سوف توضع في هالقيمة x
لكن المشكل هو مثلا لو كانت قيم الجدول
5
2
3
1
انا احدد القيمه x=20 ثم احدد مكان وضعها 2
الجدول الدي ينتج
5
20
3
1
نلاحط ان القيمة السابق التي هي 2 اختفت ووضع مكانها 20

لكن المفروض في السوال هو ان الجدول الناتج يجب ان يكون
5
20
2
3
1
ارجو مساعدتي في كتابة الطريقة التي تسمح بهدا

اما بخصوص المقارن فالمطلوب المقارن مع جدولين
مثلا
الجدول الاول الجدول الثاني
5 ,,,,,,,,,,,,,,,,, 5
2 ,,,,,,,,,,,,,,,, 33
3 ,,,,,,,,,,,,,,, 3
1 ,,,,,,,,,,,,,,,, 1
هنا المفروض يخبرنا البرنامج ان الجدولين غير متماثلين
حتى ولو كان الاختلاف في قيمة
اما ادا كانا
الجدول الاول الجدول الثاني
5 ,,,,,,,,,,,,,,,,, 5
2 ,,,,,,,,,,,,,,,, 2
3 ,,,,,,,,,,,,,,, 3
1 ,,,,,,,,,,,,,,,, 1

هنا المفروض البرنامج يخبرنا ان الجدولين متماثلين

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

تم بحمد الله حل تمرين المقااارن
باقي السوال 2 ارجو المساعده
2_inserer la valeur X a la kieme place (on obtiendra un tableau de n+1 elements) ^^i

[salemk]

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

تم بحمد الله حل تمرين المقااارن
باقي السوال 2 ارجو المساعده
2_inserer la valeur X a la kieme place (on obtiendra un tableau de n+1 elements) ^^i

محاولتك حسب الشرح جيدة، شكرا
ربما لم تنتبه لكون بزيادة قيمة جديدة للجدول فان n ستصير n+1، هذه محاولتي قد تنفعك في شيء

program ee;
uses wincrt;
type
tab=array[1..10] of integer; 


procedure remplir(var t:tab; var n:integer);
var
i:integer;
begin
repeat
writeln('donner le nombre des éléments à saisir (entre 2 et 9)');
readln(n);
until n in [2..9];
for i:=1 to n do
begin
writeln('donner l''élement de la position ',i);
readln(t[i]);
end;
end;

procedure insert(var t:tab; var n:integer);
var
i,x,p:integer;
begin
writeln('donner une valeur à inserer dans le tableau');
readln(x); 
repeat
writeln('donner la position d''isertion');
readln(p);
until p in [1..n+1];
for i:=n+1 downto p do
t[i]:= t[i-1];
t[p]:=x;
n:=n+1;
end;

procedure affiche (t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
writeln('l''élement du tableau n°',i,' est ',t[i]);
end;   


var
t:tab ;
n:integer;


begin
remplir(t,n);
insert(t,n);
affiche(t,n);
end.

[you92cef]

تم الاجابة عن التمرين ارجوا فقط ان تبرمج بروسيدور او فونكشن واحدة تضع فيها كل ما هو مطلوب بعدها تعمل منادات لها
سواء مثلا في البرنامج السابق او مناداتها بالطريقة
tot(2)
بالنسبة للحل الاول المقترح
اضافة الى بعض التعديلات ومنح القارئ بعض الاختيارات
case .... of
وبعدها نعمل منادات للبروسيدور بحسب اختيار القارئ

[razokix]

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

محاولتك حسب الشرح جيدة، شكرا
ربما لم تنتبه لكون بزيادة قيمة جديدة للجدول فان n ستصير n+1، هذه محاولتي قد تنفعك في شيء

program ee;
uses wincrt;
type
tab=array[1..10] of integer; 


procedure remplir(var t:tab; var n:integer);
var
i:integer;
begin
repeat
writeln('donner le nombre des éléments à saisir (entre 2 et 9)');
readln(n);
until n in [2..9];
for i:=1 to n do
begin
writeln('donner l''élement de la position ',i);
readln(t[i]);
end;
end;

procedure insert(var t:tab; var n:integer);
var
i,x,p:integer;
begin
writeln('donner une valeur à inserer dans le tableau');
readln(x); 
repeat
writeln('donner la position d''isertion');
readln(p);
until p in [1..n+1];
for i:=n+1 downto p do
t[i]:= t[i-1];
t[p]:=x;
n:=n+1;
end;

procedure affiche (t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
writeln('l''élement du tableau n°',i,' est ',t[i]);
end;   


var
t:tab ;
n:integer;


begin
remplir(t,n);
insert(t,n);
affiche(t,n);
end.

lمشكور اخي
تم الاستفادة من مشاركتك

[razokix]

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

تم الاجابة عن التمرين ارجوا فقط ان تبرمج بروسيدور او فونكشن واحدة تضع فيها كل ما هو مطلوب بعدها تعمل منادات لها
سواء مثلا في البرنامج السابق او مناداتها بالطريقة
tot(2)
بالنسبة للحل الاول المقترح
اضافة الى بعض التعديلات ومنح القارئ بعض الاختيارات
case .... Of
وبعدها نعمل منادات للبروسيدور بحسب اختيار القارئ

مشكور اخي مشكور كثير ما قصرت معي
ربي يجازيك

[razokix]

الان شباب باقي لي سوالين لم افهم شو المطلوب فارجو ان توضحو لي المطلوب في كل سوال بمثال ان امكن :

en utilisant les procedures et les fonctio ecrivez un programme en pascal qui :

1
pour chaque elemet de T on ne garde que sa premiere occurrence et on remplace les autres par 0 . puis regrouper les element restant au debut de tableau
2
inserer un entier x saisi par l utilisateur dans un tableau d'elements classes par order croissant

في الانتظار

[you92cef]

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

الان شباب باقي لي سوالين لم افهم شو المطلوب فارجو ان توضحو لي المطلوب في كل سوال بمثال ان امكن :

En utilisant les procedures et les fonctio ecrivez un programme en pascal qui :

1
pour chaque elemet de t on ne garde que sa premiere occurrence et on remplace les autres par 0 . Puis regrouper les element restant au debut de tableau
2
inserer un entier x saisi par l utilisateur dans un tableau d'elements classes par order croissant

في الانتظار

بخصوص السؤال الاول
فادا كانت لدينا قيمة تتكرر فاننا نحتفظ بالقيمة الاولى فقط والقيم الاخرى تصبح 0 مثال

10 1 3 2 4 5 6 2 8 2

10 قيم
نلاحظ ن القيمة 2 تكررت اكثر من مرة
ادن علينا ان نبرمج بروسيدور او فوكسيون لاعطاءنا النتائج التالية
10 1 3 2 4 5 6 0 8 0

10 قيم
احتفظنا ب2 الاولى والقيم الاخرى ل2 تصبح 0
بخصوص الشطر الثاني للسؤال فلم افهمه جيدا ولكن اظن
انه علينا ان نجعل القيم التي لا تساوي 0 في بداية الجدول والقيم التي تساوي 0 في نهاية الجدول *-* يعني نحدف القيم التي تساوي 0*-*
هكدا
10 1 3 2 4 5 6 8

8 قيم

السؤال الثاني علينا اولا ترتيب الجدول ترتيب تصاعدي
بعدها نقوم بقراءة قيمة ونضعها في مكانها بحيث نحتفظ بالترتيب التصاعدي
مثلا
لدينا القيم التالية
1
3
2
4
7
6

نرتبها فتصبح هكدا
1
2
3
4
6
7

نقرا قيمة ولتكن مثلا 5
علينا ان نضع 5 في مكانها الخاص مع الحفاظ على الترتيب فينتج التالي
1
2
3
4
5
6
7

[سماح الجيجلية]

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

svp ...aidez-moi ....je veux l'algorithme ou le prgm en C
ecrire un prgrm qui lit à partir du clavier une suite de caractères terminée par'.' et mémorise au fur et à mesure la suite dans un tableau puis effectuer les taches suivantes :
1-recherche le caractère le plus fréquent dans la suite
2-teste si la suite de caractères constitue un palindrome
3-affiche à l'inverse la suite de caractères
(chaque tache par une fonction ou procédure qui doit etre appelée par le prgrm principale)

plzzzz ya jma3a 3awnouna ..wella pas de chance hna tani hhhhhhhh

[you92cef]

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

plzzzz ya jma3a 3awnouna ..wella pas de chance hna tani hhhhhhhh

j'essaye demain
ان شاء الله
mais je suis pas sur d'avoir un program ki circule b1

[you92cef]

لقد حاولت برمجة لمطلوب
برمجة فونكسيون القراءة وهل شغالة عادي ولكن بخصوص les tableau فهنا كان المشكل
فعندما اردت اظهار les valeur de tableau
البرنامج يظهر اشياء اخرى
والبتالي لم استطع اكمال البرنامج اعتدر لاننا لم نتطرق بعد لمثل هته التمارين ولكن ادا لديك محاولة فضعيها هنا لكي نتناقش حولها ربما نصل الى الحل المطلوب شكرا

[yalova]

السلام عليكم ابحث عن طريقة tri à bulle d'une liste liéaire chainée

[عودة امل]

بسم الله الرحمن الرحيم
السلام عليكم
موضوع مميز من عضو مميز ماشاء الله.......
ارجو أن تساعدوني من فضلكم في
ecrivez une fonction ou procedur qui retourne le nombre des jour
من
11/11/1990
.
.
.
.
.
jusqua 3/4/2013