قسم الرياضيات و الإعلام الإلي

Algorithme périmètre parallélogramme;

var: x,y : réel;

début

écrire (' donnez le longeur de la cote ');

lire (x);

y:= x*4;

ecrire (' le périmètre parallélogramme est', y:4;2);

fin.

Algorithme périmètre Trapèze:

var: gr,rm,h,Z: réel;

début

écrire (' donnez la grande règle ');

lire (gr);

écrire (' donnez la règle minuteur '(;

lire (rm);

écrire (' donnez l'hauteur '),

lire (h);

Z:= (gr+rm)*h/2 ;

écrire (' le périmètre Trapèze est',Z:4:2);

fin.

 G4 n2

Algorithme  trapeze ; 

Var a,b,c,d : reél ; 

Debut 

Ecrire('donnez les longeurs svp ' ) ; 

Lire(a,b,c,d); 

Ecrire('le périmétre de votre trapéze est : '  ,  a+b+c+d  ) ; 

Fin. 

Algorithme Parallelogramme ; 

Var x, y : reél ; 

Debut 

Ecrire ('donnez les longeurs  svp ' ); 

Lire(x,y) ; 

Ecrire ('le périmétre de votre parallélogramme est : '  ,  2*x + 2*y  ) ; 

Fin. 

ALGORITHME traparra;

VAR xC,xB,a,b,c,d:réel;

DEBUT 

     ECRIRE ('Introduisez la valeur en cm du côté du parallélogramme:');

     LIRE (xC);

     ECRIRE ('Introduisez la valeur en cm de la base du parallélogramme:');

     LIRE (xB);

     ECRIRE ('Introduisez en cm les valeurs des quatre longueurs du trapèze'); 

     LIRE (a,b,c,d);

          ECRIRE ('le périmètre du parallélogramme est de:',xC*2+xB*2,'cm');

          ECRIRE ('le périmètre du trapèze est de:',a+b+c+d,'cm');

FIN.

______

_G4, n1.

;algorithme traduize;

;Var s,d,f,g:reél

Debut

 ;(Lire(s,d,f,g

;(Ecrire('le perimetre d'un trapeze est',s+d+f+g

.Fin

;Algorithme paralelograme

;Var a,b: entier

Debut

Lire(a,b);

;(Ecrire('le perimetre d'un paralelogramme est',2*(a+b)

.fin

Algorithme traduize;

Var a,b,c,d:réel;

Début

Écrire('donnez les longueurs ');

Lire(a,b,c,d) ;

Écrire('le périmètre d'un trapèze est:',a+b+c+d); 

Fin.   

Algorithme parallélogramme;

Var x,y:réel;

Début

Écrire('donnez les longeurs');

Lire (x,y);

Écrire('le périmètre de votre parallélogramme est :',2*x+2*y);

Fin. 

G: 3,   n :23  

algorithme trapez;

var a,b,c,d:reel;

debut

ecrire('donnez les longeurs');

lire(a,b,c,d);

ecrire('le perimetre de trapeze est :' , a+b+c+d);

fin.

algorithme parallelogramme;

var a,b,c :reel;

debut

ecrire('donnez les longrur);

lire(a,b);

c:=(2*x)+(2*y);

ecrire('le perimetre de parallélogmme est:' , c);

fin.

l'algorithme :

Algorithme perem_tr_pa;

var x,y,a,b,c,d:reél;

Debut

lire (a,b,c,d);

écrire('le perimetre de trapeze est: ',a+b+c+d:4:2);

lire (x,y);

écrire('le perimetre de parallelogramme est: ',(x+y)*2:4:2);

Fin.

Le programme :

La resultat :

Groupe 3 numéro 30

Algorithme P  TRAPEZE;

VAR a,b,c,d:reel;

debut

ecrire('donnez les longeurs svp');

lire(a,b,c,d);

ecrire(le perimetre de trapeze est:' a+b+c+d);

FIN.

Algorithme P PARALLELOGRAMME; 

VAR x,y:reel;

Debut

ecrire('donnez les longeurs svp');

lire(x,y);

ecrire('le perimetre de parallelogramme est:' 2*x+2*y);

fin.

G 4.

algorithme trapez;

var a,b,c,d :reél;

debut

écrire ('donnez les longueur');

lire(a,b,c,d);

écrire('le perimetre de trapeze est :'a+b+c+d);

fin.

algorithme parallelogramme;

var x,y,c:réel;

debut

écrire ('donnez les longueur');

lire(x,y);

c:=(x+y)*2

écrire ('le perimetre de parallélogmme est:',c);

fin.

Gr:3 N:12

Algorithme  perimetre-pata;

Var  a,b,c,d,h,m : reél ;

Debut

Ecrire (' donnez les longueur de  ') ;

Lire ( a,b,c,d );

Ecrire (' le perimetre de parallèlogmme est  : ' ,  a+b+c+d  );

Ecrire ( ' donnez les longueur de trapeze ') ; 

Lire(h,m); 

 Ecrire ( ' lez perimetre de trapeze est : '  ,  2*h+2*m  );

Fin.

algorithme trapeze;

var a,b,c,d:reel;

debut

ecrire('donnez les longeurs');

lire(a,b,c,d);

ecrire('le perimetre d''un trapeze est:',a+b+c+d);

fin.

algorithme parallelogramme;

var x,y:reel;

debut

ecrire('donnez les longeurs');

lire(x,y);

ecrire('le perimetre de votre parallelogramme est:',2*x+2*y);

fin.

g:3

Algorithme perimetre;

Var a,b,c,d:reel;

Debut

Ecrire('donnez les longeers');

Lire(a,b,c,d);

Ecrire('le perimetre de trapaze:',a+b+c+d); 

Fin.

Algorithme parallelogramme;

Var a,b:reel;

Debut

Ecrire('donnz les longeurs ');

Lire(a,b);

Ecrire(le perimetre parallelogramme est:',2*a+2*b);

Fin.

 G3 n4

Algorithme perimetre;

Var c1,c2,c3,c4,b1,b2,P1,p2:reel;

debut

Ecrire ('donnez les longeurs du cotes');

lire(c1,c2,c3,c4);

P1:=c1+c2+c3+c4;

Ecrire('le perimetre de trapeze est:',P1)

ecrire('donnez les longeurs des petit et grand bases de paralellogramme');

lire(b1,b2);

p2:=(b1+b2)*2;

ecrire('le perimetre de paralellogramme est:',p2);

fin.

Algorithme trapeze;

Var W,X,Y,Z : réel; 

Debut

Lire (W,X,Y,Z);

Ecrire (' Le périmètre d''un trapeze est', W+X+Y+Z);

FIN.

Algorithme parallelogramme; 

Var A,B : Réel; 

Début 

Lire (A,B);

Ecrire (' le périmètre d''un parallélogramme est', 2*(A+B);

FIN.

Algorithme trapéze;

Var a,b,c,d:réel;

Debut

Écrire('donnez les longeurs');

Lire(à,b,c,d);

Écrire('le périmètre d'un trapéze est',a+b+c+d);

Fin.

Algorithme parallélogramme;

Var a,b:réel;

Début

Écrire('donnez les longeurs');

Lire(a,b);

Écrire('le périmètre d'un parallélogramme est',2*(a+b);

Fin.

Algorithme perimetre;

Var x,y,a,b,c,d,P,Z : reel ;

Debut 

Ecrire  ('donnez le longueur et le côte du parallelogramme en cm' );

Lire  (x,y) ;

Z:=2*x + 2*y ;

Ecrire  (' donnez les quatres longueur du trapeze en cm ');

Lire  (a,b,c,d);

P:= a+b+c+d ;

Ecrire  (' Le perimetre du parallelogramme est : ', Z:4:2, 'cm' , 'et du trapeze est: ', P:4:2 , 'cm');

Fin.

Gr: 4

algorithme parallelogramme;

var x,y:réel;

debut

écrire('donnez les longeurs');

lire(x,y);

écrire('le périmètre de votre parallélogrammeest:'2*x+2*y);

fin.

algorithme trapéze;

var a,b,c,d:réel;

debut

écrire('donnez les longeurs a,b,c,dè);

lire(a,b,c,d);

écrire('la trapèze est:'a+b+c+d);

fin.

Algorithme Trapèze ;

var a,b,c,d,p:réel ;

début

écrire ('donnez les longueurs');

lire(a,b,c,d);

p:=a+b+c+d;

écrire ('le périmètre de trapèze',p);

fin.

Algorithme parlelograme;

var x,y,p:réel ;

début

écrire ('donnez les longueurs');

lire(x,y);

p:=2*(x+y);

écrire ('le périmètre parallélogramme est :',p);

fin.

 G3

Algorithme perimetre;

Var x,y,a,b,c,d,pt,pp:reel;

Debut

ecrire('donnez les longeurs');

Lire(a,b,c,d,x,y);

pt:=a+b+c+d;

pp:=2*x+2*y;

ecrire('le pèrimètre d'un trapèze est:',pt,'et le pèrimètre d'un parallèlogramme est:',pp);

Fin.

G3

Algorithme trapèze ;

Var a,b,c,d:réel;

Début

Écrire ('donnez les longueurs ');

Lire (a,b,c,d);

Écrire ('le périmètre d''un trapèze est:',a+b+c+d);

Fin.

Algorithme parallélogramme ;

Var x,y:réel;

Début

Écrire ('donnez les longueurs ');

Lire (x,y);

Écrire ('le périmètre d'un parallélogramme est :',2*(a+b));

Fin.

G3

Algorithme trapèze ;

Var a,b,c,d: réel ;

Début

Écrire ('donnez les longueurs')

Lire (a,b,c,d);

Écrire ('le périmètre d'un trapèze est:', a+b+c+d);

Fin.

Algorithme parallélogramme ;

Var x,y: réel ;

Début

Écrire ('donnez les longueurs ');

Lire (x,y);

Écrire ('le périmètre d'un parallélogramme est :', 2*x+2*y);

Fin.

Algorithme P Trapeze;

var a,b,c,d:reel;

debut

ecrire('donnez les longeurs svp');

lire (a,b,c,d);

ecrire('le perimetre de trapeze est:'a+b+c+d);

fin.

Algorithme P parallelogramme;

var x,y:reel;

debut

ecrire('donnez les longeurs svp');

lire('x,y);

ecrire('le parallelogramme est :'2*x+2*y);

fin.

G:04

Algorithme  Traparra;

var x,y,a,b,c,d:reel;

debut

ecrire('donnez la valeur du cote du parallelogramme');

lire(x);

ecrire('donnez la valeur de la base du parallelogramme:');

lire(y);

ecrire('donnez les valeurs des 4 longeurs du trapeze');

lire(a,b,c,d);

ecrire('le perimetre du parallelogramme est de:'x*2+y*2');

ecrire('le perimetre du trapeze est de :'a+b+c+d');

fin.

G:04

algorithme trapèze;

var a,b,c,d : réel;

debut

écrire('donnez moi les longeurs a,b,c,d');

lire(a,b,c,d);

écrire('la trapèze est',a+b+c+d);

fin.

algorithme parallelogramme;

var a,b :réel;

debut

écrire('donnez les longeurs');

lire(a,b);

écrire('le périmetre de votre parallelogramme est'2*a+2*b);

fin.

algorithem perimetre-pata;

VAR a,b,c,d,h,m:réel;

debut

ecrire('donnez les longeur de');

lire(a,b,c,d);

ecrire('le perimetre de parallélogmme est;',a+B+C+D);

ecrire('donnez les longeur de trapeze');

lire(h,m);

ecrire('les perimetre de trapeze est :',2*h+2*m);

fin.

Algorithme  Traparra;

var x,y,a,b,c,d:reel;

debut

ecrire('donnez la valeur du cote du parallelogramme');

lire(x);

ecrire('donnez la valeur de la base du parallelogramme:');

lire(y);

ecrire('donnez les valeurs des 4 longeurs du trapeze');

lire(a,b,c,d);

ecrire('le perimetre du parallelogramme est de:'x*2+y*2');

ecrire('le perimetre du trapeze est de :'a+b+c+d');

fin.

Algorithme  trapeze ; 

Var a,b,c,d : reél ; 

Debut 

Ecrire('donnez les longeurs svp ' ) ; 

Lire(a,b,c,d); 

Ecrire('le périmétre de votre trapéze est : '  ,  a+b+c+d  ) ; 

Fin. 

Algorithme Parallelogramme ; 

Var x, y : reél ; 

Debut 

Ecrire ('donnez les longeurs  svp ' ); 

Lire(x,y) ; 

Ecrire ('le périmétre de votre parallélogramme est : '  ,  2*x + 2*y  ) ;

Fin.

Algorithme  trapeze ; 

Var a,b,c,d : reél ; 

Debut 

Ecrire('donnez les longeurs svp ' ) ; 

Lire(a,b,c,d); 

Ecrire('le périmétre de votre trapéze est : '  ,  a+b+c+d  ) ; 

Fin. 

Algorithme Parallelogramme ; 

Var x, y : reél ; 

Debut 

Ecrire ('donnez les longeurs  svp ' ); 

Lire(x,y) ; 

Ecrire ('le périmétre de votre parallélogramme est : '  ,  2*x + 2*y  ) ; 

Fin. 

Algorithme perimetre;

Var a,b,c,d,x,y,ptr,ppr:réel;

Debut

ecrire('donnez les longeurs de trapeze ');

lire (a,b,c,d);

ecrire('donnez les longeurs de parallélogramme');

lire(x,y);

ptr:=a+b+c+d;

ppr:=2*(x+y);

ecrire('le primetre de trapeze est :',ptr);

ecrire(' le perimetre de parallélogramme est:',ppr);

fin.

algorithme trapez;

var a,b,c,d:reel;

debut

ecrire('donnez les longeurs');

lire(a,b,c,d);

ecrire('le perimetre de trapeze est :' , a+b+c+d);

fin.

algorithme parallelogramme;

var a,b,c :reel;

debut

ecrire('donnez les longrur);

lire(a,b);

c:=(2*x)+(2*y);

ecrire('le perimetre de parallélogmme est:' , c);

fin.

Algorithme tapez;

Var a,b,c,d,reel;

Debut

Lire(a,b,c,d);

Ecrire('a+b+ c+d');

Fin.

Algorithme tapez;

Var a,b,c,d,reel;

Debut

Lire(a,b,c,d);

Ecrire('a+b+ c+d');

Fin.

Algorithme Parrallellograme;

Var x,y:reel ;

Debut

Lire(x,y);

Ecrire( laprimetre de votre parrallellograme east:',2*x+2*y);

Fin.

;

program parrallelograme;

var x,y:integer;

begin

readln(x,y);

writeln('la perrimetre est:'2*x+2*y);

end.

Algorithme  trapeze ; 

Var a,b,c,d : reél ; 

Debut 

Ecrire('donnez les longeurs svp ' ) ; 

Lire(a,b,c,d); 

Ecrire('le périmétre de votre trapéze est : '  ,  a+b+c+d  ) ; 

Fin. 

Algorithme Parallelogramme ; 

Var x, y : reél ; 

Debut 

Ecrire ('donnez les longeurs  svp ' ); 

Lire(x,y) ; 

Ecrire ('le périmétre de votre parallélogramme est : '  ,  2*x + 2*y  ) ; 

Fin. 

Algorithme  trapeze ; 

Var a,b,c,d : reél ; 

Debut 

Ecrire('donnez les longeurs svp ' ) ; 

Lire(a,b,c,d); 

Ecrire('le périmétre de votre trapéze est : '  ,  a+b+c+d  ) ; 

Fin. 

Algorithme Parallelogramme ; 

Var x, y : reél ; 

Debut 

Ecrire ('donnez les longeurs  svp ' ); 

Lire(x,y) ; 

Ecrire ('le périmétre de votre parallélogramme est : '  ,  2*x + 2*y  ) ; 

Fin. 

Algorithme perem_tr_pa;

var x,y,a,b,c,d:reél;

Debut

lire (a,b,c,d);

écrire('le perimetre de trapeze est: ',a+b+c+d:4:2);

lire (x,y);

écrire('le perimetre de parallelogramme est: ',(x+y)*2:4:2);

Fin.

Algorithme périmètre ;

Var x,y,a,b,c,d :réel; PT,pp:réel ;

Début

Écrire ('donnez les longeurs');

Lire(a,b,c,d,x,y);

PT :=a+b+c+d ;

Pp:=2*x+2*y;

Écrire ('le périmètre d'une trapèze est',PT,'et le périmètre d'un parallélogramme est',pp );

Fin.

algorithme  périmétre;

var x,y,a,b,c,d:reel;pt,pp,:reel;

debut 

ecrire ('donnez les longeurs ');

lire (a,b,c,,d,x,y);

pt:=a+b+c+d;

pp:=2*x+2*y;

ecrire ('le perimetre d'une trapeze est ',pt,'et le perimetre dune parallelogrammme est ',pp);

fin.

algorithme traparra;

var xa,xb,a,b,c,d:reel;

debut

ecrire ('introduisez la valeur en cm du cote du parallelogramme');

lire (xa);

ecrire ('introduisez  la vaieur en cm la base du paralleogramme');

lire (xb);

ecrire ('introduisez en cm les vaieurs des quatre iongueurs du trapeze');

lire (a,b,c,d);