Calculatrice En Qbasic. Comment Introduire plusiers valeurs
Fermé
Josm2m
Messages postés
1
Date d'inscription
lundi 18 décembre 2017
Statut
Membre
Dernière intervention
18 décembre 2017
-
18 déc. 2017 à 11:05
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 21 déc. 2017 à 14:54
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 21 déc. 2017 à 14:54
A voir également:
- Calculatrice En Qbasic. Comment Introduire plusiers valeurs
- Qbasic - Télécharger - Édition & Programmation
- Installer calculatrice sur mon portable - Télécharger - Calcul & Conversion
- Calculatrice gratuit - Télécharger - Calcul & Conversion
- Comment calculer une moyenne sur excel - Guide
- Ma-calculatrice - Télécharger - Calcul & Conversion
1 réponse
qbasic45
Messages postés
55
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
15 juin 2019
3
21 déc. 2017 à 14:54
21 déc. 2017 à 14:54
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
REM simple calculatrice demo
CLS : COLOR 15, 0
PRINT "exemple: 12.15"
PRINT "valeur 1 = 12"
PRINT "valeur 2 = 0.15"
PRINT "--------------"
INPUT "valeur 1"; a
INPUT "valeur 2"; b
PRINT a; "+"; b; "="; a + b; "avec INT("; a; "+"; b; ") ="; INT(a + b)
PRINT a; "-"; b; "="; a - b; "avec INT("; a; "-"; b; ") ="; INT(a - b)
PRINT a; "/"; b; "="; a / b; "avec INT("; a; "/"; b; ") ="; INT(a / b)
PRINT a; "*"; b; "="; a * b; "avec INT("; a; "*"; b; ") ="; INT(a * b)
PRINT "pas de DIM valeur 1 AS INTEGER"
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
st = st + c3:PRINT "totale ="; st
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
GOTO 10
60 END
