|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2008, 09:22 | #1 |
Регистрация: 28.12.2008
Сообщений: 6
|
одномерный массив,с элементами двухмерного ммассива
Дан массив A(N,N).Сформировать одномерный массив,сoстоящий из элементов двухмерного массива,расположенных в порядке возрастания(используя метод адресной сортировки)
Последний раз редактировалось dark064; 28.12.2008 в 10:53. |
28.12.2008, 10:47 | #2 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Ты хоть сам понял что написал ? ! - =)))))))
Я нет ... Единственное что могу сам додумать Есть два массива одномерный и двумерный по какому то принципу из 2- мерного выбираются элементы и записываются в 1-мерный ... и сортировка ...
Skype : UASm1Le.
|
28.12.2008, 10:53 | #3 |
Регистрация: 28.12.2008
Сообщений: 6
|
все исправил..
|
28.12.2008, 11:11 | #4 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
метод адресной сортировки- что от я не могу найти данной сортировки с описанием =(
Skype : UASm1Le.
|
28.12.2008, 15:52 | #5 |
Регистрация: 28.12.2008
Сообщений: 6
|
вот пошарил по книгам,в инете получил вот такое..
CONST N=10; TYPE vector =array[1..N] of Word; CONST massiv_ishodn :vector =(3,8,4,7,20,2,30,5,6,9); VAR massiv_rezult :vector; i:Word; FUNCTION maximum (m:vector; N:Word; var Nomer_max: Word):Word; VAR i,max:Word; BEGIN max:=m[1]; Nomer_max:=1; for i:=2 to N do if max<m[i] then begin max:=m[i];Nomer_max:=i end; maximum:=max END; PROCEDURE sortirovka (mass_ish:vector; N:Word; var mass_rez:vector); VAR i, Nom_max:Word; BEGIN for i:=1 to N do begin mass_rez[N+1-i]:=maximum(mass_ish, N, Nom_max); mass_ish[Nom_max]:=0 end; END; BEGIN sortirovka (massiv_ishodn, N, massiv_rezult); for i:=1 to N do Write (massiv_rezult[i],' '); END. вместо константы исходного массива,сделаю randomize,у меня вот вопрос,как дописать программу,чтоб этот массив получился с эл-тами двухмерного массива?? |
28.12.2008, 18:20 | #6 |
Пользователь
Регистрация: 27.12.2008
Сообщений: 31
|
http://www.programmersforum.ru/showthread.php?t=34574
program pr98; uses crt; var a,ak,b,bk,k,n:integer; begin clrscr; writeln('vveditem konechnoe znachenie'); readln(n); a:=1; b:=1; ak:=0; bk:=0; for k:=2 to n do begin for k:=n to k-1 do a:=a*k; b:=b*k; ak:=(3*b)+(2*a); ak:=ak*k; end; for k:=n to k-1 do begin a:=a*k; b:=b*k; bk:=(2*a)+b; bk:=bk*k; end; writeln('ak=',ak:6); writeln('b=',bk:6); readln; end. плиз посмотрите |
28.12.2008, 18:37 | #7 | |
Регистрация: 28.12.2008
Сообщений: 6
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерный массив. | Dmitrij | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.11.2008 19:54 |
Одномерный массив | Sirega | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 27.11.2008 21:21 |
одномерный массив | fatdog | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 23.02.2008 10:05 |
Access в Delphi. Как аполнить массив элементами поля таблицы? | VladimirAleks | БД в Delphi | 3 | 12.09.2007 14:28 |