موضوع مميز ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal - الصفحة 9

you92cef · 2012-12-14, 18:17

كود:

de cours 

Il est parfois demandé de trouver le plus petit nombre divisible par le plus de nombres possibles :
PPCM(1, 2) = 2
PPCM(1, 2, 3) = 6
PPCM(1, 2, 3, 4) = 12
PPCM(1, 2, 3, 4, 5) = 60
PPCM(1, 2, 3, 4, 5, 6) = 60
PPCM(1, 2, 3, 4, 5, 6, 7) = 420
PPCM(1, 2, 3, 4, 5, 6, 7, 8) = 840
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20) = 232792560
Algorithme de calcul d'un PPCM
Méthode n° 1 : les multiples des nombres 12 et 10.
Les multiples de 12 sont : 0,12,24,36,48,60,72 etc.
Les multiples de 10 sont 0,10,20,30,40,50,60,70 etc.
Le premier multiple commun non nul est : 60.
Méthode n° 2 : la décomposition en facteurs premiers.
12 = 2 * 2 * 3
10 = 2 * 5
Il faut prendre les facteur qui figurent dans, au moins, une des décomposition ; s'ils sont répétés, il faut conserver la plus longue répétition (leur plus grand exposant)
Le PPCM est le produit de ces nombres : 2 * 2 * 3 * 5
Méthode n° 3 : en passant par le PGCD
On utilise la formule : ppcm(a, b) = a * b / pgcd(a, b)
pgcd(10, 12) = 2
ppcm(10, 12) = (10 * 12) / 2 = 60
Programmes pour calculatrices (TI, Casio)
Les calculatrices intégrent généralement les fonction de PPCM sous le nom de LCM (Lowest Common Multiple). Si vous n'avez que la fonction PGCD (ou GCD), appliquez les formules ci dessus.



ارجوا ان تبرمج*-*ي*-* انطلاقا من الطريقة الثالثة *-* الالغوريتم موجود في الطريقة الثالثة*-*

ghafour madrid · 2012-12-16, 10:34

crée un algorithme qui calcul la somme carrée de 1 carrée a n carrée
donnez moi comment crrée cet algorithme en pascal

you92cef · 2012-12-16, 17:29

اقتباس:

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

crée un algorithme qui calcul la somme carrée de 1 carrée a n carrée
donnez moi comment crrée cet algorithme en pascal

المبدا هو عمل
variable ياخذ كل مرة قيمة الجمع

نقوم بادخال عدد
n

بما انه لدينا نفس العملية تتكرر
n
مرة
فنقوم باستدعاء الدالة
for
نقوم باخذ مربع العدد ثم نضيف لل
varible
التي وضعناها في الاول

كود:

s:=0;
read(n);
for i:=1 to n do 
s:=s+sqr(i);

writeln(s);

اكمل*-*ي*-* صياغة البرنامج

ghafour madrid · 2012-12-16, 18:37

شكرا اخي على اعطائي الحل لكني اريده مفصلا في برنامج باسكال لاني لا افهم قليلا الباسكال
ارجو ان تعطوني الحل في برنامج باسكال مفصلا

you92cef · 2012-12-16, 19:27

اقتباس:

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

شكرا اخي على اعطائي الحل لكني اريده مفصلا في برنامج باسكال لاني لا افهم قليلا الباسكال
ارجو ان تعطوني الحل في برنامج باسكال مفصلا

كود:

program ex;
uses wincrt;
var i,n,s:integer;
begin
s:=0;
writeln('Entrez un nombre');
read(n);
for i:=1to n do
s:=s+sqr(i);
writeln('La somme des nombre carree entre 1 et ',n,'=');
writeln(s);
end.

حاول ان تفهمه بنفسك اذا لم تفهمه نحن هنا للخدمة
شكرا لك

ghafour madrid · 2012-12-16, 21:07

شكرااااا اخي بارك الله فيك

AKKAINMOH · 2012-12-16, 22:48

السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal Trouver le PPCM de eux entier A et B وجعلها الله في ميزان حسناتكم

salemk · 2012-12-17, 00:28

اقتباس:

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

كود:

de cours 

