programa para evaluar la expresion :

vf=vo+at
store 0 to a,vi,vf

fresp="s"do while (resp="s")

clear

@5,5 say "introduce la velocidad inicial" get vi

@6,5 say "introduce la aceleracion"

get areadf=vi*a

@8,5 say "fuerza"

@8,12 say vf

@8,30 say m/seg
"wait "

blog de los del salon 4d

Cristina Bahena Beltrán http://www.cristy0491.blogspot.com
Ángeles Villalobos Chávez http://www.angeles7spark.blogspot.com
Rodrigo Campuzano Benítez http://www.rodrigodisinformacion.blogspot.com
José Alberto fitz pineda http://www.juliantla-fitz.blogspot.com
Eugenia lagunas de león http://eugenia-azul.blogspot.com
Berenice sotelo bahena http://www.bereangelito.blogspot.com
Reyna Gutiérrez Ortiz http://sistemasreyna.blogspot.com
Martha angélica bahena Velásquez http://sismartha8a.blogspot.com
Georgina Cuellar http://www.georginasistemas.blogspot.com
Dulce MA. Díaz garcía http://www.Caramelo1992.blogspot.com
Clarissa lileny Díaz Santos http://www.lilyanbets.blogspot.com
Leyda sotelo http://www.leyda-rcymc.blogspot.com
Javier Díaz Sánchez http://www.lokito-cobra.blogspot.com
Yazmín guadarrama sotelo http://www.yazmin4d-sarai.blogspot.com

adicted(simple plan)

perfect(simple plan)

como calcular el volumen de un cilindro

store 1 to r,h
store 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

yop