Лабораторная работа

Лабораторная_работа на тему Алгоритмические языки использование процедур при работе с двумерными массивами

Работа добавлена на сайт bukvasha.net: 2015-06-30

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 6.2.2025


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

по дисциплине “Основы программирования”

на тему

Алгоритмические языки: использование процедур при работе с двумерными массивами

Цель работы: получение навыков работы с процедурами и двумерными массивами.

Постановка задачи:

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

2. Разбить задачу соответствующего варианта на подзадачи, таким образом, чтобы решение каждой подзадачи описывалось процедурой, а основная программа состояла из последовательности вызова процедур.

3. Программно реализовать алгоритмы.

Задание к работе:

1. Дана матрица n*m. В каждой Строке выбрать минимальный элемент, затем среди них найти наибольший. Вывести индексы найденного элемента.

2. Набрать программу, отладить ее, протестировать. Распечатать текст программы и результаты ее работы на тестовых данных.

Ход выполнения работы

1. Блок-схема:






-

+



-

+

Рисунок 1. Блок-схема программы

2. Текст программы

Program lab52;

Const

max=10;

Type

mat=array[1..max] of array[1..max] of integer;

Var

a:mat;

b:array[1..max] of integer;

c:array[1..max] of Byte;

i,j:byte;

procedure vvod_m(Var a:mat;Var i,j:Byte);

Var x,y:byte;

Begin

Writeln('Введите мерность матрици ');

Write('i='); readln(i);

Write('j='); readln(j);

Writeln('Введите массив:');

for x:=1 to i do

for y:=1 to j do

Begin

write('a[',x,',',y,']=');

readln(a[x,y])

End

End;

Procedure Proc(a:mat;i,j:byte);

Var

b:array[1..max] of integer;

c:array[1..max] of Byte;

x,y:byte;

z:integer;

Begin

for x:=1 to i do

Begin

z:=a[x,1];

c[i]:=1;

for y:=2 to j do

if a[x,y]<z then

Begin

z:=a[x,y];

c[i]:=y

End;

b[x]:=z;

End;

z:=b[1];

y:=1;

for x:=2 to i do if b[x]>z then

Begin

z:=b[x];

y:=x

End;

Writeln('Искомый элемент-a[',y,',',c[y],']=',a[y,c[y]]);

End;

Begin

vvod_m(a,i,j);

Proc(a,i,j)

End.

3. Результаты работы:

1. Тест №1.

Искомый элемент - a[2,1]=3.

Рисунок 2. Результат теста №1.

2. Тест №2.

Искомый элемент - a[3,1]=2.

Рисунок 3. Результат теста №2.


1. Лекция на тему Экономика труда 3
2. Реферат Общая характеристика киотской конвенции как источника таможенного права
3. Контрольная работа НДФЛ Налогоплательщики объект налогообложения налоговая база
4. Реферат на тему Tragic Hero Brutus Essay Research Paper Brutus
5. Курсовая на тему Начальная подготовка юных бегунов на средние дистанции
6. Реферат на тему Поэтический космос Ломоносова
7. Реферат на тему Is Holden Caufield A Typical Tennager Of
8. Научная работа Выявление значений понятий сон и бессонница в творчестве МИ Цветаевой
9. Реферат на тему Характерні риси олігополій
10. Реферат Человек политический, как субъект политического общества