Program Week_of_Informatic;
25 грудня 2024-
Автор:
uses aud403, aud417, aud406, aud431, aud443, KafInf;
var
break_organizator: string; // Курс-організатор перерв
procedure ПОНЕДІЛОК;
begin
break_organizator := '5 курс';
//Intel - навчання для майбутнього. Захист надбань 5 курсу.
//aud403 від ранку до смерканку
shell_execute('Публічний захист проектів Intel');
end;
procedure ВІВТОРОК;
begin
break_organizator := '4 курс';
// aud403, aud417. Початок о 14:14
shell_execute('Чемпіонат з Counter Strike');
end;
procedure СЕРЕДА;
begin
break_organizator := '3 курс';
// aud417. Початок о 14:24
shell_execute('Олімпіада з спортивного програмування');
end;
procedure ЧЕТВЕР;
begin
break_organizator := '2 курс';
// aud431. Початок о 14:24
shell_execute('Своя гра по-фізматівськи');
end;
procedure П'ЯТНИЦЯ;
begin
break_organizator := '1 курс';
// aud443.
shell_execute('Відкриття музею');
end;
begin
case GetSystemDay of
Monday:
begin
ПОНЕДІЛОК;
break;
end;
Tuesday:
begin
ВІВТОРОК;
break;
end;
Wednesday:
begin
СЕРЕДА;
break;
end;
Thursday:
begin
ЧЕТВЕР;
break;
end;
Friday:
begin
П'ЯТНИЦЯ;
break;
end;
end;
end.