Re: BASIC-256

Publié par yassine67300 le 08/06/2014 15:12:22
Un peu optimisé et évité l'erreur "division par 0"

Promis, j'arrête, mais je sens que je vais prendre mon pied.

Retour: #
Print "CALCULS"
print
print "donnez votre choix de calcul"
print
print " Addition de 2 nombres, entrez 1"
print " Soustraction, entrez 2"
print " Multiplication, entrez 3"
print " Division , entrez 4"
print
input a
if a<1 then CLS : print "ERREUR (entrez 1,2,3 ou 4)":goto Retour
if a>4 then CLS : print "ERREUR (entrez 1,2,3 ou 4)" :goto Retour
print
if a=1 then print "Addition"
if a=2 then print "Soustraction"
if a= 3 then print "Multiplication"
if a=4 then print "Division"
print "donnez le premier nombre":input b
Retour2: #
print
print "donnez le deuxième nombre":input c
Print: print "RESULTAT"
if a=1 then d=b+c :print d
if a=2 then d=b-c :print d
if a=3 then d=b*c :print d
if a=4 and c=0 then print "ERREUR, le deuxième nombre doit être différent de 0": goto Retour2
if a=4 then d=b/c : print d
Print : print
print "Pour un autre calcul entrez 1, sinon entrez 2": input e
if e=1 then CLS :goto Retour
if e<>1 then CLS

Cette contribution était de : http://www.gratilog.net/xoops/newbb/viewtopic.php?forum=2&topic_id=10754&post_id=156066