CALCULO DEL VOLUMEN DE UN CILINDRO

STORE 0 TO r,hSTORE 3.1416

TO pi

CLEAR

@ 10,10 SAY "INTRODUCE EL RADIO" GET r

READ

@ 11,10 SAY"INTRODUCIR LA ALTURA" GET h

READ

V=pi*r*r*h

@14,10 say "v="

@14,13 say v

@14,30 say "u.cubicas"

wait