Programación VFP. . . .
* determine si es divisible por 3, si es así muestre "El número es múltiplo de 3",
* En caso contrario muestre "El El número no puede ser divisible por 3".
clea
n=0
@4,20 Diga "ingrese un número entero" y obtenga n imagen "99999999"
leer
si mod(n,3)=0
@6,24 dice "El número es múltiplo de 3"
si no
@6,24 dice "El número no es divisible por 3"
endif
*2. Cree un programa que acepte un número entero (1-9) escrito en el teclado,
* y luego muestre el número entero como una palabra en inglés, por ejemplo, 9 muestra nueve.
limpiar
n=0
hacer mientras n=0
@4,20 decir "Ingresar un número entero" obtener n imagen "9"
leer
enddo
s=iif(n=1, "uno",iif(n=2, "dos",iif( n=3, "三",iif(n=4, "前",iif(n=5, "五",iif(n=6, "六",iif(n=7, "七",iif( n=8, "八", "九") ))))))))
@6,24 dice "La palabra en inglés para este número entero es:", s
*3. Escribe un programa para calcular el resultado de la siguiente ecuación matemática: 1+1/2+1/3+1/4+1/5+1/6+1/7... +1/100,
*Requiere implementar los bucles do while y for respectivamente. Por favor dios ah ah ah ah! ! ! ! ! Vence mañana %>_<%
clea
s=0
para i=1 a 100
s=s+1 /i
endfor s
s=str(s,12,10)
@4,20 dice "1+1/2+1 /3 +1/4+1/5+1/6+1/7.........+1/100=" +s