Информационно-справочная система по науке и технике. Средства передвижения - Курсовая работа

Данная информационно-справочная система позволяет эффективно хранить необходимую пользователю информацию и осуществлять быструю навигацию по накопленному в базе материалу. 1. ПОСТАНОВКА ЗАДАЧИ Данный программный продукт должен содержать материал, соответствующий теме курсового проекта - Средства передвижения. То есть, если программный комплекс разрабатывался с учетом дальнейшего применения в физики, то он не совсем комфортным в работе по астрологии… Также необходимо учитывать и то, что подавляющее большинство аналогов разработаны для наиболее популярных операционных систем. ОБОСНОВАНИЕ ВЫБОРА ЯЗЫКА ПРОГРАММИРОВАНИЯ Данный курсовой проект написан на языке Turbo Pascal версии 7.0 Конечно, стоит отдать должное Паскалю как языку программирования за его наглядность при работе с такими общими для всех языков программирования темами, как структуры данных, рекурсия, способы и механизмы передачи параметров. Этот файл может быть корректироваться прямо в программе путем выбора необходимого пункта в главном меню. Для вывода имеющегося материала в информационно-справочной базе запускается отдельная процедура, которая инициализирует и читает текстовый файл с информацией о имеющихся информационных файлах и путь к ним на диске. Перемещения в файле: вверх, вниз, Page Up, Page Down, в начало или конец файла. Приложение Д Листинг программы Program InfBase; uses Crt; var FirstF,SecondF: Text; Reading: Array [1. .250] of String; Ch: Char; Down,Up,SizeF, i: Integer; WorkFile: String; Procedure Hiding (Param: Boolean); begin if Param = true then begin asm mov ah,01; mov cx,$0E0D; int $10; end; end; if Param = False then begin asm mov ah,01; mov cx,$2000; int $10; end; end; end; Procedure Writing; begin for i: =Up to Down do begin if i = Down then begin Write(Reading [i]); Break; end; Writeln(Reading [i]); end; end; Procedure SetFace (Txt,Bckgr: Byte); begin TextColor(txt); TextBackGround(bckgr); end; Procedure About; begin Window(1,1,80,25); Hiding(False); SetFace(White,Black); ClrScr; GotoXY(19,2); Write(Министерство образования и науки Украины); GotoXY(10,3); Write(Донецкий государственный институт искусственного интеллекта); GotoXY(25,9); Write(К У Р С О В О Й П Р О Е К Т); GotoXY(9,11); Write(по дисциплине: Основы программирования и алгоритмические языки); GotoXY(25,12); Write(на тему Средства передвижения); GotoXY(44,17); Write(Выполнил: студент группы ПО-03в); GotoXY(55,18); Write(Благирев Артем Михайлович); TextColor(Yellow); GotoXY(23,25); Write(Для продолжения нажмите Enter >>); repeat until keypressed; end; Procedure FileStatus; begin Window(44,1,79,1); SetFace(Black,Cyan); ClrScr; Write(Количество строк в файле: ,Down, / ,SizeF); Window(1,25,80,25); SetFace(7,Black); GotoXY(1,1); Write(Esc); GotoXY(57,1); Write( F1); GotoXY(29,1); Write( F10); Gotoxy(47,1); Write( F7); Gotoxy(68,1); Write( Alt Q); SetFace(Black,Cyan); GotoXY(4,1); Write( Информационный материал ); GotoXY(33,1); Write( Главное меню ); GotoXY(50,1); Write( Поиск ); GotoXY(60,1); Write( Помощь ); GotoXY(74,1); Write( Выход); Window(1,2,80,24); SetFace(11,Blue); ClrScr; end; Procedure ChoiceRF; Forward; Procedure MainMenu; FORWARD; Procedure Test; var TestFile,TF: Text; Vopros: Array [1. .10] of String [64] ; Answ: Array [1. .30] of String; PravAnsw: Array [1. .10] of Integer; StrTmp: String; Vau,CountTrue,q,yo: Integer; CountTest,g,a: Byte; begin CountTest: =0; a: =1; g: =0; CountTrue: =0; {$I-} Assign(TestFile,Base\test. txt); Assign(TF,Base\test. txt); Reset(TF); Reset(TestFile); If IOResult