Collekt
1

Составить программу, содержащую подпрограмму, которая в целочисленной матрице переставляет местами строки с наименьшим и наибольшим элементами

03.06.2013, 01:06. Показов 1619. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В программировании я полный ноль. В паскале дальше циклов не заходил да и то их не понял толком. А подпрограммы вообще не понимаю. Пробовал искать решение задачи. Вопросы похожие есть, но ответов к ним нет. Может быть мне кто-нибудь поможет.
Задача
Составить программу, содержащую подпрограмму (процедуру или функцию), которая в целочисленной матрице размерностью NxM переставляет местами строки с наименьшим и наибольшим элементами. Если эти элементы в одной строке, то подпрограмма сообщает об этом с указанием номера строки. Головная программа должна обеспечивать ввод исходных данных, вызов подпрограммы, вывод исходной матрицы и преобразованной матрицы (или сообщения).

И ещё: задача эта на Borland Pascal, но насколько я знаю, пойдёт и на ABC.
Лучшие ответы (1)
03.06.2013, 01:06
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.06.2013, 01:06
Ответы с готовыми решениями:

Поменять местами строки матрицы с наибольшим и наименьшим элементами
2. Дано натуральное число m, матрица A. Поменять местами строки с наибольшим и наименьшим элементами.

Поменять местами в матрице строки с наименьшим и наибольшим элементами
Дана матрица целых чисел А (n×n). Поменять в ней местами строки с наименьшим и наибольшим элементами. Исходную матрицу и результат вывести...

В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением.
Помогите пожалуйста!!!

1
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
03.06.2013, 08:13 2
Лучший ответ Сообщение было отмечено как решение

Решение

работает в турбо паскале и pascalAbc
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
const
  nmax=20;
type
  tAr=array[1..20,1..20] of integer;
var
  imin,jmin,imax,jmax: integer;
procedure minimax(a: tAr; n,m: integer; var imin,jmin,imax,jmax: integer);
var i,j: integer;
begin
  imin:=1; jmin:=1; imax:=1; jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
    begin
      if a[i,j]>a[imax,jmax] then
      begin
        imax:=i;
        jmax:=j;
      end;
      if a[i,j]<a[imin,jmin] then
      begin
        imin:=i;
        jmin:=j;
      end;
    end;
  writeln('Max = a[',imax,',',jmax,'] = ',a[imax,jmax]);
  writeln('Min = a[',imin,',',jmin,'] = ',a[imin,jmin]);
end;
procedure change(var a: tAr; n,m: integer);
var i,j,tmp: integer;
begin
  if imax = imin then writeln('Ìèíèìàëüðíûé è ìàêñèìàëüíûé ýëåìåíòû íà îäíîé ñòðîêå') else
    for j:=1 to m do
    begin
      tmp:=a[imin,j];
      a[imin,j]:=a[imax,j];
      a[imax,j]:=tmp;
    end;
end;
 
var
  a: tAr;
  n,m,i,j: integer;
begin
  randomize;
  write('Ââåäèòå ðàçìåðû ìàññèâà n, m: ');
  readln(n,m);
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  minimax(a,n,m,imin,jmin,imax,jmax);
  change(a,n,m);
  if imin<>imax then
  begin
    writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
    for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.06.2013, 08:13
Помогаю со студенческими работами здесь

Обработка матриц.В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.
В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением. Кто поможет, буду признательна.

В массиве целых чисел поменять местами строки с наибольшим и наименьшим элементами
7. В массиве целых чисел поменять местами строки с наибольшим и наименьшим элементами. п.с. спасибо тому кто сделал огромное:*

Составить программу которая печатает квадрат разности между наибольшим и наименьшим из чисел
Составить программу которая печатает квадрат разности между наибольшим и наименьшим из чисел.

Паскаль.В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением
В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.

Поменять в матрице строки с наибольшим и наименьшим элементами
В данной матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
Ошибка Angular "Can't bind to 'taskForm' since it isn't a known property of 'form'"
hw_wired 14.02.2025
При разработке веб-приложений на Angular можно столкнуться с ошибкой "Can't bind to '' since it isn't a known property of 'form'". Эта ошибка появляется в консоли браузера когда мы пытаемся. . .
Сообщение Git "Pulling without specifying how to reconcile divergent branches is discouraged"
hw_wired 14.02.2025
При работе с системой контроля версий Git многие разработчики сталкиваются с предупреждающим сообщением "Pulling without specifying how to reconcile divergent branches is discouraged". Это. . .
Как настроить количество пробелов в отступах табов в Visual Studio Code
hw_wired 14.02.2025
Visual Studio Code предоставляет несколько гибких способов настройки табуляции, каждый из которых имеет свои преимущества. Самый простой и наглядный метод - через графический интерфейс настроек, где. . .
Что означает знак восклицания в TypeScript
hw_wired 14.02.2025
TypeScript - удивительный язык программирования, который предоставляет множество возможностей для работы с типами данных. Особый интерес вызывает оператор утверждения ненулевого значения, который. . .
Как свернуть/скрыть секции кода в Visual Studio Code
hw_wired 14.02.2025
Ежедневно мы работам с файлами, содержащими сотни и тысячи строк кода. Навигация по такому объему становится настоящим испытанием, особенно когда нужно быстро найти нужный метод или переменную. . . .
Автоматическое создание файла requirements.tx­t в Python
hw_wired 14.02.2025
Дружелюбная среда для разработки на Python, один из самых широко используемых языков программирования, состоит не только из самого кода, но и целого ряда важных компонентов. И если вы когда-нибудь. . .
Передача переменных окружения в контейнер Docker
hw_wired 14.02.2025
При работе с Docker контейнерами возникает необходимость передать различные настройки и конфигурационные параметры - от строк подключения к базам данных до API ключей. И хотя можно жестко прописать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru