Programas na Tela

Programas na Tela

O que fazem estes programas?


Escolha a cor de fundo da página:
AZUL ALICE  TURQUESA  VERDE BRANCO  CINZA  QUARTZO 

MENU
01 - 09 Programas Simples, INPUT OBJ→
10 - 19 Vetores, ARRY,→TAG
20 - 29 CLLCD, DISP, WAIT
30 - 39 IF THEN ELSE e similares
40 - 49 FOR NEXT, IF ERROR, Sons
50- 59 Gráficos e sons
61- 64 INFORM & CHOOSE
Ir para o rodapé da página

DICA
Press CTRL F para localizar palavras no texto.

NOTA:
Pode aparecer um pequeno quadrado depois 
de OBJ ou antes de TAG se você não possuir 
a fonte do Windows adequada.



Programas a Tela

 


01 - 09 Simple programs INPUT OBJ® VOLTAR AO INÍCIO PRÓXIMOS 10 

 

E01

« CLEAR

"A+B

Enter A B" ""

INPUT OBJ®   ® A B

« 'A+B' EVAL

»

»

 

E02

« CLEAR

"Area of a Triangle

Enter h(high) b(base)"

"" INPUT OBJ®  ®  H B

« '.5*H*B'

EVAL

»

»

 

E03

« CLEAR DEG

"Degree to radians

Enter angle in Degrees"

"" INPUT OBJ® ®

DEGREE

« DEGREE D®R

»

»

E04

« CLEAR

"Factorial

Enter a positive

integer number "

"" INPUT OBJ® ® N

« N !

»

»

 

E05

« CLEAR

"Hyperbolic Sine

Enter a number "

"" INPUT OBJ® ® N

« N SINH

»

»

E06

« CLEAR MEM

"Free Memory" ®TAG

32000 MEM -

"Used Memory" ®TAG

»

 

E07

« CLEAR CLLCD

"PRESS <ENTER> TO

SORT MENU"

4 DISP 0 WAIT VARS

SORT ORDER

"MENU SORTED" SWAP

DROP

»

 

E08

« CLEAR

"Three numbers

to a vector

Enter three numbers"

"" INPUT OBJ® ® N

« N ®V3

»

»

 

E09

« CLEAR

"Decimal to fraction

Enter decimal number"

"" INPUT OBJ® ® N

« N ®Q

»

»



10 - 19 Vectors, Arry, ® TAG  VOLTAR AO INÍCIO ÚLTIMOS 10 PRÓXIMOS 10 

 

E10

« CLEAR

"Celsius to Fahrenheit

Enter T in CELSIUS"

"" INPUT OBJ® ®C

« C "Celsius"

®TAG '1.8*C+32'

EVAL "Fahrenheit"

®TAG

»

»

 

E11

« CLEAR

"Baskara Formula

Enter a b c"

"" INPUT OBJ® ®® a b

c

« 'ƒ(b^2-4*a*

c)' ®®D

« '.5*a*(-b

+D)' ®NUM "X1" ®TAG

'.5*a*(-b-D)' ®NUM

"X2" ®TAG

»

»

»

 

 

E12

« CLEAR

"3rd order matrix det

Enter a11 a12 a13 a21

a22 a23 a31 a32 a33"

"" INPUT OBJ® ® MAT

« MAT { 3 3 }

®ARRY DET "det"

®TAG

»

»

 

 

E13

« CLEAR

"Vector and vector abs

Enter a b c"

"" INPUT OBJ®  ®  A

« A ®V3 "V"

®TAG DUP ABS

"ABS(V)" ®TAG

»

»

E14

« CLEAR

"Parts of a number

Enter a number"

"" INPUT OBJ®  ® A

« A "Number"

®TAG 'IP(A)' ®NUM

"Int Part" ®TAG 'FP

(A)' ®NUM

"Frac Part" ®TAG

»

»

 

 

E15

«

"Using SWAP

Enter A B"

"" INPUT OBJ® ® ® A B

« A "A" ®TAG

B "B" ®TAG A

