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

[you92cef]

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

السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal


Ecrire un programme qui permet de trier trois nombres entieres en utilisant une procédure trie qui reçoit en entrée trois entiers puis ellle les retourne triés

vous pouver changer les commaintre

program sol;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
function trie(a,b,c:integer):integer;
begin
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;
begin
writeln('entrer 3 valeur');
read(a);
read(b);
read(c);
write(trie(a,b,c));
end.

[AKKAINMOH]

ex 6 Tp
1/Ecrire une fonction qui retourne le PGCD de deux nombres entieres ;
2/Ecrire une fonction qui utilise la fonction précédent et qui retourne le PPCM de deux nombres entieres ;
3/Ecrire un programme pascal qui utilise les deux fonctions précédentes et qui permet de lire deux entires et d'afficher leur PGCD et leur PPCM

[you92cef]

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

ex 6 Tp
1/Ecrire une fonction qui retourne le PGCD de deux nombres entieres ;
2/Ecrire une fonction qui utilise la fonction précédent et qui retourne le PPCM de deux nombres entieres ;
3/Ecrire un programme pascal qui utilise les deux fonctions précédentes et qui permet de lire deux entires et d'afficher leur PGCD et leur PPCM

pgcd avec procedure 

program ex;
uses wincrt;
var
a,b:integer;
procedure pgcd(a,b:integer);
var a1,b1:integer;
begin
a1:=a;
b1:=b;
while a1<>b1 do
begin
  if a1>b1 then
     a1:=a1-b1
  else if a1<b1 then
       b1:=b1-a1;
end;
writeln(a1);
end;
begin
writeln('Entrez deux nombre a et b');
repeat
read(a);
readln(b);
until (a>=0) and(b>=0);
pgcd(a,b);
end.

[you92cef]

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

ex 6 Tp
1/Ecrire une fonction qui retourne le PGCD de deux nombres entieres ;
2/Ecrire une fonction qui utilise la fonction précédent et qui retourne le PPCM de deux nombres entieres ;
3/Ecrire un programme pascal qui utilise les deux fonctions précédentes et qui permet de lire deux entires et d'afficher leur PGCD et leur PPCM

pgcd

program ex;
uses wincrt;
var
a,b:integer;
function pgcd(a,b:integer):integer;
var a1,b1:integer;
begin
a1:=a;b1:=b;
while a1<>b1 do
begin
  if a1>b1 then
     a1:=a1-b1
  else if a1<b1 then
       b1:=b1-a1;
end;
pgcd:=a1;
end;
begin
writeln('Entrez deux nombre >=');
read(a);
readln(b);
writeln(pgcd(a,b));
end.

[you92cef]

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

ex 6 Tp
1/Ecrire une fonction qui retourne le PGCD de deux nombres entieres ;
2/Ecrire une fonction qui utilise la fonction précédent et qui retourne le PPCM de deux nombres entieres ;
3/Ecrire un programme pascal qui utilise les deux fonctions précédentes et qui permet de lire deux entires et d'afficher leur PGCD et leur PPCM

ppcm

راجع*-*ي*-* الرد الاول في الصفحة ال9

بالتعريف لدينا 
ppcm(a,b):=(a*b)/pgcd(a,b);

program ex;
uses wincrt;
var
a,b,s,ppcm:integer;
function pgcd(a,b:integer):integer;
var a1,b1:integer;
begin
a1:=a;b1:=b;
while a1<>b1 do
begin
  if a1>b1 then
     a1:=a1-b1
  else if a1<b1 then
       b1:=b1-a1;
end;
pgcd:=a1;
end;
begin
writeln('Entrez deux nombre >=');
read(a);
readln(b);
s:=pgcd(a,b);
ppcm:=(a*b) div s;
writeln(ppcm);
end.

[you92cef]

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

ex 6 Tp
1/Ecrire une fonction qui retourne le PGCD de deux nombres entieres ;
2/Ecrire une fonction qui utilise la fonction précédent et qui retourne le PPCM de deux nombres entieres ;
3/Ecrire un programme pascal qui utilise les deux fonctions précédentes et qui permet de lire deux entires et d'afficher leur PGCD et leur PPCM

