Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 4 213

Раздел: Лабораторный практикум » Delphi
/ вопрос открыт /

Здравствуйте, эксперты!
вводится вес рюкзака, количество предметов со стоимостью и весом. надо отобрать самые лучше предметы в заданный рюкзак.
могу даже купить хорошую прогу icq=390431607

Приложение:
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. #include "Unit2.h"
  8. #include <algorithm>
  9. #include <iostream>
  10. #include <functional>
  11. using namespace std;
  12.  
  13. //---------------------------------------------------------------------------
  14. #pragma package(smart_init)
  15. #pragma resource "*.dfm"
  16. TForm1 *Form1;
  17. #define MAXWEIGHT 100
  18.  
  19.  
  20. int a[MAXWEIGHT];
  21.  
  22. int i, j;
  23. int aux;
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30. //---------------------------------------------------------------------------
  31. __fastcall TForm1::TForm1(TComponent* Owner)
  32. : TForm(Owner)
  33. {
  34. Form1->Memo2->Clear();
  35. Form1->Memo4->Clear();
  36. Form1->Memo3->Clear();
  37. }
  38. //---------------------------------------------------------------------------
  39.  
  40. void __fastcall TForm1::Button1Click(TObject *Sender)
  41. { AnsiString buf,s;
  42. AnsiString buffer,st;
  43. AnsiString _buf,_s;
  44.  
  45.  
  46.  
  47. st = Edit3->Text;
  48. W = StrToInt(st);
  49. }
  50.  
  51. {
  52. s = Edit1->Text;
  53. _s = Edit2->Text;
  54. }
  55.  
  56.  
  57. if(W<100 && Edit1->Text != "" && Edit2->Text != "")
  58. {
  59.  
  60. int i, k =0;
  61. for(i=1,buf="";i<=s.Length()+1;i++)
  62. {
  63. if(i==s.Length()+1)
  64. {
  65. c[k++] = StrToInt(buf);
  66. n++;
  67. break;
  68. }
  69. if(s[i]==' ')
  70. {
  71. c[k++] = StrToInt(buf);
  72. n++;
  73. buf = "";
  74. }
  75. buf += s[i];
  76.  
  77. }
  78. }
  79.  
  80.  
  81. int i, k =0;
  82. for(i=1,_buf="";i<=_s.Length()+1;i++)
  83. {
  84. if(i==_s.Length()+1)
  85. {
  86. v[k++] = StrToInt(_buf);
  87. break;
  88. }
  89. if(_s[i]==' ')
  90. {
  91. v[k++] = StrToInt(_buf);
  92. _buf = "";
  93. }
  94. _buf += _s[i];
  95. }
  96. }
  97. }
  98.  
  99.  
  100.  
  101. }
  102.  
  103. //---------------------------------------------------------------------------
  104.  
  105. void __fastcall TForm1::Button2Click(TObject *Sender)
  106. {
  107.  
  108. for (i = 0; i <= W; ++i)
  109. {
  110. a[i] = 0;
  111. last_added[i] = -1;
  112. }
  113.  
  114. a[0] = 0;
  115.  
  116.  
  117. for (j = 0; j < n; ++j)
  118. if ((c[j] <= i) && (a[i] < a[i - c[j]] + v[j])) {
  119. a[i] = a[i - c[j]] + v[j];
  120. last_added[i] = j;
  121. }
  122.  
  123. aux = W;
  124.  
  125.  
  126. {
  127.  
  128.  
  129.  
  130.  
  131. aux -= c[last_added[aux]];
  132. }
  133.  
  134.  
  135. }
  136. //---------------------------------------------------------------------------
  137.  
  138. void __fastcall TForm1::N1Click(TObject *Sender)
  139. {
  140. Form2->Show();
  141. }
  142. //---------------------------------------------------------------------------
  143.  
  144. void __fastcall TForm1::N2Click(TObject *Sender)
  145. {
  146. Form1->Close();
  147. }
  148. //---------------------------------------------------------------------------
  149.  


sinnop Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: sinnop (статус: Посетитель)
Вопрос отправлен: 23 мая 2010, 19:04
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 35; последнее сообщение — 24 мая 2010, 11:55; участников в обсуждении: 3.

Страницы: [« Предыдущая] [1] [2]

sinnop

