viernes, 17 de abril de 2009

programa para accesar a la informacion de una base de datos

store space (40) to producto
store space (10) to codigo
store space (10) to precio
store space (40) to describe
cod = space (4)
use productos
clear
@5,5 say "introdir el codigo" get cod
read
locate for cod = codigo
@7,5 say "que cantidad compro? get cantidad
t= cantidad * precio
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait

programa para hacer un ciclo con una base de datos

use c:\learnforlemplist

clear

?

?

do while.not.eof ()

? proper (trim(fname)+""+iname)

skip

enddo

use

wait

como combinar un ciclo do y una instruccion

if/ else
use c\learn\emplist

clear

?

wait "do you want the names capitalized (y/n)" to yesno

?

do while.not.edf ()

if upper (yesno)="y"

?

upper (trim(fname)+""+iname

end if

skip

enddo

?

use

wait

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 "

martes, 10 de marzo de 2009

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)