Ecco il programma per calcolare il giorno della settimana:
program G_d_S; uses dos;
const gs:array[0..6] of string= ('Lunedì','Martedì','mercoledì','Giovedì','Venerdì','Sabato','Domenica');
var a,m,g,s:word;
begin
getdate(a,m,g,s); writeln(gs[s-1]);
end.
Nessun commento:
Posta un commento