лабораторная работа / Лабораторная работа 7
.doc
БАЛАКОВСКИЙ
ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ
ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ
КАФЕДРА УПРАВЛЕНИЕ
И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ
ЛАБОРАТОРНАЯ РАБОТА №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.