Salut à tous ! Je sais qu'il existe déjà un programme pour calculer des résistances équivalentes, mais nous pouvons n'en calculer que 2 ...
Code
:ClrHome
:Output(1,1,"OoOoOoOoOoOoOoOo")
:Output(8,1,"OoOoOoOoOoOoOoOo")
:Output(3,3'"R EQUIVALENT")
:Output(5,7,"BY NONO605")
:Pause
:ClrHome
:Menu("CB DE RESISTANCE","2",A,"3",B,"4",C)
:Lbl A
:Input "R1 (OHM) = ",D
:Input "R2 (OHM) = ",E
:Menu("CHOIX","SERIE",S,"PARALLELE",P)
:Lbl S
:D+E->R
:Goto Z
:Lbl P
:(DE)/(D+E)->R
:Lbl Z
:Output(4,2,"REQ VAUT")
:Output(5,3,R)
:Output(5,5,"OHM")
:Pause
:ClrHome
:Stop
:Lbl B
:Input "R1 (OHM) = ",G
:Input "R2 (OHM) = ",H
:Input "R3 (OHM) = ",I
:Menu("CHOIX","SERIE",W,"PARALLELE",V)
:Lbl W
:G+H+I->R
:Goto Y
:Lbl V
:1/(1/G+1/H+1/I)->R
:Lbl Y
:Output(4,2,"REQ VAUT")
:Output(5,3,R)
:Output(5,5,"OHM")
:Pause
:ClrHome
:Stop
:Lbl C
:Input "R1 (OHM) = ",J
:Input "R2 (OHM) = ",K
:Input "R3 (OHM) = ",L
:Input "R4 (OHM) = ",M
:Menu("CHOIX","SERIE",N,"PARALLELE",O)
:Lbl N
:J+K+L+M->R
:Goto X
:Lbl O
:1/(1/J+1/K+1/L+1/M)->R
:Lbl X
:Output(6,2,"REQ VAUT")
:Output(7,3,R)
:Output(7,5,"OHM")
:Pause
:ClrHome
:Stop
Je débute ! Il y a surement des choses que l'on peut raccourcir ! Je ne sais pas ! Donc si vous avez des conseils à me donner, je suis preneur !
