|
Министерство образования и науки РФ
Кузнецкий институт информационных и управленческих технологий
Филиал ПГУ
Кафедра ЕН и ТД
ОТЧЕТ ПО ЛАБОРАТОРНЫМ РАБОТАМ
По дисциплине
«Информатика»
Выполнил: студент гр. 10кр1
Шиняев Н.Н.
Принял: ст.преподователь
Кафедры ЕН и ТД
Мордвинкина М. В.
Лабораторная работа №7
Подпрограммы
Цель работы: Получить навыки разработки программ с использованием процедур и функций.
Задание: Написать блок-схему и составить программу с использованием подпрограмм для решения задачи о двумерном массиве лабораторной работы №4.
Приложение Ж (продолжение)
Блок схемы программы №6
Приложение Ж (продолжение)
Листинг программы №6
Program lab4;
uses crt;
Var MAM:array[1..5,1..4] of integer;
Sum:array[1..4] of integer;
m,k,i,j,jmin:integer;
Min:longint;
procedure vvod;
Begin { clrscr;}
writeln ('‚Введите число строк и столбцов');
readln(m,k);
writeln ('‚Введите элементы матрицы');
for i:=1 to m do begin
for j:=1 to k do
read (MAM[i,j]); end; end;
procedure vivod;
writeln (' Элементы заполненной матрицы');
for i:=1 to m do
begin
for j:=1 to k do
write(MAM[i,j]);
writeln;
end; end;
procedure summa;
writeln(' Сумма отрицательных элементов в каждом столбце ');
write (' Номера столбцов ');
for j:=1 to k do
write(j,' ');writeln;
write(' Сумма отрицательных элементов в столбце: ');
for j:=1 to k do
begin
Sum[j]:=0;
for i:=1 to m do begin
If MAM[i,j]<0 then
Sum[j]:=Sum[j]+MAM[i,j]; end;
write (Sum[j],'');
end;writeln;
Min:=Sum[j];jmin:=j;
for j:=1 to k do
if Sum[j] <> Min then
begin
Min:=Sum[j];jmin:=j;
end;
writeln (' Минимальная сумма =',Min,' в столбце',jmin);
end;
Begin
clrscr;
vvod;
vivod;
summa;
readkey; end.
Приложение Ж (продолжение)
Результат тестирования программы№4(2)
Дата добавления: 2015-09-29; просмотров: 28 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Имитация природных явлений | | | Из книги «Вербальная самозащита» вы узнаете, как постоять за себя и близких, научитесь производить хорошее впечатление на окружающих, а также лишите их малейшего шанса вербального нападения на 1 страница |