Il est parfois demandé de trouver le plus petit nombre divisible par le plus de nombres possibles :
PPCM(1, 2) = 2
PPCM(1, 2, 3) = 6
PPCM(1, 2, 3, 4) = 12
PPCM(1, 2, 3, 4, 5) = 60
PPCM(1, 2, 3, 4, 5, 6) = 60
PPCM(1, 2, 3, 4, 5, 6, 7) = 420
PPCM(1, 2, 3, 4, 5, 6, 7, 8) = 840
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20) = 232792560
Algorithme de calcul d'un PPCM
Méthode n° 1 : les multiples des nombres 12 et 10.
Les multiples de 12 sont : 0,12,24,36,48,60,72 etc.
Les multiples de 10 sont 0,10,20,30,40,50,60,70 etc.
Le premier multiple commun non nul est : 60.
Méthode n° 2 : la décomposition en facteurs premiers.
12 = 2 * 2 * 3
10 = 2 * 5
Il faut prendre les facteur qui figurent dans, au moins, une des décomposition ; s'ils sont répétés, il faut conserver la plus longue répétition (leur plus grand exposant)
Le PPCM est le produit de ces nombres : 2 * 2 * 3 * 5
Méthode n° 3 : en passant par le PGCD
On utilise la formule : ppcm(a, b) = a * b / pgcd(a, b)
pgcd(10, 12) = 2
ppcm(10, 12) = (10 * 12) / 2 = 60
Programmes pour calculatrices (TI, Casio)
Les calculatrices intégrent généralement les fonction de PPCM sous le nom de LCM (Lowest Common Multiple). Si vous n'avez que la fonction PGCD (ou GCD), appliquez les formules ci dessus.



ارجوا ان تبرمج*-*ي*-* انطلاقا من الطريقة الثالثة *-* الالغوريتم موجود في الطريقة الثالثة*-*

شرح جيد وواضح

اقتباس:

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

السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal Trouver le PPCM de eux entier A et B وجعلها الله في ميزان حسناتكم

هذا تأليف اخر للطريقة الاولى في مشاركة الاخ you92cef

كود:

Si a=b alors PPCM(a,b)=a (ou b)
Sinon, chercher les multiples de a en ordre croissant et s’arrêter s’il est multiple aussi de b.

وبالتالي
En algorithme

كود:

0) Début PPCM
1) Lire (a,b)
2) Si a>b alors 
	Max := a
	Min := b
Sinon 
	Max := b
	Min := a
Finsi
3) Tantque (max mod min <>0) faire 
	Max := max+(a+b-min)
Fin tantque
4) Ecrire(max)
5) Fin PPCM

you92cef · 2012-12-17, 10:41

اقتباس:

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

السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal trouver le ppcm de eux entier a et b وجعلها الله في ميزان حسناتكم

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

salemk · 2012-12-17, 15:11

اقتباس:

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

وبالتالي
En algorithme

كود:

0) Début PPCM
1) Lire (a,b)
2) Si a>b alors 
	Max := a
	Min := b
Sinon 
	Max := b
	Min := a
Finsi
3) Tantque (max mod min <>0) faire 
	Max := max+(a+b-min)
Fin tantque
4) Ecrire(max)
5) Fin PPCM

en Pascal

Proposition 1

كود:

program PPCM;
uses wincrt;

var
max,min,a,b:integer;
begin
readln(a,b);
if a>b then
begin
max:=a;
min:=b;
end
else
begin
max:=b;
min:=a;
end;
while max mod min <>0 do
begin
max:=max+(a+b-min);
end;
writeln(max);
end.

Proposition 2

كود:

program ppCMM;
uses wincrt;

function PPCM(x,y,m:integer):integer;
begin
if x mod y = 0  then
ppcm:=x
else
begin
ppcm:=ppcm(x+m,y,m);
end;
end;

var
a,b :integer;
begin
readln(a,b);
writeln(ppcm(a,b,a));
end.

salemk · 2012-12-17, 15:30

كود:

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

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

you92cef · 2012-12-17, 18:02

اقتباس:

المشاركة الأصلية كتبت بواسطة 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

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

هل تبحث عن مثلث باسكال ؟

you92cef · 2012-12-17, 18:38

كود:

triangle de pascal

