Type

     Dis=array[1..4] of string;

     Raspisanie=record

     Nazvanie:dis;

     Nomer:dis;

     End;

     Var

     Para:array[1..6] of raspisanie;

     N,v,k,t,p:integer;

     D,c:string;

     Procedure izm;

     Begin

     Writeln(‘введите день (строго следите за правильностью написания слов)’);

     Readln(d);

     For n:=1 to 6 do

     If (d=nedelya[n]) then

     For v:=1 to 4 do

     Begin

     Writeln(vremya[v]);

     Writeln(‘введите номер и название (строго следите за правильностью написания слов)’);

     Readln(para[n].nomer[v]);

     Readln(para[n].nazvanie[v]);

     End;

     End;

     Procedure vizm;

     Begin

     Writeln(‘введите день (строго следите за правильностью написания слов)’);

     Readln(d);

     For n:=1 to 6 do

     If (d=nedelya[n]) then

     Begin

     Writeln(‘введите время, чч.мм-чч.мм’);

     Readln(c);

     For v:=1 to 4 do

     If (c=vremya[v]) then

     Begin

     Writeln(‘введите номер и название (строго следите за правильностью написания слов)’);

     Readln(para[n].nomer[v]);

     Readln(para[n].nazvanie[v]);

     End;

     End;

     End;

     Procedure vvod;

     Begin

     For n:=1 to 6 do

     Begin

     Writeln(nedelya[n]);

     For v:=1 to 4 do

     Begin

     Writeln(vremya[v]);

     Writeln(‘введите номер и название’);

     Readln(para[n].nomer[v]);

     Readln(para[n].nazvanie[v]);

     End;

     End;

     End;

     Procedure vivod;

     Begin

     For n:=1 to 6 do

     Begin

     Writeln(nedelya[n],’-‘);

     For v:=1 to 4 do

     Writeln(vremya[v],’-‘,para[n].nomer[v],’-‘,para[n].nazvanie[v]);

     End;

     End;

     Procedure vvivod;

     Begin

     writeln(‘введите день (строго следите за правильностью написания слов)’);

     Readln(d);

     For n:=1 to 6 do

     If (d=nedelya[n]) then

     Begin

     Writeln(‘введите время, чч.мм-чч.мм’);

     Readln(c);

     For v:=1 to 4 do

     If (c=vremya[v]) then

     Writeln(para[n].nomer[v],’-‘,para[n].nazvanie[v]);

     End;

     End;

     Procedure dvivod;

     Begin

     Writeln(‘введите день (строго следите за правильностью написания слов)’);

     Readln(d);

     For n:=1 to 6 do

     If (d=nedelya[n]) then

     For v:=1 to 4 do

     Writeln(vremya[v],’-‘,para[n].nomer[v],’-‘,para[n].nazvanie[v]);

     End;

     Procedure pvivod;

     Begin

     Writeln(‘введите предмет (строго соблюдайте правила верного написания слов)’);

     Readln(d);

     For n:=1 to 6 do

     For v:=1 to 4 do

     If (d=para[n].nazvanie[v]) then

     Writeln(nedelya[n],vremya[v]);

     End;

     Begin

     Vvod;

     Repeat

     Writeln(‘если хотите увидеть расписание на неделю, введите 1, на день – 2, на день и время – 3, когда проводится предмет - 4’);

     Writeln(‘хотите ввести новое расписание на неделю – 5, на день – 6, день и время – 7’);

     Readln(t);

     Case t of

     1:vivod;

     2:dvivod;

     3:vvivod;

     4:pvivod;

     5:vvod;

     6:izm;

     7:vizm;

     Else

     Writeln(‘Вы ошиблись! Не вводите никаких символов кроме указанных в инструкциях!’);

     End;

     Writeln(‘выйти из программы (да(ввести 1))/(нет(ввести 2))?’);

     Readln(p)

     Until (p=1);

     End.

ПРИЛОЖЕНИЕ  С

РЕЗУЛЬТАТЫ  ТЕСТОВЫХ ИСПЫТАНИЙ

     При пуске программы на экран оказывается  выведено следующее:

     понедельник

     09.00-10.35

     введите номер и название (строго следите  за правильностью написания слов)

     (я  ввожу - "1", затем жму "Enter", ввожу "культурология", затем вновь жму "Enter")

     10.45-12.20

     введите номер и название (строго следите  за правильностью написания слов)

     ("2", "культурология")

     13.00-14.35

     введите номер и название (строго следите  за правильностью написания слов)

     ("3", "английский язык")

     14.45-16.20

     введите номер и название (строго следите  за правильностью написания слов)

     ("4", "информатика")

     вторник

     09.00-10.35

     введите номер и название (строго следите  за правильностью написания слов)

     ("1", "вычмашины")

     10.45-12.20