close

Вход

Забыли?

вход по аккаунту

?

0759721 DF924 organizaciya programm s ispolzovaniem procedur (2)

код для вставкиСкачать
 Беднякова Анна ИС-10 II в
Лабораторная работа № 5_1
СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ - ПРОЦЕДУР
Цель работы. Получение навыков в написании программ с использованием процедур.
Задание. Организация программ с использованием процедур.
Постановка задачи. По заданному условию написать программу с подпрограммой-процедурой.
2. Для матрицы В (5 строк, 4 столбца) вычислить выражение У=5М1 + 4М2 +...+ 1М5, где Мk- значение наименьшего элемента в к-й строке этой матрицы.
Для поиска наименьшего элемента в произвольной строке матрицы использовать процедуру.
program lab5_1;
uses crt;
type matr=array[1..500,1..500] of integer;
var a: matr;
i,j,y,m,n,min:integer;
procedure minimal(ic,mc:integer ;var min1:integer; c:matr);
var jc:integer;
begin
min1:=c[ic,1];
for jc:=1 to mc do
begin
if min1>c[ic,jc] then
min1:=c[ic,jc];
end;
end;
procedure vvod ( nc,mc:integer ;var c:matr);
var ic,jc:integer;
begin
for ic:=1 to nc do
for jc:=1 to mc do
c[ic,jc]:=random(10);
end;
procedure vivod(nc,mc:integer;c:matr);
var ic,jc:integer;
begin
for ic:=1 to nc do
begin
for jc:=1 to mc do
write(c[ic,jc]:3);
writeln;
end;
end;
begin
clrscr;
randomize;
writeln('vvedute n i m');
readln(n,m);
vvod(n,m,a);
vivod(n,m,a);
y:=0;
for i:=1 to n do
begin
minimal(i,m,min,a);
writeln(min);
y:=y+(n+1-i)*min;
end;
writeln('y=',y);
readln;
end.
Документ
Категория
Рефераты
Просмотров
14
Размер файла
88 Кб
Теги
programma, procedur, 0759721, df924, ispolzovaniyu, organizacii
1/--страниц
Пожаловаться на содержимое документа