program triangle ;
uses wincrt ; 
type matrice =array [1..50,1..50] of integer ; 
var x:matrice ; 
i,j,n,a:integer ; 

begin 
read(n) ; 
x[1,1]:=1 ; 
for i:=2 to n do 
begin 
for j:=2 to n do 
begin 
x[i,1]:=1 ; 
x[i,j]:=x[i-1,j-1] + x[i-1,j] ; 
end ; 
end ; 
for i:=1 to (n) do 
begin 
for j:=1 to (n) do 
if x[i,j]<>0 then 
write(x[i,j]:5) ; 
writeln ; 
end; 
writeln; 
writeln('appuiez sur 0 pour quiter') ; 
read(a) ; 
end.

you92cef · 2012-12-17, 18:52

de cours

كود:

Algorithme de construction du triangle de Pascal
Présentation de l'algorithme :
Le triangle de Pascal est formé par les lignes donnant les coefficients du développement de (a+b)n.

ligne 1 : 1 1         (a+b)1 = 1*a + 1*b
ligne 2 : 1 2 1       (a+b)2 = 1*a2 + 2*a*b + 1*b2
ligne 3 : 1 3 3 1     (a+b)3 = 1*a3 + 3*a2*b + 3*a*b2 + 1*b3
ligne 4 : 1 4 6 4 1   (a+b)4 = 1*a4 + 4*a3*b + 6*a2*b2 + 4*a*b3 + 1*b4
Principe de construction du triangle :
Le premier et le dernier coefficient de chaque ligne sont toujours égaux à 1.
On obtient chaque autre coefficient en additionnant le nombre qui lui est situé au-dessus ainsi que celui qui lui est situé au-dessus à gauche.
Parmi les algorithmes possibles, celui ci-dessous utilise deux listes : une pour représenter la dernière ligne déjà construite (la liste ligne) et une autre pour construire la prochaine ligne (la liste ligne_suivante).
Le code ci-dessous construit le triangle de la ligne 2 jusqu'à la ligne n (variable dont la valeur est demandée à l'utilisateur au début).

كود:

algo


VARIABLES
  ligne EST_DU_TYPE LISTE
  i EST_DU_TYPE NOMBRE
  j EST_DU_TYPE NOMBRE
  n EST_DU_TYPE NOMBRE
  ligne_suivante EST_DU_TYPE LISTE
DEBUT_ALGORITHME
  LIRE n
  SI (n>=2) ALORS
    DEBUT_SI
    ligne[1] PREND_LA_VALEUR 1
    ligne[2] PREND_LA_VALEUR 1
    POUR i ALLANT_DE 2 A n
      DEBUT_POUR
      ligne_suivante[1] PREND_LA_VALEUR 1
      AFFICHER ligne_suivante[1]
      POUR j ALLANT_DE 2 A i
        DEBUT_POUR
        ligne_suivante[j] PREND_LA_VALEUR ligne[j-1]+ligne[j]
        FIN_POUR
      ligne_suivante[i+1] PREND_LA_VALEUR 1
      POUR j ALLANT_DE 2 A i+1
        DEBUT_POUR
        ligne[j] PREND_LA_VALEUR ligne_suivante[j]
        AFFICHER " ; "
        AFFICHER ligne[j]
        FIN_POUR
      AFFICHER " "
      FIN_POUR
    FIN_SI
FIN_ALGORITHME

كود:

laffichage 

1
1 ; 2 ; 1 
1 ; 3 ; 3 ; 1 
1 ; 4 ; 6 ; 4 ; 1 
1 ; 5 ; 10 ; 10 ; 5 ; 1 
1 ; 6 ; 15 ; 20 ; 15 ; 6 ; 1 
1 ; 7 ; 21 ; 35 ; 35 ; 21 ; 7 ; 1 
1 ; 8 ; 28 ; 56 ; 70 ; 56 ; 28 ; 8 ; 1 
1 ; 9 ; 36 ; 84 ; 126 ; 126 ; 84 ; 36 ; 9 ; 1 
1 ; 10 ; 45 ; 120 ; 210 ; 252 ; 210 ; 120 ; 45 ; 10 ; 1

you92cef · 2012-12-17, 18:54

Construction