Реферат

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

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 3.6.2025



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


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



Лабораторная работа № 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.




Блок-схема




                                                          




1. Реферат на тему The Crucible Essay Research Paper The play
2. Реферат Сравнительная характеристика жизни и деятельности 3-х выдающихся политиков Нового времени
3. Реферат Особенности строительства в зонах с сейсмической опасностью
4. Реферат Экономические методы формирования цены
5. Реферат на тему Conflicts In Monetary Policy Essay Research Paper
6. Реферат на тему Great Gatsby Essay Research Paper Disturbing Things
7. Курсовая Особенности производства по делам об административных правонарушениях в ОВД
8. Курсовая Психологическая совместимость 2
9. Реферат на тему The English Language Essay Research Paper This
10. Реферат на тему Блеск и нищета средневековой цивилизации и культуры