"swaped A" ®TAG B

"swaped B" ®TAG

SWAP

»

»

 

E16

« CLEAR

"Using DROP

Enter A B C"

"" INPUT OBJ® ® A B

C

«

"C HAS DROPPED!" A

"A" ®TAG B "B" ®TAG

C "dropped C" ®TAG

DROP

»

»

 

 

E17

« CLEAR

"Using DUP

Enter a number"

"" INPUT OBJ® ® A

« 'A^5' ®NUM

"X1" ®TAG DUP -1 *

"-X1" ®TAG DUP -10

* "10*X1" ®TAG

»

»

 

E18

« CLEAR

"Using ROT

Enter A B C"

"" INPUT OBJ® ® A B

C

«

"Rotating A B C" A

"A" ®TAG B "B" ®TAG

C "C" ®TAG ROT

»

»

E19

« CLEAR

"Using Algebraic

Enter A B C"

"" INPUT OBJ® ®  A B

C

« 'A^5*B^2/C'

®NUM

»

»


 20 - 29 CLLCD,DISP,WAIT  VOLTAR AO INÍCIO ÚLTIMOS 10 PRÓXIMOS 10

 

E20

« CLEAR

"Using RPN

Enter A B C"

"" INPUT OBJ® ® A B

C

« A 5 ^ B 2 ^

* C /

»

»

E21

« CLEAR CLLCD

" Calculus

of Circle area

 

Press <ENTER>"

3 DISP 0 WAIT DROP

"Enter r" "" INPUT

OBJ®  ® r

« r "r" ®TAG

'‡*r^2' ®NUM "area"

®TAG

»

»

E22

« CLEAR CLLCD

" Entering Strings

 

Press <ENTER>"

3 DISP 0 WAIT DROP

"Enter a word" { Œ

} INPUT OBJ®  ® A

« A

»

»

E23

« CLEAR

"Using INPUT OBJ® 2x

Enter a b c"

"" INPUT OBJ®

"Enter d e f" ""

INPUT OBJ®  ® A B C

D E F

« 'A+B+C+D+E+

F' ®NUM

"a+b+c+d+e+f" ®TAG

»

»

E24

« CLEAR CLLCD

" INPUT OBJ® in rows

Enter the numbers and

press Q after. (html dont accept the symbol for the arrow set

closed to Q. You need press arrow set down)

Press <ENTER> after

the last number"

2 DISP 5 WAIT

"INPUT OBJ® in rows"

{ ":Vo:

:a:

:t:" {

1 0 } } INPUT OBJ®

®  VO A T

« CLEAR 'VO+A

*T' ®NUM "V" ®TAG

»

»

E25

« CLEAR

"Using units

Enter Vo a t"

"" INPUT OBJ®  ® VO

A T

« 'VO+A*T'

®NUM ®STR "_m/s" +

"V" ®TAG

»

»

E26

« CLEAR

"Using Strings & nums.

V=Vo + a*t

Enter Vo a t"

"" INPUT OBJ®  ®VO

A T

« "V = " VO

" + " A " * " T + +

+ + +

»

»

E27

« CLEAR

"Using DISP as output

V=Vo + a*t

Enter Vo a t"

"" INPUT OBJ®  ® VO

A T

« CLLCD

"Vo = " VO ®STR + 1

DISP .01 WAIT

"a = " A  ®STR + 2

DISP .01 WAIT

"t = " T ®STR + 3

DISP .01 WAIT

"V=Vo+a*t=" 'VO+A*T

' ®NUM ®STR + 5

DISP .01 WAIT

"Press <ENTER> to exit!"

7 DISP 0 WAIT DROP

»

»

E28

« CLEAR

"Using a menu option

Choose Option

1-Celsius 2-Fahrenheit"

"" INPUT OBJ® ®  A

« CLEAR

IF A 1 ==

THEN

"Celsius to Fahrenheit

Enter T Celsius "

"" INPUT OBJ®  ® C

« C "C"

®TAG '1.8*C+32'