sinnop (статус: Посетитель), 23 мая 2010, 22:40 [#21]:

я за этот день сайтов 200 просмотрел для программирование дельфи О_О ужас
min@y™

min@y™ (статус: Доктор наук), 23 мая 2010, 22:46 [#22]:

Код не смотрел (закрыл глаза и проскроллировал вниз). Просмотр такого кода ведёт к раку мозга.

Цитата (sinnop):

я за этот день сайтов 200 просмотрел для программирование дельфи О_О ужас

Это абсолютно ничего не значит.
У меня есть опыт, он мне говорит, что проще всё написать с нуля и по-нормальному, чем ковырять чужой кривой и бажный код.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 23 мая 2010, 22:50 [#23]:

сто пудова, да кстате сможешь сделать прогу? в каких пределах или как вообще. а то я попусту буду еще сидеть всю ночь а толку мало. лучше силы в дело прикладывать
min@y™

min@y™ (статус: Доктор наук), 23 мая 2010, 23:00 [#24]:

$1000
Это плата за то, что я не буду спать ночью перед рабочим понедельником.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 23 мая 2010, 23:06 [#25]:

))))) у нас 1000 стипуха за месяц О_О
250 р из них я отдаю за общагу остальные на хлеб. а ем картошку из дома мешками О_О так что могу кортошку почтой прислать. пойдет? :)
min@y™

min@y™ (статус: Доктор наук), 24 мая 2010, 08:46 [#26]:

Цитата (sinnop):

так что могу кортошку почтой прислать. пойдет?

Контейнер? :)
Во студенты пошли, ахренеть! Скоро "натурой" будут предлагать оплату!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 24 мая 2010, 08:51 [#27]:

О_О я шучу. кстати в асю написал уже не отвечаешь. че там как, мысли есть
min@y™

min@y™ (статус: Доктор наук), 24 мая 2010, 08:57 [#28]:

Цитата (sinnop):

кстати в асю написал уже не отвечаешь

Напиши ещё раз.
Запросы авторизации спаморезка фильтрует.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 24 мая 2010, 09:04 [#29]:

Превед! С табой гаварит афтаатветчег. Если ты не бот, то ответь на вапрос: скока байтов в МЕГАбайте? Песать цыфраме. Если не знаеш правельный атвет - погугли или заюзай каркулятер.
Если не знаеш, што такое "гуглить" - набери в яндексе вопрос "что такое гуглить".
А если не знаеш, шо такое каркулятер - убейся апстену.
Спасибо!
sinnop &#8206;(9:02):
10469376
О_о
1024*1024
_____________
магия
min@y™

min@y™ (статус: Доктор наук), 24 мая 2010, 09:40 [#30]:

1024·1024 = 10469376
В столбик на бумажке умножал, да?
Поступай в гуманитарный ВУЗ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 24 мая 2010, 09:41 [#31]:

не на компе в радианах
sinnop

sinnop (статус: Посетитель), 24 мая 2010, 09:44 [#32]:

кароче смысла в аську писать не вижу. ты можешь сделать задание? как что и по чем..поясни свою позицию и все. похоже мне надо брать деньги и ехать к репетитору и не тратить свое время.
min@y™

min@y™ (статус: Доктор наук), 24 мая 2010, 10:00 [#33]:

Цитата (sinnop):

не на компе в радианах

Не понял...

Цитата (sinnop):

ты можешь сделать задание?

Перевести из С++ на Delphi?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
sinnop

sinnop (статус: Посетитель), 24 мая 2010, 10:10 [#34]:

сделать прогу на дельфи работающую стабильно. делающая выборку предметов.чтобы глаза было чем преподу помазолить. Просто не понимаю траблы выполнения, понимаю там деньги копейко но много и не требуется и грандиозного. если сечешь в с+ и дельфи. запустить в одном сделать в другом. посмотреть работает да или нет? выявить там некоторые ошибки- например там ввод производится в строку что иногда не оч удобно, и нет разделения. типо введем веса предметов-- 1 2 3 4 10 30 44
и их цену------------------------------ 5 2 3 55 22 45 2
иногда ошибаешься вводишь пустой символ и тд. алгоритм более мене работает но не блеск так сказать. и будь больше времени я ее сам за неделю потихоньку сделаю но думал профессионалам это не оч.долго и кропотливо а результат лучше а значит и препод доволен.
min@y™

min@y™ (статус: Доктор наук), 24 мая 2010, 11:55 [#35]:

Уточни алгоритм.
Есть рюкзак с максимумом по весу и есть набор вещей с разной ценой и весом. Надо набить рюкзак под завязку самыми дорогими вещами. Так?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2026
Текущее время: 25 апреля 2026, 22:05
Выполнено за 0.03 сек.