حل خوارزمية

[بنت الرضى]

السلام عليكم
أريد منكم مساعدتي في حل هذه الخوارزمية في أقرب وقت ممكن
Ecrire un algorithme qui permet de faire le tri (ordre croissant) d'un tableau de 100 entiers
((tri par sélection (recherche de maximum ou du minimum)

[سارق الأحزان]

مرة اختي ابحثي في جوجل فقط اكتبي
algorithm tri par selection
تطلعلك
http://fr.wikipedia.org/wiki/Tri_par_s%C3%A9lection
هنااا تلقااي شرح مميز

[you92cef]

http://www.djelfa.info/vb/showthread.php?t=1135321&page=20
الردود 21

http://people.cs.pitt.edu/~kirk/cs1501/animations/Sort1.html

[بنت الرضى]

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

[بنت الرضى]

http://www.djelfa.info/vb/showthread.php?t=1135321&page=20
الردود 21

http://people.cs.pitt.edu/~kirk/cs1501/animations/sort1.html

أي من الردود؟ أنا لم افهم
وأيضا أنا سنة أولى ونقراو بالباسكال

[you92cef]

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


بخصوص طلبك فهو هنا

http://www.djelfa.info/vb/showthread.php?t=1135321&page=15

راجعي ردرود
salemk

+
https://www.academia.edu/1906492/Algorithmique_et_Structures_de_Donnees_I

رابط فيه دروس وتمارين مع الحل في الباسكال *** يمكن تحميله***
+
http://www.djelfa.info/vb/showthread.php?t=1135321&page=22

الرد 318

فيه شرح للرابط http://people.cs.pitt.edu/~kirk/cs1501/animations/Sort1.html

[بنت الرضى]

هل من مساعدة أخرى؟
أريد الخوارزمية كاملة

[تقرت30]

هناك حلان لهده للخوارزمية
هل تريدين الحل باستعمال les fonction et les procedure
أو بدون استعمالهما
واش من فوج انتي لاخاطر حتى احنا أعطاهلنا الأستاد محجوب كواجب ؟؟؟

[بنت الرضى]

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


بخصوص طلبك فهو هنا

http://www.djelfa.info/vb/showthread.php?t=1135321&page=15

راجعي ردرود
salemk

+
https://www.academia.edu/1906492/algorithmique_et_structures_de_donnees_i

رابط فيه دروس وتمارين مع الحل في الباسكال *** يمكن تحميله***
+
http://www.djelfa.info/vb/showthread.php?t=1135321&page=22

الرد 318

فيه شرح للرابط http://people.cs.pitt.edu/~kirk/cs1501/animations/sort1.html

بارك الله فيك أخي على الشرح
تعبناك معانا

[بنت الرضى]

هناك حلان لهده للخوارزمية
هل تريدين الحل باستعمال les fonction et les procedure
أو بدون استعمالهما
واش من فوج انتي لاخاطر حتى احنا أعطاهلنا الأستاد محجوب كواجب ؟؟؟

أفضل الحل بدون استعمال les fonction et les procedure
على خاطر مش فاهمتهم مليح

[تقرت30]

اليك الخوارزمية كاملة

Program triselection ;

type
tab=array [1..20] of integer ;
var
n,x,p : integer ; t : tab ;

procedure saisie (var n : integer ; var t :tab );
var
i : integer ;
begin
repeat
writeln('Saisir la taille du tableau :');
readln(n);
until n in [5..20] ;
For i:= 1 to n do
begin
repeat
writeln('Saisir l''élément',i) ;
readln(t[i]) ;
until (t[i] > 0)
end;
end;

function pos_max(n : integer ;t :tab; p :integer):integer ;
var
max,i : integer ;
Begin
max:=p ;
for i:= p to n do
begin
if t[i]>t[max] then
max:=i ;
end;
pos_max:=max ;
End;

procedure trie (n : integer ; var t :tab ) ;
var
i,max,p : integer ;
Begin
for i:= 1 to n-1 do
begin
p:=pos_max(n,t,i);
x:=t[i];
t[i]:=t[p];
t[p]:=x ;
end;
End;

procedure affiche (n : integer ; t :tab) ;
var
i : integer ;
Begin
for i:= 1 to n-1 do
begin
write(t[i]);
write('|');
end;
write(t[n]);
End;

Begin
saisie(n,t);
trie(n,t);
affiche(n,t);
End.s

[بنت الرضى]

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

وشكرا لكل من ساعدني في حل
هذه الخوارزمية