Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 20.2.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. Реферат на тему Tiger Essay Research Paper The majestic tiger
2. Лабораторная работа на тему Испытание электромагнитного реле напряжения
3. Курсовая Выявление логического аспекта мышления на основе двух возрастных групп
4. Сочинение на тему Булгаков м. а. - Мастер и маргарита
5. Диплом Бухгалтерская отчетность на предприятии 2
6. Контрольная работа по Экономической теории
7. Реферат Ментеше
8. Реферат Выселение граждан без предоставления другого жилого помещения
9. Реферат на тему Ancient Greece Essay Research Paper This paper
10. Реферат на тему Creative Story If At First You Don