el progrma qe tengo qe crear es para verificar fechas entre el 1600 i 3399. lo qe he hecho es esto.. pero me dice qe falta definir qe datos son los qe he entrado... de una fecha de 8 dijitos definir cual es el anño cual es el mes i cual es el dia...
algoritmo verificacion de fechas
escribir frase ("INTRODUCE LA FECHA")
var
día, mes, año: real
fvar
si año <3400 y año> 1599 entonces
en caso de más <13 y más> 0
caso más = 2 y (año-1600) / 4 = entero y día <30 y día> 0
escribir frase ("LA FECHA SE CORRECTO")
caso más = 2 y (año-1600) / 4 = decimal y día <29 y día> 0
escribir frase ("LA FECHA SE CORRECTO")
caso más = 1,3,5,7,8,10,12 y día> 0 y día <32
escribir frase ("LA FECHA SE CORRECTO")
caso más = 4,6,9,11 y día> 0 y día <31
escribir frase ("LA FECHA SE CORRECTO")
si no escribir frase ("LA FECHA SE INCORRECTO")
fcas
si no escribir frase ("LA FECHA SE INCORRECTO")
fsi
falgoritmo
(pperdon si este tema no va en seste foro.. epro nose donde tendira qe ir..)