Обучение начальных курсов методам программирования на языке Turbo Pascal

Для передвижения по тексту используются клавиши управления курсором и клавиши PgUp и PgDown. Необходимую информацию о программе можно получить воспользовавшись пунктом меню О программе.Выход из программы производится выбором пункта меню Выход. Для просмотра теории по теме Строковый тип данных производится выбором пункта меню Теория. 1 Краткая теория Строковые типы Значением строкового типа является последовательность символов с динамическим атрибутом длины в зависимости от действительного числа символов при выполнении программы и постоянным атрибутом размера в диапазоне от 1 до 255. Текущее значение атрибута длины можно получить с помощью стандартной функции Length. строковый тип string целое без знака Отношение между любыми двумя строковыми значениями устанавливается согласно отношению порядка между значениями символов в соответствующих позициях. В двух строках разной длины каждый символ более длинной строки без соответствующего символа в более короткой строке принимает значение больше например, Xs больше, чем X. Нулевые строки могут быть равны только другим нулевым строкам, и они являются наименьшими строковыми значениями.

К идентификатору строкового типа и к ссылке на переменную строкового типа можно применять стандартные функции Low и High. В этом случае функция Low возвращает 0, а High возвращает атрибут размера максимальную длину данной строки.

Параметр-переменная, описанная с помощью идентификатора OpenString и ключевого слова string в состоянии P, является открытым строковым параметром.

Открытые строковые параметры позволяют передавать одной и той же процедуре или функции строковые переменные изменяющегося размера. Конкретный элемент массива обозначается с помощью ссылки на переменную массива, за которой указывается индекс, определяющий данный элемент.Конкретный символ в строковой переменной обозначается с помощью ссылки на строковую переменную, за которой указывается индекс, определяющий позицию символа. индекс выражение , Индексные выражения обозначают компоненты в соответствующей размерности массива.

Число выражений не должно превышать числа индексных типов в описании массива. Более того, тип каждого выражения должен быть совместимым по присваиванию с соответствующим индексным типом. В случае многомерного массива можно использовать несколько индексов или несколько выражений в индексе.Например MatrixIJ что тождественно записи MatrixI,J Строковую переменную можно проиндексировать с помощью одиночного индексного выражения, значение которого должно быть в диапазоне 0 n, где n - указанный в описании размер строки. Это дает доступ к каждому символу в строковом значении, если значение символа имеет тип Char. Первый символ строковой переменной индекс 0 содержит динамическую длину строки, то есть LengthS тождественно OrdS0. Если атрибуту длины присваивается значение, то компилятор не проверяет, является ли это значение меньшим описанного размера стро- ки. Вы можете указать индекс строки и вне ее текущей динамической длины. В этом случае считываемые символы будут случайными, а присваивания вне текущей длины не повлияют на действительное значение строковой переменной.

Когда с помощью директивы компилятора X разрешен расширенный синтаксис, значение PChar может индексироваться одиночным индексным выражением типа Word. Индексное выражение задает смещение, которое нужно добавить к символу перед его разыменованием для получения ссылки на переменную типа Char. Открытые параметры позволяют передавать одной и той же процедуре или функции строки и массивы различных размеров.

Открытые строковые параметры могут описываться двумя способами - с помощью идентификатора OpenString - с помощью ключевого слова string в состоянии P. Идентификатор OpenString описывается в модуле System.

Он обозначает специальный строковый тип, который может использоваться только в описании строковых параметров. В целях обратной совместимости OpenString не является зарезервированным словом и может, таким образом, быть переопределен как идентификатор, заданный пользователем.

Когда обратная совместимость значения не имеет, для изменения смысла ключевого слова string можно использовать директиву компилятора P. В состоянии P переменная, описанная с ключевым словом string, является открытым строковым параметром.Для открытого строкового параметра фактический параметр может быть переменной любого строкового типа. В процедуре или функции атрибут размера максимальная длина формального параметра будет тем же, что у фактического параметра.

Открытые строковые параметры ведут себя также как парамет- ры-переменные строкового типа, только их нельзя передавать как обычные переменные другим процедурам или функциям. Однако, их можно снова передать как открытые строковые параметры.В следующем примере параметр S процедуры AssignStr - это открытый строковый параметр procedure AssignStrvar S OpenString begin S 0123456789ABCDEF end Так как S - это открытый строковый параметр, AssignStr можно передавать переменные любого строкового типа var S1 string10 S1 string20 begin AssignStrS1 S0123456789 AssignStrS2 S0123456789ABCDEF end В AssingStr максимальная длина параметра S та же самая, что у фактического параметра. Таким образом, в первом вызове AssingStr при присваивании параметра S строка усекается, так как максимальная длина S1 равна 10. При применении к открытому строковому параметру стандартная функция Low возвращает 0, стандартная функция High возвращает описанную максимальную длину фактического параметра, а функция SizeOf возвращает размер фактического параметра. В следующем примере процедура FillString заполняет строку заданным символом до ее максимальной длины.