®NUM "F" ®TAG

»

ELSE

IF A 2 ==

THEN

"Fahrenheit to Celsius

Enter T Fahrenheit"

"" INPUT OBJ®  ® F

« F "F"

®TAG '5*(F-32)/9'

®NUM "C" ®TAG

»

END

END

»

»

E29

« CLEAR CLLCD

" Using

MSGBOX!"

MSGBOX

"A + B

Enter A B"

"" INPUT OBJ®  ® A B

« "A + B = "

'A+B' ®NUM  ®STR +

MSGBOX

»

»

 


30 - 39 FOR NEXT ,IF THEN ELSE  VOLTAR AO INÍCIO ÚLTIMOS 10 PRÓXIMOS 10

 

E30

« CLEAR -56 CF

"Beep when solve

Enter A B"

"" INPUT OBJ®  ® A B

« 'A*B' ®NUM

"A+B" ®TAG 1400 .1

BEEP

»

»

E31

« CLEAR CLLCD

"Minehunt with Password

Enter Password"

{ } INPUT ® A

« A

IF A "HP48"

==

THEN CLEAR

CLLCD

" Password OK!"

4 DISP 1 WAIT

MINEHUNT

ELSE

" MISMATCH

PASSWORD!

Use HP48

as password!"

MSGBOX CLEAR

END

»

»

E32

«

DO CLEAR

"Continuous Program

Enter Q (quantity)

P (price) "

"" INPUT OBJ®  ® A B

« CLLCD

"quantity " A ®STR

+ 1 DISP .01 WAIT

"price " B ®STR

+ 2 DISP .01 WAIT

"Total " 'A*B' ®NUM

®STR + 4 DISP .01

WAIT

" Pressione <ENTER>

to continue!"

6 DISP 0 WAIT

»

UNTIL 1 2 ==

END

»

E33

« CLEAR CLLCD

"Generating a

Random Number"

2 DISP 1 WAIT RAND

1000 *

»
 
 

E34

« CLEAR

"IF THEN ELSE END

Enter a b"

"" INPUT OBJ®  ® A B

« A "a" ®TAG

B "b" ®TAG

IF 'A<B'

THEN "a<b"

ELSE

IF 'A>B'

THEN

"a>b"

ELSE

IF 'A==

B'

THEN

"a=b"

END

END

END

»

»

E35

« CLEAR

"IF THEN ELSE END

Enter a b c (a<b<c)"

"" INPUT OBJ® ®  A B

C

« A "a" ®TAG

B "b" ®TAG C "c"

®TAG

IF 'A<B AND

B<C'

THEN

"a<b<c"

ELSE

"Indefinite Clause!"

END

»

»

E36

« CLEAR

"CASE THEN END

Enter a number A"

"" INPUT OBJ®  ® A

«

CASE 'A<0'

THEN

"A<0"

END 'A==0

'

THEN

"A=0"

END 'A>0'

THEN

"A>0"

END

END

»

»

 

E37

«

"Using FOR NEXT

S since a till b

Enter a b"

"" INPUT OBJ® ®  A B

« A B

FOR C C

NEXT A 'B-1'

START +

NEXT ®  D

«CLEAR A "a"

®TAG B "b" ®TAG D

"S" A ®STR + " ® "

B ®STR + + ®TAG

»

»

»

 

E38

« CLEAR

"Using

Enter a b"

"" INPUT OBJ®  ® A B

« '(N=A,B,N)

' ®NUM ®  C

« A "a"

®TAG B "b" ®TAG C

"" A ®STR + " ®"

B ®STR + + ®TAG

»

»

»

E39

« CLEAR

"Zero FOR STEP

from a till b

Enter a b c(step)"

"" INPUT OBJ®  ®  A B

S

« 0 A B

FOR C C + S

STEP ®  D

« A "a"

®TAG B "b" ®TAGS

"step" ®TAG  D " "

A ®STR " ® " B ®STR

+ + + ®TAG

»

»

»

 


