exercice : application directe de la structure conditionnelle

ÉNONCÉ

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
FinSi
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

SOLUTION


program calcul;
uses wincrt;
var n1,n2,n3 : integer;
s: real;
begin
Write('Donner la valeur de N 1 : ');
read(n1);
Write('Donner la valeur de N 2 : ');
read(n2);
Write('Donner la valeur de N 3 : ');
read(n3);
s:=3;
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;
Write(s:6:3);
End.

** N1= 3 ; N2= 3 ; N3 = 3 s=6
** N1= 7 ; N2= 4 ; N3 = 6 s=14
** N1= 9 ; N2= 11 ; N3 = 11 s= -7.333