Расписание занятий (стр. 5 из 5)
ПРОЦЕДУРА VIZM  | |
 | |
 | |
да нетнет да
ПРИЛОЖЕНИЕ В
ЛИСТИНГ ПРОГРАММЫ
Program kursovayaZOPBOEVIS092;
Uses CRT;
Const
Nedelya:array[1..6] of string=(‘понедельник’,’вторник’,’среда’,’четверг’,’пятница’,’суббота’);
Vremya:array[1..4] of string=(’09.00-10.35’,’10.45-12.20’,’13.00-14.35’,’14.45-16.20’);
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;
Procedurevizm;
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;
Procedurevvivod;
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;
Proceduredvivod;
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;
Procedurepvivod;
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