Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
Срочная помощь программистов и тема для флуда по тематике раздела |
Философия, технологии, алгоритмы! |
|
Опции темы |
18.09.2011, 15:46 | #422 | |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
Цитата:
Что на входе Что на выходе Как это должно выглядеть Какие кнопки должны быть и т.д. и т.п. телепатов тут немае, то бишь нет. |
|
22.09.2011, 18:15 | #423 |
Форумец
Сообщений: 39
Регистрация: 18.04.2008
Возраст: 33
Не в сети |
Нужна помощь в решении задачи по Методам Вычислениям. 2курса факультета ПММ в ВГУ. http://bvf.ru/forum/attachment.php?a...5&d=1316703788 http://bvf.ru/forum/attachment.php?a...4&d=1316703788
|
18.10.2011, 10:56 | #424 |
como estas?
Сообщений: 131
Регистрация: 23.06.2007
Возраст: 36
Не в сети |
Есть здесь люди, которые занимаются разработкой под android?
|
24.10.2011, 09:42 | #425 |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
UPDATE не надо просить писать в ЛС или по телефону, или хотя бы отписывайтесь в теме что человек найден. Тема создана для флуда (в меру). Если будете здесь обсуждать условия "сотрудничества" - это нормально. И остальные будут видеть, нашли ли вы счастье или нет.
|
29.10.2011, 00:15 | #426 | |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
Цитата:
Я вот тебе лично советую выложить всё в теме, что требуется. Быстрее найдешь. И не истери, все студентами были))) Прорвешься. UPDATE: ССЫЛКОЙ НА ЗАДАНИЕ! простыни выкладывать - не стоит. |
|
29.10.2011, 23:21 | #427 | |
Registered User
Сообщений: 402
Регистрация: 14.11.2007
Возраст: 38
Не в сети |
Вопрос?
Цитата:
Какая тут проблема??? |
|
30.10.2011, 13:38 | #429 |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
И еще один момент - захреном ты сравниваешь РАЗНЫЙ код с РАЗНЫМИ настройками?
Если хочешь разобраться в генерируемом асмовском коде, надо менять ЛИБО код, ЛИБО настройки. и сравнивать полученное. Аккуратно, скрупулезно и вдумчиво. |
30.10.2011, 22:53 | #430 |
Registered User
Сообщений: 402
Регистрация: 14.11.2007
Возраст: 38
Не в сети |
Пардон
|
30.10.2011, 22:58 | #431 |
Registered User
Сообщений: 402
Регистрация: 14.11.2007
Возраст: 38
Не в сети |
Братух!
Дам один дельный совет: нарой описание мнемоник АСМа, в которых указано время( в тактах) на выполнение каждой операции, т.к. компилятор делает по своему алгоритму. Это называется низкоуровневая оптимизаци( во многих книжках прописано). И, как сказал Спектатор:"вдумчиво и кропотливо!". Если хочешь, то в личке отпиши адрес, а я тебе старющий пакет МАСМа в.9 или 8.2 скину, в котором есть описания мнемоник с указанием тактов на выполнение. Ну, а при желании ещё одну книженцию с описанием прерываний(долго искал, но оно того стоит). |
31.10.2011, 13:02 | #436 |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
Всё не так просто в современном мире. У процессоров разных поколений и разных фирм разная скорость выполнения разных операций)))
Сейчас, если ты хочешь оптимизировать на ассемблере, необходимо ориентироваться на конкретный процессор. Т.е. это будет как минимум две версии - для Intel и для AMD, а как максимум - х.з. сколько. Так что ассемблер имеет смысл знать только на чтение - чтобы понять в чем проблема, когда у тебя алгоритм слишком долго работает. |
02.11.2011, 05:59 | #438 |
Модератор
Сообщений: 1,458
Регистрация: 04.06.2007
Не в сети |
Ребят,нужна помощь в программе Visual Basic,работасразу скажу не сложная,нужно просто выполнить порядка 20 заданий по книжке для первого курса института.Естественно оплачиваемо,всем тем кто может оказать помощь,прошу писать в лс или 8 951 877 07 07.СРОЧНО ИЩЕТСЯ ПРОГРАММИСТ!!!
|
13.11.2011, 18:46 | #439 |
Форумец
Сообщений: 41
Регистрация: 13.07.2010
Возраст: 38
Не в сети |
Оказываю помощь в программировании, примеры можно посмотреть тут.
|
13.11.2011, 19:31 | #440 | |
highly mean
Сообщений: 1,128
Регистрация: 26.05.2011
Возраст: 35
Не в сети |
Цитата:
|
|
23.11.2011, 20:55 | #441 |
385565
Сообщений: 323
Регистрация: 26.08.2008
Не в сети |
Нужно написать задачку, тема написана что стеки. Я вроде написал, но программа не хочет работать. Взгляние одним глазком, подскажите что не так.
Условие прикрепил в картинке, номер 28. Заранее спасибо! Код:
program Project3; {$APPTYPE CONSOLE} uses SysUtils; const n=2; Type chislo=packed array [1..n] of 0..9; stack=^Node; Node=Record info:chislo; next:stack End; var top,L:stack; ch:chislo; Procedure InStack(L:stack; x:chislo); var q:stack; begin {InStack} new(q); q^.info:=x; q^.next:=top; top:=q end; {InStack} Procedure PopStack(var L:stack; var ch:chislo); var q:stack; begin {PopStack} ch:=top^.info; q:=top; top:=top^.next; dispose(q) end; {PopStack} Procedure InitStack(var L:stack); begin top:=nil end; procedure Print(stek1:stack); var i:integer; begin while stek1<>nil do {пока указатель stek1 не станет указывать в пустоту} begin {а это произойдёт как только он перейдёт по ссылке последнего элемента} for i:=1 to n do Write(stek1^.info[i]); {выводить данне} write(' '); stek1:=stek1^.next {и переносить указатель вглубь по стеку} end; end; Function EmptyStack(L:stack):boolean; begin EmptyStack:=top=nil; end; Procedure upor(var L:stack); var i,j,k:integer; ch:chislo; a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,L1:stack; begin {upor} InitStack(L); writeln('skolko chisel?'); readln(k); writeln('vvedite po cifre vse chisla'); for i := 1 to k do begin for j:=1 to n do begin read(ch[j]); InStack(L,ch) end; end; Print(L); InitStack(a0); InitStack(a1); InitStack(a2); InitStack(a3); InitStack(a4); InitStack(a5); InitStack(a6); InitStack(a7); InitStack(a8); InitStack(a9); InitStack(L1); while not EmptyStack(L) do begin PopStack(L,ch); for i := n downto 1 do case ch[i] of 0:begin InStack(a0,ch); a0^.next:=a1; end; 1:begin InStack(a1,ch); a1^.next:=a2; end; 2:begin InStack(a2,ch); a2^.next:=a3; end; 3:begin InStack(a3,ch); a3^.next:=a4; end; 4:begin InStack(a4,ch); a4^.next:=a5; end; 5:begin InStack(a5,ch); a5^.next:=a6; end; 6:begin InStack(a6,ch); a6^.next:=a7; end; 7:begin InStack(a7,ch); a7^.next:=a8; end; 8:begin InStack(a8,ch); a8^.next:=a9; end; 9:InStack(a9,ch); end; L^.next:=a0; end; Print(L) end; {upor} begin Upor(L); readln end. |
23.11.2011, 21:07 | #442 |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
Одним глазком взглянул. На вид адекватно. Это надо ставить паскаль и отлаживаться, а на это за бесплатно мало кто пойдет, если только другой страждущий студент)))
|
23.11.2011, 21:55 | #445 | |
highly mean
Сообщений: 1,128
Регистрация: 26.05.2011
Возраст: 35
Не в сети |
Какой прекрасный алгоритм сортировки в книжке описан…
По сабжу: Цитата:
Прочитал еще раз: InStack, PopStack, InitStack, EmptyStack передается аргумент L :stack, который в них не используется. Также, я советую вам почитать про связные списки и внести соответствующие изменения в объявление типа Node. Весь код придется переписать. Последний раз редактировалось silly; 23.11.2011 в 22:44. |
|
24.11.2011, 12:30 | #446 |
385565
Сообщений: 323
Регистрация: 26.08.2008
Не в сети |
silly, Это функция проверки на пустоту )) Спасибо за подсказки ))
Исправил ошибки некоторые, но программа просто выводит числа в обратном порядке, а не по возрастанию Код:
program Project3; {$APPTYPE CONSOLE} uses SysUtils; const n=2; Type chislo=packed array [1..n] of 0..9; stack=^Node; Node=Record info:chislo; next:stack End; var top,L:stack; ch:chislo; x:integer; Procedure InStack(var L:stack; var x:chislo); var q:stack; begin {InStack} new(q); q^.info:=x; q^.next:=L; L:=q end; {InStack} Procedure PopStack(var L:stack; var ch:chislo); var q:stack; begin {PopStack} ch:=top^.info; q:=L; L:=q^.next; dispose(q) end; {PopStack} Procedure InitStack(var L:stack); begin top:=nil end; procedure Print(var stek1:stack); var i:integer; begin while stek1<>nil do {пока указатель stek1 не станет указывать в пустоту} begin {а это произойдёт как только он перейдёт по ссылке последнего элемента} for i:=1 to n do Write(stek1^.info[i]); {выводить данне} write(' '); stek1:=stek1^.next {и переносить указатель вглубь по стеку} end; end; Function EmptyStack(L:stack):boolean; begin EmptyStack:=top=nil; end; Procedure upor(var L:stack); var i,j,k:integer; ch:chislo; a0,a1,a2,a3,a4,a5,a6,a7,a8,a9:stack; begin {upor} InitStack(L); writeln('skolko chisel?'); readln(k); writeln('vvedite po cifre vse chisla'); for i := 1 to k do begin for j:=1 to n do read(ch[j]); InStack(L,ch); end; InitStack(a0); InitStack(a1); InitStack(a2); InitStack(a3); InitStack(a4); InitStack(a5); InitStack(a6); InitStack(a7); InitStack(a8); InitStack(a9); while not EmptyStack(L) do begin PopStack(L,ch); for i := n downto 1 do case ch[i] of 0:begin InStack(a0,ch); a0^.next:=a1; end; 1:begin InStack(a1,ch); a1^.next:=a2; end; 2:begin InStack(a2,ch); a2^.next:=a3; end; 3:begin InStack(a3,ch); a3^.next:=a4; end; 4:begin InStack(a4,ch); a4^.next:=a5; end; 5:begin InStack(a5,ch); a5^.next:=a6; end; 6:begin InStack(a6,ch); a6^.next:=a7; end; 7:begin InStack(a7,ch); a7^.next:=a8; end; 8:begin InStack(a8,ch); a8^.next:=a9; end; 9:InStack(a9,ch); end; L:=a0; end; Print(L) end; {upor} begin Upor(L); print(L); readln; readln(x) end. |
25.11.2011, 21:31 | #447 | ||
highly mean
Сообщений: 1,128
Регистрация: 26.05.2011
Возраст: 35
Не в сети |
Цитата:
Цитата:
|
||
12.12.2011, 15:14 | #448 |
бибизьян
Сообщений: 3,026
Регистрация: 17.02.2004
Не в сети |
Spectator, а что действительно нужно такое жесткое модерирование в разделе? Тут все и так на ладан дышит, и, если уж на то пошло, как раз вы первый и начали размахивать сабелькой и трясти первичными половыми признаками в этом топике.
|
12.12.2011, 16:00 | #449 | |
Форумец
Сообщений: 41,140
Регистрация: 27.05.2003
Возраст: 46
Не в сети |
Цитата:
И - на ладан ничего не дышит, количество информативных тем и сообщений не изменилось. |
|