Реферат по предмету "Информатика"

Узнать цену реферата по вашей теме


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

ЛАБОРАТОРНАЯ РАБОТА
по дисциплине “Основы программирования”
на тему
Алгоритмические языки: использование процедур при работе с двумерными массивами
Цель работы: получение навыков работы с процедурами и двумерными массивами.
Постановка задачи:
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]
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.


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Доработать Узнать цену написания по вашей теме
Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Организация коммерческой деятельности предприятия
Реферат Організація овочевого постачальницько збутового кооперативу
Реферат Організаційні заходи по забезпеченню пожежної безпеки ЛПЗ
Реферат Организация бизнеса малого предприятия
Реферат Організація підприємства дрібнооптової торгівлі ХОДАК
Реферат Организация расчета по оплате труда и пути ее совершенствования
Реферат Организация экспортной деятельности на предприятии СП Инволюкс ООО
Реферат Организация работы однопредметных непрерывно-поточных линий на примере ЗАО Сокол-АТС
Реферат Организация производства 4
Реферат Диференційовані підходи до корекції метаболічних порушень у хворих на гнійний середній отит
Реферат Организация оптовой и розничной торговли выставки ярмарки аукционы
Реферат Организационно правовые формы предпринимательства
Реферат Організаційна система в інноваційному підприємстві
Реферат Организационные Стратегии развития промышленных предприятий
Реферат Организация производства на булочно кондитерском предприятии