лабораторная работа / лабор-ая №6 турбо паскаль

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

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

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

ОБРАБОТКА ДВУХМЕРНЫХ МАССИВОВ на языке

TURBO PASCAL

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

Приняла:

2008

Балаково

Лабораторная работа №6 Обработка двухмерных массивов на языке TURBO PASCAL

Цель: Освоение медов обработки двухмерных массивов на языке программирования TURBO PASCAL.

Задание. ВАРИАНТ17: Найдите отрицательные элементы в матрице (n,m) и сохраните их в виде отдельного одномерного массива.

Графический алгоритм:

Начало

Введите кол-во строк n

Ввод n

Введите кол-во строк m

Ввод m

i=1,n

j=1,m

a[i,j]

L=0

i=1,n

j=1,m

нет

a[i,j]<0

да

L=L+1

p[L]=a[i,j]

i=1,L

p[i]

Конец

Программа, реализующая данный алгоритм имеет вид:

program laba6;

var

a:array[1..10,1..10] of integer;

p:array[1..10] of integer;

i,j,n,m,l:integer;

begin

write('vedite kol-vo strok,n');

read(n);

write('vvedite kol-vo stolbcov,m');

read(m);

for i:=1 to n do

for j:=1 to m do

read(a[i,j]);

l:=0;

for i:=1 to n do

for j:=1 to m do

if a[i,j]<0 then

begin

l:=l+1;

p[l]:=a[i,j];

end;

for i:=1 to l do

write(p[i],' ');

writeln;

end.