Составители:
Рубрика:
132
рс: ^Char;
begin
new(pb);
pbA:= 65;
p:= pb;
pc:= p;
writeln(pc^ );
dispose(pb);
end.
Задачи для самостоятельного решения
1. Дано целое число k и вещественные матрицы
X[1:k,1:k] и Y[1:k+10,1:k+10]. Если наибольший элемент ка-
кой либо матрицы больше единицы, то все элементы такой
матрицы разделить на этот наибольший элемент, в противном
случае оставить матрицу без изменения.
2. Даны целые числа n, m и действительные матрицы
а[1:п,1:п], b[1:m,1:m], с[1:п+т,1:п+т]. Преобразовать эти
матрицы по следующему правилу, если элементы первой
строки образуют неубывающую последовательность и наи-
больший диагональный элемент (то есть наибольший из эле-
ментов, находящихся на главной диагонали), неотрицателен, то
упорядочить по неубыванию элементы и всех остальных строк.
рс: ^Char;
begin
new(pb);
pbA:= 65;
p:= pb;
pc:= p;
writeln(pc^ );
dispose(pb);
end.
Задачи для самостоятельного решения
1. Дано целое число k и вещественные матрицы
X[1:k,1:k] и Y[1:k+10,1:k+10]. Если наибольший элемент ка-
кой либо матрицы больше единицы, то все элементы такой
матрицы разделить на этот наибольший элемент, в противном
случае оставить матрицу без изменения.
2. Даны целые числа n, m и действительные матрицы
а[1:п,1:п], b[1:m,1:m], с[1:п+т,1:п+т]. Преобразовать эти
матрицы по следующему правилу, если элементы первой
строки образуют неубывающую последовательность и наи-
больший диагональный элемент (то есть наибольший из эле-
ментов, находящихся на главной диагонали), неотрицателен, то
упорядочить по неубыванию элементы и всех остальных строк.
132
