structures de controles conditionnelles ;exercices:

Admin Inscrit le : 22 Avr 2008 Messages : 63

Exercice n° 1 :
Soit l’algorithme suivant : (N1, N2 et N3 sont des entiers).
0- Debut Calcul
1- Lire ( N1, N2, N3)
2- S  3
Si (N1 >= N2) ET (N2 <> N3) Alors
S  S + 2 * N1
S  S + N1 MOD N2 – N3
Sinon Si (N1 = N2) ou (N2 > N3) Alors
S  S + N1
Sinon
S  S * N2 / N1 – N3
Fin Si
3- Ecrire (S)
4- Fin Calcul
Questions
1) Traduire cet algorithme en langage Pascal.
2) Donner la valeur de S pour chacun des cas suivant :
• N1= 3 ; N2= 3 ; N3 = 3
• N1= 7 ; N2= 4 ; N3 = 6
• N1= 9 ; N2= 11 ; N3 = 11

exercice 2 :
Ecrire une pré-analyse, analyse, algorithme et la traduction en pascal d’un programme intitulé « 1er_degre » qui permet la résolution d’une équation du premier degré à une inconnue X, de forme AX + B = 0.
On suppose que a, b et x sont des réels.
NB : le programme doit traiter tous les cas possibles.
exercice 3 :
Un entier naturel de trois chiffres est dit cubique s’il est égal à la somme des cubes de ses trois chiffres.
Exemple : 153 est cubique car 153=13+53+33
Ecrire une pré-analyse, analyse, algorithme et la traduction en pascal d’un programme intitulé « Cubique » qui permet de lire un entier et vérifier s’il est cubique.
_________________

Inscrit le : 25 Avr 2008 Messages : 8

:ss';: :
program calcul;
uses wincrt;
var N1,N2,N3,S:integer;
begin
write('N1=');readln(N1);
write('N2');readln(N2);
write('N3');readln(N3);
s:=3;
begin
iF N1>=N2 and N2<>N3 then begin
S:= S+2*N1
S:=S+N1 mod N2-N3
End;
else if N1=N2 or N2>N3 then S:=S+N1
else S:=S*N2/N1-N3;
End;
writeln(S);
End.
:ss';:
désolé je vais continuer le reste la prochaine fois....

Admin Inscrit le : 22 Avr 2008 Messages : 63

termine les 2 exercices et je te donne ta note sur 20
en postant la correction
merci

_________________