Бусыгин Б.С., Коротенко Г.М., Коротенко Л.М. Введение в современную информатику

Подождите немного. Документ загружается.

330

Procedure VectInput(Var Vect : VectorType;

n : Integer);

{ VvodVect – процедура ввода вектора из n елементов}

Function CosFi (Var X, Y : VectorType; n : Integer) : Real;

{ CosFi – функция для вычисления косинуса угла между векторами}

{ Z1, Z2 – одномерные массивы с компонентами векторов}

{ n – количество компонентов каждого из векторов}

Implementation

Procedure VectInput; {Списка параметров здесь нет!}

Var

i : Integer;

Begin

for i:=1 to n do

begin

Write('Vect[', i, '] = ');

ReadLn(Vect[i]);

end

End; {Proc VvodVect}

Function CosFi; {Списка параметров здесь нет!}

Var

XY, SumX, SumY : Real;

i : Integer;

Begin

XY := 0;

SumX := 0;

SumY := 0;

for i:=1 to n do

begin

XY := XY + X[i]*Y[i];

SumX := SumX + X[i];

SumY := SumY + Y[i];

end;

CosFi := XY / (sqrt(SumX)*sqrt(SumY));

End; {Func CosFi}

Begin {Массивы XX и YY инициализируем для использования в программе}

ClrScr;

WriteLn('Введите по 3 компонента массивов XX и YY:');

for j:=1 to 3 do

begin

Write('XX[', j, '] = ');

ReadLn(XX[j]);

Write('YY[', j, '] = ');

ReadLn(YY[j]);

end

End.

{Unit

MyUnit

}

Рис. 8.63. Структура модуля, для вычисления углов между векторами

(продолжение)

331

Теперь, когда мы имеем

свой личный модуль, нужно

сделать так, чтобы этим

модулем можно было

пользоваться в Вашей

программе. Скорее всего до

этого момента Вы не обращали

внимание на то, что Ваши

программы при нажатии

клавиш

Alt+F9 компилируются

в памяти ПК (рис. 8.64). Для

модулей удобнее, чтобы они

сохранялись где то на жёстком

диске. Чтобы установить такой

режим компилирования, нужно

выбрать опцию

Compile 

Destination и нажать клавишу

Enter

. Если после этого Вы

откроете меню опции Compile,

то увидите следующие изме-

нения (рис. 8.65).

Однако, не спешите

компилировать свой модуль,

так как существует ещё

несколько тонкостей в этом

процессе... Дело в том, что в

Турбо Паскале необходимо

обязательно указывать каталоги (директории), куда при компиляции будут

сохранены

EXE и TPU файлы (EXE & TPU Directories), а также откуда потом

брать модули, которые подключаются к

Вашей программе (

Unit Directories).

Для начала, нажатием клавиш

Alt+O,

откройте меню опции

Options, а в ней

выберите команду

Directories (рис. 8.66). При

этом появится меню

Directories (рис. 8.67). В

строке

EXE & TPU Directories укажите адрес,

куда Вы сохраняете откомпилированный

модуль. Помните, что исходный файл должен

иметь то же самое имя, что и название

модуля с расширением

PAS (MYUNIT.PAS).

После компиляции в указанный Вами каталог,

полученный файл будет иметь точно такое же

имя, но с расширением

TPU – Turbo Pascal

Unit (модуль Турбо Паскаля).

Рис. 8.64. Стандартная установка опции

Compile  Destination

Рис. 8.65. Установка опции Compile 

Destination  Disk

для сохранения модуля на

жёстком диске

Рис. 8.66. Меню опции Options

332

Следует также сообщить компилятору ТП, из какого каталого нужно взять

откомпилированный модуль. Для библиотечных модулей этот маршрут

известен – каталог

C:\BP\Unit, куда при инсталляции Турбо Паскаля

устанавливаются все библиотечные модули. Откомпилированные лично Вами

модули лучше сохранять в отдельном каталоге, который следует указать после

точки с запятой в строке

Unit Directories меню Directories (рис. 8.67).

Сформулируем этапы Ваших действий по созданию личного модуля (

Unit):

1. Наберите текст Вашего модуля (

Unit MyUnit;) и сохраните его в

соответствующем каталоге (

D:\TEMP\2) под названием, совпадающем с именем

модуля и с расширением .

PAS (MYUNIT.PAS).

2. Нажатием клавиш

Alt+C откройте меню опции Compile, выберите

опцию

Compile  Destination и нажмите клавишу Enter, для компиляции

модуля на диск (рис. 8.64).

3. Нажатием клавиш

Alt+O откройте меню опции Options, а в ней

