Создадим ту же программу, что и Prim 47, только пообъектно, тогда процедуру Org запишем в C:\TURBO\Org1.pas, процедуру Obr – в C:\TURBO\Orb1.pas, процедуру Rash – в C:\TURBO\Rash1.pas, а вызывающую (основную программу – в C:\TURBO\Prim. 48, в которой предусмотрим подключение объектов – процедур Org, Obr, Rash к основной программе через директивы компилятора $i.
   procedure Org1;
     begin
       assign(bf,'C:\TURBO\bibl.dos');
               Rewrite(bf);
          with rb do
          while True do
        begin   writeln('ввести номер книги');
                   readln(nomer);
                   if nomer=9999 then
               begin  close(bf);  Exit;
               end;
                   writeln('ввести имя автора');
                   readln(avtor);
                   writeln('ввести название книги');
                   readln(nazv);
                   writeln('ввести название индекса');
                   readln(index);
                   write(bf,rb);
         end;
    end;
  procedure Obr1;
    begin 
             Assign(bf,'C:\TURBO\bibl.dos');
             Reset(bf);
     with rb do
             while not eof(bf) do
        Begin read(bf,rb);
             writeln(nomer:5,avtor:16,Nazv:10,index:6);
        end;
             Close(bf);
          writeln('нажмите enter'); readln;
    end;
procedure Rash1;
       begin Assign(bf,'C:\TURBO\bibl.dos');
             Reset(bf);
             Seek(bf,Filesize(bf));
             with rb do
             while True do
        begin writeln('введите номер'); readln(nomer);
             if nomer=9999 then begin Close(bf);exit end;
             writeln('введите имя автора');       readln(avtor);
             writeln('введите название книги');   readln(nazv);
             writeln('введите значение индекса'); readln(index);
             write(bf,rb);
        end;end;
Работу построим в режиме меню.
Program Prim48;
     label M;
     type books=record     
           nomer:integer;
           avtor:string[16];
           nazv:string[30];
           index:integer;     end;
      Var  bf:file of books;
           rb:books;  regim:byte;
      {$i C:\TURBO\Org1.pas}
      {$i C:\TURBO\Obr1.pas}
      {$i C:\TURBO\Rash1.pas}
   BEGIN 
       M: writeln('введите режим работы');
           writeln('1 – создание, 2 – обработка',
                   '3 – расширение, 4 – выход');
           readln(regim);
           case regim of
        1:Org1;
        2:Obr1;
        3:Rash1;
        4:Exit;  else writeln('неправильно задан режим'); end;
                goto M;              
    END.
Для обеспечения работы с различными именами файлов имя файла вначале запрашивается, а затем передается в процедуры. Таким образом, мы можем создавать несколько файлов, содержащих данные о книгах, их обрабатывать, расширять и т.п.
Program Prim49;
      label M1,M2 ;
    type books=record     
           nomer:integer;
           avtor:string[16];
           nazv:string[30];
           index:integer;     end;
      Var  bf:file of books;
           rb:books;  regim:byte; si:char; fl:string;
      {$i C:\TURBO\Org.pas}
      {$i C:\TURBO\Obr.pas}
      {$i C:\TURBO\Rash.pas}
   BEGIN
          M1: writeln('где будет храниться файл? диск:\каталог\имя'),
              readln(fl);
          M2: writeln('введите режим работы');
              writeln('1 – создание, 2 – обработка',
                   '3 – расширение, 4 – выход');
              readln(regim);
           case regim of
        1:Org;
        2:Obr;
        3:Rash;
        4:begin writeln('будем ещё работать с файлами? - "Y"');
                writeln('или конец работы – любая клавиша');
                readln(si);
                if (si='Y')or(si='y') then goto M1 else HALT; end;
          else begin writeln('неправильно задан режим');
                goto M2; end; end; goto M2;
    END.
Procedure Org2;
     begin
       assign(bf, fl);
               Rewrite(bf);
          with rb do
          while True do
        begin   writeln('введите номер книги');
                   readln(nomer);
                   if nomer=9999 then
               begin  close(bf);  Exit end;
                   writeln('введите имя автора');
                   readln(avtor);
                   writeln('введите название книги');
                   readln(nazv);
                   writeln('введите значение индекса');
                   readln(index);
                   write(bf,rb);
        end; end;
Procedure Obr2;
    begin 
             Assign(bf, fl);
             Reset(bf);
     with rb do
             while not Eof(bf) do
        begin read(bf, rb);
             writeln(nomer:5,avtor:16,Nazv:10,index:6);
        end; Close(bf);
end;
Procedure Rash2;
       begin assign(bf, fl);
             Reset(bf);
             Seek(bf,Filesize(bf));
             with rb do
             while True do
        begin writeln('введите номер'); readln(nomer);
             if nomer=9999 then begin Close(bf);Exit end;
             writeln('введите имя автора');       readln(avtor);
             writeln('введите название книги');   readln(nazv);
             writeln('введите значение индекса'); readln(index);
             write(bf,rb);
        end;end;
10.5. Файлы произвольного доступа
Файлы произвольного доступа используются при наличии зависимости значения какого-либо поля компоненты от ее порядкового номера в файле. Порядковый номер компоненты иногда называют ключом компоненты файла.
Организовать файл произвольного доступа можно двумя способами:
1.                 Создать последовательный файл и обращаться к компонентам по порядковому номеру, трактуя последовательный файл как файл прямого доступа.
2.                 Создать файл фиктивных (с пустыми полями) компонент, затем загрузить его по ключу фактическими данными. этот способ – создание файла с фиктивными компонентами – называется форматизацией.
Пример. Форматировать файл произвольного доступа из 20 компонент c:\turbo\bibl.dos. Структура компонент такая же, как и в Prim 47–49. Оформим алгоритм в виде процедуры form, запишем ее в c:\turbo\form.pas.
Procedure form;
Begin writeln ('дайте имя форматизируемому файлу');
readln(filname);
assign(booksfile, filname);
rewrite(booksfile);
          with recbooks do
 Begin writeln ('на сколько записей форматировать файл?');
readln(razmer);
 for i:=l to razmer do
Begin nomer:=i; avtor:=' '; index:=0; nazv:=' ';
write ( books file, recbooks)
end; end; writeln(фopматизация ',razmer,' запись выполнена');
           close(booksflle); end;
Напишем процедуру загрузки (procedure zagruz), которая будет заменять поля фиктивных записей реальными значениями, и запишем ее в c:\turbo\zagruz.pas;
   procedure zagruz;      Begin writeln('дать имя загружаемого по ключу файла');
              readln(filname);
              assign(booksfile,filname);  reset(booksfile);
              writeln('сколько записей будете вводить?'); readln(k);
              with recbooks do
        Begin for i:=1 to k do
        Begin writeln('введите номер');   readln(nomer);
              writeln('введите имя автора');      readln(avtor);
              writeln('введите название книги');  readln(nazv);
              writeln('введите индекс');          readln(index);
          seek(booksfile,nomer-1);    { номера компонент начинаются с 0 }
              write(booksfile,recbooks); end; end;
              close(booksfile); end;
Оформить процедуру прямого доступа по ключу к компонентам файла и выдачу их на экран монитора, записать ее в C:\TURBO\OBRAB.PAS;
Procedure Obrab;
     Begin writeln('дайте имя файла');  readln(filname);
           assign(booksfile,filname);  reset(booksfile);
           while true do
       Begin writeln('укажите ключ обрабатываемой записи'); readln(k);
           if k=9999 then Begin close(booksfile); exit; end;
           seek(booksfile,k-1);
           with recbooks do Begin read(booksfile,recbooks);
           writeln(nomer:5,avtor:16,nazv:15,index:4);
           end; end; end;
Написать процедуру корректировки файла произвольного доступа в которой будут предусмотрены режимы корректировки:
1.                 Замена всех полей компоненты.
2.                 Расширение файла в пределах отформатированного пространства.
все это делает процедура Кооr, записанная в c:\turbo\koor.pas.
   Procedure Koor;   
 Var  nevavtor:string[16]; nevnazv:string[30]; nevindex:integer;   
Begin writeln('дайте имя файла'); readln(filname);   
      assign(booksfile,filname); reset(booksfile);    
     with recbooks do
   Begin writeln('сколько записей будете корректировать?'); readln(k);
          for i:=1 to k do
   Begin writeln('дайте номер корректируемой записи'); readln(k1);
         nevavtor:=' '; nevnazv:=' '; nevindex:=0;
         writeln('введите имя автора');      readln(nevavtor);
         writeln('введите название книги');  readln(nevnazv);
         writeln('введите индекс');          readln(nevindex);
         avtor:=nevavtor; nazv:=nevnazv;  index:=nevindex;
       seek(booksfile,k1-1);  write(booksfile,recbooks);
    end; end; close(booksfile); end;
В программе Prim 50, с помощью меню рассматриваются работа с файлами произвольного доступа во всех режимах; форматирование файла, его загрузка, обработка, корректировка. Здесь следует заметить, что программа универсальна в том смысле, что может работать с различными файлами.
              Program Prim50;
      Type books=record
           nomer:integer;        avtor:string[16];
           nazv:string[30];      index:integer;     end;
      Var  booksfile:file of books;
           recbooks:books;      razmer,k,k1,i,reg:integer;
           filname:string[12];
          {$i c:\turbo\form.pas}
          {$i c:\turbo\zagruz.pas}
          {$i c:\turbo\obrab.pas}
          {$i c:\turbo\koor.pas}
   Begin      while true do
        Begin writeln('укажите режим');
              writeln('1: форматизация');
              writeln('2: загрузка по ключу');
              writeln('3: обработка по ключу');
              writeln('4: корректировка');
              writeln('5: выход из программы');
              readln(reg);
              case reg of 1:form; 2:zagruz; 3:obrab; 4:koor; 5:halt;
   end;
end;
 end.
10.6. Текстовые файлы
Компонентами текстовых файлов являются строки. Длина строки – 0-255 символов. Каждая строка завершается маркером строки, а файл – маркером конца файла. Для описания файловых переменных текстового типа используется зарезервированное слово text.
Var instrl, instr2: text;
dokulnent: text;
Для работы с текстовыми файлами используются упомянутые выше функции и процедуры assign, rewrite, reset, close, read, readln, write, writeln, seekeof, однако имеются и специфические функции и процедуры:
Append (fv) – открыть текстовый файл и установить указатель на маркер конца файла.
Eoln (fv) – возвратить true, если указатель файла достиг маркера конца строки, в противном случае, возвратить значения false.
Seekeoln(fv) – функция, аналогичная предыдущей, но указатель проходит все пробелы и знаки табуляции. возвращает true при достижении маркера конца строки.
Seekeof(fv) – возвращает true, если указатель файла находится на маркере конца файла.
Организация текстового файла производится по схеме:
1) объявляется файловая переменная текстового типа;
2) присваивается файлу имя (assign);
3) открывается файл (rewrite);
4) подготавливается строка - компонента для записи в файл;
5) записывается строка - компонента в файл (writeln);
6) повторяются п. 4, 5 столько раз, сколько нужно;
7) закрывается файл.
Доступ к компонентам текстового файла:
1) присвоить файлу имя (assign);
2) открыть файл для чтения (reset);
3) прочитать компоненту-строку (readln);
4) обработать компоненту-строку (например вывести на экран);
5) повторить п. 3, 4 столько раз, сколько нужно.
6) закрыть файл (close);
Расширение текстового файла производится путем добавления в конец файла компонент-строк:
1) присвоить имя файлу (assign);
2) установить маркер на конец файла (append);
3) подготовить строку для записи;
4) записать строку (writeln);
5) повторить нужное количество раз п. 3, 4.
6) закрыть файл (close).
Замечание. При записи файлов прямого и последовательного доступа, созданных пользователем, содержимое компонент упаковывается, и поэтому посмотреть их в vc или nc по f3 или f4 нельзя, а текстовый файл не упаковывается, и его можно просмотреть.
 procedure sozdt;
   Begin  writeln('дайте имя создаваемому текстовому файлу');
          readln(filename);
        assign(stro,filename);    rewrite(stro);
          while true do
    Begin  writeln('напишите содержимое строки');
           readln(s); if s='zzz' then     {'zzz' – признак окончания ввода }
      Begin  close(stro); exit; end;
          writeln(stro,s); end;end;  
     procedure obrt;
  Begin writeln('дайте имя обрабатываемого файла');
; readln(filename);
        assign(stro,filename); reset(stro);
        repeat readln(stro,s);   writeln(s);
               until seekeof(stro); close(stro); exit; end;
      procedure rasht;
 Begin writeln('укажите имя корректируемого файла'); readln(filename);
          assign(stro,filename);   append(stro);
          while true do
    Begin writeln('введите строку');  readln(s);
          if s='zzz' then Begin close(stro); exit; end;
          writeln(stro,s);  end; end;
        Program Prim51;
     Type  dlina=string[60];
     Var   stro:text;   s:dlina;   reg:char;   filename:string[12];
        {$i c:\turbo\sozdt.pas}
        {$i c:\turbo\obrt.pas}
        {$i c:\turbo\rasht.pas}
    Begin    while true do
     Begin   writeln('укажите режим');
       writeln('1: создание, 2: вывод на экран, 3: расширение, 4: выход');
       readln(reg);
          case reg of '1': sozdt;
                      '2': obrt;
                      '3': rasht;
                     '4': halt  else writeln('повторите номер режима');
       end;end;end.

11. Использование библиотеки CRT

Разработчики Турбо-Паскаля предусмотрели несколько подпрограмм, существенно увеличивающих возможности текстового ввода-вывода. Эти подпрограммы сосредоточены в библиотеке (модуле) CRT, входящей в комплект поставки Турбо-Паскаля. В модуль включены также процедуры sound, no sound, delay, позволяющие программировать звуковой генератор компьютера.
11.1. Программирование клавиатуры
Дополнительные возможности управления клавиатурой реализуются двумя функциями: keydivssed и ReadKey.
Функция keydivssed возвращает значение типа boolean, указывающее состояние буфера клавиатуры: false означает, что буфер пуст, а true – что в буфере есть хотя бы один символ, еще не прочитанный программой.
В       реализуется так называемый асинхронный буферизованный ввод с клавиатуры. По мере нажатия на клавиши соответствующие коды помещаются в особый буфер, откуда они могут быть затем прочитаны программой. Стандартная длина буфера рассчитана на хранение до 16 кодов символов. Если программа достаточно долго не обращается к клавиатуре, а пользователь нажимает клавиши, буфер может оказаться переполненным. В этот момент раздается звуковой сигнал и «лишние» коды теряются. Чтение из буфера обеспечивается процедурами read/rеadln и функцией ReadKey. обращение к функции keydivssed не задерживает исполнения программы: функция немедленно анализирует буфер и возвращает то или иное значение, не дожидаясь нажатия клавиши.
Функция ReadKey возвращает значение типа char. При обращении к этой функции анализируется буфер клавиатуры: если в нем есть хотя бы один не прочитанный символ, код этого символа берется из буфера и возвращается в качестве значения функции, в противном случае функция будет ожидать нажатия на любую клавишу. Ввод символа с помощью этой функции не сопровождается эхо-повтором и содержимое экрана не меняется. Например, в какой-то точке программы необходимо игнорировать все ранее нажатые клавиши, коды которых еще непрочитаны из буфера, т.е. необходимо очистить буфер. Этого можно достичь следующим способом:
Uses CRT;
Var
с; char;
Begin
    while Keydivssed do
c:== ReadKey;
. . . . .
end.
При использовании процедуры ReadKey следует учесть, что в клавиатурный буфер помещаются так называемые расширенные коды нажатых клавиш. Если нажимается любая алфавитно-цифровая клавиша, расширенный код совпадает с ASCII-кодом соответствующего символа. Например, если нажимается клавиша с латинской буквой «а» (в нижнем регистре), функция ReadKey возвращает значение chr(97), а если – «а» (в верхнем регистре) – значение chr(65). При нажатии функциональных клавиш F1...F10 (клавиш управления курсором), клавиш Ins, Home, Del, End, PgUp, PgDn в буфер помещается двухбайтовая последовательность: сначала символ #0, а затем расширенный код клавиши. Таким образом, значение #0, возвращаемое функцией ReadKey, используется исключительно для того, чтобы указать программе на генерацию расширенного кода. Получив это значение, программа должна еще раз обратиться к функции, чтобы прочитать расширенный код клавиши.
Следующая простая программа позволит определить расширенный код любой клавиши. Для завершения работы программы нужно нажать клавишу esc.
Uses CRT;
Var с: char;
Begin
   repeat
c:= ReadKey;
if c< >#0 then
             writeln (ord(c))
else
writeln ('0', ord (ReadKey):8)
  until c=#27 {27 – расширенный код клавиши esc}
end.
Если вы воспользуетесь этой программой, то обнаружите, что нажатие на некоторые клавиши игнорируется функцией ReadKey. Это прежде всего так называемые сдвиговые клавиши – Shift, Ctrl, Alt. Сдвиговые клавиши в MS-DOS обычно используются для переключения регистров клавиатуры и нажимаются в сочетании с другими клавишами. Именно таким способом, например, различается ввод прописных и строчных букв. Кроме того, функция игнорирует переключающие клавиши Caps Lock, Num Lock, Scroll Lock.
в таблице приведены расширенные коды клавиш, возвращаемые функцией ord(ReadKey).

Расширенные коды клавиш
Таблица

Код						Клавиша или комбинация клавиш	Код			Клавиша или комбинация клавиш
первый байт	второй байт						первый байт	второй байт
Алфавитно-цифровые клавиши
8		–		backspace (забой)			9	–			tab (табуляция)
13		–		enter			32	–			пробел
33		–		!			34	–			«
35		–		#			36	–			$
37		–		%			38	–			&
39		–		"			40	–			(
41		–		)			42	–			*
43		–		+			44	–			,
45		–		–			46	–			.
47		–		/			48...57	–			0...9
58		–		:			59	–			;
60		–		<			61	–			=
52		–		>			63	–			?
64		–		@			65...90	–			A...Z
91		–		[			92	–			/
93		–		]			94	–			^
95		–		_			96	–			"
97...122		–		a...z			123	–			{
124		–		??			125	–			}
126		–		~			128...159	–			A...Я
160...175		–		а...п			224...239	–			р...я
Управляющие клавиши и их сочетания со сдвиговыми
0			3		Ctrl–2		0		15			Shift – Tab
0			16...25		Alt–Q...Alt–P (верхний ряд букв)		0		30...38			Alt–A...Alt–L (средний ряд букв)
0			44...50		Alt–Z...Alt–M (нижний ряд букв)		0		59...68 72			F1...F10 курсор вверх
0			71		Home		0		75			курсор влево
0			73		PgUp		0		79			End
0			77		курсор вправо		0		81			PgDn
0			80		курсор вниз		0		83			Del

окончание таблицы

код		клавиша или комбинация клавиш	код		клавиша или комбинация клавиш
первый байт	второй байт		первый байт	второй байт
0	82	Ins	0	94...103	Ctrl–F1...Ctrl–F10
0	84...93	Shift–F1... Shift–F10	0	114	Ctrl– PrtScr
0	104...113	Alt–F1...Alt–F10	0	116	Ctrl – курсор вправо
0	115	Ctrl – курсор влево	0	118	Ctrl – PgDn
0	117	Ctrl – End	0	120...131	alt–1...alt– = (верхний ряд клавиш)
0	119	Ctrl – Home
0	132	Ctrl – PgUp

11.2. Текстовый вывод на экран
Библиотека Turbo Vision способна удовлетворить самым высоким требованиям, и мы настоятельно рекомендуем обращаться к ней при программировании сложных текстовых изображений (меню, окон и т.п.). Тем не менее, вполне возможно, что некоторые из читателей захотят использовать значительно более простые, но достаточно эффективные средства модуля CRT, описываемые в этом разделе.
Процедура TextMode используется для задания одного из возможных текстовых режимов работы адаптера монитора. Заголовок процедуры:
Procedure TextMode (mode: word);
Здесь mode – код текстового режима. в качестве значения этого выражения могут использоваться следующие константы, определенные в модуле CRT:
const
bw40=0; {черно-белый режим 40*25}
co40=l; {цветной режим 40*25}
bw80=2, {черно-белый режим 80*25}
co80=3; {цветной режим 80*25}
mono=7; {используется с mda}
Font8*8=256; {используется для загружаемого шрифта в режиме 80*43 или 80*50 с адаптерами EGA или VGA}
Код режима, установленного с помощью вызова процедуры TextMode, запоминается в глобальной переменной LastMode модуля CRT и может использоваться для восстановления начального состояния экрана.
следующая программа иллюстрирует использование этой процедуры в различных режимах. заметим, что при вызове TextMode сбрасываются все ранее сделанные установки цвета и окон, экран очищается и курсор переводится в его левый верхний угол.
   user CRT;