program ex;
uses wincrt;
var
a,b,s,ppcm:integer;
function pgcd(a,b:integer):integer;
var a1,b1:integer;
begin
a1:=a;b1:=b;
while a1<>b1 do
begin
  if a1>b1 then
     a1:=a1-b1
  else if a1<b1 then
       b1:=b1-a1;
end;
pgcd:=a1;
end;
begin
writeln('Entrez deux nombre >=');
read(a);
readln(b);
writeln('Le pg de ',a,' et ',b,'=',pgcd(a,b));
ppcm:=(a*b) div s;
writeln('Le pc de ',a,' et ',b,'=',ppcm  );
end.

[AKKAINMOH]

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

[you92cef]

ملاحظة: قد تظهر بعض المشاكل في البرامج الثلاثة عائدة الى الباسكال نفسه

ولكن البرامج الثلاثة صحيحة كلها

[az-mohamed]

Un polynôme peut être représenté par une LLC. Dire comment. Ecrire les algorithmes suivants:
- calcul du polynôme en un point x donné.
- dérivé d'un polynôme.
- somme de deux polynômes.
- produit de deux polynômes.
Est-il préférable de représenter un polynôme par un tableau ou par une LLC ? Expliquez

[you92cef]

المشاركة الأصلية كتبت بواسطة az-mohamed

un polynôme peut être représenté par une llc. Dire comment. Ecrire les algorithmes suivants:
- calcul du polynôme en un point x donné.
- dérivé d'un polynôme.
- somme de deux polynômes.
- produit de deux polynômes.
est-il préférable de représenter un polynôme par un tableau ou par une llc ? Expliquez

للاسف اخي لا يمكنني مساعدتك لاننا لم نتطرق بعد لهذه الدروس
شكرا

[خليل صلاح]

المشاركة الأصلية كتبت بواسطة az-mohamed

Un polynôme peut être représenté par une LLC. Dire comment. Ecrire les algorithmes suivants:
- calcul du polynôme en un point x donné.
- dérivé d'un polynôme.
- somme de deux polynômes.
- produit de deux polynômes.
Est-il préférable de représenter un polynôme par un tableau ou par une LLC ? Expliquez

On peut représenté le polynome par une liste chainée ...Il doit être d'ecrire une structure avec 3 champs
le premiers champ contient le coéficient , et le deuziéme contient le degré , et un pointeur
ex
3x² +2x
est représenté 3|2|p----->2|1|NULL

ces algorithmes ne sont pas compliqué ....
calcul dans un point , par une boucle tant que on peut résoudre cette algorithmes et le même pour les autres

si l'exercice n'est pas clair pour vous ...Je peut créé une solution .

[tahar1974]

ECRIRE L’ALORITHME QUI CALCULE LA SOMME SUIVANTE :
(S=1+X1 /1 !_2 !/X2+X3 / 3 !_4 !/X4 .........N termes,(N entier et X rée.
et merci merci merci

[you92cef]

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

ECRIRE L’ALORITHME QUI CALCULE LA SOMME SUIVANTE :
(S=1+X1 /1 !_2 !/X2+X3 / 3 !_4 !/X4 .........N termes,(N entier et X rée.
et merci merci merci

iهل تقصد

s:=1+x^1/1!+x²/2!+x^3/3!+........+x^n/n!

لا اظن انها صعبة 
يكفي فقط اعمل برنامج لقرائة n وx

نقوم بعمل دالة 
for
التي تقوم بحساب 
x اس ...
ثم تقوم بحساب 
..... ناظمي
تقوم بالقسمة 
الناتج تضيفه لs

[you92cef]

اعتذر عن الاجابة عن باقي تمارين الاعظاء نظرا لقلة المبرمجين في هذه الصفحة وعدم وجود جدية لدى الاعظاء وعدم سعيهم لتطوير مستواهم البرمجي

اتقدم بشكري لكل من ساهم في هذا المضوع في انتظار مشاركة المزيد من المبرمجين حتى نقدم السماعدة لمن يحتاجها اما اذا استمر الوضع هكذا فاعذروني قد اضظر لغلق الموضوع وعدم الرد على طلبات الاعظاء
شكرا للجميع

[عمار ابن غارداية]

اتمنى أن أكون بالمستوى الذي يمنحني مساعدة أي طالب
أرجو منك يا أخ يوسف أن تترك لي التمارين البسيطة أفتحها للطلاب
وبااركالله فيك على المجهود وتقديم الممساعدة