выберите команду

Directories (рис. 8.66). При этом, появится меню Directories

(рис. 8.56). В строке

EXE & TPU Directories укажите, куда Вы желаете

сохранить откомпилированный модуль.

4. В строке

Unit Directories меню Directories (рис. 8.67) укажите через

точку с запятой свой каталог, где расположен Ваш модуль (

; D:\TEMP\2).

5. Подключите свой модуль к программе в строке оператора Uses:

Uses Crt, MyUnit; {Только после библ. модулей ТП!}

Теперь пришло время заняться самой программой. Надеемся, что для Вас

это не будет очень сложным делом (рис. 8.68).

Рис. 8.67. Меню опции Directories

Program MyUnitProg;

Uses Crt, MyUnit; {Личный модуль описываем после имени модуля ТП}

Var

X1, Y1 : VectorType; {Тип VectorType используем из модуля

MyUnit}

m : Integer;

Рис. 8.68. Програма, используящая модуль MyUnit

333

Обязательно выполните самостоятельно эту программу с модулем

MyUnit, который необходимо подготовить заранее.

Упражнение

1. Разработать программный модуль ТП, который должен включать:

– процедуру ввода вектора из n элементов;

– процедуру вычисления вектора, который равен сумме двух векторов;

– функцию, которая находит наибольший компонент вектора;

– процедуру вывода векторов на экран ПК.

2. Разработать программный модуль ТП, который должен включать:

– процедуру ввода вектора из n элементов;

– процедуру вычисления вектора, который равен произведению вектора

на скаляр;

– функцию, которая находит наименьший компонент вектора;

– процедуру вывода векторов на экран ПК.

3. Разработать программный модуль ТП, который должен включать

операции с комплексными числами, и программу, которая его использует.

Begin

ClrScr;

WriteLn('Угол между векторами X и Y’,

‘ с тремя компонентами = ’,

CosFi (XX, YY, 3)); { Используем инициализированные}

{ в модуле MyUnit массивы XX и YY,}

{ а также функцию CosFi}

WriteLn('Введите 4 компонента массива X1:');

VectInput(X1, 4); { Используем процедуру VectInput,}

{ которая описана в модуле MyUnit}

WriteLn('Введите 4 компонента массива Y1:');

VectInput(Y1, 4);

WriteLn('Угол между векторами X1 i Y1’,

‘с четырьмя компонентами = ',

CosFi (X1, Y1, 4)); { Используем массивы X1 i Y1,}

{ которые описаны в программе}

ReadLn

End.

Рис. 8.68. Программа, использующая модуль MyUnit (продолжение)

334

8.25. Обработка символов и строк

В семействе персональных компютеров IBM PC используется 256

разноообразных символов. Они имеют свои числовые коды, значения которых

лежат в диапазоне от 0

до 255

, то есть общее количество символов равно

256-ти. Когда Вы нажимаете клавишу на клавиатуре, это приводит к тому, что в

компьютер посылается сигнал в виде двоичного числа, которое ставится в

соответствие кодовой таблице, то есть внутреннего представления символов в

компьютере. Во всём мире в качестве стандарта прийнята таблица ASCII

(American Standard Code for Information Interchange – Американский стандартный

код обмена информацией). Она указывает на соответствие между

изображениями или условными обозначениями символов и их внутренними

числовыми кодами. Для сохранения двоичного кода одного символа в этом

стандарте выделен 1 байт, который содержит 8 бит. Исходя из того, что каждый

бит принимает значения “0” или “1”, количество возможных их сочетаний в

байте равно 256.

Кроме того, в компьютерах IBM PC существуют особые комбинации

клавиш (табл. 8.47).

Таблица 8.47

Особые комбинации клавиш

Комбинации клавиш Действия, которые производятся

Ctrl+Alt+Del

Ctrl+NumLock

Ctrl+Break

Shift+PrtSc

Запрос на перезапуск компьютера

Остановка работы программы

Прерывания (завершение) работы программы

Копирование изображения с экрана на принтер

Кодовая таблица допускает представление следующих групп символов:

 управляющие символы;

 знаки арифметических операций, служебные символы и цифры;

 буквы латинского алфавита;

 буквы национальных алфавитов;

 символы псевдографики;

 математические символы.

Управляющие символы используются для специальных целей управления

печатными устройствами. К ним относятся маркеры и ограничители при

записи, чтении и передаче информации. Наибольший интерес представляют

символы Line Feed (LF – код 10) и Carriage Return (CR – код 13). Они

встретятся нам при работе с текстовыми файлами в п. 8.26.7.

Язык Турбо Паскаль поддерживает стандартный символьный тип Char,

