Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 24.3.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. Презентация Образование Союза Советских Социалистических Республик
2. Реферат Возникновение прав на землю. Основания прекращения прав на землю
3. Реферат на тему Введение в брандмауэры
4. Сочинение на тему Твардовский a. t. - Василий теркин миф или реальность.
5. Курсовая Анализ деятельности Аэрофлот-Дон
6. Реферат на тему Пожарная безопасность на рабочем месте учителя начальных классов
7. Курсовая на тему Планування банківської діяльності
8. Реферат на тему Францій
9. Книга Методы решения краевых задач, в том числе жестких краевых задач
10. Реферат История Искусства Древнего Египта 2