Les structures Simples

Mise à jour le : 01/11/2004

Énoncé
Écrire un programme Pascal qui affiche le périmètre et la surface d'un rectangle.

 
I) La préanalyse :

Longueur (L)
 

Rectangle

 

 Largeur (La)

 

Le périmétre = 2*(Longueur  +  Largeur )


La surface = Longueur  *  Largeur 

 
 
II) L'analyse :

Nom = Rectangle
Séquences Liste des définitions Explicites Objets Utilisés
5 Résultats = Ecrire(P,S) La
3 P ß   2*(La + L) L
1 Repeter
        Lire(L)
Jusqu'à L>0		 S
2 Repeter
        Lire(La)
Jusqu'à La>0		 P 
4 S ß  La * L  
6 Fin Rectangle   
III) Le tableau de déclaration des objets :
Objets Utilisés Nature / type Rôle

La

variable / Réel

Recevoir la largeur du rectangle

L

variable / Réel

Recevoir la  longueur du rectangle

S

variable / Réel

Recevoir  la surface du rectangle

P

variable / Réel

Recevoir  le périmètre du rectangle

 
IV) L'algorithme :
6- Début réctangle
1- Repeter
        Lire(L)
Jusqu'à L>0
2- Repeter
        Lire(La)
Jusqu'à La>0
3- P ß  2*(La + L)
4- S ß  La * L
5- Ecrire (P,S)
7- Fin rectangle 
V) La traduction en turbo pascal :
Program Rectangle;
uses Wincrt;
Var La,L,S,P : Real;
Begin
	Repeat
		Write('La  longueur du rectangle : ');
		Readln(L);
	until L > 0;

	Repeat
		Write('La largeur du rectangle :');
		Readln(La);
	until La>0;

	P : = 2*(La + L);
	S : = La * L;

	Write('Le périmètre du rectangle : ',P:5:2);
	Write('La surface du rectangle : ',S:5:2);
End.

 V) La traduction en langage C++ :
// Périmètre et la surface d'un rectangle
#include <stdio.h>
int main()
{float La,L,S,P;
    
    do
           {     printf("La  longueur du rectangle :");
                 scanf("%f",&L);      }
    while L<0;

    do
            {    printf("La largeur du rectangle :");
                scanf("%f",&La);    }
    while L<0;

    P  = 2*(La + L);
    S  = La * L;

    printf("Le périmètre du rectangle :%f",P);
    printf("La surface du rectangle :  :%f",S);
    getchar();getchar();
}

Page d'index Série structures simples Haut