Calculatrice En Qbasic. Comment Introduire plusiers valeurs
Josm2m
Messages postés
2
Statut
Membre
-
qbasic45 Messages postés 60 Statut Membre -
qbasic45 Messages postés 60 Statut Membre -
Bonjour à tous.
je suis entrain de concevoir une petite calculatrice mais je suis bloquer car je n'arrive pas à donner l'utilisateur la possibilité d'introduire plusieurs valeur de suite à calculer.
Exemple :
Extrait du code Source.
cls
Dim val1 as integer
Dim Va2 as integer
Input "Veuillez saisir la première valeur", Va1
Input "Veuillez saisir la deuxième valeur", Val2
print Val1x; Val2; "="Val1*Val2
Ou encore
Print " Veuillez saisir le premier vameur ensuite la deuxime valeur "
Input " ", Val1
Input " ", Val2
Print Val1x; Val2; "="; Val1*Val2
Comment alors permettre à l'utilisateur d'introduire plusieurs valeurs de suite. c'est à dire qu'ait la possibilité d'introduire plusieurs de suite. Exemple 12.15.
je suis entrain de concevoir une petite calculatrice mais je suis bloquer car je n'arrive pas à donner l'utilisateur la possibilité d'introduire plusieurs valeur de suite à calculer.
Exemple :
Extrait du code Source.
cls
Dim val1 as integer
Dim Va2 as integer
Input "Veuillez saisir la première valeur", Va1
Input "Veuillez saisir la deuxième valeur", Val2
print Val1x; Val2; "="Val1*Val2
Ou encore
Print " Veuillez saisir le premier vameur ensuite la deuxime valeur "
Input " ", Val1
Input " ", Val2
Print Val1x; Val2; "="; Val1*Val2
Comment alors permettre à l'utilisateur d'introduire plusieurs valeurs de suite. c'est à dire qu'ait la possibilité d'introduire plusieurs de suite. Exemple 12.15.
1 réponse
-
boujour Josm2m
REM simple calculatrice demo
CLS : COLOR 15, 0
PRINT "exemple: 12.15"
PRINT
PRINT "valeur 1 = 12"
PRINT "valeur 2 = 0.15"
PRINT "--------------"
PRINT
INPUT "valeur 1"; a
PRINT
INPUT "valeur 2"; b
PRINT
PRINT a; "+"; b; "="; a + b; "avec INT("; a; "+"; b; ") ="; INT(a + b)
PRINT
PRINT a; "-"; b; "="; a - b; "avec INT("; a; "-"; b; ") ="; INT(a - b)
PRINT
PRINT a; "/"; b; "="; a / b; "avec INT("; a; "/"; b; ") ="; INT(a / b)
PRINT
PRINT a; "*"; b; "="; a * b; "avec INT("; a; "*"; b; ") ="; INT(a * b)
PRINT
PRINT
PRINT "pas de DIM valeur 1 AS INTEGER"
PRINT
PRINT "pas de DIM valeur 2 AS INTEGER"
END
REM exemple simple calculatrice demo
CLS : COLOR 15, 0
st = 0: c1 = 0: c2 = 0: p = 1
10 PRINT "val "; : INPUT a
IF p = 2 THEN c2 = a: GOTO 50
20 PRINT "+ - / * ";
30 q$ = "": q$ = INKEY$
IF q$ = "" THEN 30
IF q$ = "+" THEN q$ = "+": PRINT "+": GOTO 40
IF q$ = "-" THEN q$ = "-": PRINT "-": GOTO 40
IF q$ = "/" THEN q$ = "/": PRINT "/": GOTO 40
IF q$ = "*" THEN q$ = "*": PRINT "*": GOTO 40
GOTO 30
40 REM
p = p + 1: c1 = a
GOTO 10
50 REM
PRINT c1; q$; c2; "=";
IF q$ = "+" THEN c3 = c1 + c2: PRINT c3
IF q$ = "-" THEN c3 = c1 - c2: PRINT c3
IF q$ = "/" THEN c3 = c1 / c2: PRINT c3
IF q$ = "*" THEN c3 = c1 + c2: PRINT c3
PRINT
st = st + c3:PRINT "totale ="; st
PRINT
PRINT "pousser sur entree ou pousser sur la touche egale fin du programmes"
DO: choi$ = INKEY$: LOOP UNTIL choi$ <> ""
IF choi$ = "=" THEN 60
p = 1: c1 = 0: c2 = 0: c3 = 0
PRINT
GOTO 10
60 END
