Программирование элементов разветвляющейся структуры
ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 8
Тема: «Программирование элементов разветвляющейся структуры»
Выполнил: студент гр. 02ТП1
Пахомов В. Е.
Проверил: Ракова А. Н.
2003
Задание А.
Найти
среднее арифметическое
отрицательных
элементов
матрицы Z
(n,m). Значения
параметров
n и m
задаются следующим
условием n
12,
m12.
Программа:
uses crt;
var
z : array[1..12,1..12] of integer;
m, n, b, sum, i, j : integer;
begin
n:=10;
m:=12;
clrscr;
randomize;
b := 0;
sum := 0;
writeln('Исходный массив : ');
for i := 1 to n do
for j := 1 to m do
begin
z[i, j] := random(60) - 30;
if z[i, j] < 0 then
begin
sum := sum + z[i, j];
inc(b);
end;
write(' ', z[i, j]);
end;
writeln;
writeln('Результат : ',(sum / b):2:6);
readkey;
end.
Блок-схема
Задание Б.
В
матрице D
(n,m)
найти сумму
элементов
каждого столбца
и результат
разместить
в вектор Z.
Определить
номер столбца,
где эта сумма
минимальна.
Значения параметров
n и
m
задаются и
подчиняются
следующему
условию n12,
m12.
Программа:
uses crt;
var
n, m, b, i, j, sum, min : integer;
d : array[1..12,1..12] of integer;
z : array[1..12] of integer;
begin
clrscr;
randomize;
b := 0;
min := 0;
n:=12;
m:=7;
writeln('Исходный массив : ');
for i := 1 to n do
begin
for j := 1 to m do
begin
d[i, j] := random(60) - 30;
write(' ', d[i, j]);
end;
writeln;
end;
for j := 1 to m do
begin
sum := 0;
for i := 1 to n do
begin
sum := sum + d[i, j];
end;
z[j] := sum;
end;
min := 1;
for i := 1 to m do
if z[min] > z[i] then min := i;
writeln('Массив Z : ');
for i := 1 to m do
writeln (' ',z[i]);
writeln('Номер столбца : ',min);
readkey;
end.
Блок-схема
