Discussion :

[natromi]

Bonjour les amis.

J'ai besoin de votre aide s'il vous plait dans un exercice d'algorithme.

J'ai fait un effort et voilà mon propre corrigé , mais je sais pas si ce que j'ai fait est correct :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
[Program mensualite;
Var age, T, M, Mn: real;
Begin
Writlen (‘donner age’);
Readln(age);
Writlen (‘donner duree’);
Readln (T);
Writeln (‘donner mensualite normale’);
Readln (Mn);
If (age<=25) and ((T>=15) and (T<=25)) then
   Begin
   M: =Mn*(1-T/100);
   End;
If (age<=25) and ((T>25) and (T<=30)) then
   Begin
   M: =Mn*(1-T/200);
   End;
If (age<=35) and ((T>=15) and (T<=25)) then
   Begin
   M: =4*Mn*(1-T/100)/3;
   End;
If (age<=35) and ((T>25) and (T<=30)) then
   Begin
    M: =4*Mn*(1-T/200)/3;
   End;
If (age>35) then
   Begin 
   M: =4*Mn*(1-T/200)/3;
   End;
Writeln (‘la mensualite est :’, Mn);
Readln ;
Readln ;
End.

L'exercice correspond au fichier attaché Doc2

Pourriez-vous m'aider SVP ?
et merci d'avance.