Написание информационной системы "Учреждение образования" на языке программирования Паскаль. Обоснование алгоритма отдельных функциональных частей. Процедура вывода на экран меню и организации работы с ним. Просмотр записей. Разработка тестовых приемов.
Аннотация к работе
Разработка программы 4. Поэтому так важен скоростной доступ к полной и отсортированной информации. ВЫБОР МЕТОДА РЕАЛИЗАЦИИ ЗАДАЧИ 1.1 ОБОСНОВАНИЕ МЕТОДА РЕАЛИЗАЦИИ ЗАДАЧИ Для написания информационной системы «Учреждение образования» будет выбран язык программирования Паскаль. Такая запись существенно улучшает понимание программы, а возможность автоматического перевода упрощает переход к профессиональным средам программирования. После нажатия клавиши ESC произойдет выход в главное меню. После нажатия клавиши ENTER на экране появится запрос, как и при создании новой записи - со всеми полями, нам необходимо ввести ключевые поля поиска. После нажатия клавиши ENTER в левом нижнем углу (где ранее выводилась справочная информация о, выведется следующая информация Сачевичик Алексей, АС-563 январь 2013 г.) и после нажатия клавиши ESC произойдет выход в главное меню. : ,Имя : ,Отчество : ,Год пост.: ); FILENAME:string = Base.imm;ARCHIVNAME:string = Archiv.rar; STR1=г= ДЕТАЛИ ====================¬; STR2=г= КРАТКИЕ ДАННЫЕ ===========¬; STR3=г= ИНФОРМАЦИЯ ================¬; Var c:char; z:word; cod1,cod2,cod3,cod4,c1,c2,c3,c4,i,last1,last2,lastfile:integer; s:string; f,f1:FileType; Man:Record_Base; ramka,n,flag,archiv:boolean; Procedure enter(x,y:integer;max:integer;mode:string;var flag:boolean;var str:string); var s:string; c:char; Begin s:=mode; while keypressed do c:=readkey; repeat gotoxy(x,y); for i:=1 to max do write( ); gotoxy(x,y); write(s); repeat c:=readkey;if ord(c)=0 then begin c:=readkey; c:=#0; end; until (ord(c)