Ayuda de programación VFP
Es simple, soy bueno programando.
1.
borrar
almacenar 0 a s, n
para i=1 a 100
si i3#0 entonces
s=s i
else
n=n 1
endif
endfor "La suma de los números hasta 100 que no son divisibles por 3 es:", s "La suma de los números que son divisibles por 3 es:", n
regresar
También puedes reemplazar las dos últimas líneas? Cambie s y n en: ltrim(str(s)) y ltrim(str(t)), y la cadena y los datos posteriores en el resultado de salida serán compactos. . p>
borrar
hacer mientras .t.
ingrese "Ingrese un año de 4 dígitos:" a y
si y=0000.
salir
else
si mod(y，4)=0 y mod(y，100)#0 o y400=0
?y, "Es un año bisiesto"
else
?y, "No es un año bisiesto"
endif
endif
enddo
return
3.
*main.prg
clear
s=0
t=1
p=1
hacer mientras .t.
hacer subrutina con t, p
s=s p
si 1000
t=t 1
bucle
else
exit
endif
enddo "1! 2! ... n!lt; el mayor número impar de 1000 es", t-1
retorno
*Subrutina.prg
para m, p
p=1
para i=1 a m
p=p*m
endfor
regresar