Annonce

**Apakoh** · 19 fÃ©vrier 2006, 05h40

suite

**Apakoh** · 19 fÃ©vrier 2006, 05h42

suite et fin

**Apakoh** · 19 fÃ©vrier 2006, 05h43

Merci

Encore un grand merci à tous pour le bon moment passer ensemble

**nokthib** · 19 fÃ©vrier 2006, 09h45

ca devait bien être sympa cette petite soirée !!
Voila ce que j'en aifait de ma soirée, après l'anif de mon ami ... Mdr

Code:

[HOME]
CLS
PRINT"COMPLEXE CALCULATOR NOKTHIB"
'(c) Nokthib corp 2006'
[pb]
PRINT memoire$
INPUT "Addition ou Produit ? (a/p) ";type$
if type$ = "a" then print"ADDITION : (a+a') + J(b+b')"
if type$ = "p" then print"MULTIPLICATION (produit) : (aa'-bb') + J(a'b+ab')"
if type$ = "" then print "Vous devez faire un choix"
if type$ = "" then goto [pb]

INPUT "a ? ";a
INPUT "b ? ";b
INPUT "a' ? ";ap
INPUT "b' ? ";bp

if type$ = "a" then calcul1=a+ap
if type$ = "a" then calcul2=b+bp

if type$ = "p" then calcul1a=a*ap
if type$ = "p" then calcul1b=b*bp
if type$ = "p" then calcul1 = calcul1a-calcul1b

if type$ = "p" then calcul2a=a*bp
if type$ = "p" then calcul2b=b*ap
if type$ = "p" then calcul2 = calcul2a+calcul2b

if calcul2 > 0 then op$="+"
if calcul2 = 0 then op$="+"
if calcul2 < 0 then op$=""

if b > 0 then op1par$="+"
if b < 0 then op1par$=""

if bp > 0 then op2par$="+"
if bp < 0 then op2par$=""

if type$ = "a" then opin$="+"
if type$ = "p" then opin$="*"

PRINT "Forme initiale: (";a ;op1par$ ;b;"J)";opin$;"(";ap ;op2par$ ;bp;"J)"

PRINT "Votre calcul: ";calcul1 ;op$ ;calcul2;"J"
memoire$="Votre dernier calcul: (";calcul1 ;op$ ;calcul2;"J)"
Input  "Voulez vous recommancer ?(O/N) ?";reco$
if reco$ = "n" then end
if reco$ = "N" then end

goto [HOME]