Основы технологии программирования
write(menu[punkt]);
punkt:=punkt-1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
end; {case … of }
end
else
if ch=chr(13) then { нажата клавиша <Enter>}
begin
case punkt of
: punkt1;
: punkt2;
: ch:=chr(27) ; {выход}
end;
Menutoscr;
End;
until ch= chr(27) ; {27 - код <Esc>}
End.
ПРИЛОЖЕНИЕ 1
Волжский университет имени В.Н. Татищева
Кафедра “Информатика и системы управления”
КУРСОВАЯ РАБОТА
по дисциплине : “Основы технологии программирования”
Тема: “Регистрация участников конференции”
Выполнил: студент гр. ЭК-105
Иванов И.И.
Преподаватель: Матвеева Н.В.
Тольятти 1999
ПРИЛОЖЕНИЕ 3
Волжский университет имени В.Н. Татищева
Кафедра “Информатика и системы управления”
Специальность: 071900 “Информационные системы”
ЗАДАНИЕ
на курсовой проект по дисциплине
“Основы технологии программирования”
Студенту__________________________________________________________
Группа___________________________________________________________
Тема проекта__________________________________________________________
Календарный график задания________________________________________
СОДЕРЖАНИЕ ЗАДАНИЯ
__________________________________________________________________
Руководитель курсовой работы
Студент