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

[salemk]

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

Construction

Merci bien

Merci bien frère 

•	Pour nl = 5 on aura un triangle, dans un program Pascal, comparable à une matrice (NL X NL) remplit à moitié :
               o	au lieu d’une matrice on veut remplir un tableau par une ligne de la matrice puis de cette ligne on cherche la suivante et ainsi de suite 
                            	on veut utiliser un tableau et pas une matrice

[salemk]

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

•	Pour nl = 5 on aura un triangle, dans un program Pascal, comparable à une matrice (NL X NL) remplit à moitié :
               o	au lieu d’une matrice on veut remplir un tableau par une ligne de la matrice puis de cette ligne on cherche la suivante et ainsi de suite 
                            	on veut utiliser un tableau et pas une matrice

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

A laide d’un Pascal on veut afficher sur l’écran le triangle de Pascal pour un rang NL donné.
•	NL : nombre de lignes, (1 ≤ NL ≤ 10)
•	Proposer une analyse et déduire le programme demandé
•	Utiliser un tableau unidimensionnel pour calculer les coefficients et non pas une matrice

ارجو المساعدة في كيفية التعامل مع مصفوفة ببعدين على انها مجموعة مصفوفات ببعد واحد في حالة مثلث باسكال وشكرا

c'est bon

program TrianglePascal;
uses wincrt;

var
i,j,nl:integer;
t:array[1..10] of integer;

begin
   repeat
      writeln('donner le nombre des lignes');
      readln(nl);
   until nl in [1..10] ;

   for i:=1 to nl do
   begin
      t[i]:=1;
      for j:=i-1 downto 1 do
         begin
         if j=1 then 
            t[j]:=1
         else
            t[j]:=t[j-1]+t[j];
         end;
      for j := 1 to i do
         write(t[j]:5);
         writeln;
   end;

end.

[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

[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

[AKKAINMOH]

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

[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.

[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.

[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

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

[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