Выполнил: студент группы МДБ-11-05 Игонов Д.В.

Министерство образования Российской Федерации

Московский Государственный Технологический Университет

«СТАНКИН»

Кафедра «Управление и информатика в технических системах»

Учебный курс «Программирование на ЭВМ»

ЛАБОРАТОРНАЯ РАБОТА №6

по теме: «Строковый и символьный тип данных в Паскаль»

Выполнил: студент группы МДБ-11-05 Игонов Д.В.

Проверил: Тарасов А.В.

Москва 2013 г.

Краткая теория

Строки в Паскале – это данные типа string. Они используются для хранения последовательностей символов. В Паскале длина стандартной строки ограничена 255 символами. Под каждый символ отводится по одному байту, в котором хранится код символа. Кроме того, каждая строка содержит еще дополнительный байт, в котором хранится длина строки.

Если заранее известно, что длина строки будет меньше 255 символов, то программист может сам задать максимальную длину строки.

Примеры описания строк:

type

str_type = string[12];

const

n = 50;

var

s1: string;

s2, s3: str_type;

s4: string[n];

s5, s6, s7: string[7];

…

Длина строки хранится в первом ее байте, индекс которого равен 0. Объявление типизированной константы для типа string осуществляется так:

const

s: string = 'FreePascal'

…

Существует понятие пустой строки, т.е. строки, которая не имеет элементов. Пустая строка обозначается двумя рядом стоящими апострофами (например, st := '').

Операции над строками.

Строки можно присваивать друг другу. Если максимальная длина переменной слева меньше длины присваиваемой строки, то лишние символы справа отбрасываются.

…

s1 := 'this is text';

s2 := s1;

…

Строки можно объединять с помощью операции конкатенации, которая обозначается знаком +.

…

s1 := 'John';

s2 := 'Black';

s1 := s1 + ' ' + s2;

…

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

'abc' > 'ab' (true)

'abc' = 'abc' (true)

'abc' < 'abc ' (false)

Имя строки может использоваться в процедурах ввода-вывода. При вводе в строку считывается из входного потока количество символов, равное длине строки или меньшее, если символ перевода строки (который вводится нажатием клавиши Enter) встретится раньше. При выводе под строку отводится количество позиций, равное ее фактической длине.

…

readln (s1);

write (s1);

…

К отдельному символу строки можно обращаться как к элементу массива символов, например s1[3]. Символ строки совместим с типом char, их можно использовать в выражениях одновременно, например:

…

s1[3] := 'h';

writeln (s2[3] + 'r');

…

Можно осуществлять коррекцию любого символа строковой переменной, для чего в соответствующем операторе достаточно указать имя переменной типа string, вслед за которым в квадратных скобках задается номер ее элемента (например, str[3]:='j').

Элементы строки нумеруются с единицы, т.к. в каждой строковой переменной имеется элемент с номером 0, в котором в виде символа хранится длина текущей строки. Чтобы узнать текущую длину, достаточно применить функцию ord к нулевому элементу строки. Например:

…

writeln(ord(st[0]))

…

Нулевой элемент строковой переменной можно корректировать. При этом будет изменяться текущая длина строки. Например, выражение str[0]:=#50 устанавливает текущую длину равной 50.

Зачетная работа.

Заполнить массив 20Х20 символами и вывести кол-во повторяющихся символов в столбцах.

program denldbi;

var

i,j,n,k,m:integer;

A: array[1..20,1..20]of char;

begin

randomize;

k:=0;

for i:=1 to 20 do

for j:=1 to 20 do

begin

n:=random(25)+97;

A[i,j]:=chr(n);

end;

begin

for i:=1 to 20 do

begin

for j:=1 to 20 do

write (A[i,j],' ');

readln;

end;

readln;

begin

for j:=1 to 20 do

begin

m:=ord(A[i,j]);

for i:=1 to 20 do

begin

if m=ord(A[i+1,j]) then

k:=k+1;

writeln (j,' ctolbec ', A[i,j] ,'=',k);

end;

readln;

end.