Программирование на языке Турбо Паскаль

из них закончилась, то она и считается меньшей.  Примеры:  'ананас'<'кокос',

'свинья'>'свинина', ''<'A', 'hell'<'hello'.

    Склеивание (конкатенация) строк. К строкам можно применять операцию «+»,

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

«слагаемых». Пример: после  действия  s:=  'abc'+'def'+'ghi';  переменная  s

будет содержать ‘abcdefghi’.

    Процедуры и функции для работы со строками. Наиболее часто употребляется

функция length(s: string): integer (после двоеточия  записан  тип  значения,

возвращаемого  функцией,  в  нашем  случае  —  целое  число).  Эта   функция

возвращает длину строки s.

    Другие процедуры и функции приведены в таблице:

|Процедура или функция    |Назначение             |Пример                     |

|функция                  |Возвращает вырезку из  |s:=’Бестолковый’;          |

|Copy(s: string; start:   |строковой переменной s,|s1:=Copy(s,4,4);           |

|integer;                 |начиная с символа с    |{в s1 станет ‘толк’}       |

|len: integer): string    |номером start, длина   |                           |

|                         |которой len            |                           |

|функция                  |Ищет подстроку s1 в    |n:=pos(‘министр’,          |

|Pos(s1: string; s:       |строке s. Если находит,|‘администратор’); {=3}     |

|string): byte            |то возвращает номер    |n:=pos(‘abc’,              |

|                         |символа, с которого    |‘stuvwxyz’);{=0}           |

|                         |начинается первое      |                           |

|                         |вхождение s1 в s; если |                           |

|                         |s1 не входит в s, то   |                           |

|                         |функция возвращает 0   |                           |

|процедура                |Вставляет строку s1 в  |S:=‘кот’;                  |

|Insert(s1: string; s:    |строковую переменную s |insert(‘мпо’,s,3);         |

|string;                  |начиная с символа с    |{в s станет ‘компот’}      |

|start: integer)          |номером start.         |                           |

|процедура                |Удаляет из строковой   |s:= ‘треугольник’;         |

|Delete(s: string; start: |переменной s фрагмент, |delete(s,4,7);             |

|integer;                 |начинающийся с символа |{в s останется ‘трек’}     |

|len: integer)            |с номером start и      |                           |

|                         |длиной len             |                           |

                 Лекция 6. Перечисляемый и ограниченный типы

                            1. Перечисляемый тип

    Предположим, что нам требуется переменная для  хранения  дня  недели.  В

этом случае можно воспользоваться целым типом (например byte) и хранить  дни

недели в виде чисел 1, 2, ... 7, но  это  будет  не  очень  наглядно.  Турбо

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

перечислимого типа, например, такого:

    type Days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);

    После этого можно завести переменную  этого  типа  (var  day:  Days;)  и

использовать её. Ниже приведены примеры использования:

    day:=Wed;

    ...

    if day>Fri then writeln('Сегодня выходной');

    ...

    if day=Mon then writeln('Началась рабочая неделя');

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

этом меньшим считается то, которое объявлено раньше  (левее)  в  определении

типа.

    Для переменных перечисляемых типов возможно применение  функций  succ  и

pred, например, succ(Wed) дает Thu,  Pred(Sun)  дает  Sat.  Если  попытаться

написать Pred(Mon)  или  Succ(Sun),  то  уже  на  этапе  проверки  программы

компилятором произойдет ошибка.

    Хранение значений перечисляемого типа устроено внутри  довольно  просто:

хранятся целые числа от 0 до n, в нашем случае n=6. Существует функция  Ord,

которая позволяет получить то число, в  виде  которого  хранится  какое-либо

значение перечисляемого типа, например Ord(Wed) дает  2.  При  необходимости

можно   получить   значение   перечисляемого   типа   по   его    численному

представлению, например, Days(1) есть  Tue.  После  всего  сказанного  можно

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

сравниваются их порядковые номера (Ord).

    Пример использования перечисляемых типов:

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

на  запад,  на  юг  и  на  восток,  то  есть  текущее  направление  движения

определяется переменной типа  Directions  =  (North,  West,  South,  East);.

Этому кораблю можно подавать приказы следующих типов: вперёд, назад,  влево,