procedure print (s: string), {вывести сообщение s и ждать инициативы пользователя}
Begin
writeln (s), {вывести сообщение}
writeln ('нажать клавишу enter...');
readln {ждем нажатия клавиши enter}
end; {print}
Var
lm: word, {начальный режим экрана}
Begin
lm:=LastMode; {запомнить начальный режим работы дисплея}
TextMode (со40);
print ('режим 40*25');
TextMode (co8o);
print ('режим 80*25');
TextMode (co40+font8*8);
print ('режим co40+font8*8');
TextMode (co80+font8*8);
print ('режим co80+font8*8'), {восстановить исходный режим работы:}  
TextMode (lm)
end.
Процедура TextColor определяет цвет выводимых символов. заголовок процедуры:
Procedure TextColor (color: byte);
Процедура TextBackGround определяет цвет фона. заголовок процедуры:
Procedure TextBackGround (color: byte);
Единственным параметром обращения к этим процедурам должно быть выражение типа byte, задающее код нужного цвета. Этот код удобно определять с помощью следующих мнемонических констант, объявленных в модуле CRT:
const
black=0; {черный}
blue=l; {темно-синий}
green=2; {темно-зеленый}
суаn=3; { бирюзовый}
red=4; {красный}
magenta=8; {фиолетовый}
brown=6; {коричневый}
lightgray=7; {светло-серый}
darkgray=8; {темно-серый}
    light blue=9; {синий}
    lightgreen=10; {светло-зеленый}
lightcyan=11; {светло-бирюзовый}
lightred=12; {розовый}
lightmagenta=13; {малиновый}
yellow=14; {желтый}
white=15; {белый}
blink=128; {мерцание символа}
Следующая программа иллюстрирует цветовые возможности Турбо-Паскаля.
uses CRT,
const
col: array [1..15] of string [16] =
('темно-синий', 'темно-зеленый', 'бирюзовый', 'красный', 'фиолетовый', 'коричневый', 'светло-серый', 'темно-серый', 'синий', 'зеленый', 'светло-бирюзовый', 'розовый', 'малиновый', 'желтый', 'белый');
Var
k: byte,
Begin
for k:=l to 15 do
Begin {выводим 15 сообщений различными цветами}
textcolor (k),
writeln ("цвет", k, "-", col [k] )
end;
textcolor (white+blink); {белые мигающие символы}
writeln ("мерцание символов");
{восстанавливаем стандартный цвет}
textcolor (lightgray),
writeln
end.
Обратите внимание на последний оператор writeln. Если его убрать, режим мерцания символов сохранится после завершения программы, несмотря на то, что перед ним стоит оператор
TextColor (lightgray);
Дело в том, что все цветовые определения предварительно заносятся в специальную переменную TextAttr модуля CRT и используются для настройки адаптера только при обращении к процедурам write/writeln.
Процедура ClrScr очищает экран или окно (см. ниже процедуру window). после обращения к ней экран (окно) заполняется цветом фона и курсор устанавливается в его левый верхний угол. например:
uses CRT;
Var
с: char
Begin
textbackground (red);
clrscr; {заполняем экран красным цветом}
writeln ("нажмите любую клавишу...");
с:= ReadKey, {ждем нажатия любой клавиши}
textbackground (black);
clrscr {восстанавливаем черный фон экрана}
end.
Процедура Window определяет текстовое окно – область экрана, которая в дальнейшем будет рассматриваться процедурами вывода, как весь экран. Сразу после вызова процедуры курсор помещается в левый верхний угол окна, а само окно очищается (заполняется цветом фона). По мере вывода курсор, как обычно, смещается вправо и при достижении правой границы окна переходит на новую строку, а если он к этому моменту находился на последней строке, содержимое окна сдвигается вверх на одну строку, т.е. осуществляется «прокрутка» окна. Заголовок процедуры:
Procedure Window (xi, yi, х2, y2: byte);
Здесь x1...y2 – координаты левого верхнего (х1, y1) и правого нижнего (х2, y2) углов окна. Они задаются в координатах экрана, причем левый верхний угол экрана имеет координаты (1,1), горизонтальная координата увеличивается слева направо, а вертикальная – сверху вниз.
В следующем примере иллюстрируется вывод достаточно длинного сообщения в двух разных окнах:
uses CRT;
Var
     k: integer;
Begin {создать левое окно – желтые символы на синем фоне:}
textbackground (blue);
window (5, 2, 35, 17);
textcolor (yellow);
for k:= i to 100 do
write ("нажать клавишу enter... ");
      readln, {ждем нажатия enter}
      clrscr; {очищаем окно}
{создать правое окно – белые символы на красном фоне:}
textbackground (red);
textcolor (white);
window (40, 2, 70, 17);
for k:= i to 100 do
write ("нажать клавишу enter... ");
      readln;
     TextMode (Co8o) {сбросить все установки}
end.
Обращение к процедуре Window игнорируется, если какая-либо из координат выходит за границы экрана или если нарушается одно из условий: Х2>Х1 или Y2>Y1. Каждое новое обращение к Window отменяет предыдущее определение окна. Границы текущего окна запоминаются в двух глобальных переменных модулях CRT: переменная WindMin типа Word хранит X1 и Y1 (Х1 – в младшем байте), а переменная того же типа WindMax – Х2 и Y2 (Х2 – в младшем байте). При желании вы можете изменять их нужным образом без обращения к Window. например, вместо оператора
Window (40, 2, 70,17);
можно было бы использовать два оператора:
WindMin:=39+(lshl8); WindMax:= 69+(16 shl 8);
(в отличие от обращения к Window, координаты, хранящиеся в переменных WindMin и WindMax, соответствуют началу отсчета 0, 0).
Процедура GotoXY переводит курсор в нужное место экрана или текущего окна. Заголовок процедуры:
Procedure GotoXY (Х, Y: Byte);
Здесь X, Y - новые координаты курсора. Координаты задаются относительно границ экрана (окна), т.е. оператор
GotoXY (1,1);
Оператор указывает, перевести курсор в левый верхний угол экрана (или окна, если к этому моменту на экране определено окно). Обращение к процедуре игнорируется, если новые координаты выходят за границы экрана (окна).
Функции WhereX и WhereY. С помощью этих функций типа Byte можно определить текущие координаты курсора: WhereX возвращает его горизонтальную, а WhereY – вертикальную координаты.
В следующей программе в центре экрана создается окно светло-бирюзового цвета, которое обводится рамкой.
Program Prim52;
     Uses CRT;      {подключить библиотеку (модуль) CRT}
Const            { константы, определяющие графические символы }
                 { необходимые для вычерчивания рамки окна }
      lu=#218;                     { левый верхний угол рамки }
ru=#191;                     { правый верхний угол рамки }
          ld=#192;                     { левый нижний угол рамки }
          rd=#217;                     { правый нижний угол рамки }
          h=#196;                     { горизонтальная черта }
          v=#179;                     { вертикальная черта }
                 { координаты окна: }
x1=14; y1=5;                 { верхний левый угол }
          x2=66; y2=20;                { нижний правый угол }
Var k:integer;
Begin ClrScr;                      { очиститъ экран}
      textmode(co80);              { сброситъ все установки }
      textbackground(lightcyan);   { фон окна светло-бирюзовый }
      textcolor(yellow);           { цвет текстов в окне желтый }
      window(x1,y1,x2,y2);         { открытъ окно с координатами }
      ClrScr;
                                   { рисуем рамку вокруг окна}
Write(lu);                   { левый верхний угол }
   for k:=x1+1 to x2-1 do
      write(h);                    { верхнюю горизонтальную черту }
      write(ru);                   { правый верхний угол }
   for k:=y1+1 to y2-1 do          { рисуем вертикальные линии }
            { посимвольно слева и справа и построчно за счет цикла} 
Begin GotoXY(1,k-y1+1);           { курсор на левую границу }
       write(v);                   { вывести вертикальную черточку }
       GotoXY(x2-x1+1,whereY);     { курсор на правую границу }
       write(v);                   { вывести вертикальную черточку }
                  { перейти на новую строку, пока не кончится цикл }
 end;
       write(ld);                  { левый нижний угол }
       Window(x1,y1,x2,y2+1);
       GotoXY(2,y2-y1+1);          { kypcop в нижний левый угол+1}
{ нового окна, без учета рамки }
   for k:=x1+1 to x2-1 do write(h);{ нижнюю горизонтальную черту}
       write(rd);                  { нижний правый угол}
TextBackground(LightCyan);
       GotoXY(2,2);                { курсор в левый верхний угол}
                                   {нового окна без учета рамки}
        readln;
      end.
Три следующие процедуры без параметров могут оказаться полезными при разработке текстовых редакторов.
Процедура ClrEOL стирает часть строки от текущего положения курсора до правой границы окна (экрана). Положение курсора не меняется.
Процедура DelLine уничтожает всю строку с курсором в текущем окне (или на экране, если окно не создано). При этом все строки ниже удаляемой (если она есть) сдвигаются вверх на одну строку.
Процедура InsLine вставляет строку: строка с курсором и все строки ниже ее сдвигаются вниз на одну строку; строка, вышедшая за нижнюю границу окна (экрана), безвозвратно теряется; текущее положение курсора не меняется.
Процедуры LowVideo, NormVideo и HighVideo. С помощью этих процедур без параметров можно устанавливать соответственно пониженную, нормальную и повышенную яркости символов. Например:
Uses CRT;
begin
LowVideo;
                   Writeln ('пониженная яркость');
                   NormVideo;
                   Writeln ('нормальная яркость');
                   HighVideo;
                   Writeln ('повышенная яркость')
end.
На практике нет разницы между пониженной и нормальной яркостью изображения.
Процедура Assign CRT связывает текстовую файловую переменную F с экраном с помощью непосредственного обращения к видеопамяти (т.е. к памяти, используемой адаптером для создания изображения на экране). В результате вывод в такой текстовый файл осуществляется значительно  быстрее (в 3...5 раз), чем если бы этот файл был связан с экраном стандартной процедурой Assign. Заголовок процедуры: Procedure Assign CRT (F: Text);
В следующей программе измеряется скорость вывода на экран с помощью стандартной файловой процедуры и непосредственного обращения к видеопамяти. Вначале файловая переменная F связывается «медленной» процедурой Assign со стандартным устройством CON (т.е. с экраном) и подсчитывается количество N циклов вывода некоторого текста за 5*55=275 миллисекунд системных часов. Затем файловая переменная связывается с экраном с помощью процедуры быстрого доступа Assign CRT и точно так же подсчитывается количество N2 циклов вывода. В конце программы счетчики NI и N2 выводятся на экран.
Показания системных часов хранятся в оперативной памяти компьютера в виде четырехбайтного слова по адресу [$0040:$006С] и наращиваются на единицу каждые 55 миллисекунд.
Uses CRT;
var
                   F: Text;
                   t: Longint; {начало отсчета времени}
                   N1, N2: Word; {счетчик вывода}
const
                   txt= 'Text';
begin
                   {-----стандартный вывод в файл------}
                   Assign (F, “CON”);
                   Rewrite (F);
                   N1:=0; {готовим счетчик вывода}
                   ClrScr; {очищаем экран}
                   {запоминаем начальный момент:}
                   t:= Meml [$0040:$006C];
                   {ждем начало нового 55-миллисекундного интервала, чтобы исключить погрешность в определении времени:}
                   while Meml [$0040:$006C]=t do;
                   {цикл вывода за 5 интервалов}
                   while Meml [$0040:$006C]<t+6 do
                             begin
                                      inc (N1);
                                      Write (F, txt)
                             end;
                   Close (F);
          {вывод с помощью быстрой процедуры прямого доступа к экрану}
                   AssignCRT (F);
                   Rewrite (F);
                   N2:=0;
                   ClrScr;
                   t:= Meml [$0040:$006C];
                   while Meml [$0040:$006]=t do;
                   while Meml [$0040:$006]<t+6 do
          begin
                             inc (N2);
                             Write (F, txt)
                   end;
                   Close (F);
                   {печатаем результат}
                   ClrScr;
                   Writeln (N1, N2:10)
end.
Следует учесть, что вывод на экран обычным образом, без использования файловой переменной (например, оператором Write (txt)), также осуществляется   с помощью непосредственного доступа к видеопамяти, поэтому ценность процедуры AssignCRT весьма сомнительна. Прямой доступ к видеопамяти регулируется глобальной логической переменной DirectVideo модуля CRT: если эта переменная имеет значение True, доступ разрешен, если False — доступ к экрану осуществляется с помощью относительно медленных средств операционной системы MS—DOS. По умолчанию переменная DirectVideo имеет значение True.
11.3. Программирование звукового генератора
Звуковые возможности пк основаны на одноканальном управляемом звуковом генераторе, вырабатывающем электромагнитные колебания звуковой частоты. Колебания подаются на встроенный в пк динамик и заставляют его звучать.
В модуль CRT включены три процедуры, с помощью которых вы сможете запрограммировать произвольную последовательность звуков.
Процедура Sound заставляет динамик звучать с нужной частотой. заголовок процедуры Procedure Sound (F: Word); здесь F – выражение типа Word, определяющее частоту звука в герцах. После обращения к процедуре включается динамик, и управление немедленно возвращается в основную программу, в то время как динамик будет звучать впредь до вызова процедуры NoSound.
Процедура NoSound выключает динамик. Если он к этому моменту не был включен, вызов процедуры игнорируется.
Процедура Delay oбеспечивает задержку работы программы на заданный интервал времени. Заголовок процедуры: Procedure Delay (T: Word);
Здесь Т — выражение типа Word, определяющее интервал времени (в  миллисекундах), в течение которого задерживается выполнение следующего оператора программы.
Для генерации звукового сигнала обычно используется вызов описанных процедур по схеме Sound—Delay—NoSound. следующая программа заставит пк воспроизвести простую музыкальную гамму. Используемый в ней массив F содержит частоты всех полутонов в первой октаве от «до» о «си». При переходе от одной октавы к соседней, частоты изменяются в два раза.
Uses CRT;
const
                   F: array [1..12] of Real =
                             (130.8, 138.6, 146.8, 155.6, 164.8, 174.6, 185.0, 196.0, 207.7,
                               220.0, 233.1, 246.9); {массив частот 1-й октавы}
                   Temp = 100; {темп исполнения}
var
                   k, n: integer;
begin
                   {восходящая гамма}
                   for k:=0 to 3 do
                             for n:=1 to 12 do
                                      Begin
                                                Sound (Round (F[n]*(1 shl k)));
                                                Delay (Temp);
                                                NoSound
                                      end;
                   {нисходящая гамма}
                   for k:=3 downto 0 do
                             for n:=12 downto 1 do
                                      begin
                                                Sound (Round (F[n]*(1 shl k)));
                                                Delay (Temp);
                                                NoSound
                                      end
