Type mas=array[,] of integer; var i,j,ik,jk,k,max:integer; a:mas; b:array[0..5]of integer;//вспомогательный массив begin setlength(a,5,6); writeln('Массив:'); // в массиве b минимальное число строки for i:=0 to 4 do begin for j:=0 to 5 do begin a[i,j]:=random(-10,10); write(a[i,j]:4); if j=0 then b[i]:=a[i,0]; if a[i,j]<b[i] then b[i]:=a[i,j]; end; writeln; end; writeln('Замена минимального противоположным:'); for i:=0 to 4 do begin for j:=0 to 5 do begin if a[i,j]=b[i] then a[i,j]:=-a[i,j]; write(a[i,j]:4); end; writeln; end; writeln('Вставка столбцов:'); // в массиве b признак наличия в столбце максимума for i:=0 to 5 do b[i]:=0; for i:=0 to 4 do for j:=1 to 5 do if a[i,j]>max then max:=a[i,j]; for i:=0 to 4 do for j:=0 to 5 do if a[i,j]=max then b[j]:=1; for i:=0 to 5 do k:=k+b[i]; k:=5+k; setlength(a,5,k+1); jk:=k; for j:=5 downto 0 do begin if b[j]=1 then begin for ik:=0 to 4 do a[ik,jk]:=1; jk:=jk-1; end; for ik:=0 to 4 do a[ik,jk]:=a[ik,j]; jk:=jk-1; end; for i:=0 to 4 do begin for j:=0 to k do write(a[i,j]:4); writeln; end; writeln('Удаление первой строки:'); for i:=0 to 3 do for j:=0 to k do a[i,j]:=a[i+1,j]; setlength(a,4,k+1); for i:=0 to 3 do begin for j:=0 to k do write(a[i,j]:4); writeln; end; writeln('Обмен столбцов:'); for i:=0 to 3 do begin b[i]:=a[i,k-1]; a[i,k-1]:=a[i,k]; a[i,k]:=b[i]; end; for i:=0 to 3 do begin for j:=0 to k do write(a[i,j]:4); writeln; end; <span>end.</span>
<span>program zadacha; var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b else
if a < c then s := c else s := a else
if b > c then s := b else
if a > c then s := c else s := a; writeln('Среднее по значению: ', s);
end.</span>
Реляционная БД - это БД, состоящая из взаимосвязанных таблиц. Следовательно, наиболее подходящий аналог - двухмерная таблица, так как в реляционной БД также существуют поля (атрибуты) и записи, ровно как и в обычной таблице.
Программа распознавания, например FineReader, изображение каждой буквы преобразует в ее код, шрифт, выбирает нужные атрибуты: жирный, подчеркнутый, цвет и т. д.
Так как изображения букв точно не совпадают, программа может "ошибаться" при таких преобразованиях, из за этого возникают ошибки.