Var n,I,j,st,kl,k:integer;

a:array [1..10,1..10] of integer;

begin;

clrscr;

write(‘укажите размерность матрицы (до 10)’); readln(n);

st:=n; kl:=n; k:=1; {текущие строка и колонка, элементы натурального ряда}

a[st,kl]:=k; {начальному элементу a(n,n) присваивается 1}

while k<n*n do begin {конец вычислений по достижении последнего элемента массива}

if (kl=n) and (st>1) then begin st:=st-1; k:=k+1; a[st,kl]:=k; {правая сторона – 1 клетка вверх}

while (st<n) and (kl>0) do begin st:=st+1; kl:=kl-1; k:=k+1; a[st,kl]:=k end; {далее вниз-влево

end

else if (kl>1) and (st=n) then begin kl:=kl-1; k:=k+1; a[st,kl]:=k; {нижняя сторона – 1 клетка влево, }

while (st>1) and (kl<n) do begin st:=st-1; kl:=kl+1; k:=k+1; a[st,kl]:=k end; {далее вверх-вправо}

end

else if (kl>1) and (st=1) then begin kl:=kl-1; k:=k+1; a[st,kl]:=k; {верхняя сторона – 1 клетка влево, }

while (st<n) and (kl>1) do begin st:=st+1; kl:=kl-1; k:=k+1; a[st,kl]:=k end; {далее вниз-влево}

end

else if(kl=1) and (st>1) then begin st:=st-1; k:=k+1; a[st,kl]:=k; {левая сторона – 1 клетка вверх, }

while (st>1) and (kl>0) do begin st:=st-1; kl:=kl+1; k:=k+1; a[st,kl]:=k end; {далее вверх-вправо}

end;

end;

writeln('вывод результата');

for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end;

end.

Задание. Поиск в отсортированном массиве. Очевидно, что найти нужное значение Х можно сплошным перебором данных. Однако в худшем случае (если искомое значение находится внизу или его нет вовсе) нам придется просмотреть все элементы массива. Имеется гораздо более быстрый алгоритм, называемый бинарным поиском. Массив делится пополам и Х сравнивается со средним элементом. Если Х оказался больше, пополам делится нижняя часть, если нет – верхняя и т.д. Напишите программу поиска.

7. Символьные данные

Паскаль позволяет обрабатывать не только числовые, но и символьные данные, которые бывают двух типов. Символы описываются в описательной части программы атрибутом CHARи хранят один знак. Строки это цепочки символов и описываются атрибутомSTRING. Например, var ST: char; SM: string[32]; SS: string. Здесь ST – одиночный символ, SM – строка не более чем из 32 символов. Если количество символов не указано, строке присваивается емкость в 255 символа. В программе и символы и строки должны заключаться в апострофы, например:ST:=‘a’;SM:=‘экзамен’;. Над символами и строками с помощью приведенных в таблице функций производятся различные операции.

Функция	Назначение
concat (строка1,строка2)	Соединяет строки строка1 и строка2 в одну (пример: concat(‘а’,’б’)=’аб’)
copy(строка, позиция, количество)	Копирует из строки, начиная с заданной позиции количество символов (пример: copy(‘программа’,4,5)=’грамм’)
delete(строка, количество,позиция)	Удаляет из строки количество символов, начиная с заданной позиции (пример: delete(‘программа’,4,4)=’прома’)
insert(строка1,строка2, позиция)	Вставляет строку1в строку2, начиная с заданной позиции (пример: insert(‘сколько стоит’,’это ’,9)= ‘сколько это стоит’)
length(строка)	Определяет длину строки (пример: length(‘саша’)=4)
pos(строка1,строка2)	Отыскивает в строке2 первое вхождение строки1 и определяет номер позиции, с которой она начинается (пример: pos(‘саша’,’а’)=2)
upcase(символ)	Преобразует символ латинского алфавита в заглавный
str(число, формат,строка)	Преобразует число типа integer или real в строку по заданному (если есть) формату (примеры: str(5,x) – результат х=’5’, str(18.3:5:2,y) – результат y=’18.30’)
val(строка, число,признак)	Преобразует строку в целое или вещественное число, если оно прошло успешно, признак =0 (пример: val(’12.4’,x,k) – получим x=12.4, k=0)
ord(символ)	Преобразует символ в целое число – код символа в ASCII-таблице (пример: ord(Я)=159)
chr(число)	Преобразует число в символ из ASCII-таблицы с соответствующим кодом (пример: chr(159)=’Я’)