Реферат: Модули, записи и файлы

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.Функцию определения максимального произвелдения.');

window(1,1,80,25);

gotoxy(10,24);

writeln('Для продолжения нажмите пробел');