Programación Ifx
Subcomando privado 1_Click()
Muestra el año como un número entero y y como un número entero
Año = Val(InputBox("El año a juzgar es:"))
Llamar a runnian(año, y)
Si y = 1, entonces
Imprimir cadena (año); SPC(2);
Otros
Imprimir cadena (año); SPC (2); "¡El año no es bisiesto!"
Terminará si...
Fin de unión
Año de subejecución común (n es un número entero, x es un número entero)
Salto difuso en forma de número entero
Si n módulo 400 = 0, entonces
salto = 1
De lo contrario, si n Mod 4 = 0 y n Mod 100 <& gtEntonces 0
salto = 1
Otro
Salto = 0
Terminará si...
x = Salto
Conector final