Ввод-вывод элементов матрицы

Матрица

Пример 34

Встроенные процедуры и функции обработки строк

В Турбо-Паскале имеется несколько стандартных процедур и функций, предназначенных для обработки строковых переменных. Приведем наиболее полезные из них:

Concat (S1[,S2,...,Sn]: string): string - функция возвращает строку, полученную в результате сцепления строк S1, S2,...,Sn. (эквивалентна операции конкатенации);
Copy (St: string; Index: integer; Count: integer): string - функция возвращает подстроку, выделенную из исходной строки St длиной Count символов, начиная с символа с номером Index;
Delete (var St: string; Index, Count: integer) - процедура удаляет из строки St подстроку длиной Count символов, начиная с символа с номером Index исходной строки;
Insert (Subst: string; var St: string; Index: integer) - процедура вставляет подстроку Subst в исходную строку St, начиная с символа с номером Index исходной строки;
Pos (Subst, St: string): byte - функция отыскивает первое вхождение подстроки Subst в строке St и возвращает номер позиции, с которой она начинается; если вхождение не установлено, возвращается 0. Более подробный список стандартных процедур и функций Турбо-Паскаля приведен в [9].

В качестве примера обработки строковых переменных рассмотрим функцию определения первого вхождения строки Str2 в строку Str1, начиная с символа с номером N в строке Str1 (пример 34).
Пример вызова функции: K = PosN (2, 'abcabc', 'ab'); Переменная K получит значение 4.

Исходные данные:	Str1, Str2, N
Результат:	PosN - номер символа строки Str1, с которого начинается вхождение строки Str2;
	PosN = 0, если вхождение не установлено.

function PosN(N: integer; Str1,Str2: string): integer; {определение первого вхождения строки Str2 в строку Str1, начиная с номера N} var I, J, K: integer; D1, D2: integer; {длины строк Str1, Str2} Fl: boolean; {флаг} begin D1:= Length(Str1); D2:= Length(Str2); PosN:= 0; {инициализация} if (D1 - N + 1 >= D2) and (N > 0) then {вхождение возможно} begin Fl:= FALSE; I:= N; K:= D1-D2+1; while not Fl and (I <= K) do {цикл просмотра возможных вхождений} begin Fl:= TRUE; J:= 1; while Fl and (J <= D2) do {цикл проверки вхождения Str2 в Str1, начиная с I-го символа строки Sr1} begin if Str2[J] <> Str1[I+J-1] then Fl:= FALSE; J:= J + 1; end; I:= I+1; end; if Fl then PosN:= I-1 {если Fl = TRUE, то вхождение установлено} end; end;

Развитый математический аппарат обработки элементов матрицы определил широкое использование этой структуры данных. В памяти ЭВМ матрицы хранятся по строкам. Соответственно ввод и вывод элементов матрицы в программе осуществляется построчно. Приведем фрагмент программы, осуществляющей построчный ввод элементов матрицы A типа Matr:

type Matr = array[1..5,1..5] of integer; объявлен тип матрицы 5*5 элементов} var A: Matr; {объявлена матрица A целого типа} N, M, I, J: integer;... write('Введите количество строк < = 5 '); read(N); write('Введите количество столбцов < = 5 '); read(M); for I:= 1 to N do for J:= 1 to M do read(A[I,J]);

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

writeln('Вывод матрицы'); for I:= 1 to N do begin for J:= 1 to M do write(A[I,J]:5);{вывод строки матрицы} writeln;{смена строки экрана} end;

Если размерность матрицы достаточно велика, то можно осуществить вывод с заданным числом элементов в строке, например:

writeln('Вывод матрицы по 4 элемента в строке'); for I:= 1 to N do begin for J:= 1 to M do begin write(A[I,J]:7); if J Mod 4 = 0 then writeln; {смена строки после вывода 4-х элементов} end; writeln; {вывод каждой новой строки матрицы с новой строки экрана} end;

Этот фрагмент выводит элементы каждой строки матрицы следующим образом: 4 элемента по 7 позиций в строке экрана, оставшиеся M-4 элементов - в следующей строке. После чего осуществляется смена строки экрана и вывод очередной строки матрицы.

Дата добавления: 2014-01-06