 |
 |
 |
|
|
|
Les structures Conditionnelles
Mise à jour le : 01/11/2004
Énoncé
Écrire un programme Pascal qui permet de résoudre
l'équation de la forme Ax+B=0.
I) La préanalyse :
II) L'analyse :
Nom = EquationDeg1 |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| 3 | Résultat = Si A=0 | |
| Alors | ||
| Si B=0 | ||
| Alors | A | |
| Ecrire ("IR") | B | |
| Sinon | ||
| Ecrire ("Vide") | ||
| FinSi | ||
| Sinon | ||
| Ecrire (-B/A) | ||
| FinSi | ||
| 1 | Lire(A) | |
| 2 | Lire(B) | |
| 4 | Fin EquationDeg1 | |
| Objets Utilisés | Type / Nature | Rôle |
| A | variable/Réel | La 1ère coef. de l'équation |
| B | variable/Réel | La 2ème coef. de l'équation |
IV) L'algorithme :
| 0- | Début EquationDeg1 |
| 1- |
Lire (A) |
| 2- |
Lire (B) |
| 3- |
Si A=0 |
Alors |
|
Si B=0 |
|
Alors |
|
Ecrire ("IR") |
|
Sinon |
|
Ecrire ("Vide") |
|
FinSi |
|
Sinon |
|
Ecrire (-B/A) |
|
FinSi |
|
| 4- | Fin EquationDeg1 |
V) La traduction en turbo pascal :
Program Equation_Deg1;
uses Wincrt;
Var A,B : Real;
Begin
Write('A=');
Readln(A);
Write('B=');
Readln(B);
If A=0
Then
If B=0
Then
Write('IR')
Else
Write('Vide')
Else
Write(-B/A:5:2);
End.
V) La traduction en langage C++ :
#include <stdio.h>
int main()
{float A,B ;
printf("A=");
scanf("%f",&A);
printf("B=");
scanf("%f",&B);
if (A==0)
if (B==0)
printf("IR");
else
printf("Vide");
else
printf("%5.2f",-B/A);
getchar();getchar();
}
| Page d'index | Série structures conditionnelles | Haut |