end.
В следующей программе перемножается матрица на вектор, основу которой составляет ранее рассмотренные Program Prim 29 i Prim 29а. Здесь максимальные размеры матрицы – 10*10 элементов типа byte. Ввод информации производится в окне светло-бирюзового цвета, вывод результатов – в окне малинового цвета, цвет букв – желтый.
Программа в начале работы издает звуки частотой от 130 до 2130 Гц, затем при вводе величины a – частотой 2000 Гц, b – 1500 Гц длительностью n=100 мс. В конце работы программа издает звуки от 2130 до 130 Гц. Программа использует подпрограмму Wind, написанную на основе Prim 52.
  Program Prim53;  Uses CRT;  var i,j,n,m,k,l:integer; a:array[1..50,1..70] of byte;                   b:array[1..10] of byte;
                   c:array[1..10] of longint;
                   cv:byte;
      {$i C:\TURBO\ wind.pas}
 BEGIN
       Clrscr;                     {очистить экран }
   cv:=11;                         {цвет 11, светло-бирюзовый}
 wind(1,1,50,7);                 { открыть окно, обращения к процедуре}
       Sound(330);                 { включить звук, частотой 330 гц }       Delay(1000);                { задержать на 1000 миллисекунд }       NoSound;                    { выключить звук }
       writeln ('ввести количество строк и столбцов');
       GotoXY(2,3); l:=4;          {l устанавливает курсор по y}
        readln(n,m);
        for i:=1 to n do
        for j:=1 to m do
      begin GotoXY(2,l);
      writeln(' введите a[',i,',',j,'] элемент матрицы а ');
      GotoXY(34,l);            { перевести курсор в конец текста:}
                               {ввести  a[i,j] – элемент матрицы'}
      ClrEol;                { удалить конец строки до границы окна}
      readln(a[i,j]);          { ввести очередное а в конце текста }
       end;
       L:=L+1;{}
         for j:=1 to m do
      begin GotoXY(2,l);
         writeln(ввести b[',j,'] элемент вектора  b');
      GotoXY(33,l);
       ClrEol;
       readln(b[j]); end;
   cv:=5;                       { фиолетовый цвет для нового окна }
   wind(20,2,80,18);  GotoXY(2,2); l:=3;
    for i:=1 to n do       { начало перемножения матрицы на векторы }
  begin c[i]:=0;
    for j:=1 to m do
     c[i]:=c[i]+ a[i,j]*b[j]; end;
                           { конец перемножения матрицы на вектор }
      writeln(' распечатка массива а ');
       for i:=1 to n do
          begin  GotoXY(2,l); l:=l+1;      { начать новую строку }
       for j:=1 to m do
       write(a[i,j]:5); end;
     GotoXY(2,l); l:=l+1;     writeln('распечатка массива  b');
     GotoXY(2,l);
       for j:=1 to m do
       write(' ',b[j]);    L:=L+1;
     GotoXY(2,L); L:=L+1;  writeln('результирующий массив с');
     GotoXY(2,L);
       for i:=1 to n do
       write(' ',c[i]);
     readln;     END.

12. Графика в Паскале

12.1. Инициализация графического режима
Для вывода графических изображений на экран турбо Паскаль предоставляет пользователю библиотеку Graph. Общий вид программы с использованием Graph имеет следующий вид:
Program имя;
Uses Graph;
var
          grDriver, grMode, errCode: integer;
begin
          grDriver:= Detect; {определение номера, установленного в системе драйвера}
          initGraph (grDriver, grMode,''); {инициализация графического режима}
          if errCode= grOK then
          begin { режим открыт и можно работать}
end else
begin {графический режим не удалось открыть, проанализируйте                    содержание  переменной errCode}
end.
Замечание. Две кавычки в initGraph правомочны только тогда, когда графическая программа находится в том же каталоге, что и библиотека Graph. В противном случае в кавычках должен стоять путь – указание, где находится библиотека Graph.

12.2. Процедуры и функции библиотеки Graph
Функции GetMaxX и GetMaxY возвращают значения типа Word, содержащие максимальные координаты, соответственно, X и Y относительно левого верхнего угла в пикселах (точках).
Различные мониторы имеют различную разрешающую способность, например: VGA - 640´480 точек, IBM 8514Hi - 1024´768 точек.
Функции GetX и GetY возвращают текущие координаты указателя. Процедура SetViewPort (Х1, Y1, Х2, Y2, Clipon); устанавливает прямоугольное окно на графическом экране, X1, Y1 - координаты левого верхнего угла; Х2, Y2 - координаты нижнего правого угла окна.
Если выражение Clipon имеет значение true и элементы изображения не помещаются в окне, то они отсекаются, если – false, то отсечка игнорируется.
Процедура MoveTo (Х, Y); устанавливает новое текущее положение указателя.
Процедура MoveRel (Ox, Dy); устанавливает приращения новых координат указателя относительно старых.
Процедура ClearDevice, очищает графический экран, указатель устанавливается в левый верхний угол, экран заполняется цветом, заданным процедурой SetBkColor.
Процедура PutPixel (Х, Y, Color); выводит на экран точку Color цвета. Процедура LineTo (Х, Y); вычерчивает линию от текущего положения указателя до точки Х, Y.
Процедура SetLineStyle (Туре, Pattern, Thick);
Где Туре – тип линии. Pattern – образец линии. Thick – толщина линии.
Тип линии:
0 – сплошная,
1 – точечная,
2 – штрихпунктирная,
3 – . . . . . . . .
4 – узор линии определяет пользователь параметром pattern.
Thick=l – толщина линии в 1 пиксел.
Thick=2 – толщина линии в 3 пиксела.
Процедура Rectangle (Х1, Y1, Х2, Y2); вычерчивает прямоугольник с использованием текущего цвета и текущего стиля линий.
Процедура DrawPoly (N, Р); вычерчивает произвольную ломаную линию. N - количество точек излома, включая крайние; Р - переменная типа PointType, которая в Graph имеет вид:
type
PointType=record
X, Y: Word
end;
При вычерчивании используются текущий цвет и текущий стиль линий. Процедура Circle (Х, Y, R); вычерчивает окружность с центром X, Y и радиусом R.
Процедура Arc (Х, Y, Beg А, End А, R); вычерчивает дугу окружности Beg А и End А, соответственно, начальный и конечный углы дуги.
Процедура Ellipse (Х, Y, Beg А, End А, RX, RY); вычерчивает дугу эллипса с центром X, Y; Beg А, End А – начальный и конечный угол, RX и RY – горизонтальный и вертикальный радиусы.
Процедура Bar (Х1, Y1, Х2, Y2); заполняет прямоугольную область экрана образцом узора и текущим цветом, которые устанавливаются процедурой SetFillStyle.
Процедура Ваr3D (Х1, Y1, Х2, Y2, Depth, Тор); вычерчивает трехмерное изображение параллелепипеда и закрашивает его переднюю грань. Depth – глубина третьего измерения, Top=true – верхняя грань вычерчивается, false - нет.
Процедура FillPoly (n, Coords); обводит линией и закрашивает замкнутый многоугольник; n – количество вершин, Coords – переменная типа PointType, содержащая координаты вершин (см. DrawPoly).
Процедура FillEllipse (Х, Y, Rx, Ry); обводит линией и заполняет эллипс.
Процедура Sector (Х, Y, Beg А, End А, Rx, Ry); вычерчивает и заполняет эллипсный сектор.
Процедура PieSlice (Х, Y, Beg А, End А, R); вычерчивает и заполняет сектор окружности.
Процедура SetColor (Color); устанавливает текущий цвет для выводимых линий и символов.
Процедура SetbkColor (Color); устанавливает цвет фона окна.
Процедура SetFillStyle (Fill, Color); устанавливает стиль Fill и цвет заполнения Color.
Значения Fill:
 0 –        заполнение фоном (узор отсутствует);
 1 –        сплошное заполнение;
 2 –        заполнение – – – – –;
 3 –        – « –   /////// ;
 4 –        – « –  утолщенными ///////;
 5 –        – « – утолщенными \\\\\\ ;
 6 –        – « – \\\\\\ ;
 7 –        – « –   + + + + + +;
 8 –        – « –   ******;
 9 –        – « –   прямоугольной клеточкой;
 10 –   – « –   редкими точками ;
 11 –   – « –   частыми точками ;
 12 –   – « –   узор определяется пользователем.
Процедура FloodPill (Х, Y, Color); заполняет произвольную замкнутую линию (точки соединения должны совпадать, например, концы линий не могут пересекаться) текущим стилем и текущим цветом. X, Y – координаты точки внутри фигуры, Color — цвет ограничений линии. Если линии разомкнуты или пересекаются и концы «торчат», то цвет «разольется» по всему окну.
Функция ImageSize (X1, Y1, X2, Y2); возвращает размер памяти в байтах, необходимый для размещения прямоугольного фрагмента изображения (например, окна с рисунком).
Процедура GetImage (X1, Y1, X2, Y2, Buf); помещает в память копию прямоугольного фрагмента изображения. Buf — переменная или участки кучи, куда будет помещена копия видеопамяти с фрагментом изображения. Размер Buf должен быть не меньше значения, возвращаемого функцией ImageSize с теми же координатами X1...Y2.
Процедура PutImage (X, Y, Buf, Mode); выводит в заданное место экрана копию фрагмента изображения, ранее помещенную в память процедурой GetImage.
X, Y — координаты левого угла того места на экране, куда будет скопирован фрагмент изображения. Buf — переменная, или участок кучи, откуда берется фрагмент изображения. Mode — способ копирования.
12.3. Примеры программ
Ниже приведены программы, демонстрирующие некоторые возможности графики в Паскале.
Программа Prim 54 демонстрирует вывод различных простых объектов-окружностей, дуг, эллипсов, прямоугольников, параллелепипедов.
       Program Prim54;Uses Graph;var grDriver,grMode,errCode,Radius,i,Width,y0,y1,y2,x1,x2:integer;Begin grDriver:=detect;    { определение номера драйвера }
      InitGraph(grDriver,grMode,'');
                           { инициализация графического режима }
      errCode:=GraphResult;
      if errCode=grOK then
  begin             { графический режим открыт, можно работать }
        for radius:=1 to 5 do
     begin            { рисуем окружности с радиусами 10,20..50,
                               с центром x=200, y=70 точек растра }
           Circle(200,70,Radius*10); readln; end;
                                                      0 единиц
                                                      0 двоек
                                                      0 четверок
                                                      0 восьмерок
                                                      0 шестнадцать
                                                      0 тридцать два
                                                      0 шестьдесят четыре
                                                      0 сто двадцать восемь
                                                      1 двести пятьдесят шесть
Пояснение: в любой позиционной системе счисления на первом месте справа в числе стоит количество оснований системы счисения в степени 0, на втором месте справа – количество оснований в степени 1, на третьем месте справа – количество оснований в степени 2 и т.д. так, для десятичной системы имеем:

      3  2  4
                             количество единиц   100 * 4 = 4
                             количество десятков 101 * 2 = 20 
                             количество  сотен     102 * 3 = 300
                                                                сложим = 324
Для двоичной системы:
    1  0  1  1  0  0  1    
                                          количество единиц                        20 * 1 = 1
                                          количество двоек                           21 * 0 = 0
                                          количество четверок                     22 * 0 = 0
                                          количество восьмерок                   23 * 1 = 8
                                          количество шестнадцаток             24 * 1 = 16
                                          количество тридцать вторых        25 * 1 = 0
                                          количество шестьдесят четверок 26 * 1 = 64
сложим = 89                                                                                                                                                                                                     
т.е. десятичное 89 имеет изображение 1011001 в двоичной системе.
Для правильного написания арифметических выражений необходимо соблюдать следующие правила:
1. Запрещено  последовательное  появление  знаков  двух операций, т.е.
A + - B – неверно, A + (-B) – верно.
2. Порядок выполнения операций: /,,div, mod, and, or, shl, shr, –, +.                  Порядок может быть нарушен круглыми скобками, так как часть выражения, заключённая в круглые скобки, выполняется в первую очередь.
3. Если операции имеют одинаковый приоритет, то они выполняются последовательно.
4. Унарная операция имеет самый низкий приоритет, поэтому  –A * b интерпретируется как  –(A * b).
5. Не следует записывать выражения, не имеющие арифметического смысла, например, деление на выражение, равное 0.
6. Следует помнить, что операции / и * имеют одинаковый приоритет, например, 18/2*3=27, а не 3. чтобы было 3, необходимо записать 18/(2*3).
2.6. Описания переменных.
Описания переменных зависят от типа данных, которые будут храниться в ячейках памяти, названных именами этих переменных.
Данные в Паскале могут быть следующих типов: 
Данные
Скалярные                                                                       Структурированные
 

                                                                           массивы               записи
Стандартные                  Определённые
                                         пользователем                строки               файлы
 

целые    логические    интервальные                             множества                          
         вещественные               перечисляемые               указатели
байтовые   символьные
Каждому типу данных могут соответствовать константы. Количество элементов констант (цифр, букв) сильно зависит от конкретной конфигурации машины. Однако можно сказать, что для целого типа числа максимальное значение 32767, для вещественных, как минимум, – до 7 цифр мантиссы, для строковых – 255 символов и т.д.
Константы байтового типа – целые числа в диапазоне 0 – 255. Целые константы – набор цифр, возможно, со знаком ¢+¢ или ¢–¢. Вещественные константы могут записываться в двух формах  –  с фиксированной точкой: 57.34; 
-256.758 и с плавающей точкой: 5.734е+01 (эквивалент 57.34) и -2.56758е+02
(эквивалент -256.758).
Логических (булевских) констант всего две: TRUE и FALSE. принято, что в машинном коде TRUE=1, FALSE=0. знаковые константы представляют все символы алфавита плюс символы кириллицы, но не для того, чтобы символ стал константой, его нужно заключить в апострофы: ¢А¢, ¢1¢, ¢+¢, ¢?¢ и т.д. Константы могут храниться в ячейках памяти, определенных какими-либо именами (идентификаторами).
Идентификатор – набор букв и цифр, первая из них – всегда буква, например А, ALP1, B2, GAMMA. Идентификаторы могут быть длиной до 255 символов, однако большинство компиляторов накладывает ограничение, т.е. длина имени не должна превышать восьми символов. Идентификатор в своем составе может содержать знак ¢_¢ (подчерк).
Переменные могут быть описаны в разделе описания переменных Var. разделов описания может быть до пяти, лучше их располагать в следующем порядке: Label, Const, Type, Var, functuon и procedure.
Если данное будет изменяться (по величине) в процессе выполнения программы, то имя этого данного описывается в разделе Var с соответствующим атрибутом:
Байтовый тип – byte;
Целый тип – integer;
Вещественный тип – real;
Булевский тип – boolean;
Символьный тип – char и т.д.
Пример:
Var 
     k n:integer;
     S,T,Z: char;
     a,b,c: real;
     L25,L3: boolean;
     FAZA: byte;
В этом случае все описанные идентификаторы можно применять в программе. Работа этого раздела будет заключаться в том, что машина выделит две ячейки памяти с именами k и n. В ячейках могут храниться только целые числа: в ячейках с именами S,T,Z – по одному символу; в ячейках a,b,c – только величины типа вещественных чисел; в L25 и L3 –величины true и FALSE, а в ячейке с именем FAZA – только числа от 0 до 255. Если попытаться, например, в ячейку S поместить не символ, а число, то это приведет к ошибке, т.е. правильно S:= ¢A¢; или S:= ¢$¢; или S:= ¢1¢; однако неверно S:= 1 (1 – число в отличие от ¢1¢ – символа). Если в процессе выполнения программы данное не меняется, то его можно описать в разделе "Описания констант":
Const
A=36.74;   B=true;
С=¢а¢;
Здесь тоже выделяются ячейки памяти с именами А,В,С для хранения заданных величин, которые не подлежат изменению.
Допустимо описание констант-выражений:
Const
М = (32.5 + 0.64) / 3.14;
Кроме того, машина "знает", чему равны константы е и π.
Пример. Составить программу для вычисления выражения
, где величины R, а, S, L, K вводятся с клавиатуры.
Пусть k, l - целые числа, остальные – вещественные.
Program   Prim2,
    Var    k,L:integer;
 Y,R,a,S : real;                   {здесь для хранения результата y тоже}
                                                             {нужна ячейка памяти}
Begin writeln ('введите це',        {выдача на экран текста, указанного в}
'лое k,L, действительные'     {кавычках; обратите внимание на прави-}
'R,а,S');                             {ло переноса текста в операторе writeln:}
{если нужно перенести текст, то ставится}        {закрывающий апостроф, затем запятая,}
{новая строка вновь начинается с апострофа}
readln (k,L,R,a,S);
Y: = 1-l(l+sqr(r* a/k))/(exp(2)/sqr(s)* sqr(l+r* a/l));
writeln (Y); readln;
END.
То же самое будет, если записать программу:
Program Prim2a;
  Var   k,L: integer, R,a,S:real;
Begin   writeln ('введите целые k,L'); readln (k,L);
                writeln ('введите вещественные r,S,a'); readln (R,S,a);
                writeln(l-l/(l+sqr(r*a/k))/(exp(2)/sqr(s)*sqr(l+r*a/l)),
                readln;      END.
Последний оператор writeln вначале вычислит арифметическое выражение, а затем выведет на экран его значение в виде числа. Если мы хотим, чтобы результат был в виде 'результат Y = число', то необходимо последний writeln написать в следующем виде:
writeln ('результат Y =',1-l/(l+sqr(r*a/k))/exp(2)/sqr(s) *sqr(l+r*a/l)); тогда машина вначале выведет текст, взятый в апостроф, т.е. "результат Yi", а затем его значение.
2.7. Раздел описания типов
Помимо вышеперечисленных стандартных типов в Паскале могут быть применены типы, определенные пользователем, т.е. перечисляемые и интервальные типы. Перечисляемые типы задаются непосредственным перечислением всех значений, которые может принимать переменная данного типа. Описать типы, определенные пользователем, можно в разделе Var или предварительно в разделе Туре, а затем – в Var. рассмотрим оба варианта.
Пусть нам нужна переменная с именем season (сезон года). она может принимать значения winter (зима), spring (весна), summer (лето), autumn (осень), другие значения она принимать не может. Тогда нужно сделать следующее описание:
Var season: (winter, spring, summer, autumn).
Здесь тип season задан перечислением всех констант, которые могут быть занесены в ячейку памяти season. Попытка занести в ячейку season любое другое значение приведет к ошибке – "несоответствие типа".
Если переменных данного типа будет несколько, удобнее и нагляднее вначале определить тип в разделе Туре (описание типа), а затем в разделе Var сослаться на этот тип, и машина в Var выделит конкретные ячейки памяти для хранения данных указанного типа.
Например, необходимо определить, что Gi, G2, G3, G4 будут ячейками памяти, в которых могут храниться наименования газов Со, О, N, F, а в ячейках памяти Metall1, Metall2, Metall3 – наименования металлов Fе, Со, Na, Cu, Zn, тогда можно применить описание:
VAR GI, G2, G3, G4: (CO,O,N,F);
      Metall1, Metall2, Metall3: (Fe,Co,Na,Cu,Zn).
Можно использовать и другое, более наглядное описание. вначале определить тип Gaz, Met, а затем на них сослаться:
Туре    Gaz=(Co, О, N, F);
         Met = (Fе, Со, Na, Cu, Zn);
Var      GI, G2, G3, G4 : GAZ;
       Metall1, Metall2, Metall3, Met;
Особенно удобно применение раздела Туре, если он находится во внешнем блоке, а ссылки на него идут во внутренних блоках (см. раздел "Блоки"). Тогда значительно экономится память, поскольку она может быть практически одной и той же в разных блоках.
При описании переменных перечисляемого типа данные внутри скобок являются константами, которые может принимать описываемая переменная. Над данными такого типа допустимо выполнять операции отношения и логические операции (см. далее). Например, для приведенного выше описания данного season будет истинным высказывание: "winter < spring".
При работе с данными перечисляемого типа можно применять стандартные функции Succ, Рred, Ord.
Succ (аргумент) возвращает значение, следующее за элементом, указанным как аргумент. Если следующего элемента нет (закончились), то это приводит к программному прерыванию (ошибке).
Рred (аргумент) возвращает предыдущее значение из перечня констант, из которых состоит данный тип.
Ord (аргумент) возвращает порядковый номер аргумента в списке констант, перечисленных в описании в виде целого числа. Элементы пронумерованы в порядке 0,1,2,..., т.е. первый элемент имеет номер 0.
Пример:
Туре month = ('jan','fab','mar','apr','may','jun','jul','aug','sep','ocf','nov','dec');
       Var     a,b,c,d,c,mes: month; f,h,g: integer;
Begin            mes: =jul;
a: = Pred (mes);             {в a находится 'jun'}
b: = Succ (mes);             {в b находится 'aug'}
с: = Pred (divd(mes));    {в с находится 'mау'}
d: = Succ (succ(mes));    {в d находится 'sep'}
e: = Succ (divd(mes));    {в е находится 'jul'}
f: = Ord (mes);               {в f находится 6}
h: = Ord (divd(mes));     {в h находится 5}
g: = Ord (succ(mes));     {в g находится 7}
                                                                                                          END
Интервальный тип задается диапазоном изменения констант внутри какого-либо уже имеющегося перечисляемого или стандартного типа, кроме вещественного (integer, byte, booban, char). Значение первой константы должно быть меньше значения второй константы диапазона.
Туре
Dni = 1...31;
 Litera = 'a',...,'z',
Var    Rabdni,bolndni, vuhod: dni; {могут принимать значения 1-31}
  im,ident: litera; {могут принимать значения 'A'-'Z'}
Выход за пределы диапазона вызывает программное прерывание.
Допускается задание диапазона именами констант:
Const min = 1; max = 31;
Туре Dni = min…max;
Var rabdni,boldni,vuhoddni:dni;
Для интервального типа также возможно применять функции Succ, Pred, Ord.

3. Разветвляющиеся программы

3.1. Общие положения
До сих пор мы рассматривали линейные программы, алгоритм которых можно было представить в виде блок-схемы (рис. 3.1)

Оператор 1

Оператор 2

Оператор n

Рис. 3.1

Начало

                                       
Возможны случаи, когда программа ветвится в зависимости от какого-либо условия (см. рис. 3.2). Ветвление может быть двух направлений: по принципу условие верно – идти по одной ветви, условие ложно – по другой. В этом случае применяется оператор if. возможно ветвление сразу нескольких направлений: если k=l – идти по одной ветви, если k=2 – по другой, k=3 – по третьей и т.д. в этом случае удобнее применять оператор Case.

оператор

if

оператор

истина

ложь

case

1

2

3

n

…

Рис. 3.2

 

               
3.2. Оператор goto, раздел описания меток
Последовательное выполнение операторов в программе может быть нарушено оператором перехода. Общий вид оператора: goto метка; где метка – буква, либо цифра, либо набор букв и цифр, из которых первая – всегда буква, Например, М1, LI, NK. Метка, стоящая после goto, указывает, куда нужно пойти. Достигается это тем, что если в программе находится оператор goto метка; то в этой же программе обязательно имеется какой-либо оператор вида метка: оператор; который считается помеченным, и машина, встретив goto метка; не будет выполнять оператор, записанный после оператора goto метка; а перейдет к выполнению оператора метка: оператор;
Иллюстрация:    
 а: = b+с;
с: = sgrt (a+exp(b));
goto M1;
z: = x+y;
writeln (z);
M1: S: = P;
 

В случае, если бы не было оператора goto М1; все операторы выполнялись бы последовательно один за другим. здесь же после оператора с: =... стоит goto М1; следовательно, машина не будет выполнять z:=... и writeln..., а сразу после с: =... перейдет к выполнению оператора М: S: = Р;
Метки, применяемые в программе, должны быть описаны в разделе описания меток, который желательно ставить первым среди описаний. Выглядит раздел так: Label М1, М2, L, NK; т.е. после слова Label перечисляются через запятую все метки, которые будут применяться в данном блоке (программе). Заканчивается описание символом ';'.
Пример: составить программу, вычисляющую значения функции cos х, где начальное х = 0, следующее х = 0.01 и т.д.
          Program Prim3;      Label M;       Var      x:real;   BEGIN    x:=0;         M: writeln('x=',x,'cos x = ',cos(x));            x:=x+0.01;
            goto M; readln;      END.
Программа будет работать следующим образом: х присвоится значение 0; writeln выведет на экран текст, который указан в первых кавычках х =, далее извлечет из ячейки х значение и выведет его на экран; затем снова выведет текст cos х =, затем вычислит значение cos х и выдаст его на экран, т.е. машина выведет первую строку в виде
x = 0.0000000000Е + 00 cos х = 9.9999999999Е - 01.
После этого возьмется то х, которое было извлечено из ячейки памяти х (прежнее значение х), т.е. 0.0, к нему прибавляется величина 0.01 и результат снова занесется в ячейку памяти х так, что в х будет 0.01, после этого оператор goto m; передаст управление оператору, помеченному меткой м, т.е. оператору writeln, и машина выдаст новую строку:
x = 1.0000000000Е - 02 cos х = 9.9995000041Е - 01;
– выполнит оператор
х: =x + 0.01, получит х = 0.02;
– выведет строку
x = 2.0000000000Е - 02 cos х = 9.9980000666Е – 01;
– сделает х = 0.03 и т.д., до бесконечности, так как в данном алгоритме окончание работы не предусмотрено. Для завершения работы следует применить оператор if.

3.3. Оператор if
Общий вид: If булевское выражение then оператор else оператор;
Работа оператора: вначале вычисляется булевское выражение, значение которого в конечном итоге может быть только TRUE или FALSE. Если булевское выражение TRUE, то выполняется оператор, следующий за словом then, а затем происходит переход к оператору, следующему за if. Если булевское выражение false, то выполняется оператор, следующий за словом else, затем происходит переход к оператору, следующему за оператором if.
Замечание: после оператора, следующего за then, перед else символ ';' не ставится, так как оператор if еще здесь не закончен, а ';' ставится после окончания оператора. Возможно применение сокращенного оператора if:
If булевское выражение then оператор;
Здесь, если булевское выражение true, выполняется оператор, следующий за словом then, и происходит переход к оператору, следующему за оператором if. Если булевское выражение false, то оператор if игнорируется (вообще не выполняется), а выполняется оператор, следующий за if.
Переделаем "бесконечную" программу п. 3.2. в такую, которая остановится тогда, когда х станет равным 0.1.
          Program Prim4;       Label M;       Var      x:real;
   BEGIN    x:=0;
         M: writeln('x=',x,'  cos x = ',cos(x));
            x:=x+0.01;
            if x<=0.1 then goto M; readln;
      END.
Программа выдает результаты вычислений cos(x) для х = 0.01, 0.02, 0.03 и т.д., до 0.01.
В последней программе булевское выражение х < = 0.1. Какие бывают булевские выражения? Вообще говоря, булевское выражение после вычисления всегда истинно или ложно, т.е. TRUE или FALSE. Действительно, выражение х < = 0.1 может быть истинно, если х меньше или равно 0.1, и ложно – в противном случае. Вообще булевское выражение может строиться из булевских констант TRUE и FALSE; переменных булевского типа (в которых могут храниться TRUE или FALSE); обращений к функциям, которые возвращают TRUE или FALSE и отношений, соединенных между собой булевскими операциями и круглыми скобками.
Здесь следует расшифровать, что такое отношения и булевские операции. Примером отношения может быть приведенное выше х < = 0.01, т.е. в общем случае отношение – это два арифметических выражения, соединенных между собой операциями отношения. Операции отношения: = (равно), < >  (неравно), > (больше), > = (больше или равно), < (меньше), < = (меньше или равно).
Пример отношений:               а + b < = sin(c)
exp(p) > (cos(i) - a)/sgr(b).
Как мы уже говорили, эти отношения могут быть истинны или ложны в зависимости от конкретного значения величин, в них входящих, на момент вычисления.
Логические операции – это нам уже известные. Напомним, как они работают: or (или), and (и).
Имеется описание Var A,B: boobean;
Or – логическое сложение, читается как "или". Результат операций – истина, если или А, или В – истина, и ложь, если А и B ложны.
Например:                 А                          В                    А ог В
true                  true                    true
true                  false                   true
false                 true                    true
false                 false                   false
Замечание: данная операция аналогична арифметической OR, если TRUE заменить 1, а FALSE – 0.
АND - логическое умножение, читается "и". Результат операции – истина только тогда, когда и А, и В – истина, в остальных случаях результат – ложь.
  А                        В                     A and B
                             true                     true                    true
          true                       false                   false
          false                      true                    false
          false                      false                   false
Кроме того, удобно применять однокомпонентную операцию Not, которая вводится следующим образом: если А есть TRUE, то Not А есть FALSE и если А есть FALSE, то Not А есть TRUE.
С помощью этих операций можно построить условия любой сложности. Например, пусть необходимо решить задачу:
 
 
Напишем программу:
          Program Prim5;
       Var     a,x:real;
   BEGIN
             writeln('введите а,х');  readln(a,x);
          if (a>0) and (x>0) and (x<=0.5) then
             writeln('z=',a*sqr(x)/sin(x)) else
          if (a>0) and (x>=0.5) and (x<3) then
             writeln('z=',exp(x)) else
          if (a<=0) or (x<=0) then
             writeln('z=',sqrt(a)*sqrt(x)/sin(x)) else
             writeln('z=0');
                           readln;   END.
Замечание: в последнем примере мы видим, что операторы if могут быть вложены друг в друга. Вкладывать их можно неограниченное количество раз, причем новый if может начинаться как после слова then, так и после слова else.
Еще один пример: пусть дана область (заштрихованная на рис. 3.3). Мы вводим с клавиатуры координаты точки. Машина должна определить, принадлежит ли данная точка этой области или нет.
Разобьем область рис. 3.3 на несколько простых:
1. Внутренняя часть сектора, ограниченного отрицательной частью оси OX, положительной OY и окружностью с центром в начале координат и радиусом, равным 2.

Х

4

2

3

1

Y

6

5

0

		Рис. 3.3

 

2. Прямоугольник, ограниченный осями OX, OY и прямыми x=4, y=2.
3. Прямоугольник, ограниченный осями OX, ОУ и прямыми x=-2, y=-4.
4. Внутренняя часть сектора, ограниченного положительной частью оси OX, отрицательной OY и окружностью с центром в начале координат и радиусом, равным 3.
5. Внутренняя часть квадрата, ограниченного прямыми линиями x=2, x=3, y=-3, y=-4.
6. Область, лежащая внутри окружности с центром x=5, y=-3 и
радиусом= 1,5.
Программа:
           Program Prim6;
       Label N,K,L;
       Var x,y:real; f:char;
 BEGIN   N: writeln('введите координаты точки');
         readln(x);  writeln('x=',x);
         readln(y);  writeln('y=',y);
   if (x<=0) and (y>=0) and (sqr(x)+sqr(y)<=4)              {1-я область}
      or (x>=0) and (x<4) and (y>=0) and (y<=2)             {2- я область}
      or (x<=0) and (x>=-2) and (y<=0) and (y>=-4)        {3- я область}
      or (x>=0) and (y<=0) and (sqr(x)+sqr(y)<=9)         {4- я область}
      or (x>=2) and (x<=3) and (y<=-3) and (y>=-4)       {5- я область}
      or (sqr(x-5)+sqr(y+3)<=2.25)                                   {6- я область}
 then writeln('точка с координатами х=',x,' y=',y, 'принадлежит области')
else writeln('точка с координатами х=',x,' y=',y, 'не принадлежит оласти);
  L: writeln('будем ли ещё вводить координаты точки?, Y, N'); readln(f);
     if (f='Y') or (f='y') then goto N else
     if (f='N') or (f='n') then goto K else
     writeln('неправильно нажали клавишу, попробуйте ещё раз'); goto L;
     K: readln; End.

YYYY

Х

Рис. 3.4

0

полуплоскость

Замечание: для того, чтобы построить область, необходим здравый смысл и элементарные знания аналитической геометрии. Так, х>=0 определяет область (рис. 3.4)
x>=0 and x<=4  определяет полосу (рис. 3.5)

4

Y

Рис. 3.5

0

X

 

Вспомнив, что уравнение окружности с центром в начале координат x²+y²=r², имеем  x²+y²£4 (рис. 3.6),

Х

0

2

Y

Рис. 3.6

 

x £0 является полуплоскостью (рис. 3.7),

полуплоскость

Х

Y

Рис. 3.7

0

 

y ³0 определяет полуплоскость (рис. 3.8),

полуплоскость

Х

Y

Рис. 3.8

0

 

x £0 and y ³0 есть квадрант (рис. 3.9)

квадрант

Х

Y

Рис. 3.9

0

 

и, наконец,
x £0 and y ³0 and sqr(x)+sqr(y)£4 есть сегмент (рис. 3.10)

сегмент

Х

Y

Рис. 3.10

2

0

 

3.4. Оператор case (оператор выбора)
Общий вид:
Case выражение - селектор of
Список констант выбора 1: оператор 1;
Список констант выбора 2: оператор 2 ;
– – – – – – – – – – – – – – – – – – – – – – – – – –
Список констант выбора n оператор n;
else оператор end;
Здесь выражение-селектор есть выражение, которое после выполнения имеет любое скалярное значение, кроме вещественного (типы данных; разд. 2.6.), т.е. выражение-селектор может быть байтового, целого, логического, символьного, перечисляемого и интервального типов.
Список констант выбора состоит из перечня констант, разделенных запятыми, либо из констант, заданных интервалом, либо из комбинаций перечня констант и интервалов. Тип констант в списках Case должен соответствовать типу выражения селектор. Значения констант в списках не должны повторяться.
Работа оператора. вначале вычисляется выражение-селектор, затем полученное значение сравнивается с константами выбора, и, если значение выражения-селектора совпадает с какой-либо константой выбора, то выполняется оператор, стоящий после списка констант, в котором есть константа, совпадающая со значением выражения-селектора. если значение выражения-селектора не совпадает ни с одной из констант выбора, то выполняется оператор, следующий за else. Else может в Case отсутствовать, тогда в случае несовпадения констант оператор Case игнорируется.
Примеры:
1. Селектор целого типа, список констант представлены перечнем констант:



Program Prim7;Var i,z:integer;BEGIN  writeln('введите целое i'); readln(i);
   Case i of
   1,2,5:    writeln('i=',i,'  z=',i+10);
   12,16:    writeln('i=',i,'  z=',i+100);
   31,35,46: writeln('i=',i,'  z=',i+1000);
   else writeln('неправильно задано i'); end;
            readln;  END.
2. Селектор целого типа – список констант представлен диапазоном.
вводится целое i, определить, находится ли оно в диапазоне 1-10 или 11-100, или 101-1000, либо вне этих диапазонов.
Program Prim8;Var i:integer;BEGIN  writeln('введите целое i'); readln(i);   Case i of
   1..10:      writeln(' число в диапазоне 1-10');
   11..100:    writeln(' число в диапазоне 11-100');
   101..1000:  writeln(' число в диапазоне 101-1000');
   else writeln(' число вне диапазона 1-1000'); end;
            readln;  END.
3. Селектор целого типа, список констант представлены перечнем констант и диапазоном:

            Program Prim9;       Var i:integer;   x,m,a,b,c,d:real;  BEGIN    writeln('введите значение i'); readln(i);           writeln('введите значения  x,m,a,b,c,d');
           readln(x,m,a,b,c,d);
       Case i of
 1,2,4,8,11..20,24,28,30: writeln('y=',(x+1)/(sqr(x)+2)-ln(m)+2*a/b);
 31,45..55:               writeln('y=',(sqr(a)+m)/sqrt(b+m)-3*a*b/c+d);
 58,60,63..76,78,93,100:  writeln('y=',sqr(x)-a*x+sqr(sin(a*x)-exp(x))
                                         /(1-ln(sqr(x)-exp(х/2))));
   else writeln('неправильно задано i'); end;
            readln;  END.
4. Селектор знакового типа:
            Program Prim10;       Var name:char;
  BEGIN    writeln('введите шифр'); readln(name);
           Case name of
 'S','s': writeln(' факультет самолето- и вертолетостроения');
 'D','d': writeln(' факультет авиадвигателестороения');
 'Y','y': writeln(' факультет систем управления');
 'L','l': writeln(' факультет летательных аппаратов');
 'R','r': writeln(' факультет радиотехнический ');
 'M','m': writeln(' факультет инженерно - менеджерский'); 'Z','z': writeln(' факультет заочного обучения');
     else     writeln('введенный шифр не соответствует ни одному ',
                             'из факультетов ХАИ'); end;            readln;  END.     5. Селектор перечисляемого типа:
              Program Prim11;     Var        season:(winter,spring,summer,autumn);        rez:integer;BEGIN   season:=spring;        Writeln('результат ord(season)=',ord(season));           case season of           winter:  writeln('winter');
           spring:  writeln('spring');
           summer:  writeln('summer');
           autumn:  writeln('autumn');
      end;   readln;
 END.

4. Циклические программы

Наиболее часто в практике программирования встречаются циклические программы. В циклических программах какой-либо алгоритм повторяется многократно, при этом один из параметров изменяется. Например, описанная в п. 3.3 программа Рrim 4 является классическим примером циклического алгоритма. Операторов цикла в Паскале три: for, repeat, while.
4.1. Оператор for
Оператор состоит из заголовка, в котором определяется порядок изменения переменной параметра цикла и тела цикла, являющегося многократно повторяющимся алгоритмом. Общий вид оператора:
for – параметр цикла: = начальное значение to, конечное значение do {заголовок}; оператор; {тело цикла}. Этот оператор применяется, если начальное значение < конечного значения;
for – параметр цикла:=начальное значение downto, конечное значение do; оператор; применяется, если начальное значение > конечного значения.
Пример: найти сумму квадратов целых чисел от 8 до 1.24.
          Program Prim12;     Var           i,s:integer;    BEGIN   s:=0;           for i:= 8 to 124 do             s:=s+sqr(i);             writeln('s=',s);              readln;
                      END.
Работа программы. В разделе Var выделяется ячейка памяти с именем i и s для хранения величин. Поскольку в S мы должны накапливать сумму, то вначале занесем в S ноль. Затем заголовок цикла присваивает i=8. далее выполняется тело цикла: извлекается содержимое ячейки S (а там у нас 0) и к этому содержимому прибавляется sgr(i), т.е. i²=8². Результат присваивается ячейке S, т.е. в S теперь 8².
Проверяется, не стал ли параметр цикла больше конечного значения параметра 128. Это не произошло, поэтому i присваивается следующее значение равное 9 и вновь выполняется тело цикла, т.е. S:=8²+9². Можно сказать так: S присвоить тому S, которое было раньше, + следующее i². Так как цикл еще не закончился, то i станет равным 10, а S присвоится тому S, которое было раньше, т.е. 8²+9², и к нему прибавится еще текущее i², т.е. 10². Этот процесс повторяется до тех пор, пока параметр цикла не станет равным 124. Тогда в последний раз 124² прибавляется к накапливаемой сумме.
Итак:  выполнение цикла         значения i                  значения S
  1                                8                                         8²
  2                                9                             8²+9²
  3                               10                          8²+9²+10²
– – – – – – – – – – – – – – – – – – – – – – – – – – – – – –
 116                           117                  8²+9²+10²+…+123²
 117                             124              8²+9²+10²+…+123² +124²
При i=125 происходит выход из цикла и переход к оператору writeln ('S=' ,S);
Эта, казалось бы, правильно написанная программа дает результат        S=-12250. Как может получиться отрицательный результат при суммировании квадратов – заведомо положительных чисел? Такой результат мы получаем путем суммирования и занесения результатов в ячейку S типа integer, а в integer могут быть помещены числа в диапазоне -32768 +32767, поэтому после переполнения ячейки памяти в знаковый разряд переносится 1, которая интерпретируется машиной как '-'. Чтобы этого избежать, можно описать S как longint. Тогда результат работы программы будет правильный и равен 643110.
          Program Prim12a;     Var           i,s:longint;
   BEGIN   s:=0;
           for i:= 8 to 124 do
              s:=s+sqr(i);
             writeln('s=',s);
              readln;                END.
Можно также описать S как real.          Program Prim12b;     Var           i:integer;  s:real;
   BEGIN   s:=0;
           for i:= 8 to 124 do
              s:=s+sqr(i);
             writeln('s=',s);
              readln;
                END.
Результат работы этой программы будет равен 6.4311000000E+05, что то же самое, что и 643110, если считать, что запись 6.4311000000E+05 равносильна математической записи 6,4311*10⁺⁵.
Правила применения оператора цикла for
1.Тело цикла - всегда один оператор. Если нужно, чтобы тело цикла состояло из нескольких операторов, то их объединяют в один с помощью операторных скобок begin, end.
          for i:=l to n do
            Begin       S:=S+sin(x)/cos(x);
                       x=x+0.01;
                       writeln('S=' ,S)
       end.
Операторы, взятые в операторные скобки begin, end, считаются одним составным оператором.
2. Начальное и конечное значения параметра цикла в общем случае являются выражениями. Тип этих выражений и тип параметра цикла должны совпадать. Здесь допускается применение любых типов, которые упорядочены с каким-либо фиксированным шагом, это может быть любой скалярный тип, кроме вещественного, т.е. байтовый, целый, символьный, перечисляемый, интервальный, булевский. на практике чаще всего применяют целочисленный тип.
3. В теле цикла параметр цикла не должен изменяться.
4. Нельзя с помощью оператора перехода goto войти в тело цикла, минуя заголовок.
5. Выйти из тела цикла в программу можно по if..goto, не дожидаясь полного перебора параметров цикла.
Пример: написать программу, выводящую буквы латинского алфавита в одну сторону, с пробелом между ними.
Применяем здесь в качестве параметра цикла символьную переменную, в качестве начального значения параметра – константу 'A', конечного – 'Z'.
          Program Prim13;
     Var
         i:char;
   BEGIN
           for i:='a' to 'z' do
             write(' ',i);
              readln;      END.
Пример: вычислить значение определенного интеграла на участке a,b для функции cos х, т.е. определить площадь, заштрихованную на рис. 4.1.

Х

b

а

Рис. 4.1

0

Y

 

Применим метод трапеций, суть которого заключается в том, что область делится на ряд трапеций, площади которых вычисляются и суммируются. Чем на большее количество трапеций мы разделим область, тем точнее получим результат (см.рис.4.2).

Х

b

а

Рис. 4.2

0

Y

 

Program Prim14;
     Var i,n:integer;   a,b,x,h,s:real;
BEGIN  writeln(' введите к-во точек разбиения n и величины а, b');
       readln(n,a,b);
       h:=(b-a)/n; s:=0; x:=a;
     for i:=1 to n do
   Begin   s:=s+(abs(cos(x))+abs(cos(x+h)))/2*h;
            x:=x+h; end;
       writeln('s=',s);
                   readln;         END.
Замечание: при вычислении S (так как функция пересекает ось OX) часть площадей может иметь отрицательное значение, поэтому мы берем abs(f(x)).
Усложним задачу: пусть нужно найти площадь криволинейной трапеции (интеграл), где функция от точки а до b sin(x), а после b до с cos(x).
         Program Prim15;
     Var i,n:integer;   a,b,c,x,h,s,fxdivd,fxposl:real;
BEGIN  writeln('введите к-во точек разбиения n и величины а, b, c');
       readln(n,a,b,c);
       h:=(c-a)/n; s:=0; x:=a;
     for i:=1 to n do
   Begin
   { определимся, по какой из функций считать стороны трапеций }
   if (x>=a) and (x<=b) then fxdivd:= abs(sin(x)) else
         fxdivd:=abs(cos(x));
   if (x+h>=a) and (x+h<=b) then fxposl:= abs(sin(x+h)) else
         fxposl:=abs(cos(x+h));
         s:=s+(fxdivd+fxposl)/2*h;
         x:=x+h; end;
       writeln('s=',s);
                   readln;         END.
В последних двух программах мы заменяем площадь криволинейной трапеции (интеграл) суммой трапеций. При этом нам неизвестно, какую ошибку мы допустим; знаем, что чем больше точек разбиения, тем точнее будет результат. Поставим задачу: совершенно точно знать, что мы посчитаем интеграл с точностью не менее заданной, например, что разность между площадью криволинейной трапеции и суммой прямоугольных трапеций будет не больше Е = 0.01. Для этого нам нужно посчитать результат для количества точек, например 10, затем – 100. Сравнить величины площадей, и, если их разность будет меньше Е, то можно с уверенностью сказать, что площадь для разбиения на 100 интервалов будет найдена с точностью не менее Е. Если разность между расчетами на 10 и 100 интервалов больше Е, то следует разбить область интегрирования на 1000 интервалов и сравнить сумму для 100 интервалов с суммой для 1000 интервалов, и если их разница будет меньше Е, то за результат принять площадь, посчитанную для 1000 разбиений и т.д. рано или поздно мы получим искомый результат. Сравнения сумм площадей трапеций будем производить с помощью оператора if.
Пусть функция будет cos(x). Напишем программу:
     Program Prim16;
     Label NAH,KON;
     Var i,n:integer;   a,b,x,h,sdivd,spos,e:real;
BEGIN  writeln('введите точность е и границы a, b');
       readln(e,a,b);    sdivd:=9.9e+10; h:=0; n:=10;
   NAH:  spos:=0;  h:=(b-a)/n;  x:=a;
         for i:=1 to n do
    Begin spos:=spos+(abs(cos(x))+abs(cos(x+h)))/2*h;
         x:=x+h;  end;
     if abs(spos-sdivd)<=e then Begin
        writeln('s=',spos,'  n=',n); goto KON; end
        else sdivd:=spos; n:=n*10; x:=a; goto nah;
   KON:  readln;  END.
Работа программы: for i: = i to n do, в первый раз оператор
Spоs: = spos+(abs(cos(x))+abs(cos(x+h)))/2*h
посчитает значение интеграла для 10 точек разбиения. Затем if сравнит полученное значение spos с 9.9Е+10. Конечно, разница между этими величинами не будет меньше е, тогда мы забудем число 9.9Е+10, так как присвоим sdivd: = spоs, чтобы при следующем выполнении if сравнивать предыдущее и последующее значения интеграла. После этого увеличим количество точек разбиения n: = n*10 и вернемся на начало вычисления spos, т.е. интеграла для 100 интервалов goto nach. После нового вычисления spos сравним 100 интервалов для 10 интервалов sdivd. Если разность между ними не меньше Е, то забудем значение s для 10 интервалов и занесем в sdivd значение для 100 интервалов. Затем вычислим значение интеграла для разбиения 1000 и результат занесем в spos, сравним sdivd и  spos и т.д.
4.2. Оператор repeat. Общий вид
В отличие от for, оператор repeat (а также while) применяют тогда, когда неизвестно точно, сколько раз будет выполняться тело цикла. Общий вид оператора
repeat
оператор;
оператор;
  – – – – – – – –
   оператор until булевское выражение;
Работа оператора. Сначала выполняются операторы, составляющие тело цикла, затем выполняется булевское выражение, и если оно ложно, вновь выполняется тело цикла. Выход из цикла происходит, когда булевское выражение станет истинным.
Явного перебора параметров в repeat не предусмотрено, поэтому изменение параметров осуществляется в теле цикла. Здесь же мы должны позаботиться , чтобы рано или поздно булевское выражение стало истиной.
Замечания: 1.Тело оператора repeat выполняется по меньшей мере один раз. Оператор repeat еще называют циклом с послеусловием.
2. Перед until ';' не ставится.
Пример: найти сумму четных чисел в интервале от 0 до 100.
         Program Prim17;
     Var i,s:integer;
  BEGIN   i:=0;    s:=0;
     repeat
     i:=i+2; s:=s+i
      until i>100;
       writeln('s=',s);
        readln;   END.
Пример: найти ток в цепи переменного тока в зависимости от частоты тока. Известно, что при последовательном соединении активной, емкостной и индукционной нагрузок сила тока может быть вычислена по формуле

Пусть U = 220, R = 100, L = 0.57, С = 3.2*10^-3, F_{начальное}=10; F будем менять с шагом 0.5. Печатать все результаты. Результаты, когда i>3, нас не интересуют.
         Program Prim18;
    Var i,r,f,l,c,u:real;
  BEGIN   writeln(' введите значения u r l c');
          readln(u,r,l,c);
        f:=50;
    repeat i:=u/sqrt(sqr(r)+sqr(2*pi*f*l-1/(2*pi*f*c)));
           f:=f-1;
           writeln('f=',f,'  i=',i)
           until i>3;
                     readln;  END.
4.3. Оператор While
Оператор While цикла с предусловием.
While – булевское выражение; do – тело цикла.
Работа оператора. Вначале вычисляется булевское выражение, и если оно истинно, то выполняется тело цикла; если оно ложно, то происходит выход из цикла.
Тело цикла – один оператор, как правило, составной. Мы должны позаботиться о том, чтобы булевское выражение в теле цикла на каком-то этапе стало ложным, иначе цикл никогда не закончится. Цикл можно сделать умышленно бесконечным, написав: while true do оператор;
Мы будем применять эту конфигурацию при написании программ обработки файлов.
Пример: найти сумму четных чисел в интервале от 0 до 100.
         Program Prim19;
    Var i,s:integer;
  BEGIN   i:=0; s:=0;
    while i<100 do
       Begin  i:=i+2;   s:=s+i; end;
           writeln('s=',s);
               readln;  END.
Пример: в цепи переменного тока найти ток в зависимости от его частоты.

         Program Prim20;
    Var i,r,f,l,c,u:real;
  BEGIN   writeln('введите значения u,r,l,c');
          readln(u,r,l,c);
        f:=50;
    while i<3 do
        Begin   i:=u/sqrt(sqr(r)+sqr(2*pi*f*l-1/(2*pi*f*c)));
                f:=f-1;
                writeln('f=',f,'  i=',i); end;
                writeln('i>3, i=',i);
                     readln;  END.
4.4. Вложенные циклы
Поскольку тело любого цикла состоит из операторов или составного оператора, то ничто не помешает в теле цикла располагать другие операторы цикла. Рассмотрим работу программы:
          Program Prim21;
     Var
         i,j:integer;
   BEGIN
           for i:=1 to 5 do
      Begin       writeln;
           for j:=20 to 23 do
             write('i=',i,' j=',j);
      end;
              readln;      END.
Для цикла for i:=1 to 5 do телом цикла является
begin for j:=20 to 23 do
write('  i= ', i, ' ,  j = ', j);
 writeln;    
 end;
Назовем этот цикл внешним. Кроме того, имеется внутренний цикл
for j: = 20 to 23 do с телом write (' i = ', i , j =', j);
Работа программы. Вначале машина встречает внешний цикл и начинает его выполнять: присваивает i=l, затем переходит к его телу, а здесь встречает внутренний цикл и присваивает j значение 20, после чего выполняет тело внутреннего цикла, т.е. выводит на экран i=l, j=20. Так как внутренний цикл еще не окончен, то машина продолжает его выполнять, т.е. присваивает j значение 21 и добавляет к уже выведенной строке i=l, j=21.
Заметим, что оператор write отличается от оператора writeln тем, что он не начинает вывод с новой строки, а продолжает писать в той же строке, т.е. после второго выполнения внутреннего цикла на экране появится
i= 1, j=20 i= 1, j=21.
Машина продолжит выполнение внутреннего цикла, и, когда он закончится (выполнится для j = 20.21.22.23), на экране будет строка
i = 1 j = 20 i =l  j = 21 i = 1  j = 22  i = 1  j = 23.
Внутренний цикл закончится, однако тело внешнего цикла еще не закончилось, поэтому выполняется оператор writeln, который переводит курсор на новую строку. После этого тело внешнего цикла закончится, но сам цикл отработал только для i = 1. Поэтому внешний цикл продолжит работу, присвоив i: =2 и вновь начав выполнение своего тела. Встретив внутренний цикл j:=1, на экран с новой строки выведется: i=2, j=20, затем j:=2 и к этой строке добавится i=2, j=21 и т.д., пока не закончится внутренний цикл.
Таким образом, внешний цикл, изменяя i от 1 до 5, заставит каждый раз выполняться полностью внутренний цикл, и в результате работы программы на экране появится:
i=l, j=20      i=1, j=21     i=1, j=22     i=1, j=23
i=2, j=20     i=2, j=21     i=2, j=22     i=2, j=23
i=3, j=20     i=3, j=21     i=3, j=22     i=3, j=23
i=4, j=20     i=4, j=21     i=4, j=22     i=4, j=23
i=5, j=20     i=5, j=21     i=5, j=22     i=5, j=23
Вкладывать циклы друг в друга можно любое количество раз, необходимо лишь помнить, что количество выполнений самого внутреннего тела цикла при этом будет расти в геометрической прогрессии. Так, например,
for i:=l to 100 do
  for j:=l to 100 do
    for k:=l to 100 do
   writeln (i, j, k);
дает столбик цифр:
111
112
113
114
– – – – –
121
122
123
124
– – – – –
211
212
213
– – – – –
  100100100,
что составляет 1000000 строчек.
Пример: найти rez = f (х₁) + f (х₂ )+.. .+f (x₆),
где
f(x) считать с точностью не менее e=0.01;
х₁=0.1, затем x_n=x_n-l+0.2, пока х не станет равным 1.1.
Нам нужно вычислить rez. Поскольку это будет сумма, то вначале положим rez=0, затем вычислим f(х₁) с нужной точностью и добавим к rez, и т.д., то есть:
Rez : = 0 ; x:=0.l;
for i:=l to 6 do
Begin  Rez:=Rez+f(x);
x:=x+0.2;
end;
Теперь в данную программу нужно "вставить" вычисленные f(x) с необходимой точностью. Для этого найдем сумму, составляющую f(x) для n элементов, затем – для n+l элемента, сравним их по модулю и, когда разность между ними будет меньше Е, сумму для n+l элемента ряда примем за более точную и добавим к Rez. При вычислении f(x) количество членов ряда, которые нам придется суммировать, не известны, поэтому придется применять цикл типа repeat или while. Кроме того, в элементы ряда входит 2n! Факториал подсчитывается по схеме 1! = 1, 21 = 1*2; з! =1*2*3 и т.д., т.е. например, 8! = 1*2*3*4*5*6*7*8. Далее, при подсчете следующего значения ряда, можно величину 2n! найти по схеме: fak: = fak*(n-l)*n. Ряд у нас знакопеременный, т.е. меняется '+', '–' перед каждым членом ряда. Меняем знак с помощью схемы znak: = znak*(-1). Если исходный знак = +l, то в ячейке znak будет храниться то +l, то -1.
С учетом сказанного выше f(x) с нужной точностью вычисляется:
fxdivd: = 0; fxpos: =l, n: = 2; znak: = 1; fak: = 1;
while Abs(fxpos – fxdivd) > = 0.01 do
Begin fxdivd: = fxpos: znak: = znak*(-1); fak: = fak*(n-l)*n;
     fxpos: = fxpos+znak*exp(n*in (x))/fak;
     n: = n+2;
     end;
Соединив оба фрагмента программы и снабдив их описаниями, получим готовую программу:
        Program Prim22;
    Var n,fak,i,znak:longint;
        rez,x,fxdivd,fxpos:real;
 BEGIN  rez:=0; x:=0.1;      writeln;
        for i:= 1 to 6 do
     Begin fxdivd:=0; fxpos:=1; n:=2; znak:=1; fak:=1;
           while abs(fxpos-fxdivd)>=0.001 do
        Begin znak:=znak*(-1); fak:=fak*(n-1)*n;
              fxdivd:=fxpos;
              fxpos:=fxpos+znak*exp(n*ln(x))/fak; n:=n+2;
        end;  writeln('x=',x*180/pi,'(ја ¤)  cos(x)=',fxpos);
              x:=x+0.2; rez:=rez+fxpos; end;
           writeln('rez=',rez);
                      readln;              END.

5. Ввод – вывод

5.1. Общие положения
Ввод-вывод выполняется с помощью операторов read, readln – читать и write, writeln – писать. Читать и писать определяется по отношению к оперативной памяти (ОП). Так, read, readln – читать, т. е. вводить с внешнего устройства (файла) и заносить данные в ОП, write, writeln – писать, т.е. выводить данные из ОП на внешний файл (устройство). Файл состоит из компонент, структура которых определяется при его создании.
Внешними устройствами (файлами) могут быть: экран монитора, клавиатура, память на гибких дисках, память на жестком или лазерном дисках, линии связи и т.п. В операторах ввода-вывода указывается имя файла, с которым будет производиться ввод-вывод, этот файл считается логическим. Кроме того, есть понятие физического файла. Физический файл – это устройство, Например, гибкий магнитный диск, жесткий диск и т. д. Логический файл имеет имя, которое можно указывать в операторах ввода-вывода.
5. 2. Ввод
Ввод производится с помощью операторов read или readln.
Формат операторов: read (FV, х₁, х₂, ..., х_n);
или    readln (FV, х₁, х₂, ..., х_n);
где FV - имя файла, с которого считывается информация, а х₁, х₂ и т.д. – ячейки памяти, в которые заносится информация, считываемая с файла. Если FV отсутствует, то чтение производится с клавиатуры. Файл представляет собой как бы ленту с компонентами (рис 5.1):

1 комп.

2 комп.

3 комп.

n комп.

– – – – – – – – – – – – – – – – –

Рис. 5.1

 

Компонента может быть данным любого типа (см. с.9). Оператор readln начинает считывание с начала новой компоненты, а read может начинать не с начала. Если прежнее чтение закончилось внутри компоненты, то следующий read будет читать с того места, на котором закончилось предыдущее чтение (рис. 5.2).

1-е данное

2-е данное

3-е данное

3,2

8,6

3,2

7,01

8,3

0,61

1-я компонента

2-я компонента

Рис. 5.2

файл

1-е данное

2-е данное

3-е данное

 

В данном случае файл организован на каком-либо носителе (например на диске) и состоит из компонент, в каждой находится по три данных. Если для чтения из файлов применить операторы read (a, b); read (c, d); то в памяти будет а=3.2, b=8.6, c=0.2, d=7.01; если – операторы readln (a, b); readln (c, d), то в памяти а=3.2, b=8.6, c=7.01, d=8.3.
Замечание. При чтении данных с клавиатуры необходимо всегда использовать операторы readln (х₁, х₂, ..., х_n); (без указания имени файла).
5. 3. Вывод
Вывод производится с помощью операторов write или writeln.
Формат операторов: write (FV, x1, x2, ..., xn);
                                    writeln (FV, x1, x2, ..., xn);
Работа оператора: в файл с именем FV выводится информация из ячеек оперативной памяти x1, x2, ..., xn. Если FV отсутствует, вывод производится на экран монитора. При этом оператор write начинает вывод в то место компоненты файла, где был закончен прежний вывод, а оператор writeln начнет вывод с начала новой компоненты. Проиллюстрируем работу этих операторов на примере вывода данных на экран монитора.
Имеется фрагмент программы (напомним, что текст в скобках { } является комментарием и машиной не воспринимается);
  Var  a, b, c, d : integer;
Begin   a: = 25; b: = 38; c: = 126; d: = 256;
  writeln (a, b, c, d);                 {результат 2538126256}
  writeln (a, b); writeln (c, d);  {результат 2538 }  
                                                       {126256 }
   writeln (' a= ', a, ' b= ', b);     {результат a=25 b=38}
  {символы в апострофах   выводятся как строковая константа}
  write (a, b, c, d);                     {результат 2538126256}
  write (a, b); write (c, d);        {результат 2538126256}
  write (' a= ', a, '   b= ', b);    
  write ('   c= ', c, '   d= ',d);     {результат  a=25   b=38   c=126    d=256 }
5. 4. Некоторые возможности ввода-вывода
Оператор Readln; (без скобок, имени файла и списка ячеек памяти) вызовет остановку машины. Продолжение выполнения программы произойдет после нажатия кнопки Enter. Это очень удобно при просмотре каких-либо промежуточных результатов, например:
writeln ('a=  ', a); Readln;
Машина выведет а=. . . и остановится, после нажатия кнопки Enter выполнение программы продолжится.
Оператор writeln; вызовет переход к новой компоненте, в случае вывода на экран – к новой строке экрана. Рассмотрим фрагмент программы:
  Var  i, k;  integer;
Begin  i: = 126; k: = 1997;
  writeln ('i= ', i, '   k= ', k);   {результат i=126   k=1997}
   writeln (i: 3, k: 6);                 {результат 126    1997}
{числа, указанные после : определяют поле вывода, при выводе }
{данное "прижимается" в поле к правому краю 1997}
  writeln (i: 7, k: 8);                    {результат    ....126 ....1997}
Пример:
Program Prim23;Var r,pl:real;BEGIN      writeln('введите радиус шара'); readln(r);      pl:=4*pi*sqr(r);writeln('____________________________________________________');writeln('! площадь шара рад.r=',r:14,' = ',pl:14,'!');writeln('____________________________________________________');
readln; END.
В результате на экран выведется информация:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! площадь шара радиусом  R=хххххххххххххх  =  ххххххххххххххх  !
- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - -
Здесь ххххххххххххх - изображения чисел.
С помощью такого приема строятся различные таблицы.
При выводе величины Real в операторах write и writeln отводится поле шириной 18 символов для вывода данных с "плавающей точкой" в следующем формате..х.ххххххххххЕ*хх; здесь х – цифры, * – знак, который может быть '+' или '-', '.' – десятичная точка, отделяющая целую часть от дробной. Перед целой частью, в случае отрицательного данного, может стоять знак минус.
Таким образом:
в памяти машины     вид оператора        результат
R = 715.432                  writeln (R);               7.1543200000E+02
R = -1.919e+01            writeln (R);              -1.9190000000E+01
R = -567.986                 writeln (R);              -5.6798600000E+02
Напоминаем: Е+02 означает 10², а 7.1543200000Е+02 равносильно математической записи 7.15432*10².
Ширину поля вывода можно указывать для данных любого типа, например:
в памяти машины          вид оператора                      результат
R = 511.04               writeln (R: 22);                      ......5.1104000000E+02
ch = 'x'                            writeln (ch: 3);                       ..x
ch = '!'                             writeln (ch: 2, ch: 4,ch: 3);    .!...!..!
strin = 'Day  N'               writeln (strin: 8);                    ...Dau.N
S = 'RDD'                       writeln (S: 5, S: 5);                ..RDD..RDD
Для данных типа Real можно еще указывать кроме ширины поля также количество цифр после десятичной точки.
Вывод данных с "фиксированной точкой".
в памяти машины    вид оператора                   результат       
R = 511.04                 writeln (R: 8: 4);                511.0400
R = -46.78                  writeln (R: 7: 2);               .-46.78
R = -46.78                  writeln (R: 9: 4);               .-46.7800
R = -46.78                  writeln (R: 12: 3);              .....-46.780
Program Prim24;
Var r1,r2:real;
BEGIN    r1:=-46.78; r2:=-46.78;
      writeln('r1=',r1:12:3,'  r2=',r2:9:4);
      writeln('_______________________________');
    readln; END.

6. Массивы

6. 1. Описание массивов
В языке Паскаль можно обрабатывать не только отдельные переменные, но и их совокупности. Одной из таких совокупностей (структурированных) данных является массив. Массив – это упорядоченная совокупность данных, состоящих из фиксированного количества элементов одного и того же типа. Тип элементов, из которых состоит массив, может быть как скалярным, так и структурированным. Этот тип называется базовым, им может быть целый, байтовый, логический, символьный, перечисляемый, интервальный, вещественный, множественный типы и т. д.
Массивы могут быть одномерные:
вектор a₁, a₂, a₃, a₄, a₅, ...a_n,  т. е. линейка величин -  -  -  -  -  -  -  -  -  -  -  - 
двумерные массивы представляют собой матрицы:
a₁₁ a₁₂ . . . a_1n ,   т. е. матрицу величин или прямоугольник величин
a₂₁ a₂₂ . . . a_2n              ----     ----    ----      
- - - - - - - - - -            ----     ----    ----
a_m1 a_m2 . . . a_mn           ----     ----    ----
Трехмерный массив – трехмерная матрица или параллелепипед величин, состоящий из набора двухмерных матриц (рис.6.1).

Рис. 6.1

 

Линейка трехмерных массивов составляет четырехмерный массив, матрица трехмерных массивов (параллелепипедов величин) – пятимерный массив и т. д. Количество размерностей не ограничено, однако следует помнить о том, что количество элементов в массиве растет в геометрической прогрессии от количества размерности.
Описание массивов может быть, как и других величин, прямое или через описание типов Тype.
Прямое описание Var – идентификатор, идентификатор, …, идентификатор:
array – [границы индекса, границы индекса, …, границы индекса] of – базовый тип.
Описание через TYPE:
 TYPE  – имя  типа=array [границы индекса, границы индекса,  . . ., границы индекса] of базовый тип;
Var – идентификатор, идентификатор, . . . , идентификатор: имя типа;
Пример: описать двумерные массивы с количеством элементов 4 строки по 5 элементов в каждой строке (5 столбцов),
базовый тип real, массивов три: а, b, c.
Прямое описание:
      Var a, b, c: array [1. . . 4, 1 . . . 5] of real;
через TYPE:
       TYPE mas=array [1. . . 4, 1. . . 5] of real;
       Var a, b, c : mas;
Для указания границ массива можно применять предварительно описанные константы:
       Const  a1=4; a2=6;
       Var mas y1: array [1. . . a1, 1. . . a2] of integer;
Доступ к элементам массива производится через переменные с индексами. Индексы должны не выходить за пределы границ в описаниях массива.
Например, описана ma: array [1. . . 12] of integer;  выделено 12 ячеек  памяти   для хранения целых данных типа integer с именами
ma [1], ma [2], ma [3], и т. д. , ma [12].
Пример:
         TYPE  klass = ( K1, K2, K3, K4);
                    znak = array [1. . . 255] of char;
         Var m1: znak;  {описан массив с именем M1 типа znak для хранения данных}
{типа char  в  количестве 255 шт. M1[1], M1[2], ... , M1[255]}
M2: array [1...60] of integer     {прямое описание, описан массив с именем}       
{M2 для хранения   целых  величин. всего }
                                                       {ячеек 60.M2[1], ... , M2[60] }
M3: array [1 ... 8] of klass;  {описан массив М3, выделено 8 ячеек памяти М3[1], ... ,  M3[8],}
          {в каждой из которых могут храниться только величины из}                    
{klass, т. е. туда могут быть занесены только K1, K2, K3, K4}
Пример:
                      Program Prim25;
    Var i:integer;  s:real;
        a:array[1..10] of real;
  BEGIN
     for i:=1 to 10 do
      Begin writeln('введите значение величины a[',i,']');
 readln(a[i]); end;            { ввод элементов массива }
    s:=0;
     for i:=1 to 10 do
      s:=s+a[i];        { нахождение суммы элементов а [i] }
    writeln('s=',s);    readln;
                                END.
Здесь мы проиллюстрировали работу с одномерным массивом. Конечно, данную программу легче представить в следующем виде:
           Program Prim25a;
    Var i:integer;  s,a:real;
  BEGIN
      s:=0;
     for i:=1 to 10 do
      begin writeln('введите значение величины a[',i,']');
      readln(a);         { ввод по одному а (без массива)}
                    { имитация ввода элементов массива }
      s:=s+a;
    writeln('s=',s);  end;
      readln;                                END.
Никаких массивов здесь не применять. На примере prim25 мы четко проследим два момента: занесение данных в массив (первый цикл) и обработка данных в массиве (второй цикл).
Пример: дана квадратная матрица. Вывести на экран элементы ее главной диагонали (элементы главной диагонали перечеркнуты)
    a₁₁   a₁₂    a₁₃   a₁₄
    a₂₁   a₂₂    a₂₃   a₂₄
    a₃₁   a₃₂    a₃₃   a₃₄
    a₄₁   a₄₂    a₄₃   a₄₄
Если принять, что индекс строк i, а столбцов j, то на главной диагонали лежат элементы, у которых i = j.
           Program Prim26;
    Var i,j,k:integer;
        a:array[1..4,1..4] of integer;
        b:array[1..4] of integer;
  BEGIN
     for i:=1 to 4 do
     for j:=1 to 4 do
      Begin   writeln('введите a[',i,',',j,']');
      readln(a[i,j])    end;  {ввод элементов массива а закончен }
     k:=1;                        { устанавливаем индекс для занесения b[1] }
     for i:=1 to 4 do
     for j:=1 to 4 do
    if i=j then Begin b[k]:=a[i,j]; k:=k+1; end;
{отыскиваем и заносим в b[1] a[1,1]}
                             {меняем k и заносим в b[2] a[2,2] и т.д.}
    writeln('на главной диагонали лежат злементы:');
    writeln('a[1,1]=',b[1],' a[2,2]=',b[2],' a[3,3]=',b[3],' a[4,4]=',b[4]);
      readln;
                                END.
В этой программе машина запросит ввод 16 элементов матрицы А, найдет элементы главной диагонали, занесет их в массив B и напечатает результат в следующем виде:
на главной диагонали лежат элементы:
A[1,1] = число     A[2,2] = число     A[3,3] = число     A[4,4] = число
                      Program Prim26a;    Var i,j,k:integer;        a:array[1..4,1..4] of integer;        b:array[1..4] of integer;  BEGIN     for i:=1 to 4 do
     for j:=1 to 4 do
      Begin writeln('ввести a[',i,',',j,']');
      readln(a[i,j]); end;       { ввести массив а }
                                        { вывести элементы массива а }
     for i:=1 to 4 do  Begin writeln;            { перевести курсор на новую строку }
        for j:=1 to 4 do
     write(a[i,j],'  ');      { вывести элементы в одну строку }
  end;
     k:=1;
     for i:=1 to 4 do
     for j:=1 to 4 do
    if i=j then Begin b[k]:=a[i,j]; k:=k+1; end;
                             {отыскиваем и заносим в b[1] a[1,1]}
                             {меняем k и заносим в b[2] a[2,2] и т.д.}
    writeln('  на главной диагонали лежат элементы:');
    writeln('a[1,1]=',b[1],' a[2,2]=',b[2],' a[3,3]=',b[3],' a[4,4]=',b[4]);
      readln;
                                END.
Эта программа отличается от предыдущей тем, что она вначале вводит массив А, затем его распечатывает в виде
    a₁₁   a₁₂    a₁₃   a₁₄
    a₂₁   a₂₂    a₂₃   a₂₄
    a₃₁   a₃₂    a₃₃   a₃₄
    a₄₁   a₄₂    a₄₃   a₄₄
а после выводит результаты в том же виде, что и программа Prim26, т.е.
           Program Prim26b;
    Var i,j,k,n:integer;
        a:array[1..40,1..40] of integer;
        b:array[1..40] of integer;
  BEGIN   writeln('введите размерность массива');
          readln(n);
     for i:=1 to n do
     for j:=1 to n do
      Begin writeln('введите a[',i,',',j,']');
      readln(a[i,j]); end;
                             { вывести элементы массива а }
     for i:=1 to n do
  Begin writeln;            {перевести курсор на новую строку}
        for j:=1 to n do
     write(a [i , j],'  ');      {вывести элементы в одну строку}
  end;
     k:=1;
     for i:=1 to n do
     for j:=1 to n do
    if i=j then Begin b[k]:=a[i , j]; k:=k+1; end;
                             {отыскиваем и заносим в b[1] a[1,1]}
                             {меняем k и заносим в b[2] a[2,2] и т.д.}
    writeln('  на главной диагонали лежат элементы:');
    for k:=1 to n do
    write('  a[',k,',',k,']=',b[k]);
      readln;
                                END.
Эта программа работает так же, как и предыдущая, но с массивами и с переменными измерениями.
Величина входного массива может быть до 40 строк и 40 столбцов. Чтобы это обеспечить, в разделе Var описываем массив a: array [1..40,1..40] of integer; а затем в программе вводим по запросу n, которое будет определять, с матрицей какой величины мы будем работать конкретно (n должно быть в диапазоне 1-40). Далее все циклы программы работают от 1 до n, т.е. машина решит задачу для массива введенной размерности n.
           Program Prim27;
    Var i,j,k,n:integer;
        a:array[1..40,1..40] of integer;
        b:array[1..40] of integer;
  BEGIN   writeln('ввести n'); readln(n);
     for i:=1 to n do
     for j:=1 to n do
      Begin writeln('ввести a[',i,',',j,']');
      readln(a[i,j]); end;
                             { вывести элементы массива а }
     for i:=1 to n do
  Begin writeln;            {перевести курсор на новую строку}
        for j:=1 to n do
     write(a[i,j],'  ');      {вывести элементы в одну строку}
  end;
     k:=1;
     for i:=1 to n do
     for j:=1 to n do
    if i+j-1=n then Begin b[k]:=a[i,j]; k:=k+1; end;
{отыскиваем и заносим в b[1] a[1,1]}
                                                {меняем k и заносим в b[2] a[2,2] и т.д.}
    writeln;
    writeln('  на дополнительной диагонали лежат элементы:');
    for k:=1 to n do
 write(b[k],'  ');
      readln;
                                END.
Программа Prim 27 работает аналогично программе Prim 26b, однако выводит элементы, лежащие на дополнительной диагонали.
        Program Prim28;
    Var i,j,min,m,n,k:integer;
        a:array[1..20,1..10] of integer;
        b:array[1..10] of integer;
  BEGIN   writeln('ввести m,n'); readln(m,n);
     for i:=1 to m do                {m – количество строк  }
     for j:=1 to n do                {n – количество столбцов}
      Begin writeln('ввести a[', i ,', ', j,']');
      readln(a[i , j]); end;
                             { вывести элементы массива а }
     for i:=1 to m do
  Begin writeln;
          for j:=1 to n do
     write(a[i,j],'  ');  end;
  min:=32767; {максимальное integer, чтобы в последующем сравнивать}
{и заносить в min все элементы a[i,j], которые меньше min}
     for i:=1 to m do
     for j:=1 to n do
   if a[i , j]<min then Begin min:=a[i , j]; k:=i;   end;
  writeln(' строка, содержащая наименьший элемент');
    for j:=1 to n do
    write(' a[', k ,',', j ,']=',a[k , j]);
      readln;                       END.
Программа Prim 28 находит в массиве строку размером до 20х10, содержащую наименьший элемент.
  Program Prim29;
  Var i,j:integer; a:array[1..5, 1..7] of integer;
                   b:array[1..7] of integer;
                   c:array[1..5] of integer;
   BEGIN for i:=1 to 5 do
         for j:=1 to 7 do
      begin writeln('введите a[',i,',',j,'] элемент матрицы а');
            readln(a[i,j]); end;
         for j:=1 to 7 do
      begin writeln('введите b[',j,'] элемент вектора b');
            readln(b[j]); end;
    for i:=1 to 5 do      {начало перемножения матрицы на вектор}
  begin c[i]:=0;
    for j:=1 to 7 do
     c[i]:=c[i]+ a[i,j]*b[j]; end;
{конец перемножения матрицы на вектор}
     writeln('распечатка массива а');
       for i:=1 to 5 do
          begin writeln;  {начать новую строку}
       for j:=1 to 7 do
       write(' ',a[i,j]); end;       writeln;
      writeln('распечатка массива b');
          for j:=1 to 7 do
     write('  ',b[j]);               writeln;
     writeln('результирующий массив с');
          for i:=1 to 5 do
     write('  ',c[i]);
             readln;     END.
Программа вводит матрицу А размером 5х7 и вектор размером 7 элементов, затем их перемножает по правилу Сi = Сi + a[i,j]*b[j] и выводит пять элементов массива С.
Заметим, что для вычисления каждого с необходимо каждый элемент строки массива a умножить на соответствующий по индексу элемент массива b, а затем все эти произведения сложить. таким образом, количество элементов массива с будет равно количеству строк матрицы a (и, соответственно, количеству элементов массива b).
  Program Prim29a;
  Var i,j,n,m:integer; a:array[1..50,1..70] of integer;
                   b:array[1..70] of integer;
                   c:array[1..50] of integer;
   BEGIN  writeln('ввести количество строк и столбцов');
          readln(n,m);
        for i:=1 to n do
        for j:=1 to m do
      begin writeln('ввести a[',i,',',j,'] элемент матрицы а');
            readln(a[i,j]); end;
         for j:=1 to m do
      begin writeln('ввести b[',j,'] элемент вектора b');
            readln(b[j]); end;
    for i:=1 to n do       {начало перемножения матрицы на вектор}
  begin c[i]:=0;
    for j:=1 to m do
     c[i]:=c[i]+ a[i,j]*b[j]; end;
                           {конец перемножения матрицы на вектор}
     writeln('распечатка массива а');
       for i:=1 to n do
          Begin writeln;         {начать новую строку}
       for j:=1 to m do
write(' ',a[i,j]); end;       writeln;
     writeln('распечатка массива b');
          for j:=1 to m do
     write('  ',b[j]);               writeln;
     writeln('результирующий массив с');
          for i:=1 to n do
     write('  ',c[i]);
             readln;     END.
Программа Prim 29a тоже перемножает матрицу на вектор. Здесь матрица может иметь размеры до 50х70, соответственно вектор B может иметь размер до 70, а вектор С – размер до 50 элементов.

7. Подпрограммы

7.1. Общие положения

1-я группа операторов

Нахождение корней ах2+bx+c=0

2-я группа операторов

Нахождение корней sz2+tz+p=0

3-я группа операторов

Нахождение корней sz2+tz+p=0

Рис. 7.1.

В практике программирования часто встречаются ситуации, когда одну и ту же группу операторов необходимо выполнить в различных местах программы, неважно, что при этом по-разному будут называться исходные данные и результаты работы этих операторов. Важно, что эти группы операторов выполняют одну и ту же работу. Например, в различных местах программы необходимо вычислить корни квадратного уравнения, причем в одном месте это будет уравнение ax2+bx+c=0, в другом  – sz2+tz+p=0, в третьем – ky2+ly+n=0 и т.д. В этом случае алгоритм вычисления корней уравнения в программе можно писать один раз в виде подпрограммы, а использовать его многократно. Блок-схема такой программы без применения подпрограммы изображена на рис. 7.1.

1-я группа операторов

2-я группа операторов

3-я группа операторов

Нахождение корней квадратного уравнения ах2+bx+c=0

Рис. 7.2

a, b, c

s, t, p

k, l, n

x1, x2

z1, z2

y1, y2

Блок-схема алгоритма с использованием подпрограммы изображена на рис. 7.2.
Подпрограммой называется имеющая имя логически законченная группа операторов  (возможно со своими описаниями), к которой по имени можно обратиться для выполнения неограниченное количество раз из различных мест основной программы, возможно, с различным, но фиксированным набором входных величин и результатов. Подпрограммы могут быть оформлены в виде функций и процедур.
Функции применяют тогда, когда результат работы подпрограммы один. Обращение к функции может записываться в выражениях, например: (а+b)/cos(x). Здесь cos(x) есть обращение к подпрограмме типа "функция", правда, стандартной, а не написанной пользователем. Встретив имя cos, машина с входной величиной x обращается к подпрограмме, вычисляет с помощью ряда функцию cos(x) (см. программу в подразд. 4.4.), и результат этой работы в виде значения функции возвращается в арифметическое выражение.      Функция может иметь несколько входных параметров, но всегда один результат. Процедура также может иметь несколько входных параметров, но несколько результатов. Несколько – это 0, или 1, или 2, или 3 и т.д. результатов. Обращение к процедуре состоит из отдельного оператора. Например, обращение к процедуре, вычисляющей корни квадратного уравнения, может иметь вид:    root(a, b, c, x1, x2);
Подпрограммы, как функции, так и процедуры могут быть стандартными, например sin(x), cos(x), sqrt(x), succ(y), ord(y) и т.п.; библиотечными, которые становятся доступными при подключении модулей и библиотек (см. далее), а также определены пользователем, т.е. написаны программистом для решения своей задачи.
7.2. Подпрограммы-функции, определенные пользователем
Функции пользователя описываются в разделе описания функций и процедур основной программы. Описание функции строится как законченная программа, т.е. может состоять из заголовка и шести разделов: описания, меток, констант, типов, переменных, функций и процедур и раздела операторов. Заканчивается описание функции символом точка с запятой.
Написать программу, вычисляющую с помощью подпрограммы-функции, выражение:
f1(x)=x+256.4; f2(y)=y+256.4; f3(z)=z+256.4;
          Program Prim30;
  Var
        x,y,z,f1,f2,f3:real;
  function f(x:real):real;        {заголовок функции;}
                                  { f – имя функции, это же и имя}
                             {результата, х – формальный параметр}
    Begin f:=(x+256.4); end;      {тело функции}
 BEGIN                            {начало основной программы}
       writeln('ввести x,y,z'); readln(x,y,z);
  f1:=f(x);  {обращение к подпрограмме f с фактическим параметром x}
  f2:=f(y);  {обращение к подпрограмме f с фактическим параметром y}
  f3:=f(z);  {обращение к подпрограмме f с фактическим параметром z}
          writeln(f1:20,f2:20,f3:20); readln;   END.
 Написать программу, вычисляющую G:

Оформим вычисления  в виде подпрограммы-функции:
      Program Prim31;
    Var    h,x,y,z,g:real;
  function f(a,b:real):real; {входные формальные параметры a,b}
     Begin
        f:=sqr(ln(a)+sin(b))/(cos(a)*exp(b));
                             end;
 BEGIN  writeln ('введите положительные h,x,y,z');
        readln(h,x,y,z);
   if (x>=1) and (x<3)  then writeln('g=',h+f(x,y)) else;
   if (x>=3) and (x<5)  then writeln('g=',sqrt(h)+f(z,x)) else;
   if (x>=5) and (x<=9) then writeln('g=',sqr(h)+f(y,z)) else;
                             writeln('g=0');
             readln;   END.
В этой программе описание формулы начинается словом function, имя функции f, результат вычисления функции типа real. Тело функции заключено в операторные скобки begin, end; a, b называются формальными параметрами. В данной функции нам не понадобились разделы описаний.
При выполнении основной программы, которая начинается begin, встречается выражение f(x, y). Встретив такое выражение, машина по имени f определяет, что это обращение к функции. затем машина проверяет совпадение количества и типа фактических параметров (x, y) с формальными (a, b). При их совпадении в тело функции вместо формальных параметров подставляются фактические и тело выполняется, полученный результат используется при вычислении выражения, стоящего в операторе writeln.
Составить программу вычисления при условии, что а<b:

Если a и b не укладываются в заданные пределы, нужно сообщить об этом пользователю и спросить, будут ли другие диапазоны — ответ: "Y, N". Если заданы не те буквы (y, n), повторить вопрос.
Прежде чем писать программу, определимся с функциями:
  оформим в виде функции f1;
  – в виде f2;
sin(x)+f1   – в виде f3;
cos(x)+f1  – в виде f4;
cos(x)-f2   – в виде f5;
вычисления    по методу трапеций с точностью 0.1 oформим в виде подпрограммы-функции f6.
    Program Prim32;        label NAH,P;
        Var   b,a,z:real;
              lit:char;
           function f1(x:real):real;
             Begin f1:=exp(x/10)+sqrt(x/(x+3)); end;
           function f2(x:real):real;
             Begin f2:=sqrt(sqr(x)/(3*x+10)); end;
           function f3(x:real):real;
             Begin f3:=sin(x)+f1(x); end;
           function f4(x:real):real;
             Begin f4:=cos(x)+f1(x); end;
           function f5(x:real):real;
             Begin   f5:=cos(x)-f2(x); end;
       function f6(a,b:real):real;
           label K,N1,K1,KC,T;
           Var  h,s1,s,x:real;  i,n:integer;
       Begin
             s1:=9.999e+10; n:=10;
     N1:     h:=(b-a)/n; s:=0; x:=a;
           for i:=1 to n do
        Begin  if a>b then goto t else
         if (0<=a)and(b<5)    then Begin s:=s+(f3(x)+f3(x+h))/2*h;
                           goto kc; end      else
         if (5<=a)and(b<10)   then Begin s:=s+(f4(x)+f4(x+h))/2*h;
                           goto kc; end      else
         if (10<=a)and(b<=16) then Begin s:=s+(f5(x)+f5(x+h))/2*h;
                           goto kc; end      else  goto t;
  KC:    x:=x+h; end;
         if abs(s-s1)<0.1 then goto k
           else   Begin s1:=s; n:=n*10; goto n1; end;
  K:  f6:=s; goto k1;
  T:  writeln('пределы интегрирования не соответствуют условию');
      f6:=-9999999999.;
  K1: end;
 BEGIN
  NAH:  writeln('введите значения a,b');
        readln(a,b); z:=f6(a,b);
      if z=-9999999999. then goto p;
        writeln('z=',z);
     P:  readln;
       writeln(' будем еще вычислять z ? , если "да" ',
               'то нажмите клавишу "y" , если нет, то любую клавишу ');
       readln(lit);
     if (lit='Y') or (lit='y') then goto NAH;
                              END.
7.3. Подпрограммы-процедуры
Описание процедуры:
Procedure имя (входные формальные параметры: тип;
Var выходные формальные параметры: тип);
описания (если они есть)
begin операторы
end;
Пусть необходимо найти корни квадратных уравнений
ax2+bx+c=0,
ky2+my+d=0,
sz2+tz+p=0,
где коэффициенты a, b, c вводятся по запросу. количество уравнений не ограничено. результаты вычислений выводить на экран (в основную программу не возвращать), см. рис. 2.1.
  Program Prim33;
          label K,NAH;
          Var  let:char; a,b,c:real;
  procedure root(a,b,c:real); {процедура не имеет выходных параметров}
            label K;
            Var d,x1d,x1m,x2d,x2m:real;
        Begin       if a=0 then Begin
            writeln('уравнение первой степени, корень один');
              x1d:=-c/b; writeln('x=',x1d); goto K; end
                    else d:=b*b-4*a*c;
          if d>=0 then Begin
        writeln('уравнение второй степени, корни действительные');
             x1d:=(-b-sqrt(d))/(2*a);
             x2d:=(-b+sqrt(d))/(2*a);
             writeln('x1d=',x1d,'  x2d=',x2d); goto K; end
          else writeln('уравнение второй степени, корни комплексные');
               x1d:=-b/(2*a);             x2d:=x1d;
                   x1m:=-sqrt(-d)/(2*a);      x2m:=-x1m;
            writeln('z1=',x1d,' ',x1m,' i;');
            writeln('z2=',x2d,' ',x2m,' i;');
    K: end;
  BEGIN NAH: writeln('введите a,b,c'); readln(a,b,c); root(a,b,c);
        writeln('будет еще уравнение? если "да", нажмите клавишу"Y"',
                 'если "нет", нажмите любую клавишу');
        read(let);
    if (let='Y') or (let='y') then goto nah else goto K;
  K: END.
Найти x, y, z — корни системы уравнений:

Как известно из линейной алгебры ,     
где  
Раскрытие определителя 

+

–

производится по схеме:    т.е.
в процедуре a,b,c,d – входные данные, x,y,z – результаты.
    Program Prim34;
      label N,K;
      Type  w=array[1..3] of integer;
       Var a,b,c,d:w;       x,y,z:real;   let:char;
   function det(a:w;b:w;c:w):real;
      Begin det:=a[1]*b[2]*c[3]+b[1]*c[2]*a[3]+c[1]*a[2]*b[3]
             -c[1]*b[2]*a[3]-a[1]*c[2]*b[3]-b[1]*a[2]*c[3]; end;
   procedure ur(a,b,c,d:w; Var x,y,z:real);
        Var d0:real;
       Begin   d0:=det(a,b,c);
          if d0=0 then Begin writeln('det=0 решения нет');
                       let:='0'; Exit; end  else        {EXIT – выход из процедуры}
               x:=det(d,b,c)/d0;
               y:=det(a,d,c)/d0;
               z:=det(a,b,d)/d0;     let:='1';   end;
 BEGIN  N: writeln('введите a1,b1,c1,d1'); readln(a[1],b[1],c[1],d[1]);
           writeln('введите a2,b2,c2,d2'); readln(a[2],b[2],c[2],d[2]);
           writeln('введите a3,b3,c3,d3'); readln(a[3],b[3],c[3],d[3]);
           ur(a,b,c,d,x,y,z);
       if let='0' then goto K else
         writeln('                    / ',a[1],'x+',b[1],'y+',c[1],'z=',d[1]);
         writeln('система  i  ',a[2],'x+',b[2],'y+',c[2],'z=',d[2]);
         writeln('                  \ ',a[3],'x+',b[3],'y+',c[3],'z=',d[3]);
         writeln('имеет решение: x=',x,'  y=',y,'  z=',z);
   K: writeln('Будет ещё ур-е? да - "Y" , нет – любая клавиша ');
     read(let);
     if (let='Y') or (let='y') then goto N;
   END.
Имеется одномерный массив. Необходимо определить сумму положительных элементов, номер последнего отрицательного элемента, количество отрицательных элементов массива.
Задача 1. Массив один и состоит из 7 элементов.
Задача 2. Массивов два, размерность первого – 7 элементов, второго – 5.
Задача 3. Количество массивов не ограничено, количество элементов в массивах произвольное, но не более 70.
  Program Prim35;  { массив 1 и состоит из 7 элементов }          label j;          Type mas=array[1..7] of real;          Var  n,k,i,no:integer;
               a:mas;
               s:real;   ch:char;
    procedure prmas(a:mas;n:integer; Var s:real; Var k,no:integer);
            Var i:integer;
        Begin   s:=0; k:=0; no:=0;
            for i:=1 to n do Begin
    if a[i]>=0 then  s:=s+a[i]  else Begin k:=i; no:=no+1;
                       end; end; end;
  BEGIN
           for i:=1 to 7 do  Begin
          writeln('ввести значение a[',i,']');
        readln(a[i]);  end;
         prmas(a,7,s,k,no);
  j:     writeln('сумма положительных элементов =',s);
         writeln('последний отрицательный элемент имеет N=' no);
         writeln('количество отрицательных элементов =', k);
          readln;
  END.
  Program Prim36; { массива 2, размерность первого массива 7, второго – 5}          label j;          Type mas=array[1..7] of real;          Var  k,no,y:integer;               s:real;   ch:char;    procedure prmas(n:integer; var s:real; var k,no:integer);
            Var i:integer; a:mas;
      Begin for i:=1 to n do Begin
            writeln('введите ',i,' значение элемента массива');
            readln(a[i]);  end;
             s:=0; k:=0; no:=0;
            for i:=1 to n do begin
    if a[i]>=0 then  s:=s+a[i]  else begin k:=i; no:=no+1;
                      end; end; end;
  BEGIN  prmas(7,s,k,no); y:=0;
  j:     writeln('сумма положительных элементов =',s);
         writeln('последний отрицательный элемент имеет N=', no);
         writeln('количество отрицательных элементов =', k); y:=y+1;
          if  y=1 then Begin prmas(5,s,k,no); goto j; end
          else readln;
  END.
Program Prim37; { массивы с переменными измерениями, количество    массивов не ограничено}          Type mas=array[1..70] of real;          Var  n,k,i,no,kol,r,j:integer;               a,b:mas;               s:real;   ch:char;    procedure prmas(n:integer; var s:real; var k,no:integer);            var i:integer; a:mas;
        begin  for i:=1 to n do begin
               writeln('введите ',i,'  значение элемента массива ', j);
                readln(a[i]); end;
         s:=0; k:=0; no:=0;
            for i:=1 to n do Begin
    if a[i]>=0 then  s:=s+a[i]  else Begin k:=i; no:=no+1;
                       end; end; end;
  BEGIN
         writeln('задайте количество массивов'); readln(kol);
       for j:=1 to kol do Begin
         writeln(' задайте размерность массива', j); readln(r);
         prmas(r,s,k,no);
         writeln(' сумма положительных элементов =',s);
         writeln(' последний отрицательный элемент имеет N=', no);
         writeln(' количество отрицательных элементов =', k); end;
         readln;
  END.
7.4. Локальные и глобальные описания объектов
Мы уже знаем, что программа – блок, т.е. раздел операторов, снабженный описаниями и имеющий заголовок. Вид блока-программы:
Program имя программы (возможны опции); {опции не обязательны}
Label …; {раздел описания меток}
Const …; {раздел описания констант}
Туре …; {раздел определения типов}
Var …; {раздел описания переменных}
Function …; Procedure …; {раздел описания функций и процедур}
BEGIN ... END. {раздел операторов}.
Функции и процедуры, в свою очередь, также являются блоками:
Procedure имя (список входных формальных параметров);
Var (список выходных формальных параметров);
Label …;
Const …;
Туре …;
Var ...;
function …;
procedure …;
разделы описаний
begin ... end; {тело процедуры}
Таким образом, программа – всегда блок, в который могут быть вложены другие блоки.
Как один из вариантов, возможна следующая структура программы:
          Program Prim38;           { начало блока 1}    label N,M;    Const k=5.6;  Type d=array[1..10] of integer;    Var b,c:real;  i,j:integer;  z,y:d;
 function f(f,b,c:real):real;       { начало блока 2}
         begin f:=1; end;           {конец блока 2}
 procedure proc(f,b,c:real; Var x,y,z:real); { начало блока 3}
        label K,L;
        var d,w,s:real;
     function fp(a,b:real):real;    { начало блока 4}
               begin fp:=1; end;    {тело fp, конец блока 4}
  begin x:=1; y:=1; z:=1; end;      {тело proc, конец блока 3}
      BEGIN b:=1;  END.      {тело основной программы, конец блока 1}
Таким образом, программа состоит из четырех блоков. Все имена меток, констант, типов, переменных, функции f и Рrос известны в блоке 1, поскольку они даны в его описании. Считается, что они описаны здесь локально.
В блоке 2 – function – описаний нет, поэтому своих собственных объектов этот блок не имеет. Формальные параметры не в счет, поскольку они служат только для описания алгоритма вычисления результата с именем f в функции f, а ячейки памяти для b, с, f здесь не выделяются. Однако в этом блоке можно использовать все объекты, которые описаны в блоке 1, так как блок 2 является составляющей частью блока 1. Иногда говорят, что имена объектов блока 1 описаны глобально для блока 2.
Аналогичная ситуация и с блоком 3 – Procedure Рrос. Для нее все объекты блока 1 являются глобальными, т.е. доступны. Кроме того, в блоке 3 имеются свои описанные здесь объекты – метки К, L, переменные d, W, 8, функция fp, которые могут быть использованы только в блоке 3 и не известны в блоках 1 и 2.
Как следствие возможно применение одинаковых имен в различных блоках (см. имя d). В блоке 1 d – массив. В блоке 3 (в Рrос) имеется свое d, которое является собственным в блоке 3 и представляет собой не массив, а ячейку памяти типа real.

8. Строковые данные

8.1. Общие замечания
Строка – это последовательность символов длиной 0-255. Для описания данных строкового типа используется слово string, за которым могут следовать в квадратных скобках цифры, определяющие количество символов в строке. Если цифры в квадратных скобках и сами скобки отсутствуют, то для данной ячейки памяти будет выделяться максимально возможная длина: 256 байт для хранения 265 символов. Символьные константы (которые могут храниться) имеют вид совокупности символов, заключенных в апострофы.
Пример: 'a, b, с - символы'.
Примеры описаний:
Var а, b, с: string [70];
Выделяются ячейки с именами а, b, с, в каждую из которых может быть занесена совокупность символов в количестве до 70.
Например, возможны операторы:
а: = 'улица Садовая';
b: = улица Чкалова, 17, хаи';
с: = г. Харьков – большой город';
возможно предварительное описание типа:
Туре a=string [70];
Var b, с: а;
8.2. Строковые выражения
Выражения, в которых операндами служат строки, являются строковыми выражениями. Результат – строка. Опишем операции, которые можно применять при написании строковых выражений:
Операция сцепления, знак операции '+'.
'Дом'+' номер'+'43' дает результирующую строку 'Дом номер 43'.
Операции отношения: =, < >, >, <, >=, <=.
Операции отношения выполняются раньше операции сцепления, т.е. имеют более высокий приоритет.
Сравнения между строками производятся посимвольно, слева направо, до первого несовпадающего символа. Та строка считается больше, в которой первый несовпадающий символ имеет больший код по таблице кодов. Результаты сравнения – True или False.
Если строки имеют различную длину и более короткая совпадает с началом более длинной, то последняя считается большей.
При использовании оператора присваивания, если значение результата вычисления строкового выражения имеет большую длину, чем ячейка памяти, в которую записывается результат, то лишние правые символы отбрасываются. Если значение результата вычисления строкового типа короче, чем ячейка памяти, отведенная для его хранения, то результат записывается в ячейку памяти «прижатым» вправо, а лишние левые разряды заполняются пробелами.
Допускается при записи выражений строкового типа применять данные, описанные с атрибутом char. В этом случае эти данные интерпретируются как string [ 1]. К отдельным символам данного строкового типа можно обратиться по номеру этого символа в строке (аналогично индексу в массивах). В нулевом байте хранится длина строки.
        Program Prim39;     var st1,st2:string[30];  BEGIN st1:='отдел № 256'; writeln(st1);        {на экране "отдел № 256"}        st2:=st1[10];  writeln(st2);                          {на экране "5"}          writeln(ord(st1[0]));                                {на экране "11"}
             readln; END.
Если бы в var было указано string[10], то writeln(st1), вывел бы результат "отдел № 25"
8.3. Стандартные процедуры и функции для обработки строк
8.3.1. Процедуры обработки строк
Delete (st, Poz, N) – удаление N символов из строки с именем st, начиная с позиции Poz.
st:='река_Волга'; Delete (st, 1, 5);
Результат 'Волга'.
insert (stl, st2, poz); – вставка строки stl в строку st2, начиная с позиции Poz.
st1: = 'Дом_25_'
st2: =' На_улице_живет_петух_';
insert (stl, st2, 10);
Результат: "На_улице_дом 25_живет_петух";
str (IBR, st); преобразует число IBR (типа integer, byte или Real) и помещает результат в строку st. Возможно после IBR указать ширину поля. Если ширины поля не хватает, оно автоматически расширяется до нужной величины.
str (1500:6, stl); даст результат '_1500';
str (4.8е+03:10, stl); – результат '_ 4.800E+03';
str (-46854:3, stl); – результат '-46854'.
Val (st, IBR, Cod); процедура преобразует значение st в величину целочисленного или вещественного типа и помещает результат в IBR. Значение st должно содержать символьное изображение числа и не содержать символов, не присущих изображению чисел (например, пробелов перед цифрами), букв и т.п. Cod - целочисленная переменная индуцирующая ошибку. Если Cod=0, преобразование произведено без ошибки, если Cod=5, то ошибка при преобразовании – 5 символов.
Программа Program Prim 40; иллюстрирует работу вышеописанных процедур:
        Program Prim40;     var st1,st2:string[30];
  BEGIN st1:=' река Волга ';
        delete(st1,1,5);  writeln(st1);
        st1:='дом 25 '; st2:='на улице живет петух';
        insert(st1,st2,10);    writeln(st2);
        str(1500:6,st1); writeln(st1);
        str(4.8e+03:10,st1); writeln(st1);
        str(-46854:3,st1); writeln(st1);
             readln;END.
8.3.2. Функции обработки строк
Сору (st, Poz, N) выделяет из st подстроку длиной N символов, начиная с позиции Poz.
stl:='absdefg'; writeln (Сору (stl, 2, 3));
результат bсd
Const (stl, st2,..., stn) выполняет сцепление строк stl... stn. Длина суммарной строки не должна превышать 255 символов.
Length (st) определяет длину строки, результат – integer.
Pos (stl, st2) обнаруживает первое появление строки stl в строке st2. Результат – целое число, определяющее номер позиции, в которой находится первый символ подстроки st1. Если st1 не содержится в строке st2, то результат равен 0.
UpCase (ch) преобразует строчную букву в прописную.
Параметр и результат имеют литерный тип.
ch:=a'; UpCase (ch) имеет результат 'A'.
Program Prim 41, Prim 42, Prim 43 иллюстрируют работу вышеописанных функций.
        Program Prim41;     var st1,st2:string[30];  s:char;  BEGIN st1:='отдел № 256';        writeln(copy(st1,7,5));        st2:='находится в НИИ 5';
        writeln(concat(st1,st2));
        writeln(length(st2));
        st2:='n 256';
        writeln(pos(st2,st1));
        s:='a';
        writeln(upcase(s));
             readln;END.
       Program Prim42;   {программа удаляет все пробелы в строке, стоящие в строке слева, если они имеются}
         Var  str:string[255];          { Var  str: string; будет работать так же}       function del(stroka:string):string;
         Var dlina:byte;
      Begin  dlina:=Ord(stroka[0]);
             while ((dlina>0)and(copy(stroka,1,1)=' '))do
             delete(stroka,1,1);
             del:=stroka;
      end;
      BEGIN  writeln('введите строку');
             readln(str);
             writeln(del(str));  readln;
      END.
             Program Prim43;   { Даны три исходные строки A,B,C. В строке А определить первую бук } { ву; Затем заменить первую букву строки А со строчной на заглавную; } { объединить в одну строку A,B,C; Определить длины строк A,B,C} { и в результирующей строке вставить '-' между составляющими ее}{ строками. В результирующей строке найти номер позиции, в которой } { буква "а" встречается первый раз; определить длину результирующей } { строки. После каждого действия печатать результаты. }      Var A,B,C:string[14]; str:string[50]; ch:string[1];          d1,d2,d3:integer;
   Begin  A:='электронная'; B:='вычислительная'; C:='машина';          ch:=copy(A,1,1);             writeln(ch);
          delete(A,1,1);               writeln(A);
          writeln(upcase(ch[1]));
          insert(upcase(ch[1]),A,1);   writeln(A);
          str:=concat(A,B,C);          writeln(str);
          d1:=length(A); d2:=length(B); d3:=length(C);
          writeln('длины строк ' ,d1:6,d2:6,d3:6);          insert('-',str,d1+1); insert('-',str,d1+d2+2);
                                writeln(str);
          writeln('первый раз буква "а"стоит в результирующей строке ',                   'в позиции ',pos('а',str));          writeln('общая длина строки  =',length(str));
          readln;   END.

9. Записи

Ранее мы рассматривали структурированные данные, состоящие из компонент одного типа (массивы). Однако на практике часто необходимо иметь под одним именем совокупность данных различного типа. Например, информация о студенте может состоять из данных: фамилия, имя, отчество (тип string), домашний адрес (тип string), пол (тип char), номер группы (тип integer), номер комнаты проживания в общежитии (тип integer), изучаемые предметы (тип, массив строк) и т.д.
Для объединения разнотипных данных под одним именем и возможности последующей их обработки в языке Pascal предусмотрен тип данных запись.
Запись – поименованный структурированный тип данных, состоящий из фиксированного количества различных компонент. Определение (описание) данного типа "запись" начинается атрибутом record и заканчивается end.
Между record и end заключается список компонент записи, называемых полями, с указанием их имен и типа каждого поля. Туре имя типа=record         идентификатор поля: тип компоненты;          идентификатор поля: тип компоненты;
         end;
Var идентификатор: имя типа; Возможно и «прямое» описание записи, без предварительного описания типа. Пример описания записи с помощью предварительного задания типа:Туре Car=record      Nomer: integer; {номер}      Marka: string [20]; {марка автомобиля}     FIO: string [40], {ф.и.о. владельца}      adres: string [60]; {адрес владельца}end;Var M, V: Car;Либо «прямое» описание:Var М, V: Record       Nomer: integer;       Marka: string [20];
FIO: string [40];      adres: string [60]; end;     Идентификатор поля должен быть уникален только в пределах записи, однако во избежание ошибок лучше его делать уникальным в пределах программы.
Объем памяти, выделяемый в разделе Var, для хранения записи складывается из объемов памяти – суммы длин полей.       Значения полей записи могут использоваться в выражениях, при этом в них должны указываться составные (уточненные) имена, так как имена полей в различных записях могут совпадать. Например, чтобы получить доступ к полям записи Саr, необходимо пользоваться именами М. FIO, М. NOMER для записи М, а для записи V - именами V. FIO, V. NOMER. Эти имена можно использовать везде, где применяются обычные имена, например, в операторах присваивания:
М. Nomer:=1678;
V. Nomer:=3789;
М. Marka:'газ–24';
V. Marka:='Таврия';
В операторах ввода-вывода:
writeln (м. marka);
Допускается применение операторов присваивания к записям в целом, если они имеют одинаковые структуры. Так, для приведенного выше описания записей М и V допустимо M:=V;
После выполнения этого оператора значения полей записи V станут равными значениям полей записи М.
В ряде задач удобно пользоваться следующими массивами записей:
Туре Person=record
     FIO: string [30];
     Prof: string [30); end;
          Var List: array [1..50] of Person;
Здесь массив List будет состоять из 50 записей типа Person.
Сама запись может иметь поля любого известного нам типа, в том числе и массивного. Допускается, чтобы поле записи само было записью. Обращение к полям записи с помощью составных имен имеет несколько громоздкий вид, что особенно неудобно при использовании мнемонических идентификаторов длиной более 5 символов. Для облегчения этой ситуации в языке Pascal есть оператор with, который имеет следующий формат:
with имя переменной типа запись do
begin ···················· end.
Один раз указав в операторе with переменную типа запись, затем – в пределах begin... end, стоящих после with, можно работать с именами полей этой записи как с обычными переменными, т.е. без указания перед именем поля имени записи. Например:
без применения оператора with:
М. NOM:=5543;
M.MARKA:='гa3-24';
М. FIO:='Петров П. П.';
М. Adres:='ул. Чкалова, 7, кв.32';
end;
Составить программу учета успеваемости студентов курса, состоящего из шести групп до 30 студентов в каждой группе. Каждый студент сдавал экзамены по пяти дисциплинам: высшая математика, основы информатики, философия, история Украины, архитектура ЭВМ. По каждому предмету можно получить оценки 2, 3, 4, 5. Каждый экзамен можно сдавать до трех раз. Произвести анализ: если у студента имеется три двойки по одному предмету или три непересданные двойки по трем предметам, то он должен быть отчислен; если студент все двойки пересдал, то его нужно поругать.
              Program Prim44;
     label u,w;
     type  mo=array[1..5,1..3] of 0..5;
          st=record
             namb:integer;
             fio:string[20];
             o:mo; end;
     var
          gr:array[1..6,1..30] of st;
          i,j,k,l,kol_dvoek,v,kgr,n:integer;
          md:mo; ch:char;
          divdmet:string;    kst:array[1..6] of byte;
    procedure rea_ocenki(fio:string;Var oc:mo);

      Label M1,M2,M3,M4;

      Var i:integer;
        begin
            for i:=1 to 5 do
           Begin
              case i of
            1:divdmet:='основы информатики';
            2:divdmet:='высшей математике';
            3:divdmet:='философии';
            4:divdmet:='архитектуре ЭВМ';
            5:divdmet:='истории Украины';  end;
              writeln('введите оценку студента  ',fio,' no ',divdmet);
   M1: readln(oc[i,1]);
           if (oc[i,1]<2) or (oc[i,1]>5) then
        Begin writeln('введите правильно оценку'); goto M1; end;
         if oc[i,1]>2 then Begin oc[i,2]:=0; oc[i,3]:=0; goto M4; end else
   M2: writeln('введите вторую оценку студента ',fio,' по ',divdmet);
       readln(oc[i,2]);
           if (oc[i,2]<2) or (oc[i,2]>5) then
        Begin writeln('введите правильно оценку'); goto M2; end;
         if oc[i,2]>2 then begin oc[i,3]:=0; goto M4; end else
   M3: Writeln('введите третью оценку студента ',fio,' по ',divdmet);
       readln(oc[i,3]);
           if (oc[i,3]<2) or (oc[i,3]>5) then
        begin writeln('введите правильно оценку'); goto M3; end;
           M4: end;  end;
   BEGIN                      { начало блока ввода оценок студентов}
       writeln('при вводе оценки набираются: 5, если экзамен');
       writeln('сдан на 5 и, если были пересдачи, то 2,2,3 ');
   z:    writeln('до первой положительной оценки');
   writeln('задайте количество групп, не более 6 ');
   readln(kgr);
            for i:=1 to kgr do      { установка индекса группы }
  begin  case i of                  { определяем группу по i }
         1:n:=610;
         2:n:=611;
         3:n:=612;
         4:n:=613;
         5:n:=614;
         6:n:=615;
           else writeln('неправильно задано количество групп'); goto 2; end; end;
        writeln('задайте количество студентов в группе ',n);
        readln(kst[i]);
            for j:=1 to kst[i] do  { установка номера студента i в группе }
   begin   with gr[i,j] do         { работать без составных имен }
   begin  namb:=n; writeln('введите фамилию ',j,' студента гр. ',namb);
            readln(fio);
            for k:=1 to 5 do           { обнуляем массив оценок }
            for l:=1 to 3 do
            o[k,l]:=0;
            writeln('введите оценки студентов ',fio);
            rea_ocenki(fio,o); end;end;end;
                                { конец ввода оценок студентов }
{ отображение на экране введения оценок }
       for i:=1 to kgr do
       for j:=1 to kst[i] do
    Begin with gr[i,j] do
  Begin     for k:=1 to 5 do
    write(o[k,1],o[k,2],o[k,3],' '); writeln; end; end;
{ конец вывода на экран оценок  }
                      { начало блока анализа успеваемости студентов }
            for i:=1 to kgr  do          { индекс группы }
            for j:=1 to kst[i] do          { номер студента }
    Begin   kol_dvoek:=0; v:=0;      { работать без составных имен }
            with gr[i,j] do
    Begin
           for k:=1 to 5 do            { номер предмета }
    Begin
   { итак, анализируем состояние успеваемости студента, информация }
   { о котором хранится в записи gr[i,j]; так как мы работаем под уп-}
   {равлением оператора  with gr[i,j], то можно пользоваться не }
   { составными именами полей }
         case k of                  { определить название предмета j }
          1:divdmet:='основы информатики';
          2:divdmet:='высшая математика ';
          3:divdmet:='философия';
          4:divdmet:='архитектура ЭВМ';
          5:divdmet:='история Украины'; end;
    if o[k,1]=2 then if o[k,2]=2 then if o[k,3]=2 then begin
  writeln('студент ',fio,' группы ', namb,' подлежит отчислению так как');
    writeln('имеет три двойки по предмету ',divdmet);
    v:=1; readln; goto w; end                       { на новый предмет }
    else Begin kol_dvoek:=kol_dvoek+2; goto w; end
    else Begin kol_dvoek:=kol_dvoek+1; goto w; end;
  w:   end;
    if v=1 then goto u                             { к новому студенту }
        else if kol_dvoek=0 then goto u
    else Begin
    writeln('студент ',fio,' группы ',namb,' является разгильдяем так как');
    writeln('имеет в зимнюю сессию ',kol_dvoek,' двоек и является');
    writeln('кандидатом на отчисление в весеннем семестре');
      readln;  end; end;
   u: end;  END.
Программа снабжена комментариями, поэтому при внимательном рассмотрении читается легко. Трудности могут возникнуть при разборе блока анализа результатов, поэтому мы приведем блок-схему логической части этого блока (рис. 9.1).
9.1. Комплексные данные
При работе с комплексными данными удобно пользоваться записями с двумя полями, первое содержит информацию о действительной части данного, а второе – о мнимой части данного.   
       Program Prim45;
   Type  complex=record
         deistv:real; mnim:real; 
end;
    Var   a,b,c:complex;
       BEGIN
          a.deistv:=6.3;
          a.mnim:=1.9;    END.

да

да

да

V=0

1-я оцен-ка =2?

Вывести на экран: "Студент … должен быть  отчислен, так как имеет три двойки по предмету …."

V:=1 Признак того, что не нужно выводить на экран текст о том, что студент может быть отчислен, так как он уже отчислен

W: рассмотреть оценки следующего предмета

V:=1?

Количество двоек = 0?

2-я оцен-ка =2?

3-я оцен-ка =2?

Вывести на экран: "Студент имеет … двоек и является кандидатом на отчисление"

V: рассмотреть оценки следующего студента

нет да

да

нет да

Предметы все да

нет да

нет да

нет да

Количество двоек увеличить на 2

Количество двоек увеличить на 1

		Рис. 9.1

 


9.2. Запись с вариантами
Записи, описанные выше, имеют строго определенную структуру. однако есть возможность создавать записи, имеющие несколько вариантов одного и того же поля. Вариантные поля записываются после описания безвариантных полей с помощью оператора Case.
ТУРЕ
         zap=record
                 описание безвариантных полей;
         Case имя поля: тип имени поля of
             список констант выбора: (поле,... тип); ...
             список констант выбора: (поле,... тип);
end;
Пример:
Туре zap=record
Nomer: byte;                       {фиксированные поля}
Articul: integer;
Case Flag: boolean of      {вариантные поля}
      TRUE: (cena l: integer);
      FALSE: (cena 2; real);
end;
Var P, Si Zap;
поле Cena l доступно только тогда, когда Flag=TRUE
поле Cena 2 доступно только тогда, когда Flag=FALSE
При использовании записей с вариантами необходимо придерживаться следующих правил:
-                   все имена полей должны отличаться друг от друга, даже если они встречаются в различных вариантах;
-                   запись может иметь только одну вариантную часть, причем вариантная часть должна размещаться в конце её;
Если поле, соответствующее какой-либо метке, является пустым, то оно записывается следующим образом:
список констант выбора: ( );
         Program Prim46;
    Type zap=record
              nomer:byte;
              artikul:integer;
           case flag:boolean of
              true:(cena1:integer);
              false:(cena2:real); end;
    Var h,s:zap;
  BEGIN  with h do
    Begin nomer:=1; artikul:=2345; flag:=true; cena1:=25;
      writeln('nomer=',nomer,' artikul=',artikul,' cena1=',cena1);
          flag:=false; cena2:=3.2;
      writeln('cena2 ',cena2);
       end; readln; END.

10. Файлы

10.1. Общие замечания
В практике программирования часто встречаются задачи, решаемые с применением малоизменяемых во времени данных. К ним относятся, например, задачи бухгалтерского учета оптимального планирования и т.п. Ввод данных с клавиатуры при каждом счете задачи очень трудоемок, а иногда просто невозможен из-за временных ограничений. Для решения этой проблемы в языках программирования реализована концепция файлов, что позволяет после разового набора информации запомнить ее на внешнем носителе и обращаться к ней непосредственно из обрабатывающих программ при каждом счете задачи.
Файл – поименованная область памяти, как правило, на внешнем носителе, предназначенная для хранения информации. файл можно также считать структурированным типом данных, состоящим из последовательности компонент одного и того же типа и одинаковой длины и структуры. чаще всего компонентами файла являются записи.
Файл может быть связан с внешним носителем информации, т.е. располагаться на магнитном или СД диске, магнитной ленте, клавиатуре при вводе информации или на экране, принтере и при выводе её и т.д.
Файлы бывают стандартными, т.е. определенными разработчиками или администраторами операционной системы или вычислительной среды, а также пользователем, т.е. человеком, составляющим программы в каком-либо алгоритмическом языке (например в Pascal), или с помощью других программных продуктов (баз данных, редакторов и т.д.).
Каждый файл имеет свое имя, которое зарегистрировано в соответствующей директории (оглавлении).
Определение файлового типа строится по такой схеме:
Туре имя типа=file of тип компонент;
Var идентификатор,.., идентификатор: имя типа;
Например:
Туре zap=record
Nom: integer;
FIO: string [20];
oklad: real; end;
Ft=file of zap;
Var a, b, с: Ft;
Описаны три файла с именами а, b, с типа Ft. Компонентами файлов служат записи типа zap. Другими словами, файл схематично можно представить в виде «ленты» компонент, каждая из которых является записью типа zap. Доступ к компонентам файла может быть последовательным и прямым. Последовательный доступ – это когда для обращения к n-й компоненте необходимо «посмотреть» n-1 компонент; прямой доступ – обращение к компоненте идет прямо по «ключу» (номеру компоненты), без «просмотра» предыдущих компонент.
При работе с файлом «внимание» машины сосредоточено на компоненте, определенной указателем файла (этой компонентой будет работать машина при следующем обращении к файлу).
Имя файла должно быть уникальным и состоящим из собственного имени и необязательного расширения – типа файла, содержащего три символа и отделенного от основного имени точкой. Расширение, как правило, указывает в мнемонической форме на содержимое файла: pas, ехе, txt и т.д. В некоторых случаях тип файла присваивается автоматически операционной системой или используемым пакетом.
Каждый диск, содержащий файлы, имеет оглавление, в которое помещается информация о его имени, расширении, времени и дате его создания, о местонахождении на физическом носителе (например, на диске С или D).
Для поиска файла необходимо указать диск, каталог, подкаталог, имя файла, его расширения.
Например: C:\TURBO\Prim\Prim46.pas.
Здесь файл Prim 46.pas находится в подкаталоге Prim каталога TURBO диска С.
10.2. Стандартные процедуры и функции для работы с файлами
Далее примем обозначения: FV - имя файловой переменной или просто имя файла, str - строковое выражение, Р - имя структурной компоненты файла, n - целое выражение.
Assig и (FV, str); – процедура присвоения имени файла.
Имя файла, которое является значением str, присваивается переменной файлового типа FV. Далее все действия над этой переменной будут эквивалентны действиям над файлом, определенным именем str. Например: Assign (books, 'c:\bibl.dos'); позволяет работать не с именем 'c:\bibl.dos', которое может быть достаточно длинным (если имеются каталоги и подкаталоги), а с именем books.
Rewrite (FV); – процедура создания нового файла с именем FV на диске. Имя файла должно быть предварительно определено процедурой Assign. Если на диске уже был файл с таким именем, то он уничтожается. Указатель файла устанавливается в первую позицию с номером 0. Файл еще не содержит ни одной компоненты, а только подготовлен к загрузке.
Reset (FV); – процедура открытия (разрешение работать с файлом именем FV) уже имеющегося файла. Указатель устанавливается на начало файла, в позицию с номером 0.
Read (FV, Р); – процедура чтения компоненты файла, на которую установлен указатель, ее содержимое помещено в область памяти с именем Р.
Write (FV, Р); – процедура записи информации из области памяти Р в файл FV и компоненту, на которую установлен указатель.
Seek (FV, n); – процедура установки указателей на компоненту с номером n.
Flush (FV); – очищение буфера сектора. Выполнение процедуры приводит к выталкиванию содержимого внутреннего буфера (области памяти) в файл.
Close (FV); – процедура закрытия файла, при этом записывается маркер конца файла. После работы с файлом его необходимо обязательно закрыть.
Erase (FV); – процедура уничтожения файла. Если производится уничтожение открытого файла, его необходимо предварительно закрыть.
Rename (FV, str); – процедура переименования файла. Файлу FV присваивается имя str.
Truncate (FV); – процедура уничтожения всех компонент файла, начиная с места текущего положения указателя и подготовки файла к записи.
Eof (FV) – функция проверки маркера конца файла. Значение функции равно True, если указатель файла находится за последней компонентой, и False – в противном случае.
Filepos (FV) – функция определения положения указателя.
Filesize (FV) – функция определения длины файла. Функция возвращает целочисленное значение, равное количеству компонент файла: если File Size (FV) = 0, то файл пуст.
Loresult (FV) – функция проверки результата последней операции ввода- вывода на наличие ошибок. Если ошибка обнаружена, возвращается код ошибки, если нет, то код = 0.
10. 3. Стандартные файлы
Con: – консоль (клавиатура или экран дисплея). Турбо-Паскаль устанавливает различия между этими устройствами по направлению передачи данных: чтение данных возможно только с клавиатуры, а запись - только на экран. Ввод с клавиатуры буферизуется: символы по мере нажатия клавиш помещаются в буфер, содержимое которого передается в ЭВМ только после нажатия клавиши ENTER, поскольку вводимые и буферизированные символы отображаются на экране. Con применяется «по умолчанию» для ввода с помощью операторов READ и Readln и для вывода на экран – операторов write и writeln, если не указано имя файла FV.
Все внешние устройства ЭВМ трактуются в Pascal как логические устройства, имеющие имена файлового типа и которым соответствуют заранее определенные (стандартные) файлы. Идентификацию (отождествление) устройства и стандартного файла осуществляют специальные программы (драйверы), которые обеспечивают выполнение операций ввода-вывода между процессором и конкретным физическим устройством. Ниже указаны имена файлов и соответствующие им устройства так, как они определены разработчиками системы.
Trm: – терминал, предназначенный для ввода с клавиатуры и вывода на экран без редактирования.
Kbd: – клавиатура, используемая только для ввода с клавиатуры, при вводе информация не отображается на экран.
PRN: – построчно печатающее устройство (принтер), используемое только для вывода.
Aux: – вспомогательное устройство, подключающееся через порты.
Usr: – устройство пользователя, применяемое при написании собственных драйверов для организации нестандартного ввода-вывода.
10.4. Файлы последовательного доступа, созданные пользователем
Работа с файлом последовательного доступа предполагает его создание, обработку и корректировку. Для создания файла последовательного доступа необходимо:
-                   объявить файловую переменную;
-                   «привязать» файл к физическому носителю информации (присвоить файлу имя). (Assign);
-                   открыть новый файл (Rewrite);
-                   подготовить информацию для ввода в компоненту файла, т.е. сформировать запись для ввода в файл в качестве компоненты;
-                   записать в файл компоненту (Write);
-                   повторить п. 4, 5 необходимое количество раз;
-                   закрыть созданный файл (Close).
Для доступа к компонентам последовательного файла (например, для просмотра содержимого файла на экране или для обработки компонент в целях включения их в качестве фрагментов в программу обработки каких-либо данных и т.п.) следует:
-                   присвоить файлу имя (Assign);
-                   открыть уже существующий файл (Reset);
-                   считать текущую компоненту из файла в рабочую область памяти (как правило, типа запись со структурой компоненты), (Read);
-                   выполнить обработку информации (например, вывести на экран поля записи);
-                   закрыть файл (Close).
Возможны три типа корректировки файла как прямого, так и последовательного доступа:
1. Расширение файла за счет внесения новых компонент.
2. Полная замена содержимого компоненты.
3. Замена каких-либо полей отдельных компонент.
Замена содержимого компонент отдельных записей или замена полей отдельных записей будет рассмотрена в следующем подразделе при изучении корректировки компонент файлов прямого доступа.
Добавление новых записей в файл последовательного доступа выполняется путем записи компонент в конце файла. Маркер конца файла при этом переносится. Естественно, на физическом носителе при этом должно иметься свободное пространство.
Для записи новых компонент в конце имеющегося файла необходимо:
-                   присвоить файлу имя (Assign);
-                   открыть уже существующий файл (Reset);
-                   установить указатель файла за последней компонентой (Seek (FV, File sise (FV)):
-                   создать в специально выделенной области памяти (как правило записи) новую компоненту;
-                   записать новую компоненту в файл (write);
-                   закрыть файл (Close).
Пример. Организовать последовательный файл с именем PRIM bibl.dos в подкаталоге Prim каталога TURBO на диске С, т.е. C:\TURBO\bibl.dos. Компонента должна иметь структуру: индекс книги, порядковый номер экземпляра, фамилию, инициалы первых трех авторов (если их несколько), название книги. Блок создания файла оформить в виде процедуры с именем org. Блок доступа к компонентам файла оформить в виде процедуры с именем obr., а блок корректировки – в виде процедуры с именем Rash.
             Program Prim47;
    type books=record              {базовая запись}
           nomer:integer;
           avtor:string[16];
           nazv:string[30];
           index:integer;     end;
      var  bf:file of books;       { описать файловую переменную }
           rb:books;               { участок памяти со структурой }
                                   { компоненты файла }
   procedure org;
        begin  assign(bf,'C:\TURBO\PRIM\bibl.dos');
               Rewrite(bf);
          with rb do          { работать с записью rb без уточненных имен }
          while True do
        begin   writeln('ввести номер книги');
                   readln(nomer);
              if nomer=9999 then  {9999 – признак окончания ввода данных}
               Begin  close(bf);  Exit end;
                   writeln('ввести имя автора');
                   readln(avtor);
                   writeln('ввести название книги');
                   readln(nazv);
                   writeln('ввести значение индекса');
                   readln(index);
                   write(bf,rb); { записать компоненту из rb в файл }
        end; end;
    procedure Obr;
       Begin  Assign(bf,'C:\TURBO\PRIM\bibl.dos');
             Reset(bf);
             with rb do
             while not Eof(bf) do{ выйти из цикла, когда закончится файл }
         begin read(bf,rb);
             writeln(nomer:5,avtor:16,Nazv:10,index:6); { вывод на экран }
        end; Close(bf);  end;
    procedure Rash;
       begin Assign(bf,'C:\TURBO\PRIM\bibl.dos');
             Reset(bf);
             Seek(bf,Filesize(bf)); { установить указатель на конец файла }
             with rb do
             while True do
         begin writeln('ввести номер');          readln(nomer);
             if nomer=9999 then begin Close(bf);Exit end;
             writeln('ввести имя автора');       readln(avtor);
             writeln('ввести название книги');   readln(nazv);
             writeln('ввести значение индекса'); readln(index);
             write(bf,rb); end;end;
    BEGIN                              { основная программа }
             Org; Obr; Rash; Obr;  readln;
    END.
При создании больших программ их части удобно создавать в виде отдельных файлов (объектов), которые затем с помощью директивы компилятора {$i...} можно объединить в одну программу. Это удобно еще и тем, что несколько программистов могут создавать различные программы, что в несколько раз может ускорить процесс их создания.