Программирование элементов разветвляющейся структуры

1626
знаков
0
таблиц
3
изображения

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

 

Лабораторная работа № 8

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003


Задание А.

Найти среднее арифметическое отрицательных элементов матрицы Z (n,m). Значения параметров n и m задаются следующим условием n12, 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.


Блок-схема




Информация о работе «Программирование элементов разветвляющейся структуры»
Раздел: Информатика, программирование
Количество знаков с пробелами: 1626
Количество таблиц: 0
Количество изображений: 3

Похожие работы

Скачать
112819
0
0

... . Объясните, для чего служат разрешения и привилегии в Windows NT. Зав. кафедрой --------------------------------------------------   Экзаменационный билет по предмету СИСТЕМНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ Билет № 22 Перечислите возможности и инструменты системы программирования Microsoft Developer Studio. Укажите для чего предназначается буфер в системах ввода-вывода, ...

Скачать
61871
4
0

... конкретные примеры, наглядно это обосновывая. Для написания программ необходимо использовать особенные языки. Языки программирования - это нормированные языки, которые служат для описания инструкций обработки, структур данных, а также ввода и вывода данных. Необходимо преобразовывать алгоритм всегда таким образом, чтобы выделять в нем "подалгоритмы". Теория разработки программного обеспечения ...

Скачать
177159
29
21

... в широкую практику разработки программ объектно-ориентированного программирования, впитавшего в себя идеи структурного и модульного программирования, структурное программирование стало фактом истории информатики. Билет № 9 Текстовый редактор, назначение и основные функции. Для работы с текстами на компьютере используются программные средства, называемые текстовыми редакторами или текстовыми ...

0 комментариев


Наверх