Programación Pascal
El programa completo es el siguiente:
prueba del programa; {$apptype console}
días de función(año, mes: entero): entero;
{Devolver el número de días del año y mes}
comenzar
caso mes de
1, 3, 5, 7, 8 , 10, 12: Resultado: =31;
4, 6, 9, 11: Resultado: =11;
2: si (año mod 4=0) y (año mod 100lt; gt; 0) o (año mod 400=0)
luego Resultado:=29
else Resultado:=28
else Resultado:= 0;
end
end;
var
año, mes, día, día de la semana: entero;
comienzo
año:=1990;{año}
mes:=1;{mes}
día:=1;{día}
día laborable :=1; {día laborable, 0~6, 0 es domingo}
{Ajustar a 1990-1-13}
día:=día 12;
día de la semana:=(día de la semana 12) mod 7;
repetir
si día de la semana=5 entonces writeln(año,'-',mes,'-', day,'Black Friday ');
{Ajustar al mes siguiente}
weekday:=(días laborables(año, mes)) mod 7;
si mes=12 entonces comienza año:=año 1; mes:=1; finaliza
else mes:=mes 1;
hasta añogt;1999;
end.
Los resultados del programa en ejecución son los siguientes:
1990-4-13 Black Friday
1990-6-13 Black Friday
1990-8-13 Viernes Negro
1990-10-13 Viernes Negro
1990-12-13 Viernes Negro
1993-4- 13 Viernes Negro
1993-6-13 Viernes Negro
1993-8-13 Viernes Negro
1993-10-13 Viernes Negro
1993-12-13 Viernes Negro
1995-9-13 Viernes Negro
1995-11-13 Viernes Negro
1996-1-13 Negro Viernes
1996-4-13 Viernes Negro
1996-6-13 Viernes Negro
1996-8-13 Viernes Negro
1996-10-13 Viernes Negro
1996-12-13 Viernes Negro
1998-9-13 Viernes Negro
1998-11-13 Viernes Negro
1999- 1-13 Black Friday
Puntos extra, es nivel 4, necesitas entender las reglas :)
Suplemento:
Si copias y pegas el programa
Si todavía hay un error en la secuencia, no dudes en criticar todo lo que quieras. Mi programa se ejecutó y pegó, entonces, ¿cómo podría haber un error?
Puedes pensar en copiarlo. En la era del mouse, todavía existía tal cosa. Incluso si tu editor de programas no admite pegar, puedes pegar el programa en el Bloc de notas y guardarlo como. un archivo de programa. Abrir en el entorno del programa.