![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 04.05.2009
Сообщений: 7
|
![]()
Заполнение массива исходными случайными целыми значениями из диапазона [-50;50]. Размеры массива М и (или N) взять постоянными, равными целым числам от 5 до 10. Требуется выводить на экран массив до сортировки (исходный массив) и после сортировки (отсортированный массив).
Дана целочисленная прямоугольная матрица порядка N. Таким образом переставить сроки матрицы, чтобы их последние элементы располагались в порядке невозрастания. Метод сортировки – подсчетом. жду и ВЕРЮ |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 28.03.2009
Сообщений: 60
|
![]()
Привет.
А что вы уже сделали? |
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#4 |
Регистрация: 04.05.2009
Сообщений: 7
|
![]()
помогите, пожалуйста. Я уже с этой задачкой очень долго сижу. По-разному пыталась решать, но почему-то никак не идет
![]() |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 28.03.2009
Сообщений: 60
|
![]()
Как вам надо отсортировать? по столбцам, по строкам или полностью матрицу?
|
![]() |
![]() |
![]() |
#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 |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 17.02.2009
Сообщений: 78
|
![]()
Если я верно понял задание:
Код:
Пишу глупости.
Последний раз редактировалось Gongled; 06.05.2009 в 19:23. |
![]() |
![]() |
![]() |
#8 |
Регистрация: 04.05.2009
Сообщений: 7
|
![]()
спасибо большое!!!!!
![]() ![]() |
![]() |
![]() |
![]() |
#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 |