programmes sur calculette

Comme j'ai pas les changements de bases sur ma calculette et que beaucoup ne les ont pas non plus, j'ai commencé à faire quelques programmes la dessus qui marchent!


Alors le 1er:


Passer de base 2 en base 10:
# veut dire différent de
-> ce signe est sto ou la flèche implique

NOM: BAS2to10
:Promt A
:If A<0 : Goto ER
:If fPart(A)#0 :Goto ER
:o->B:0->C
:While A#0
:(fpart(A/10)*10)->D
:If D>1:Goto ER
:C+D*2^B->C
:B+1->B
:iPart(A/10)->A
:End
:Disp C
:Stop
:Lb1 ER
:Disp "ERREUR SUR",A
:stop


Pour vous prouvez que ca marche....
Un petit exemple!

1000101001011010(2) = 35416(10)

Voila!

donne nous ton secret ... bien joué

donne nous le site où tu chopes tout stp !!!!!!!!!!!!!

josé ( bovay ) pas le dire

Han la blague !!!
Des fois c'est affligeant mais bon je suis pas mal dans le genre aussi ^^

...
Je comprends plus là ^^"

nan je le fais tout seul!

Au risque de me faire traiter de floodeur.
Je te felicite parce que moi j'aurais pété un cable depuis longtemps ^^

moi je le crois pas

Chacun pense ce qu'il veut ^^
Moi je le crois.

Voila le deuxième, comment passer de base 10 en base 2.


NOM:BAS10TO2
:Prompt A
:If A<0:Goto ER
:If fPart(A)#0:Goto ER
:-1->B:A->D:0->C
:" "->Str1
:While D#0
:iPart(A/2^B)->D
:If D=0:"0"->Str2
:If D=1:"1"->Str2
:10*C+D->C
:A-D*2^B->A
:B-1->B
:Str1+Str2->Str3
:Str3->Str1
:Disp C
:Disp Str1
:Stop
:Lb1 ER
:Disp "ERREUR SUR",A
:Stop

Voila!

y'a plus facile quand mm ^^
A la main ptetre mais c'est plus pratique ^^

GG pour les progs mais pourquoi tu n'ecrit pas plutot que # ça : =! c'est pus compréensible.

Tout seul ? Oo

GG

Ah bon tu trouve que =! est plus compréhensible que #??
Bah pas moi!

=! c'est du langauge C