40 - 49 FOR NEXT,IFERR,Graphics  VOLTAR AO INÍCIO  ÚLTIMOS 10 PRÓXIMOS 10

 

 

E40

« CLEAR

"Zero FOR STEP

from a till b

Enter a b"

"" INPUT OBJ® ® A B

« 0 A B

FOR C C + 1

STEP ® D

« A "a"

®TAG B "b" ®TAG D

"   " A ®STR " ® "

B ®STR + + + ®TAG

»

»

»

E41

« CLEAR

IFERR

"IFERR THEN ELSE END

Press <ENTER> to error

or a number to OK!"

"" INPUT OBJ®  ® A

« A LN

"Result OK!" " LN "

A ®STR + + ®TAG

»

THEN

"An error has occurred

The program disp this

message because you

entered too few

arguments!"

1 DISP 5 WAIT

ELSE

END

»

E42

« CLEAR

IFERR

"IFERR THEN ERRM END

Type bad guess to ERRM

or a number to OK!"

"" INPUT OBJ®  ® A

« 'A^2'

®NUM

"Result OK! A² "

®TAG

»

THEN CLLCD

"The error message is"

3 DISP .01 WAIT

ERRM 5 DISP 2 WAIT

ELSE

END

»

E43

« CLEAR

"Using DOERR

LOG of a number

Enter a number ‰ 0"

"" INPUT OB®  ® A

«

CASE 'A‰0'

THEN

"ERROR! Irreal Result!

"

DOERR

END 'A>0'

THEN 'LOG

(A)' ®NUM " LOG "

®TAG

END

END

»

»

E44

« CLEAR

"Using DOERR

LOG of a number

Enter a number ‰ 0"

"" INPUT OBJ® ® A

«

IF 'A‰0'

THEN

"ERROR! Irreal Result!"

DOERR

END

IF 'A>0'

THEN 'LOG(A

)' ®NUM " LOG "

®TAG

END

»

»

E45

« CLEAR

"Using CASE THEN END

Enter a number"

"" INPUT OBJ®  ® A

« A "A" ®TAG

CASE 'A==0'

THEN

"A=0"

END 'A<0'

THEN

"A<0"

END 'A>0'

THEN

"A>0"

END

END

»

»

E46

« CLEAR CLLCD

" -----Message-----

using DISP and WAIT

This message desapear

in few seconds"

2 DISP 3 WAIT

»

E47