вправо, то есть любой приказ задать переменной типа Orders =  (Ahead,  Back,

Left, Right);. Пусть корабль двигался по  направлению  d1,  после  чего  ему

дали приказ p. Программа должна  определить,  в  каком  направлении  корабль

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

    program Ship;

    type Courses = (North, West, South, East);

         Orders  = (Ahead, Back, Left, Right);

    var d1, d2: Courses;

        p: Orders;

        i: integer;

        s: string;

    begin

      {Запрашиваем у пользователя информацию о курсе и приказе}

      writeln('Введите первоначальный курс корабля ');

      write('(0-север, 1-запад, 2-юг, 3-восток) ');

      readln(i);

      d1:=Courses(i);

      writeln('Введите приказ, данный кораблю ');

      write('(0-прямо, 1-назад, 2-влево, 3-вправо) ');

      readln(i);

      p:=Orders(i);

      {Определяем новый курс}

      case p of

        Ahead : d2:=d1;

        Back  : d2:=Courses((ord(d1)+2) mod 4);

        Left  : d2:=Courses((ord(d1)+1) mod 4);

        Right : d2:=Courses((ord(d1)+3) mod 4);

                {-1 - нельзя, так как (Ord(North)-1) mod 4 = -1}

      end;

      {Выводим результат на экран}

      case d2 of

        North : s:='север';

        West  : s:='запад';

        South : s:='юг';

        East  : s:='восток';

      end;

      writeln('Теперь корабль движется на '+s);

      readln;

    end.

                             2. Ограниченный тип

    Этот тип также рассмотрим на примере. Пусть в некоторой переменной нужно

хранить текущее число, то есть номер дня в месяце.  В  Турбо  Паскале  можно

задать тип DaysInMonth = 1..31;. Переменные и  константы  этого  типа  могут

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

компилятор  выдаст  ошибку.  В  качестве  границ   могут   употребляться   и

