des progs de convers°... - Page 1

Salut !!

Je suis généralement jamais présent sur ce forum et pour cause je ne possède pas de ti83 ou ti83+ ou encore de ti83+se mais une ti92+ () mais 2 camarades de classes en possèdent et l'un d'eux touche sa bille en programmation en basic sur ti83 (c'est normal avec 18,3 de moyenne générale sur les classes de seconde et premières S....... ) et il m'a donné c'est quelques programmes de conversion de bases (binaire, décimal, hexadécimal, dcb)
Donc je poste pour lui :

DBIN (conversion d'1 nb binaire signé ou non en hexa et décimal et dcb)
input "signe"
input "A",str1
length (str1)->B
while fpart(B/4)=/=0
B+1->B
if s>=0:"0"+str1->str1
if s<0:"1"+str1->str1
3->C:16->M
reapet B<=C
0->F:0->G
sub(str1,B-C,4)->str2
reapet G=4
expr(sub(str2,4-G,1))-D
D*2^G->E:F+E:->F
G+1->G:end
if F=10utput (5,M,"A")
if F=11utput (5,M,"B")
if F=12utput (5,M,"C")
if F=13utput (5,M,"D")
if F=14utput (5,M,"E")
if F=15utput (5,M,"F")
if F<10utput (5,M,F)
C+4->C:M-1->M
end
---------------------------------
if S<0:then
0->c:0->F:"0"->str2
repeat B=C
expr(sub(str1,B-C,1))->D
if F=0:then
if D=0:"0"+str2->str2
if D=1:"1"+str2->str2 { tout ce passage du traitement du négatif est inutile
D->F
else
if D=0:"1"+str2->str2
if D=1:"0"+str2->str2
end:C+1->C
end
sub(str2,1,B)->str1
end
-------------------------------
0->C:0->F:0->G:16->M
repeat B=C
expr(sub(str1,B-C,1))->D
if S<0 and G>=1:1-D->D
G+D->G
D*2^C->E:F+E->F
if S<0 and B<=16utpt (6,M,D)
M-1->M
C+1->C
end
disp F*S/abs(S)

J'ai retranscrit mot pour mot ce qu'il m'avait donné
=/= : différent de .....
-> : [STO]
<= : plus petit ou égal
>= : supérieur ou égal
* : multiplié

DDEC (conversion d'1 décimal positif ou négatif en binaire et hexa)
clrhome
prompt A
"0"->str1
repeat [C=0 and] B=0 or C=1 and B=-1
int(A/2)->B
A-2B->C
if C=0:"0"+str1->str1
if C=1:"1"+str1->str1
B->A
end
lenght(str1)->L
sub(str1,1,L-1)->str1
while fpart((L-1)/4)=/=0
L+1->L
if B=0:"0"+str1->str1
if B=-1:"1"+str1->str1
end
pause str1
3->C:16->M
lenght(str1)->B
repeat B<=C
0->F:0->G
sub(str1,B-C,4)str2
repeat G=4
expr(sub(str2,4-G,1))->D
D*2^G->E:F+E->F
G+1->G:end
if F=10utput (5,M,"A")
if F=11utput (5,M,"B")
if F=12utput (5,M,"C")
if F=13utput (5,M,"D")
if F=14utput (5,M,"E")
if F=15utput (5,M,"F")
if F<10utput (5,M,F)
C+4->C:M-1->M
end

DHEX (convertit hexa ou dcb en binaire et decimal)
10->A:11->B:12->C:13->D:14->E:15->F
input "G:",str1
1->I:"0"->str2
lenght(str1)->H
repeat H<I
expr(sub(str1,I,1))->J:3->K
repeat k=-1
if J>=2^K:then:str2+"1"->str2:J-2^K->J
else:str2+"0"->str2:end
K-1->K:end
I+1->I
end
sub(str2,2,4H)->str2
pause str2
0->C:0->F
4H->B
repeat B=C
expr(sub(str2,B-C,1))->D
D*2^C->E:F+E->F
C+1->C
end disp F

lessont des smileys mais en réalité c'est :Output

Voila c'est fini !!!
Je promet rien sur le recopiage mais bon ..........

A venir pour la rentrée un tableau de karnaugh et la conversion en gray

Je rappelle que ces programmes ne sont pas de moi et que je ne fais que les postés que sur la demande de mon camarade qui n'a pas Internet

@++

Quand il repassera demande-lui si ça l'intéresse d'avoir ses programes sur internet...

Désolé pour le retard, mais j'avais oublié de jeter un coup d'oeil sur ce forum.

La table de karnaugh est prete et je l'ai vu à l'ouevre c'est impressionnant :
- soit vous rentrer une équation du genre /A+B.CD/B et il rentre automatiquement dans le tableau et fait la simplification
- soit vous rentrer dans le tableau de karnaugh les valeurs (0,1 ou X) et il vous donne l'équation simplifier.

Je vais lui demander si il peut me passer la source de son prog afin que je poste et pour toi ftp83plus je vais lui demander des demain

Voila

@++