Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Лабораторная работа 7

.doc
Скачиваний:
50
Добавлен:
10.02.2014
Размер:
51.2 Кб
Скачать

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

ЛАБОРАТОРНАЯ РАБОТА №7

ПО ДИСЦИПЛИНЕ

,,ПРОГРАММИРОВАНИЕ И ОСНОВЫ АЛГОРИТМА,,

Программирование с использованием подпрограмм пользователя

Выполнил: ст. гр. УИТ-21

Приняла:

«____» ___________ 2006

2006

Цель работы: овладение навыками алгоритмизации и программирования задач с использованием подпрограмм пользователя различных видов, овладение навыками написания подпрограмм и обращения к ним, выбора параметров подпрограмм.

Задание: Дана целочисленная прямоугольная матрица. Определить количество строк, содержащих хотя бы один нулевой элемент.

Подпрограмма XX

начало

I=1,n

T[I,J]

a=0

b=0

нет

да

b:=b+1

нет

a:=a+1

да

Программа

Program lab7(input,output);

Var n,m:integer;

p:byte;

Procedure XX(n,m:integer;var a:byte);

Var T:array [1..20,1..20] of Real;

I,J:integer;

b:byte;

begin

for I:=1 to n do

for J:=1 to m do Read(T[I,J]);

a:=0;

for I:=1 to n do

begin

b:=0;

for J:=1 to m do

begin

if T[I,J]=0 then b:=b+1;

end;

if b>0 then a:=a+1;

end;

end;

begin

Read(n,m);

XX(n,m,p);

Writeln('p=',p);

end.