STORE 0(cero) TO R,H
STORE 3.1416 TO PI
CLEAR
@10,10 SAY "INTRODUCE EL RADIO" GET RREAD R
@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
STORE 3.1416 TO PI
CLEAR
@10,10 SAY "INTRODUCE EL RADIO" GET RREAD R
@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
No hay comentarios:
Publicar un comentario