Forum du club des développeurs et IT Pro Love calculator
 Identifiant Se souvenir de moi ? Mot de passe
 S'inscrire Règles FAQ Marquer les forums comme lus
 Contribuez Proposez vos articles, cours, tutoriels, FAQ, quizz et autres ressources
 Partagez cette discussion sur d'autres réseaux sociaux :
Publicité
'
 14/10/2007, 22h35 #1 Pogrammeur Invité de passage   Inscription : octobre 2007Messages : 11Détails du profilInformations personnelles :Âge : 23Informations forums :Inscription : octobre 2007Messages : 11Points : 1Points : 1 Love calculator Code : ```123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354Program 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(''); X:='© Ben Hammadi Amir Tel : +216 21 62 83 53 ©'; Writeln(' © Ben Hammadi Amir © To contact : E-Mail : Narsimanna@yahoo.fr '); 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.``` 00
 03/12/2007, 21h25 #2 bsdocuments Inactif   Inscription : février 2007Messages : 46Détails du profilInformations forums :Inscription : février 2007Messages : 46Points : 29Points : 29 Objets visuels par TP7 sous les modes [Text et Graph] Un ensemble d'unités pour créer son programme à la forme d'objets visuels par TP7; et la souris est prise en charge !! les unités à télécharger.. http://www.geocities.com/bsdocuments...s/bsd_unit.zip 157 KB les programmes de démonstration à télécharger.. http://www.geocities.com/bsdocuments...es/Doc_UPX.zip 2.70 MB Example de vue : Pièce jointe 22861 Toute note ou crétique est la bienvenue !! 00
12/12/2007, 19h29   #3
bsdocuments
Inactif

Inscription : février 2007
Messages : 46
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 46
Points : 29
Points : 29
Salut!

Salut! le Pogrammeur

ta fait un petit programme; mais je ne te décourage pas de le poster ici..
voyant..
Citation:
 Uses Wincrt;
Si tu n'utilise pas cette unité, vous pouvez de ne pas la définire dans
la clause USES

autre chose..
Citation:
 Writeln('');
Tu sait; Quant tu écrit 'WriteLn;' ou 'WriteLn('');' TurboPascal les interpretes de la même façon!

en +
Code :
```123456
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);```
je crois que votre programme n'apprécie pas de "relationship"
avec les gens; efin pas les tous je crois; donc: Try Again

a+
00
 Outils de la discussion