Pascal/Turbo Pascal - cual es el error

   
Vista:

cual es el error

Publicado por cande (1 intervención) el 24/11/2008 18:16:38
hola, he hecho mil veces este ejercicio pero parece ser que no esta bien, estoy aprendiendo a programar y no se me da muy bien. Si me ayudasen os lo agradeceria.
-completar el siguiente programa para que la variable bisiesto_ok sea true o false si la variable anyo es un año bisiesto o no y la variable dia_febreo_ok sea true o false si el valor de dia es correcto o no para el mes de febrero de ese año. un año es bisiesto si es divisible entre 4 y no es divisible entre 100. tambien es bisiesto si es divisible entre 400. febrero tiene 28 dias si no es bisiesto y 29 si lo es.

type tipo_dia= 1..31;
tipo_anyo= word;
var dia: tipo_dia; anyo: tipo_anyo; bisiesto_ok,dia_febrero_ok: boolean;
begin
readln (anyo, dia);
if (anyo mod 4 =0) and ( anyo mod 100<> 0) or ( anyo mod 400=0) then bisiesto_ok:= true
else bisiesto_ok:= false;
if ( dia>= 1) and ( 28>= dia) then dia_febrero_ok:= false
else dia_febrero_ok:= true;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder