Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
 Аватар для Oliver_Twist
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 11

Упорядочить каждую строку матрицы по возрастанию

21.01.2010, 13:29. Показов 1510. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задана матрица А ,порядка 6 на 6.упорядочить каждую строку матрици в возрастном порядке.Определить максимальное значение и их кординаты в каждой строке,эту операцию осуществить в под программе-процеруре.


СИЖУ НА ЭКЗАМЕНЕ НАПИШИТЕ ПЛИЗ ХОТЬ КАК ПРИМЕРНО ВЫГЛЯДИТ КОД ПРОГРАММЫ
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.01.2010, 13:29
Ответы с готовыми решениями:

В матрице упорядочить по возрастанию каждую вторую строку
Важно использовать процедуру ввода, вывода и матрицы и процедуру упорядочивания строк по возрастанию. Написал код, но он не работает....

Упорядочить по неубыванию каждую строку матрицы
№1 Упорядочить по неубыванию каждую строку матрицы A(m,n), а после это перестановкой строк упорядочить всю матрицу по неубыванию элементов...

Отсортировать каждую строку матрицы по возрастанию
Можите кто-нибудь помочь решить? Срочно нада на завтра!!! Дана матрица целых чисел размером 4*3. Отсортировать каждую строку матрицы...

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
21.01.2010, 14:32
Лучший ответ Сообщение было отмечено Oliver_Twist как решение

Решение

uses crt;
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
const n=6;
type matr=array[1..n,1..n] of integer;
procedure Max(m:matr);
var i,j,jmx:byte;
    mx:integer;
begin
for i:=1 to n do
 begin
  mx:=m[i,1];jmx:=1;
  for j:=1 to n do
  if m[i,j]>mx then
   begin
    mx:=m[i,j];
    jmx:=j;
   end;
  writeln('Максимальный в строке ',i,'=',mx,' индекс=',jmx);
 end;
end;
var a:matr;
    i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
Max(a);{максимальные строк}
{сортировка строк}
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.01.2010, 14:32
Помогаю со студенческими работами здесь

Отсортировать каждую строку матрицы по возрастанию с использованием процедуры
кому не сложно,плз

Упорядочить по возрастанию строку матрицы с наименьшим чётным элементом
2). Составить программу, позволяющую с помощью датчика случайных чисел сформировать матрицу (mxn).. Значения m и n ввести с клавиатуры. ...

Упорядочить по возрастанию строку матрицы с наименьшим элементом методом вставки.
Помогите,пожалуйста,составить программы. 2)Составить программу,позволяющую с помощью датчика случайных чисел сформировать матрицу m x...

Отсортировать каждую строку матрицы по возрастанию
Прошу помочь с решением задачи :umnik: Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по возрастанию. Вывести...

Дана матрица целых чисел размером 4х4. Отсортировать каждую строку матрицы по возрастанию.
1. Дана матрица целых чисел размером 4х4. Отсортировать каждую строку матрицы по возрастанию. Вывести содержимое матрицы до обработки, и...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru