Ceci est mon premier programme (ça date ahlala je parle comme un vieux, pas que je me sois tellement améliorer en progra depuis --' ...snif). Il s'appelle PRENOM. Le principe : on mets son prénom et la calcu vous dit si il est bien. C'est puéril mais rigolo. Place dans la mémoire : 476 octets.
VERSION AMELIORE PAR SNAP
Le lien : http://www.4shared.com/file/9apDl3y4/PRENOM.html
Ps: Avec tous les programmes que j'ai rajouté d'un coup je mérite une récompense! Si!Si!
Re-ps : Quand est-ce que tu nous mets HERSSAHE persou?
VERSION AMELIORE PAR SNAP
Le lien : http://www.4shared.com/file/9apDl3y4/PRENOM.html
- Code:
:ClrHome
:DelVar ΘInput "ECRIS TON PRENOM",Str1
:For(A,1,length(Str1
:Θ+inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str1,A,1→Θ
:End
:If 21>Θ and Θ>0
:Output(4,1,"TON NOM PAS TES INITIALES!
:If 41>Θ and Θ>20
:Output(4,1,"TU AS UN NOM D'ANIMAL DE COMPAGNIE!
:If 40<Θ and Θ<61
:Output(4,1,"CA VA...
:If 60<Θ and Θ<81
:Output(4,1,"TON NOM EST D'UNE BANALITE AFFLIGEANTE...
:If 80<Θ and Θ<100
:Output(4,1,"TON NOM EST GENIAL ET TOI AUSSI !!!
:If 100<Θ and Θ<121
:Output(4,1,"TES PARENTS N'ETAIENT PAS TRES INSPIRE...
:If 120<Θ and Θ<141
:Output(4,1,"C'EST PAS TRES BEAU...
:If 140<Θ
:Output(4,1,"...QUOI!CA EXISTE CA?!
:Stop
:Pause
:ClrHome
Ps: Avec tous les programmes que j'ai rajouté d'un coup je mérite une récompense! Si!Si!
Re-ps : Quand est-ce que tu nous mets HERSSAHE persou?
Dernière édition par ashtrail le Ven 27 Sep 2013 - 23:51, édité 1 fois