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

[you92cef]

شكرا للجميع

[pro constantino]

J'ai 3 Exo d Algorithme !

1/ Trier dans un ordre croissant (décroissant) X,Y,Z TROIS VARIABLES CONTENANT DES VALEURS R2ELLES

2/ Résoudre une équation du second degré (avec tout les cas possibles réels et complexes)

3/Compter le nombre d'occurrence des valeurs nulles , positives et négative dans une suite de N (eg N=100) nombres entiers lus un par un


et merciii

[you92cef]

التمرين الاول
dans un ordre croisant

program ex05;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
begin
readln(a,b,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.

عدل في التعليقات فقط

للحصول على البرنامج الثاني عدل في تريتب التعليقات فقط

[you92cef]

البرنامج الثاني

program ex07;
uses wincrt;
var a,b,c,x,x1,x2,delta:real;
begin
writeln('S.V.P entrez les valeur de a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('L''ensemble des solution est R')

                        else writeln('Pas de solution ,impossible')
            else writeln('La solution est:',-c/b:3)
else begin
delta:=sqr(b)-4*a*c;
if delta<0 then writeln('Pas de solution dans R')
else if delta=0 then writeln('Solution double',-b/(2*a):3)
     else begin 
         x1:=(-b-sqrt(delta))/(2*a);
         x2:=(-b+sqrt(delta))/(2*a);
         writeln('Les deux solution distinctes sont x1:',x1:3,'  x2:',x2:3);

 end;
 end;
 end.

[you92cef]

البرنامج الثاني

program ex07;
uses wincrt;
var a,b,c,x,x1,x2,delta:real;
begin
writeln('S.V.P entrez les valeur de a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('L''ensemble des solution est R')

                        else writeln('Pas de solution ,impossible')
            else writeln('La solution est:',-c/b:3)
else begin
delta:=sqr(b)-4*a*c;
if delta<0 then writeln('Pas de solution dans R')
else if delta=0 then writeln('Solution double',-b/(2*a):3)
     else begin 
         x1:=(-b-sqrt(delta))/(2*a);
         x2:=(-b+sqrt(delta))/(2*a);
         writeln('Les deux solution distinctes sont x1:',x1:3,'  x2:',x2:3);

 end;
 end;
 end.

البرنامج الثالث سهل
تستعمل while
مع if وعداد

الامر لا يحتاج الى تفكير كبير
حاول تحله بنفسك واذا لم تعرف نحن هنا نساعدك ان شاء الله

[salemk]

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

يرجى المساعدة هنا

بالنسبة للتمرين الاول عدّل هذا الحل للحصول على القيمة الاكبر فقط دون الاهتمام بالقيمة الصغرى مالوسطى

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

التمرين الاول
dans un ordre croisant

program ex05;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
begin
readln(a,b,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.

عدل في التعليقات فقط

للحصول على البرنامج الثاني عدل في تريتب التعليقات فقط

الشكر أو النقد لن يكلّف كثيرا

[haroune21]

اريد مساعدة من الاخوة في حل هدا (باسكال ) ف /ن+....+ 4/27+3/12+ s = 2/9

[you92cef]

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

اريد مساعدة من الاخوة في حل هدا (باسكال ) ف /ن+....+ 4/27+3/12+ s = 2/9

وضح اكثر اخي حتى نستطيع ان نساعدك

[WissamI]

السلام عليكم ......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]

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

السلام عليكم ......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

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

[بن علي عبد الغاني]

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]

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

[llezghed-amir]

program pascal sur les arbres binaires

entrer arbre

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

en pascal

[ranguek]

بارك الله فيكم أخي الكريم

[chachou lamia]

salam 3alaykom
khawti ana nakra mathematique et informatique
w drt informatique gololi cha yakraw fiha w chahom takhasosat li fiha mlah w fihom afak