Пензенська ДЕРЖАВНИЙ УНІВЕРСИТЕТ

Кафедра МО і ПЕОМ

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

Тема: "Програмування елементів розгалужується структури»

Виконав: студент гр. 02ТП1

Пахомов В. Е.

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

2003

Завдання А. < p> Знайти середнє арифметичне негативних елементів матриці 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;varn, m, b, i, j, sum, min: integer;d: array [1 .. 12,1 .. 12] of integer;z: array [1 .. 12] of integer;beginclrscr;randomize;b: = 0;min: = 0;n: = 12;m: = 7;writeln ( 'Вихідний масив:');for i: = 1 to n dobeginfor j: = 1 to m dobegind [i, j]: = random (60) - 30;write ( '', d [i, j]);end;writeln;end;for j: = 1 to m dobeginsum: = 0;for i: = 1 to n dobeginsum: = sum + d [i, j];end;z [j]: = sum;end;min: = 1;for i: = 1 to m doif z [min]> z [i] then min: = i;writeln ( 'Масив Z:');for i: = 1 to m dowriteln ( '', z [i]);writeln ( 'Номер стовпця:', min);readkey;end.

Блок-схема

----------------------- sum: = 0 b: = 0

z [i, j]: = random (60) -30

n, m

z [i, j] <0

Randomize;

sum/b

sum: = sum + z [i, j] b: = b + 1

j = 1; n; 1

1

1

sum: = sum + d [i, j]

j = 1; m; 1

I = 1; n; 1

d [i, j]: = random (60) -30

n, m

Randomize;

z [i]: = sum;

j = 1; m; 1

I = 1; n; 1

початок

j = 1; m; 1

I = 1; n; 1

Кінець

Початок

min

sum/b

Кінець

j = 1; n; 1

z [min ]> z [i]

Min = 1

Min = i