lập lịch thi

[pham_thang113]

các bạn hãy thử sức với giải thuật này nhé: sử dụng giải thuật tô màu hãy lập lịch thi cho các lớp

[nhoemzx]

program timetable;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var
name, day, lesson : array[1..5, 1..8] of string;
subject : string;
count, count2 : integer;

begin
day[5,2] := 'Monday';
day[5,3] := 'Tuesday';
day[5,4] := 'Wednesday';
day[5,5] := 'Thursday';
day[5,6] := 'Friday';

for count := 2 to 6
do
begin
for count2 := 1 to 4 do
begin
write('Please enter lesson ', count2, ' for ', day[5,count], ': ');
readln(day[count2,count]);
end;
writeln;
end;

writeln;
writeln;


for count := 2 to 6
do
begin
writeln('Timetable of ', day[5,count], ':');
writeln;
for count2 := 1 to 4 do
writeln(day[count2, count]);
writeln
end;
readln;
end.


đây là code lần trước mình làm về timtable, đây là timetable bình thường không phải exam timetable, nhưng mình không biết thực sự bạn muốn làm như nào.

[phuthinh36]

Còn cách nào khác không bạn???