Ik heb een code gekregen voor een programma voor een Texas instruments TI-83 plus, nu wil ik dat graag draaien op mijn CFX-9850GB maar dat werkt natuurlijk niet.
Wil iemand mij helpen om deze code CFX-9850GB werkend te maken?:
WisBasisscherm:Graden
Menu("Bereken:","Zijde a",1,"Zijde b",2,"Zijde c",3,"Hoek A",4,"Hoek B",5,"Hoek C",6)
Lbl 1
"b: "üStr1
"c: "üStr2
"A: "üStr3
"a: "üStr4
"b"üStr5
"c"üStr6
"A"üStr7
"a"üStr8
Goto X
Lbl 2
"a: "üStr1
"c: "üStr2
"B: "üStr3
"b: "üStr4
"a"üStr5
"c"üStr6
"B"üStr7
"b"üStr8
Goto X
Lbl 3
"a: "üStr1
"b: "üStr2
"C: "üStr3
"c: "üStr4
"a"üStr5
"b"üStr6
"C"üStr7
"c"üStr8
Goto X
Lbl 4
"A: "üStr1
Goto Y
Lbl 5
"B: "üStr1
Goto Y
Lbl 6
"C: "üStr1
Goto Y
Lbl X
Input "Zijde "+Str1,A
Input "Zijde "+Str2,B
Input "Hoek "+Str3,Á
(AÜ+BÜ-2AB*cos(Á))üC
Str8+"=ð("+Str5+"Ü+"+Str6+"Ü-2"+Str5+Str6+"*cos("+Str7+"))"üStr9
Toon "Zijde "+Str4,ð(C)
Uitvoer(7,1,Str9)
WisVar Str1WisVar Str2WisVar Str3WisVar Str4WisVar Str5WisVar Str6WisVar Str7WisVar Str8WisVar Str9
Pauze :WisBasisscherm
Stop
Lbl Y
Input "Zijde a: ",A
Input "Zijde b: ",B
Input "Zijde c: ",C
If Str1="A: "
Then
cosñ((BÜ+CÜ-AÜ)/(2BC))üÁ
"A=cosñ((bÜ+cÜ-aÜ)/(2bc))"üStr5
End
If Str1="B: "
Then
cosñ((AÜ+CÜ-BÜ)/(2AC))üÁ
"B=cosñ((aÜ+cÜ-bÜ)/(2ac))"üStr5
End
If Str1="C: "
Then
cosñ((AÜ+BÜ-CÜ)/(2AB))üÁ
"C=cosñ((aÜ+bÜ-cÜ)/(2ab))"üStr5
End
Toon "Hoek "+Str1,Á
Uitvoer(7,1,Str5)
WisVar Str1WisVar Str2WisVar Str3WisVar Str4WisVar Str5WisVar Str6WisVar Str7WisVar Str8WisVar Str9
Pauze :WisBasisscherm
Stop
Wil iemand mij helpen om deze code CFX-9850GB werkend te maken?:
WisBasisscherm:Graden
Menu("Bereken:","Zijde a",1,"Zijde b",2,"Zijde c",3,"Hoek A",4,"Hoek B",5,"Hoek C",6)
Lbl 1
"b: "üStr1
"c: "üStr2
"A: "üStr3
"a: "üStr4
"b"üStr5
"c"üStr6
"A"üStr7
"a"üStr8
Goto X
Lbl 2
"a: "üStr1
"c: "üStr2
"B: "üStr3
"b: "üStr4
"a"üStr5
"c"üStr6
"B"üStr7
"b"üStr8
Goto X
Lbl 3
"a: "üStr1
"b: "üStr2
"C: "üStr3
"c: "üStr4
"a"üStr5
"b"üStr6
"C"üStr7
"c"üStr8
Goto X
Lbl 4
"A: "üStr1
Goto Y
Lbl 5
"B: "üStr1
Goto Y
Lbl 6
"C: "üStr1
Goto Y
Lbl X
Input "Zijde "+Str1,A
Input "Zijde "+Str2,B
Input "Hoek "+Str3,Á
(AÜ+BÜ-2AB*cos(Á))üC
Str8+"=ð("+Str5+"Ü+"+Str6+"Ü-2"+Str5+Str6+"*cos("+Str7+"))"üStr9
Toon "Zijde "+Str4,ð(C)
Uitvoer(7,1,Str9)
WisVar Str1WisVar Str2WisVar Str3WisVar Str4WisVar Str5WisVar Str6WisVar Str7WisVar Str8WisVar Str9
Pauze :WisBasisscherm
Stop
Lbl Y
Input "Zijde a: ",A
Input "Zijde b: ",B
Input "Zijde c: ",C
If Str1="A: "
Then
cosñ((BÜ+CÜ-AÜ)/(2BC))üÁ
"A=cosñ((bÜ+cÜ-aÜ)/(2bc))"üStr5
End
If Str1="B: "
Then
cosñ((AÜ+CÜ-BÜ)/(2AC))üÁ
"B=cosñ((aÜ+cÜ-bÜ)/(2ac))"üStr5
End
If Str1="C: "
Then
cosñ((AÜ+BÜ-CÜ)/(2AB))üÁ
"C=cosñ((aÜ+bÜ-cÜ)/(2ab))"üStr5
End
Toon "Hoek "+Str1,Á
Uitvoer(7,1,Str5)
WisVar Str1WisVar Str2WisVar Str3WisVar Str4WisVar Str5WisVar Str6WisVar Str7WisVar Str8WisVar Str9
Pauze :WisBasisscherm
Stop
BlaBlaBla