Discussion :

[Pogrammeur]

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Program Love_Calculator;
Uses Wincrt;
Var
Diff,Diff1,Diff2,Diff3,i,i1,m,m1,p,F,g:Integer;
Ch,Ch1,X: String;
ID,Z:Char;
 
Begin
Writeln('');
Writeln('                                   ***   ***      ');
Writeln('                                  *   * *   *     ');
Writeln('                                  *    *    *     ');
Writeln('                                  *         *     ');
Writeln('                                   *       *      ');
Writeln('                                    *     *       ');
Writeln('                                     *   *        ');
Writeln('                                      * *         ');
Writeln('                                       *          ');
Writeln('');
Writeln('              © Ben Hammadi Amir © To contact : E-Mail : <a href="mailto:Narsimanna@yahoo.fr">Narsimanna@yahoo.fr</a> ');
Writeln('                                              : Tel : +216 21 62 83 53  ');
Writeln('');
Writeln('With The Love Calculator you can calculate the probability of a successful');
Writeln('relationship between two people.');
Writeln('To find out what the chances for you and your dream partner are, just fill in');
Writeln('both names...');
Writeln('');
Writeln('');
Repeat
Writeln('               **************Please write your name************** ');Readln(Ch);
Writeln('               **************Now write your love''s name**************');Readln(Ch1);
i:=Length(Ch);
i1:=Length(Ch1);
M:=Length(Ch) Div 2;
M1:=Length(Ch1) Div 2;
 
If Ord(Ch[1]) > Ord(Ch1[1]) Then
Diff1:=Ord(Ch[1])-Ord(Ch1[1]);
If Ord(Ch1[1]) >=Ord(Ch[1]) Then
Diff1:=Ord(Ch1[1])-Ord(Ch[1]);
 
If Ord(Ch[m])>Ord(Ch1[m1]) Then
Diff2:=Ord(Ch[m])-Ord(Ch1[m1]);
If Ord(Ch1[m1])>Ord(Ch[m]) Then
Diff2:=Ord(Ch1[m])-Ord(Ch[m]);
 
If Ord(Ch[i])>Ord(Ch1[i1]) Then
Diff3:=Ord(Ch[i])-Ord(Ch1[i1]);
If Ord(Ch1[i1])>Ord(Ch[i]) Then
Diff3:=Ord(Ch1[i1])-Ord(Ch[i]);
 
Diff:=(Diff1+Diff2+Diff3) Div 3;
p:=(100-(4*Diff));
 
Writeln('The chance of a relationship working out between ',Ch,' And ',Ch1,' is ',Abs(p),'%');
Writeln('N''y croyez tout de même pas trop, c''est juste pour vous amuser');
 
Writeln('');
Writeln('Trie Again ? Press any key ');Readln(X);
Writeln('');
Until X='non';
End.

[ALT]

Aucun intérêt : c'est un programme inutile.
Ça, c'est mon opinion.

Sauf à considérer son aspect pédagogique (pour comprendre ce qu'il fait, comment on peut éventuellement l'améliorer, &c.), qui est alors assez intéressant.

[katrena99]

Quel est l'interêt de la variable X ?

[ALT]

Même si le programme est mal écrit (surtout les messages utilisateurs qui sont inappropriés), tu devrais assez facilement savoir à quoi elle sert, en cherchant un (tout petit) peu.
Non ?

[darrylsite]

je suis du meme avis que ALT

[katrena99]

Je trouve que c'est tiré par les cheveux d'initialiser X à '© Ben Hammadi Amir Tel : +216 21 62 83 53 ©' pour que ça serve ensuite à savoir si l'utilisateur veut réessayer ou non ! Il auraît pu demander à l'utilisateur d'entrer un caractère parmi O et N, ç'aurait été bien mieux.
Je vais lui poser la même question à propos des variables ID, Z, F, etc...