каждый элемент данных которого занимает в памяти 1 байт. Его значения Вы

можете задавать в виде символов, ограничиваемых кавычками:

‘A’, ‘a’, ‘1’ и так далее.

335

Обратите внимание и на то, что ‘1’ – это символ единицы с кодом 49

, а

представить его можно (также, как и другие ASCII-символы), с помощью его

ASCII-кода, функции

Char() и специального префикса # (“шарп”) ( см.

Приложение 6). Таким образом:

#49



Char(49)



‘1’ {Равноценные представления ‘1’}

Write( #49 );



Write( Char(49) );



Write( ‘1’ ); {Вывод на

экран символа ‘1’}

Для работы с ASCII-символами используются полезные встроенные

функции языка Турбо Паскаль (табл. 8.48).

Таблица 8.48

Функции работы с ASCII-символами

Функция : Тип Назначение

Chr(X : Byte) : Char

Ord(C : Char) : Byte

Возвращает символ из таблицы ASCII по

целочисленному значению X

Возвращает порядковый номер символа C

в таблице ASCII-кодов

То есть:

Ord(Char(49))

⇒

49.

Для лучшего знакомства с символами, попробуйте самостоятельно

ознакомиться с тем, как выглядит таблица ASCII-символов на Вашем

компьютере. Для этого можно реализовать и запустить на выполнение

следующую программу (рис. 8.69).

Program ASCIIChar;

Uses Crt;

Var

i : Integer; {Переменная цикла}

StartCode, EndCode, {Начальный и конечный коды символов}

XStart, YStart : Byte; {Позиции вывода на экран}

Procedure ShowChar(FirstCharCode, {Начальный код символа}

LastCharCode, {Конечный код символов}

X, Y : Byte); {Позиции вывода символа на экран}

Begin

while FirstCharCode<=LastCharCode do

begin

GotoXY(X,Y); {Установим курсор в позицию X,Y}

Write((FirstCharCode):4); {Выведем код символа}

GotoXY(X,Y+1);{Установим курсор в позицию X,Y+1}

Write(' ', Chr(FirstCharCode), ' '); {Выводим символ}

Inc(FirstCharCode); {Увеличим код символа на 1}

Inc(X,4); {Увеличим координату столбца на 4}

Delay(3000) {Задержим выполнение программы на 3 сек.}

end;

End; {Proc ShowChar}

Рис. 8.69. Вывод ASCII-символов на экран компьютера

336

После выполнения программы на экране компьютера можно увидеть

порядковые номера (коды) и соответствующие им символы из таблицы ASCII

(рис. 8.70):

Среди многих других, в таблице присутствуют символы русского и

украинского алфавита. Эти символы заносятся в кодовую таблицу

специальными программами, называемыми драйверами клавиатуры. Среди них

наиболее широко распространённой является программа KeyRus.com, которую

разработал Д. Гуртяк из г. Донецка, Украина.

Begin {Основная программа}

ClrScr; {Очистим экран}

StartCode:=33; {Пропускаем управляющие символы}

EndCode:=52; {Выводим по 19 символов в строке}

XStart:=1; {Начинаем с первой позиции экрана X}

YStart:=1; {Начинаем с первой позиции экрана Y}

for i:=1 to 10 do

begin

ShowChar(StartCode,EndCode,XStart,YStart);

Inc(StartCode,20); {Переходим к следующей порции символов}

Inc(EndCode,20); {Переходим к следующей порции символов}

Inc(YStart,2); {Переводим курсор на две строки ниже}

end;

ReadLn {Задерживаем екран до нажатия клавиши Enter}

End.

Рис. 8.69. Вывод ASCII-символов на экран компьютера (продолжение)

Рис. 8.70. Вывод на экран ПК ASCII-символов и их кодов (номеров)

337

Однако, вернёмся к вышеприведенной программе (рис. 8.69). При её

разработке использовались некоторые встроенные процедуры Турбо Паскаля, о

назначении которых следует сказать подробнее (табл. 8.49).

Таблица 8.49

Стандартные (встроенные) процедуры ТП

Процедура Назначение

Inc(Var X:Integer)

Увеличивает значение X на 1

Dec(Var X:Integer)

Уменьшает значение X на 1

Inc(Var X:Integer;

N:Integer)

Увеличивает значение X на N

Dec(Var X:Integer;

N:Integer)

Уменьшает значение X на N

GotoXY(X,Y : Byte)

Устанавливает курсор в столбец X и строку Y

(находится в модуле Crt)

Delay(ms : Word)

Задерживает процесс (держит паузу) на ms

миллисекунд (находится в модуле Crt)

Обратите внимание на то, что процедуры Inc и Dec имеют, так же, как и

процедуры

Writeln и Readln, переменное количество параметров. А после

того, как процедура GotoXY устанавливает курсор в столбец X и строку Y,

следующая операция вывода текста на дисплей размещает первый символ в

позицию строки, соответствующей позиции (X, Y). При этом, процедура

GotoXY использует систему координат текущего текстового окна, где

координаты (1,1) соответствуют его левому верхнему углу (рис. 8.71).

Если аргументы процедуры

GotoXY оказываются вне текущего окна, то её

вызов не оказывает никакого действия. Минимальные разрешённые значения

для X и Y всегда равны 1, а максимальные (по умолчанию) соответственно

X=80

Y=25.

(1,1), (2,1), . . . , (80,1)

(1,2), (2,2), . . . , (80,2)

. . .

(1,25), (2,25), . . . , (80,25)

Рис. 8.71. Координаты позиций окна при использовании процедуры

GotoXY

338

С точки зрения прорисовки на экране разнообразных прямоугольных

рамок с помощью одинарных и двойных линий, наиболее полезными являются

символы с кодами 179-218 (рис. 8.72). Увидеть их можно следующим образом:

 нажмите клавишу Alt;

 не отпуская её, наберите соответствующий код символа псевдографики

на дополнительной (серой) цифровой клавиатуре;

 отпустите клавишу Alt, и тогда соответствующий символ появится на

экране.

Так как комбинирование символов псевдографики между собой

достаточно сложное дело, то Вам будет полезна информация, приведенная на

рис. 8.61.

Следует отметить, что и интерфейс самого Турбо Паскаля построен с

использованием вышеуказанных символов.

8.25.1. Операции над символами

Символы можно только сравнивать друг с другом и присваивать

переменным. При этом они считаются равными, если равны их ASCII-коды, а

бŏльший из них тот, который имеет бŏльший ASCII-код (рис. 8.73).

196

194

191

179

195

192

193

217

180

218

197

201

205

203

187

206

202

204

186

185

188

200

Рис. 8.72. Символы для рисования рамок

Program Comparison;

Var

Char1, Char2 : Char;

Begin

Char1:=’A’; {Код символа ’A’ равен 65 (рис. 8.70)}

Char2:=’a’; {Код символа ’a’ равен 117 (рис. 8.70)}

if Char1 < Char2 then {Сравниваем символы}

WriteLn(‘Первый символ меньше второго’);

ReadLn

End.

Рис. 8.73. Сравнение двух символов

339

8.25.2. Опрос клавиатуры

Чтобы организовать программно опрос клавиатуры при вводе символов

нам понадобятся две процедуры. Первая из них “очищает” буфер клавиатуры

(рис.8.74).

В этой процедуре встроенная функция KeyPressed возвращает

логическое значение True, если в буфере ввода с клавиатуры находится хотя

бы один символ, и False, если буфер пуст.

Когда программа стартует, буфер естественно пустой. Однако, любое

нажатие символьной клавиши (кроме клавиш регистров

Ctrl, Shift, Alt и

переключателей типа

NumLock, CapsLock и т.д.) занесёт её код в буфер. Коды в

буфере будут сохраняться до тех пор, пока они не будут считаны или буфер не

будет очищен самой программой.

Функция ReadKey как бы “вынимает” последовательно введенные в

буфер символы по одному за каждое обращение. Эта функция всегда

возвращает только один символ, то есть одно значение типа Char. Однако у

неё есть две важные особенности:

 полученные символы никогда не отображаются на дисплее, то есть ввод

символа всегда осуществляется “ вслепую ”;

 режим работы ReadKey зависит от состояния буфера ввода: содержит

ли он символы или пуст. Если в буфере что то есть, то ReadKey вернёт первый

символ в буфере (тот, который был введён ранее всех) и удалит этот символ из

буфера. Но если символы в буфере отсутствуют, то функция ReadKey

приостанавливает работу программы и ожидает, пока не будет нажата какая

либо клавиша, генерирующая символьный код.

Эти её особенности можно использовать для построения нескольких

полезных конструкций (здесь переменная ch должна иметь тип Char):

while KeyPressed do

ch:=ReadKey; {Очистка буфера ввода}

repeat until

KeyPressed; {Ожидание нажатия любой клавиши}

{Файл ClrKey.inc}

Procedure ClrKeyBuf;

Var

ch : Char;

Begin

while KeyPressed do

ch:=ReadKey

End; {Proc ClrKeyBuf}

Рис. 8.74. Процедура “очистки” содержимого буфера клавиатуры