Подпрограмма процедура. Максимальный и минимальный элементы матриц.

@зверрюга · Регистрация: 09.02.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте, умные люди! Помогите, пожалуйста:
Дано задание: Найти минимальный и максимальный элемент А(4,3), B(4,4)
Больше никаких данных. Спасибо, если кто-нибудь подскажет как написать программу.

@Puporev · 09.02.2010, 17:26

зверрюга, А с какого двумерные массивы вдруг стали четырехмерными?

Добавлено через 14 минут
Вот, держи и не выдумывай.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses crt;
type matr=array[1..4,1..4] of integer;
procedure Vvod(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Введите ',x*y,' элементов матрицы ',c);
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function Max(mt:matr;x,y:byte):integer;
var i,j:byte;
    mx:integer;
begin
mx:=mt[1,1];
for i:=1 to x do
for j:=1 to y do
if mt[i,j]>mx then mx:=mt[i,j];
Max:=mx;
end;
function Min(mt:matr;x,y:byte):integer;
var i,j:byte;
    mn:integer;
begin
mn:=mt[1,1];
for i:=1 to x do
for j:=1 to y do
if mt[i,j]<mn then mn:=mt[i,j];
Min:=mn;
end;
var a,b:matr;
begin
clrscr;;
Vvod(a,4,3,'A');
Vvod(b,4,4,'B');
Vyvod(a,4,3,'A');
writeln('Максимальный=',Max(a,4,3));
Vyvod(b,4,4,'B');
writeln('Максимальный=',Max(b,4,4));
readln
end.

@зверрюга · 16.02.2010, 13:31 **[ТС]**

Большое спасибо!!! Просто тема была _ Двухмерные массивы

@зверрюга · 28.05.2010, 20:53 **[ТС]**

Прошу прощения за наглость, но не могли бы вы написать программу без мест, которые я должня сама заполнить, как, например, вот это: 6writeln('Введите ',x*y,' элементов матрицы ',c); просто яем не могу понять эту тему подпрограммы

совс

@зверрюга · 09.06.2010, 07:39 **[ТС]**

при компиляции выдает ошибку про ClrScr. "Error 3 : Unknown identifier"

@Puporev · 09.06.2010, 08:36

зверрюга, Значит в начале программы забыли написать
Uses Crt;

@зверрюга · 09.06.2010, 10:27 **[ТС]**

Действительно. дописала uses crt; и все пошло! И можно еще вопрос. При выполнении (Run) я должна ввести данные, но откуда их брать? или это задача только выполнение заданного алгоритма, а данные могут быть любыми? просто у нас этой темы не было и я не совсем понимаю, а надо написать пошаговый отчет по созданию программы, указывая, что является подпрограммой функцией, что подпрограммой процедурой.

И еще раз огромное СПАСИБО! Даже не знаю, как благодарить)

Новые блоги и статьи Все статьи Все блоги /
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Полностью асинхронный счётчик на логике (сумматорах) трёх состояний и асинхронных регистрах трёх состояний. Структура "электронный Buttom Up" Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .

@зверрюга 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5

	Подпрограмма процедура. Максимальный и минимальный элементы матриц. 09.02.2010, 16:35. Показов 1325. Ответов 6 Метки нет (Все метки) Здравствуйте, умные люди! Помогите, пожалуйста: Дано задание: Найти минимальный и максимальный элемент А(4,3), B(4,4) Больше никаких данных. Спасибо, если кто-нибудь подскажет как написать программу. 0

@зверрюга 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	16.02.2010, 13:31 [ТС]
	Большое спасибо!!! Просто тема была _ Двухмерные массивы 0

@зверрюга 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	28.05.2010, 20:53 [ТС]
	Прошу прощения за наглость, но не могли бы вы написать программу без мест, которые я должня сама заполнить, как, например, вот это: 6writeln('Введите ',x*y,' элементов матрицы ',c); просто яем не могу понять эту тему подпрограммы совс 0

@зверрюга 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	09.06.2010, 07:39 [ТС]
	при компиляции выдает ошибку про ClrScr. "Error 3 : Unknown identifier" 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	09.06.2010, 08:36
	зверрюга, Значит в начале программы забыли написать Uses Crt; 1

@зверрюга 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	09.06.2010, 10:27 [ТС]
	Действительно. дописала uses crt; и все пошло! И можно еще вопрос. При выполнении (Run) я должна ввести данные, но откуда их брать? или это задача только выполнение заданного алгоритма, а данные могут быть любыми? просто у нас этой темы не было и я не совсем понимаю, а надо написать пошаговый отчет по созданию программы, указывая, что является подпрограммой функцией, что подпрограммой процедурой. И еще раз огромное СПАСИБО! Даже не знаю, как благодарить) 0

Опции темы