П р о г р а м м а
program umnog;
type mat=array[1..9,1..9] of integer;
var i,j:integer;
p:mat;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
p[i,j]:=i*j;
write (p[i,j]:3)
end;
writeln;
end
end.
ПРИМЕР 2: Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.
П р о г р а м м а
program mag_max;
type x=array[1..3,1..4] of integer;
y=array[1..4] of integer;
var i,j:integer;
a:x; b:y;
begin
writeln ('Введите матрицу А');
for i:=1 to 3 do begin
for j:=1 to 4 do begin
read(a[i,j]);
write (' ')
end;
writeln
end;
writeln ('Массив В');
for j:=1 to 4 do
begin
b[j]:=a[1,j];
for i:=2 to 3 do
if b[j]<a[i,j]
then b[j]:=a[i,j];
write(b[j]:4:1)
end
end.
Упражнения:
Для матрицы В(10,8) на место последнего элемента каждой строки записать сумму предыдущих ему элементов в этой строке.
В матрице С(9,5) найти среднее арифметическое всех элементов, удовлетворяющих условию
.В матрице А(7,9) определить max и min элементы и переставить их местами.
В матрице А(8,9) определить среднее арифметическое положительных и отрицательных элементов. Подсчитать количество нулевых элементов.
Вычислить
,
где
-
количество нулевых элементов в четных
строках матрицы В(10,10).В матрице А(6,6) все поддиагональные элементы заменить нулями.
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов каждой нечетной строки. Из полученных сумм и произведений образовать массив
.В матрице X(12,4) в каждой строке найти сумму элементов, лежащих в интервале
.
Образовать из этих сумм пятый столбец
исходной матрицы.Задана матрица X(7,11). Образовать матрицу Y(7,11) путем деления всех элементов исходной матрицы на ее элемент, наибольший по абсолютной величине.
В матрице А(10,10) найти сумму элементов, расположенных в строках с отрицательным элементом на главной диагонали.
Задана матрица X(6,6). Вычислить сумму элементов, расположенных на линиях, параллельных главной диагонали и находящихся выше нее.
В матрице X(8,8) найти среднее арифметическое элементов, расположенных под главной диагональю; на главной диагонали; над главной диагональю.
Задана матрица А(8,12). Построить вектор
по следующему правилу:
.
Лабораторная работа 8 обработка символьных строк
ЦЕЛЬ РАБОТЫ:
Овладеть навыками составления алгоритмов и программ на языке Паскаль по обработке символьных строк.
Научиться использовать встроенные функции для обработки строк.
Краткие сведения из теории
Строковые переменные аналогичны массивам типа char. Их отличием является то, что число символов (длина строковой переменной) может динамически меняться в интервале от единицы до заданного верхнего значения.
Перед выполнением данной лабораторной работы необходимо ознакомиться с правилами описания и использования переменных типа string, допустимыми операциями над ними, соответствующими стандартными процедурами и функциями.
ПРИМЕР 1: Удалить из строки все "лишние" (парные) пробелы.