------------------------------

Сумма элементов строки, где находится максимальный элемент =…….

2.1. Вызывающая программа

2.2.Процедура формирования массива А

2.3.Процедура ввывода массива А

PROCEDURE VIVOD

2.4.Процедура произведения элементов массива А

PROCEDURE PR

2.5.Функция поиска максимального элемента в векторном массиве С

FUNCTION MAX

Глава 3. Модуль основной программы

unit kurp1;

interface

const n=5;

type matr=array[1 n,1 n] of real;

vect=array[1 n] of real;

procedure form(var a:matr);

procedure vivod (var a:matr);

function max(c:vect):real;

procedure pr(a:matr;var c:vect);

implementation

procedure vivod (var a:matr);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

write (a[i,j]:6:2);

writeln;

end;

writeln;

end;

procedure form(var a:matr);

var i,j:integer;

begin

randomize;

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random*2-1;

end;

function max( c:vect):real;

var i:integer;

m:real;

begin

m:=-2;

for i:=1 to n do

if c[i]>m then m:=c[i];

max:=m

end;

procedure pr(a:matr;var c:vect);

var i,j:integer;

begin

c[i]:=1;

for i:=1 to n do

begin

for j:=1 to n do

c[i]:=a[j,i]*c[i];

writeln('Произведение ',i,'-го столбца =',c[i]:6:4);

end;

writeln;

end;

end.

Глава 4. Основная программа

program kursovik;

uses crt,kurp1;

var a:matr;

c:vect;

begin

clrscr;

window (45,2,75,7) ;

writeln ('Курсовая работа по информатике') ;

writeln('Факультет АЭС группа А-92');

writeln ('студента: Грязина Дмитрия ');

window(1,1,80,25);

writeln('вариант 21');

window(10,8,80,20);

writeln('Разработанный модуль содержит следующие программы:');

writeln('1.Процедуру формирования элементов матрицы в интервале от 1.0 до 1.0.');

writeln('2.Процедуру вывода матрицы на экран.');

writeln('3.Процедуру определения произведения каждого столбца матрицы.');

writeln('4.Функцию определения максимального произвелдения.');