مساعدة في كتابة خوارزمية

[Morphus007]

Non ma soeure c'est une solution fausse
Voici la solution
Algo
Var a,b,c,d,min : entier;
debut
lire(a,b,c,d);
min:=a;
si a >b alors
min:=b;
si min>c alors
min:=c;
si min>d alors
min:=d;
ecrire(min);
fin

[you92cef]

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

non ma soeure c'est une solution fausse
voici la solution
algo
var a,b,c,d,min : Entier;
debut
lire(a,b,c,d);
min:=a;
si a >b alors
min:=b;
si min>c alors
min:=c;
si min>d alors
min:=d;
ecrire(min);
fin

ايضا البرنامج خاطئ وغير كامل
حاول وضع كل الاحتماللات

[Morphus007]

algo
var a,b,c,d,min : Entier;
debut
lire(a,b,c,d);
min:=a;
si a >b alors
min:=b;
si min>c alors
min:=c;
si min>d alors
min:=d;
si min<> a alors ecrire(a);
si min<> b alors ecrire(b);
si min<> d alors ecrire(d);
si min<> c alors ecrire(c);
fin

[you92cef]

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

algo
var a,b,c,d,min : Entier;
debut
lire(a,b,c,d);
min:=a;
si a >b alors
min:=b;
si min>c alors
min:=c;
si min>d alors
min:=d;
si min<> a alors ecrire(a);
si min<> b alors ecrire(b);
si min<> d alors ecrire(d);
si min<> c alors ecrire(c);
fin

للاسف الالغوريتم خاطئ وناقص

تابع الصورة للشرح



فيجب اولا مقارنة ما اذا كان a اكبر او اصغر من صفر ثم مقارنة a مع b ومع c ومع d ثم مقارنة b مع c وc مع d وd مع a
وفي كل حالة تختلف النتيجة

شكرا للجميع

[Morphus007]

Non mon algorithme est juste mais il donne comme resultat les 3 nombre les plus grand , et pour avoir les 3 nombre les plus petit il fait inverse symbole de comparaison.
et concernant comparaison avec 0 est pas obligatoire paeceque les nombre negatives sont des nombre entiers
Voici la solution juste a 100%
algo
var a,b,c,d,max : Entier;
debut
lire(a,b,c,d);
max:=a;
si a <b alors
max:=b;
si max<c alors
max:=c;
si max<d alors
max:=d;
si max<> a alors ecrire(a);
si max<> b alors ecrire(b);
si max<> d alors ecrire(d);
si max<> c alors ecrire(c);
fin