отрицательные числа, например Temperature=-60..50;

    В качестве базового типа (то есть типа, из которого выбирается  диапазон

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

которые хранятся в виде целых  чисел.  К  порядковым  типам  относятся:  все

целые типы (byte, integer, и т. п.), char,  boolean,  перечисляемые  типы  и

ограниченные типы. В качестве базового типа  нельзя  использовать  лишь  сам

ограниченный тип (трудно представить,  как  это  можно  сделать).  С  учетом

этого правила допустимы такие объявления типов:

    type SmallLatin = 'a'..'z';    {малые латинские буквы}

         MyBoolean  = True..False; {хотя это и бессмысленно}

         Holidays   = Sat..Sun;    {выходные}

    Нельзя в качестве базового типа употребить какой-либо вещественный  тип,

следующее объявление приведет к ошибке:

    type Wrong = -1.25..1.25;

    Заметим, что  функции  Ord,  Succ  и  Pred  могут  применяться  к  любым

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

                              Лекция 7. Массивы

                   1. Понятие массива. Одномерные массивы

    Массивы являются представителями структурированных типов данных, то есть

таких, переменные которых составлены из  более  простых  элементов  согласно

определённому  порядку.  Для  массивов  характерно  то,  что  они   являются

совокупностью некоторого числа одинаковых  элементов.  В  простейшем  случае

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

диапазона. Рассмотрим пример такой переменной в Турбо Паскале:

    var a: array [1..10] of real;

Переменная  a  состоит  из  десяти  ячеек  типа  real,  можно  записывать  и

извлекать значения из них, пользуясь записью a[<номер ячейки>].

   Пример 1. Поиск наибольшего числа среди элементов массива.

   program FindMaximumInArray;

   var a: array[1..10] of real;

       i,max: integer;

   begin

     for i:=1 to 10 do begin

       write('Введите элемент номер ',i,' -> ');

       readln(a[i]);

     end;

     max:=a[1];

     for i:=2 to 10 do

       if a[i]>max then max:=a[i];

     writeln('Максимум равен ',max);

     readln;

   end.

   В качестве типа элементов массива можно использовать все типы, известные

нам на данный момент (к ним относятся все  числовые,  символьный,  строковый

и логический типы).

    Нумеровать элементы массивов можно не только от единицы, но и от  любого

целого числа. Вообще для индексов массивов подходит  любой  порядковый  тип,

то  есть  такой,  который  в  памяти  машины  представляется  целым  числом.

Единственное ограничение  состоит  в  том,  что  размер  массива  не  должен

превышать 64 Кб. Рассмотрим некоторые примеры объявления массивов.

    var Numbers: array [0..1000] of integer;

        Names: array [1..10] of string;

        Crit: array[shortint] of boolean;

        CountAll: array[char] of integer;

        Count: array['a'..'z'] of integer;

    В следующем примере показано для чего может понадобиться последний тип.

    Пример 2. Подсчет количества различных букв в строке.

    program CountLetters;

    var s: string;

        count: array['a'..'z'] of byte;

        ch: char;

        i: byte;

    begin

      write('Введите строку > ');

      readln(s);

      for i:=1 to length(s) do

        if (s[i]>='a')and(s[i]<='z') then inc(count[s[i]]);

      writeln('Количество различных букв в строке: ');

      for ch:='a' to 'z' do

        if count[ch]<>0 then

          writeln(ch,': ',count[ch]);

      readln;

    end.

                           2. Многомерные массивы

    При необходимости можно нумеровать массивы не одним индексом а  двумя  и

более. Двумерному  массиву  соответствует  матрица  в  математике,  то  есть

прямоугольная таблица.

    Примеры описаний многомерных массивов:

    var Matrix: array[1..4,1..3] of real;

        Cube3D: array[1..5,1..5,1..5] of integer;

    Рассмотрим пример использования двумерного массива.

    Пример 3. Построить календарь на следующий год, то есть при вводе номера

месяца и числа выдавать день недели.

    program Calendar;

    type tWeekDay = (Mon,Tue,Wed,Thu,Fri,Sat,Sun,NoDay);

                    {NoDay - нет дня (например, 30.02)}

         tCalendar = array [1..12,1..31] of tWeekDay;

    var CL: tCalendar;

        m,d: byte;    {месяц и число}

        wd: tWeekDay; {день недели}

    begin

      {Строим массив:}

      {1. Заполним весь календарь значениями "нет дня":}

      for m:=1 to 12 do

        for d:=1 to 31 do CL[m,d]:=NoDay;

      {2. Строим массив-календарь:}

      m:=1; d:=1;

      wd:=Mon;

      repeat

        CL[m,d]:=wd;

        case m of

          4,6,9,11:        if d=30 then begin m:=m+1; d:=1; end else d:=d+1;

          1,3,5,7,8,10,12: if d=31 then begin m:=m+1; d:=1; end else d:=d+1;

          2:               if d=28 then begin m:=m+1; d:=1; end else d:=d+1;

        end;

        wd:=tWeekDay((ord(wd)+1) mod 7);

      until m=13;

      {Выводим на экран:}

      repeat

        write('Номер месяца > '); readln(m);

        write('Число > '); readln(d);

        case CL[m,d] of

          Mon:   writeln('Понедельник');

          Tue:   writeln('Вторник');

          Wed:   writeln('Среда');

          Thu:   writeln('Четверг');

          Fri:   writeln('Пятница');

          Sat:   writeln('Суббота');

          Sun:   writeln('Воскресенье');

          NoDay: writeln('Такого дня нет в календаре');

        end;

      until false;

    end.

                            3. Сортировка и поиск

    В  прикладных  программах  широко  распространены  два  типа   операций,

связанных с массивами:

   1.  Упорядочивание  элементов  массива  по   возрастанию   или   убыванию

      (сортировка)

   2. Поиск элемента в массиве.

    Рассмотрим простейший вариант сортировки массива  (сортировка  выбором).

Пусть есть массив из n элементов;  сначала  найдём  в  нём  самый  маленький

среди элементов с номерами 2,3,...n и поменяем местами с  первым  элементом,

затем среди элементов с номерами 3,4,...n найдём наименьший  и  обменяем  со

вторым, и  т.  д.  В  результате  наш  массив  окажется  отсортированным  по

возрастанию.

    program SelectSort;

    const n = 10;

    var a: array [1..n] of integer;

        i,j,jmin,buf: integer;

        {jmin - номер наименьшего элемента,

         buf используется при обмене значений двух элементов}

    begin

      for i:=1 to 10 do begin

        write('Введите элемент номер ',i,' -> ');

        readln(a[i]);

      end;

      for i:=1 to n-1 do begin

        jmin:=i;

        for j:=i+1 to n do

          if a[j]