Đề thi Toán - Tin học trong nhà trường (Bài 53)

Bài 53/2001 - Lập lịch tháng kỳ ảo
(Dành cho học sinh THCS và PTTH)
(* Tat ca cac lich deu la lich ki ao *)
Program bai 53;
uses crt;
Const out=`lichao.out`;
Type mang=array[1..6,1..7] of integer;
Var a:mang;
i,j,dem:integer;
s:real;
f:text;
(*--------------------------------------*)
PROCEDURE Viet;
Var i,j:integer;
Begin
inc(dem);
writeln(f,`Kha nang thu `,dem);
for i:=1 to 6 do
begin
for j:=1 to 7 do
if a[i,j]<>0 then write(f,a[i,j]:3)
else write(f,``:3);
writeln(f);
end;
writeln(f);
End;
(*------------------------------------------*)
PROCEDURE Laplich(k,t:integer);
Var i,j,i1:integer;
Begin
for i1:=k to t+k-1 do
begin
j:=i1 mod 7;
i:=i1 div 7;
if j=0 then
begin
j:=7;
dec(i);
end;
a[i+1,j]:=i1-k+1;
end;
viet;
End;
(*-------------------------------------------*)
PROCEDURE Xuli;
Var i,j,k,t:integer;
Begin
for k:=1 to 7 do
for t:=28 to 31 do
begin
fillchar(a,sizeof(a),0);
Laplich(k,t);
end;
End;
(*---------------------------------------------*)
BEGIN
clrscr;
assign(f,out);
rewrite(f);
dem:=0;
Xuli;
close(f);
END.
(Lời giải của bạn: Đỗ Ngọc Sơn)