« ERASE { # 0d

# 0d } PVIEW PICT {

# 50d # 32d }

"View Chars" 3

®GROB GOR 0 WAIT

ERASE CLEAR

»

E48

« CLEAR

"Strings and Numbers

Enter A B C"

"" INPUT OBJ® ® A B

C

« ERASE {

# 0d # 0d } PVIEW

PICT { # 10d # 5d }

"VAlue of ƒA: " 'ƒA

' EVAL 4 RND ®STR +

1 ®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 25d }

"Value of ƒB: " 'ƒB

' EVAL 4 RND ®STR +

2 ®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 50d }

"Value of ƒC: " 'ƒC

' EVAL 4 RND ®STR +

3 ®GROB GOR 0 WAIT

ERASE CLEAR

»

»

 

E49

« CLEAR

"String and Numbers II

Enter A B C"

"" INPUT OBJ® ®  A B

C

« ERASE {

# 0d # 0d } PVIEW

PICT { # 10d # 3d }

"Result:" 2 ®GROB

GOR { # 0d # 0d }

PVIEW PICT { # 10d

# 15d }

"VALue of ƒA: " 'ƒA

' EVAL ®STR + 1

®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 27d }

"Value of ƒB: " 'ƒB

' EVAL ®STR + 1

®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 39d }

"VALue of ƒC: " 'ƒC

' EVAL ®STR + 1

®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 51d }

"Press enter to exit!"

1 ®GROB GOR { # 0d

# 0d } PVIEW PICT {

# 10d # 63d } 0

WAIT ERASE CLEAR

»

»


50 - 59 Graphics and Sounds  VOLTAR AO INÍCIO ÚLTIMOS 10 PRÓXIMOS 10

 

 

E50

« CLEAR CLLCD

-56 CF

" Random Sound!"

4 DISP RAND 2000 *

® A

« A .1 BEEP

» E50

»

E51

« CLEAR CLLCD

-56 CF

" Emmiting Sound!"

4 DISP 1500 .1 BEEP

1600 .1 BEEP 1700

.1 BEEP 1800 .1

BEEP 1900 .1 BEEP

2000 .1 BEEP 1400

.1 BEEP 1200 .1

BEEP 1300 .1 BEEP

1200 .1 BEEP 1100

.1 BEEP 1000 .1

BEEP 900 .1 BEEP

800 .1 BEEP 700 .1

BEEP 600 .1 BEEP

500 .1 BEEP 400 .1

BEEP 300 .1 BEEP

200 .1 BEEP 100 .1

BEEP

»

E52

« CLEAR CLLCD

" HP48 Playing Music!"

4 DISP 50 5000

FOR I I .1

BEEP 100

STEP

»

E53

«

" View Graph

Enter graph name (E55...

E59) and press <ENTER>"

{ Œ } INPUT OBJ®  ®

A

« A PICT STO

PICTURE

»

»

E54

« ERASE E55 E56

E57 E58 { 4 { # 0d

# 0d } .2 0 }

ANIMATE CLEAR

»

 

E55 - E59 Grapic objects used to make animation in other programs

 


60 - 64 INFORM and CHOOSE VOLTAR AO INÍCIO ÚLTIMOS 10  IR PARA O RODAPÉ DA PÁGINA 

E60

« E59 ®

caterpilar

« ERASE {

# 0d # 0d } PVIEW {

# 0d # 0d } PICT

OVER caterpilar

GXOR 2 MAXR

FOR X X 131

MOD R®B # 0d 2

®LIST PICT OVER

caterpilar GXOR

PICT ROT caterpilar

GXOR 2

STEP

»

»

E61

« CLEAR

"INFORM TO SOLVE MATRIX A"

{ { "A:"

"ENTER MATRIX ELEMENTS"

} "B:" "C:" "D:"

"E:" "F:" "G:" "H:"

{ "I:"

"ENTER THE NUMBER AND PRESS OK!"

} } { 3 1 } { } { }

INFORM DROP EVAL {

3 3 } ®ARRY ® A

«

IF A DET 0 ==

THEN

" Matrix not

inversible"

MSGBOX

ELSE

" INVERSE MATRIX" {

"A:" "B:" "C:" "D:"

"E:" "F:" "G:" "H:"

"I:" "DET" } { 3 1

} { } 'INV(A)' EVAL

OBJ® DROP A DET 10

®LIST INFORM CLEAR

END

»

»

E62

« CLEAR

"USING INFORM V=VO+A.T"

{ "VO" "A" "T" } {

1 1 } { } { }

INFORM DROP EVAL ®

VO A T

« 'VO+A*T' EVAL

"V (m/s)" ®TAG

»

»

E63

 

« CLEAR

"USING INFORM II A.X²+B.X+C"

{ { " A"

"ENTER 2ND DEGREE COEFFICIENT"

} { " B"

"ENTER 1ST DEGREE COEFFICIENT"

} { " C"

"ENTER INDEPENDENT COEFFICIENT"

} } { 1 1 } { } { }

INFORM DROP EVAL ®

A B C

« "ROOTS" { " X1"

" X2" } { 1 1 } { }

'(-B+ƒ(B^2-4*A*C))/

2*A' EVAL '(-B-ƒ(B^

2-4*A*C))/2*A' EVAL

2 ®LIST INFORM

CLEAR

»

»

 

E64

 

« -40 CF 64 STWS

"CHOOSE:PRESS OK TO RUN:"

{ E01 E06 E24 E37

E60 E63 HOME } 1

CLLCD CHOOSE

IF 0 ==

THEN CLEAR KILL

END EVAL

»

 

 

VOLTAR AO INÍCIO ÚLTIMOS 10