[100] print/input [9]

Voici l'exo de base (mais vraiment de base).

Il faut, en utilisant print et input, demandé le nom, le prénom et l'age le le genre (gars,fille) d'une personne. Il faut aussi les affiché. Vous pouvez rajouter des options, et le rendre plus complet.

Version de base:.........9 lignes
Version minimum:........8 lignes

À remmettre samedi le 3 septembre
Comme il est très simple, j'aimerais juste le code de shadow_missrouti...

bon et bien, des milliers d'années plus tard... voila le code.

Code:: [start]
cls
if x=1 then print "mauvaise touche, veuiller réessayer svp."
print "1)version de base"
print "2)version avancé"
input "choissisez le chiffre voulu-->"; CH
if CH = 1 then [Base]
if CH = 2 then [avancer]
x=1
goto [start]
[Base]
cls
Print "bonjour"
Input "est tu un gars ou une fille?-->"; GF$
Input "Quel-est ton nom de famille-->"; nom$
Input "Quel-est ton prénom-->"; prénom$
Input "Quel âge as tu?-->"; age
Print "Sexe: "; GF$
Print "Prénom: "; prénom$
Print "Nom: "; nom$
Print "Âge: "; age; " ans"
end
[avancer]
cls
prompt "est tu un gars (1) ou une fille (2)?-->"; GF$
if GF$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel-est ton nom de famille-->"; nom$
if nom$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel-est ton prénom-->"; prénom$
if prénom$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel âge as tu?-->"; age
if age = 0 then print "d'accord, tant pis, au revoir" : end
prompt "Quel loisir pratiques-tu? (virgules entre chaque)"; Loi$
if Loi$ = "" then print "d'accord, tant pis, au revoir" : end
WindowWidth = 300
WindowHeight = 300
texteditor #1.t, 0, 0, 300, 300
open "nom" for window as #1
print #1.t, "résumons, tu t'appel "; prénom$+" "+nom$
print #1.t, "tu as "; age; " ans, et tu pratique les loisirs suivant:"
print #1.t, Loi$
if GF$ = "1" then print #1.t, "et finalement, tu est un gars." : wait
if GF$ = "2" then print #1.t, "et finalement, tu est une fille." : wait
print #1.t, "et tu a appuyé sur " ; GF$; " alors que j'avais demandé"
print #1.t, "d'appuyer sur 1 ou 2..."
prompt "alors, est tu un gars ou une fille ";GF$
if GF$ = "1" then print #1t, "et finalement, tu est un gars." : wait
if GF$ = "2" then print #1t, "et finalement, tu est une fille." : wait
print #1.t, "d'accord, tu ne veux pas me le dire. Bon et bien bye" : wait

il contient une version de base et une version avancé.

J'ai rajouter une option pour revenir au début pour la version de base, et une option pour quitter.

Code:: [start]
cls
if x=1 then print "mauvaise touche, veuiller réessayer svp."
print "1)version de base"
print "2)version avancé"
print "3)Quitter"
input "choissisez le chiffre voulu-->"; CH
if CH = 1 then [Base]
if CH = 2 then [avancer]
if CH = 3 then [quit]
x=1
goto [start]
[Base]
cls
Print "bonjour"
Input "est tu un gars ou une fille?-->"; GF$
Input "Quel-est ton nom de famille-->"; nom$
Input "Quel-est ton prénom-->"; prénom$
Input "Quel âge as tu?-->"; age
Print "Sexe: "; GF$
Print "Prénom: "; prénom$
Print "Nom: "; nom$
Print "Âge: "; age; " ans"
input r$
goto [start]
end
[avancer]
cls
prompt "est tu un gars (1) ou une fille (2)?-->"; GF$
if GF$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel-est ton nom de famille-->"; nom$
if nom$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel-est ton prénom-->"; prénom$
if prénom$ = "" then print "d'accord, tant pis, au revoir" : end
prompt "Quel âge as tu?-->"; age
if age = 0 then print "d'accord, tant pis, au revoir" : end
prompt "Quel loisir pratiques-tu? (virgules entre chaque)"; Loi$
if Loi$ = "" then print "d'accord, tant pis, au revoir" : end
WindowWidth = 300
WindowHeight = 300
texteditor #1.t, 0, 0, 300, 300
open "nom" for window as #1
print #1.t, "résumons, tu t'appel "; prénom$+" "+nom$
print #1.t, "tu as "; age; " ans, et tu pratique les loisirs suivant:"
print #1.t, Loi$
if GF$ = "1" then print #1.t, "et finalement, tu est un gars." : wait
if GF$ = "2" then print #1.t, "et finalement, tu est une fille." : wait
print #1.t, "et tu a appuyé sur " ; GF$; " alors que j'avais demandé"
print #1.t, "d'appuyer sur 1 ou 2..."
prompt "alors, est tu un gars ou une fille ";GF$
if GF$ = "1" then print #1t, "et finalement, tu est un gars." : wait
if GF$ = "2" then print #1t, "et finalement, tu est une fille." : wait
print #1.t, "d'accord, tu ne veux pas me le dire. Bon et bien bye" : wait

[quit]
print ""
Print "Merci, au-revoir"
print "ALT + F4"
end