EJERCICIOS FOXPRO
------------------------------------------------------------------------------------------------
EJERCICIO 1:
Ingresar el nombre de 2 personas y sus edades, imprimir el nombre de la 2da persona al lado la suma de las edades de las 2 personas y al lado el nombre de la 1era persona.
clea
nom1=space(10)
nom2=space(10)
ed1=0
ed2=0
suma=0
x=0
@ 5,5 say "PROGRAMA 1"
@ 10,5 say "INGRESAR PRIMER NOMBRE :" get nom1
@ 12,5 say "INGRESAR PRIMERA EDAD :" get ed1 picture "999"
@ 14,5 say "INGRESAR SEGUNDO NOMBRE :" get nom2
@ 16,5 say "INGRESAR SEGUNDA EDAD :" get ed2 picture "999"
read
suma=ed1+ed2
x=str(suma)
@ 20,5 say nom2+" "+x+" "+nom1
return
otra forma :
suma=str(ed1+ed2)
@ 20,5 say nom2+" "+suma+" "+nom1
otra forma:
@ 20,5 say nom2+" "+str(ed1+ed2)+" "+nom1
Ingresar el nombre de 2 personas y sus edades, imprimir el nombre de la 2da persona al lado la suma de las edades de las 2 personas y al lado el nombre de la 1era persona.
clea
nom1=space(10)
nom2=space(10)
ed1=0
ed2=0
suma=0
x=0
@ 5,5 say "PROGRAMA 1"
@ 10,5 say "INGRESAR PRIMER NOMBRE :" get nom1
@ 12,5 say "INGRESAR PRIMERA EDAD :" get ed1 picture "999"
@ 14,5 say "INGRESAR SEGUNDO NOMBRE :" get nom2
@ 16,5 say "INGRESAR SEGUNDA EDAD :" get ed2 picture "999"
read
suma=ed1+ed2
x=str(suma)
@ 20,5 say nom2+" "+x+" "+nom1
return
otra forma :
suma=str(ed1+ed2)
@ 20,5 say nom2+" "+suma+" "+nom1
otra forma:
@ 20,5 say nom2+" "+str(ed1+ed2)+" "+nom1
------------------------------------------------------------------------------------------------
<< Página Principal