De thi Toan Tin hoc trong nha truong Bai 53

[r]

Bài 53/2001 - Lập lịch tháng kỳ ảo (Dành cho học sinh THCS 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

begin

for j:=1 to

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 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;

Begin

for k:=1 to for t:=28 to 31 begin

fillchar(a,sizeof(a),0); Laplich(k,t);

end; End;

(* -*) BEGIN

clrscr; assign(f,out); rewrite(f); dem:=0; Xuli; close(f); END