Обратите внимание на использование функции High для получения максимальной длины открытого строкового параметра. procedure FillStrvar S OpenString Ch Char begin S0 ChrHighS задает длину строки FillCharS1, HighS, Ch устанавливает число символов end Значения и параметры-константы, описанные с использованием идентификатора OpenString или ключевого слова string в состоянии P, не являются открытыми строковыми параметрами.

Они ведут себя также, как если бы были описаны с максимальной длиной строкового типа 255, а функция Hingh для таких параметров всегда возвращает 255. uses crt,dos var i,j,i1,xinteger DI SearchRec textfarray1 800 of string79 procedure music begin sound800 delay200 nosound end procedure myerror sstring var cchar begin textbackground4 window10,10,70,16 clrscr textcolor15 write Внимание write write write write write gotoxy10,2 write В текущем каталоге нет файла ,s gotoxy15,3 write Без него не могу работать. textbackground1 gotoxy27,5 write Да cchr1 выдат звукавой сигнал music whilec chr13 do creadkey end procedure insx,y,wintegerct,ftinteger var l,iinteger attrbyte begin attrct16ft if lastmodeco40 then ly802x1 if lastmodeco80 then ly1602x1 il while i l2w do begin memb800iattr ii2 end end procedure hide var rregisters begin r.ah01 r.ch20 r.cl00 intr10,r end function myexitboolean var cchar i,xinteger begin window20,8,55,13 textbackground7 textcolor0 write Прекратить просмотр write write write write textbackground6 gotoxy8,3 write да textbackground3 gotoxy21,3 write нет ins20,12,36,7,0 ins55,12,1,7,0 ins55,11,1,7,0 ins55,10,1,7,0 ins55,9,1,7,0 ins55,8,1,7,0 cchr1 i1 x26 whilec chr13 do begin creadkey по ESC закрывает запрос if cchr27 then begin i2breakend if cchr0 then begin creadkey insx,9,7,15,3 if cchr77 then if i2 then begin x26i1end else begin x39i2end if cchr75 then if i2 then begin x26i1end else begin x39i2end insx,9,7,15,6 end end case i of 1myexittrue 2myexitfalse end end procedure obuch var n,cchar s,zxstring tboolean y,x,y1,minteger ftext begin window1,1,80,25 textbackground0 clrscr hide m1i1 window1,1,80,2 textbackground2 clrscr textcolor5 writeстрока 21 gotoxy20,1 window1,23,80,24 textbackground2 clrscr window1,2,80,23 textbackground1 clrscr textbackground7 window1,1,80,25 gotoxy20,1 gotoxy2,24 write ,char24 вверх gotoxy14,24 write ,char25 вниз gotoxy25,24 write PgUp - лист вверх gotoxy45,24 write PgDn - лист вниз gotoxy65,24 write ESC - выход textbackground1 textcolor15 window1,2,80,23 assignf,curswork.txt resetf whilei1andm 796 do begin readlnf,s if s1ands2ands3 then break textfms if m 22 then writelns mm1 end xm cchr1 m0 while c chr27 do begin creadkey if cchr27 then if myexit then cchr27 else begin cchr1 window1,2,80,23 textbackground1 clrscr textcolor15 for im to m21 do begin writelntextfi end end if cchr0 then begin creadkey if cchr81 then if m23 x-23 then mm21 else mx-21 if cchr73 then if m-23 1 then mm-21 else m0 if cchr80 and x-23 m then mm1 if cchr72 and m 0then mm-1 clrscr for im to m21 do begin writelntextfi end window1,1,80,25 gotoxy1,1 textbackground2 textcolor5 write gotoxy1,1 writeстрока ,m1 window1,2,80,23 textcolor15 textbackground1 end end textbackground0 window1,1,80,25 clrscr end function selectinteger var ominteger cchar begin omlastmode textmodeco40 textbackground0 hide window5,3,35,20 textbackground1 clrscr textcolor15 window1,1,40,25 gotoxy1,3 for i5 to 35 do begin gotoxyi,5 write- gotoxyi,20 write- end for i5 to 20 do begin gotoxy5,i write gotoxy35,i write end gotoxy5,20 write gotoxy5,5 write gotoxy35,20 write gotoxy35,5 write textcolor5 gotoxy5,3 write Строковый тип данных в TP 7.0 textcolor15 gotoxy12,8 writeТеория gotoxy12,10 writeПомощь gotoxy12,12 writeО программе gotoxy12,14 writeВыход ins5,x,29,1,2 cchr1 whilec chr13 do begin creadkey if cchr0 then begin creadkey ins5,x,29,15,1 if cchr80 then if i14 then begin x7i11end else begin xx2i1i11 end if cchr72 then if i11 then begin x13i14end else begin xx-2i1i1-1 end ins5,x,29,1,2 end end textmodeom case i1 of 1select1 2select2 3select3 4select4 end end procedure help var sstring ftext ibyte begin textmodeco80 hide window10,5,70,20 textbackground1 textcolor15 clrscr write Справка write write write write write write write write write write write write write Выход любая клавиша write assignf,help.txt resetf i2 while noteoff do begin gotoxy2,i readlnf,s if s1 and s2 then break writelns ii1 end closef readkey end procedure about var ftext qbyte sstring begin textmodeco80 hide window10,5,70,20 textbackground1 textcolor15 clrscr write О программе write write write write write write write write write write write write write Выход любая клавиша write assignf,about.txt resetf q2 while noteoff do begin gotoxy2,q readlnf,s if s1 and s2 then break writeln ,s qq1 end closef readkey end begin hide findfirstcurswork.txt,anyfile, di if doserror 0 then begin myerrorcurswork.txt halt1 end findfirsthelp.txt,anyfile,di if doserror 0 then begin myerrorhelp.txt halt1 end findfirstabout.txt,anyfile,di if doserror 0 then begin myerrorabout.txt halt1 end j1 i11 x7 while j1 do begin iselect case i of 1obuch 2help 3about 4begin textbackground0clrscrhaltend end end end. main Program BookPhone uses crt type MnChoice Char numstring10 StFio string30 Adressstring50 RecBook record Fio StFio Adress Adress numnum end var BookFile file of RecBook Work RecBook Vid MnChoice EndMenu boolean Name string30 procedures а д Procedure Box var x,y integer begin TextColor1 x 5y 3 GotoXYx,y write177 for x 6 to 76 do begin GotoXYx,y Write177 end for y 4 to 21 do begin GotoXYx,y Write177 end for x 75 downto 5 do begin GotoXYx,y Write177 end for y 20 downto 4 do begin GotoXYx,y Write177 end end Procedure WorkWindow var I,J Integer begin TextBackGround195 ClrScr Box Window6,4,75,20 TextBackGroundLightGray ClrScr TextColorBlack end ббвл ажгал Procedure NameFile begin WorkWindow Write в п д б л TextColor3 ReadlnName TextColorBlack ClrScr end Procedure CurrFile begin GotoXY1,1 Write гй TextColor3WritelnNameTextColorBlack end Procedure AddRec begin WorkWindow Write а п б TextColor4WriteFilePosBookFile1 TextColorBlack with Work do begin writeln TextColorBlack Write TextcolorLIghtRed Readlnfio TextColorBlack Write а вд TextColorLightRed Readlnnum TextColorBlack Write аб TextcolorLIghtRed Readlnadress TextColorBlack WriteBookFile,Work end end Procedure CreateBookPhone var Ind, Count integer begin NameFile WorkWindow AssignBookFile,Name RewriteBookFile Write о л д TextColorLightRedWritelnName TextColorBlack Write в збв б д TextColorLightRed ReadlnCount TextColorBlack for Ind 1 to Count do AddRec Writeln Writeln аи Writeln Writeln збв б д TextColorLightRedWritelnFilesizeBookFile CloseBookFile end Procedure OutputRec begin ReadBookFile,Work with Work do begin Writeln TextColorBlack Write а б TextColor4WriteFilePosBookFile TextColorBlack Writeln TextColorBlack writeln Write Textcolor4 writelnfio TextColorBlack Write а вд TextColor4 writelnnum TextColorBlack Write аб Textcolor4 writelnadress readkeyclrscr end end Procedure OutputAllRec begin NameFile WorkWindow AssignBookFile, Name I- ResetBookFile I if IOresult 0 then begin SeekBookFile, 0 setup on the 1-st record Writeln Write л д TextColor4 WritelnName while not EofBookFile do OutputRec end else if IOresult 0 then begin Write TextColor4 WriteName TextColorBlackWriteln end end Procedure UpdateRec var NumRec LongInt begin NameFile WorkWindow AssignBookFile,Name I- ResetBookFile I if IOresult 0 then begin Write а б п а ва п TextColor4 ReadlnNumRec TextColorBlack SeekBookFile,NumRec-1 Writeln в а п бм Writeln OutputRec SeekBookFile,NumRec-1 Readln Writeln в го бм AddRec CloseBookFile end else if IOresult 0 then begin Write TextColor4 WriteNameTextColorBlackWriteln end end Procedure AddRecToEnd begin NameFile WorkWindow AssignBookFile,Name I- ResetBookFile I if IOresult 0 then begin SeekBookFile,FileSizeBookFile AddRec Writeln Write д TextColor4WriteFileSizeBookfile TextColorBlackWriteln б CloseBookFile end elseif IOresult 0 then begin Write TextColor4WriteName TextColorBlackWriteln end end Procedure FindFio var BookFile file of RecBook Work RecBook Mask StFio RezFind boolean CountRec integer begin NameFile WorkWindow AssignBookFile, Name I- ResetBookFile I if IOresult 0 then begin Write в п б TextColor4ReadlnMask TextColorBlack Writeln RezFind False CountRec 0 while not EofBookFile do begin ReadBookFile,Work with Work do if PosMask,Fio 0 then begin RezFind True IncCountRec TextColorBlack Write Textcolor4 writelnfio textcolorblack writeа вд TextColor4 writelnnum TextColorBlack Write аб Textcolor4 writelnadress readkey end end if RezFind then Begin Writeln Write збв б п TextColor4WriteMaskWrite WritelnCountRec TextcolorBlack readkey End else Begin Write бм п TextColor4WriteMask TextColorBlackWriteln readkey End CloseBookFile end elseif IOresult 0 then Writeln ,Name, readkey end Procedure Findnum var BookFile file of RecBook Work RecBook PhMask num RezFind boolean CountRec integer begin NameFile WorkWindow AssignBookFile, Name I- ResetBookFile I if IOresult 0 then begin Writeв вд TextColor4 ReadlnPhMask TextColor0 Writeln RezFind False CountRec 0 while not EofBookFile do begin ReadBookFile,Work with Work do if PosPhMask,num 0 then begin RezFind True IncCountRec textcolor0 textcolor0 Write TextColor4 WritelnFio TextColorBlack write а вд textcolor4 writelnnum TextColorBlack Write аб Textcolor4 Writelnadress readkey end end if RezFind then Begin Writeln Write збв б п д readkey TextColor4WritePhMaskWrite - WritelnCountRec TextColorblack End elseif RezFind false then Begin Write бм п а TextColor4WritePhMask TextColorBlackWriteln readkey end CloseBookFile end else if IOresult 0 then Writeln ,Name, в б readkey end Procedure Findadress var BookFile file of RecBook Work RecBook PhMask adress RezFind boolean CountRec integer begin NameFile WorkWindow AssignBookFile, Name I- ResetBookFile I if IOresult 0 then begin Write в аб TextColor4 ReadlnPhMask TextColorBlack Writeln RezFind False CountRec 0 while not EofBookFile do begin ReadBookFile,Work with Work do if PosPhMask,adress 0 then begin RezFind True IncCountRec textcolor0 Write TextColor4 WritelnFio textcolor0 write а вд textcolor4 writelnnum textcolor0 Write аб Textcolor4 Writelnadress Writeln readkey end end if RezFind then Begin Writeln Write збв б п аб TextColor4WritePhMaskWrite - WritelnCountRec TextColorblack readkey End elseif RezFind false then Begin Write бм п аб TextColor4WritePhMask TextColorBlackWriteln readkey end CloseBookFile end else if IOresult 0 then Writeln ,Name, end Procedure FindCommon Begin Vid WorkWindow repeat TextColorRed Writeln о б TextColorBlack Writeln б вм Writeln 1 Writeln 2 дг Writeln 3 абг Writeln 4 о TextColorLightred ReadlnVid Case Vid of 1 д FindFio 2 findnum 4 endmenu True 3 findadress End TextColorBlack Writeln п ап в Enter Readln ClrScr until EndMenu EndMenu False End global BEGIN ClrScr WorkWindow NameFile NameBASA Vid EndMenu False repeat CurrFile Writeln TextColor15 Writeln Database volume 1 - Rus Writeln Copyright c Konstantin Inc 15 nov 1998 TextColor0 Writeln Writeln Writeln TextColorRed Writelnо TextColorBlack Writeln 1 C вм л д Writeln 2 абвавм б Writeln 3 P ва вм бм Writeln 4 вм бм Writeln 5 H в Writeln 6 Ceвм вгй д Writeln 7 Bле write TextColorLightred ReadlnVid case Vid of 1 д CreateBookPhone 2 OutputAllRec 3 UpdateRec 4 AddRecToEnd 5 FindCommon 7 л EndMenu true 6 NameFile end TextColorBlack Writeln п ап в Enter Readln ClrScr until EndMenu writeln writeln аа л агв а а в writeln writeln ббвл бвм- б - б багбв writeln writeln Kбв в ва writeln writeln ж writeln writeln аг Kбв в г ва . writeln writeln writeln writeln writeln writeln TextColorlightred writeln в ого иг readkey gotoxy1,1 END. Программа написана студентом МГГТК группы 432 Гарбузовым Константином Сергеевичем Программа предназначена для обучения начальных курсов методам программирования на языке Turbo Pascal, и в частности работе со строками.