это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
ЛАБОРАТОРНАЯ РАБОТА
по дисциплине “Основы программирования”
на тему
Алгоритмические языки: использование процедур при работе с двумерными массивами
Цель работы: получение навыков работы с процедурами и двумерными массивами.
Постановка задачи:
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.
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
изменить 3 главу полностью и заключение на проблемы и решения которые...
Диплом, Уголовно-процессуальное право
Срок сдачи к 3 окт.
Написать реферат. Правовые механизмы природопользования и защиты окружающей среды. В-01862
Реферат, Право
Срок сдачи к 12 окт.
Правосубъектность военнослужащих войск национальной гвардии РФ
Курсовая, Правоведение
Срок сдачи к 16 окт.
Контрольная работа по Теоретической и прикладной механике
Контрольная, Теоретическая и прикладная механика
Срок сдачи к 6 окт.
7 вариант, две контрольные работы
Контрольная, Теоретические основы обеспечения устойчивости функционирования объектов экономики и территорий
Срок сдачи к 19 окт.
Необходимо подготовить работу по дисциплине «учебно-проектная деятельность — 2» на основе приложенных материалов упд-1 и методического пособия тусур
Лабораторная, Учебно-проектная деятельность (УПД-2)
Срок сдачи к 9 окт.
Страхование и договор страхования: проблемы правового регулирования
Курсовая, Гражданское право
Срок сдачи к 2 нояб.
Выполнить тесты по Технологическое предпринимательство. В-01861
Решение задач, Менеджмент
Срок сдачи к 9 окт.
Требуется написать качественный и понятный текст для карточки товара...
Другое, Русский язык
Срок сдачи к 8 окт.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте