|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.05.2009, 23:10 | #1 |
Регистрация: 04.05.2009
Сообщений: 7
|
помогите, пожалуйста, решить задачу с матрицей
Заполнение массива исходными случайными целыми значениями из диапазона [-50;50]. Размеры массива М и (или N) взять постоянными, равными целым числам от 5 до 10. Требуется выводить на экран массив до сортировки (исходный массив) и после сортировки (отсортированный массив).
Дана целочисленная прямоугольная матрица порядка N. Таким образом переставить сроки матрицы, чтобы их последние элементы располагались в порядке невозрастания. Метод сортировки – подсчетом. жду и ВЕРЮ |
05.05.2009, 13:03 | #2 |
Пользователь
Регистрация: 28.03.2009
Сообщений: 60
|
Привет.
А что вы уже сделали? |
05.05.2009, 19:22 | #3 |
Регистрация: 04.05.2009
Сообщений: 7
|
Program 3
Const N=10; Var a: array [1..N,1..N] of integer; i,j,k: integer; b:array[1..N,1..N]; {отсортированный массив} c: array[1..N,1..N]; {количественный массив} p: integer; {шаг} Begin {заполнение матрицы случайными значениями} Randomize; for i:=1 to k do begin for j:=1 to k do begin a[i,j]:=Random(101)-50; write(a[i,j]:4); end; writeln; end; readln; for i:=1 to k do j:=k; c[i,j]:=0; {подсчет} for i:=1 to k-1 do {первый элемент пары} for p:=i+1 to k do {второй элемент пары} if a[i,j]<a[p,j] then c[p,j]:=c[p,j]+1 else c[i,j]:=c[i,j]+1; {расстановка в новый массив} for i:=1 to k-1 do b[c[i,j]+1]:=a[i,j]; writeln; END. |
05.05.2009, 19:26 | #4 |
Регистрация: 04.05.2009
Сообщений: 7
|
помогите, пожалуйста. Я уже с этой задачкой очень долго сижу. По-разному пыталась решать, но почему-то никак не идет
|
06.05.2009, 04:59 | #5 |
Пользователь
Регистрация: 28.03.2009
Сообщений: 60
|
Как вам надо отсортировать? по столбцам, по строкам или полностью матрицу?
|
06.05.2009, 17:49 | #6 |
Регистрация: 04.05.2009
Сообщений: 7
|
переставить местами строки матрицы , т.е. отсортировать всю матрицу.)))) Должно получиться примерно такое:
ТЕСТ Исходная матрица: 2 3 4 5 1 8 3 7 7 2 8 1 4 5 2 3 Отсортированная матрица: 1 8 3 7 2 3 4 5 4 5 2 3 7 2 8 1 |
06.05.2009, 19:19 | #7 |
Пользователь
Регистрация: 17.02.2009
Сообщений: 78
|
Если я верно понял задание:
Код:
Пишу глупости.
Последний раз редактировалось Gongled; 06.05.2009 в 19:23. |
06.05.2009, 20:37 | #8 |
Регистрация: 04.05.2009
Сообщений: 7
|
спасибо большое!!!!! Я очень рада))))) Пожалуста, попробуйте все-таки методом подсчета((((
|
07.05.2009, 12:27 | #9 |
Регистрация: 04.05.2009
Сообщений: 7
|
??? (((( пожалуста, кто-нибудь помогите решить!! (( скоро уже сдавать надо, целый месяц сижу - не получается (((((((((((((((
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйста решить задачу! | Fatality | Помощь студентам | 3 | 28.05.2012 12:02 |
Помогите пожалуйста решить задачу | Sabber | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.11.2008 15:55 |
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!(СВЯЗАНО С МАТРИЦЕЙ) | Ильдар ХАЛИКОВ | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 13.05.2008 01:28 |