Министерство образования и науки РФ

Министерство образования и науки РФ

Кузнецкий институт информационных и управленческих технологий

Филиал ПГУ

Кафедра ЕН и ТД

ОТЧЕТ ПО ЛАБОРАТОРНЫМ РАБОТАМ

По дисциплине

«Информатика»

Выполнил: студент гр. 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