|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2007, 15:46 | #1 |
Регистрация: 11.04.2007
Сообщений: 3
|
Имитация кипящего чайника. паскаль.
интересная задачка))
Экран - сосуд с кипящей жидкостью.На дне в случайной точке образуется пузырек; при движении вверх он растет, а дойдя до поверхности лопается. Если два пузырька соприкасаются , они сливаются в один.Реализовать этот процесс. как сиё сотворить? я не догоняю... |
12.04.2007, 18:19 | #2 |
Студент
Форумчанин
Регистрация: 10.11.2006
Сообщений: 196
|
Че сложного? Нарисовал сосуд.
Сделал массив пузырьков (штуки 3 хватит). С помощью Random определяешь их стартовое положение, сколько пузырьков образуется, если их сейчас <3; коснутся они или нет. Определив объем пузырька можно судить о его ускорении(плотность от температуры - молекулярная физика, МКТ; механика - закон Архимеда). Далее: Перемещаешь каждый пузырек, постепенно увеличивая радиус. (Точку касания можно рассчитать). Если происходит в какой-то точке касание, то заменяешь 2 пузырька на 1 с радиусом Sqrt(r2*r2+r1*r1) (центр шара - центр второго шара y=y-r1, x=x-R/2, если радиус выражать более точно то (r1^3+r2^3)^0.(3)), как только центр пузырька достигает поверхности - пузырек лопается. З.Ы. Задача форума - помочь, а не сделать за тебя работу.
Visita Interiorem Terrae Rectificando Operae Lapidem...
|
12.04.2007, 19:13 | #3 |
Регистрация: 11.04.2007
Сообщений: 3
|
Вот НАБРОСКИ..
Код:
Последний раз редактировалось Lili; 12.04.2007 в 20:01. |
12.04.2007, 19:50 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Вы сами то пытались этот код откомпиллить? Куча ошибок. Исправляйте сами, там по русски... эхм.. По английски написано что и где!
1) куча опечаток 2) несоответствие типов 3) после названия процедуры скобки не надо указывать Show(); 4) некоторых процедур просто нет DrawBubble, Distance. ... |
12.04.2007, 20:08 | #5 |
Регистрация: 11.04.2007
Сообщений: 3
|
zetrix..извините..
эти наброски я делала в блокноте за неимением на тот момент паскаля.. Времени катострофически не хватает.. это последнее задание в моём РГЗ которое я не успеваю сделать!!! |
13.04.2007, 12:26 | #6 |
Пользователь
Регистрация: 28.01.2007
Сообщений: 27
|
Вон что вышло:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Имитация нажатия клавиш | Air | Свободное общение | 28 | 04.02.2010 12:38 |
Вопрос чайника по фромам | rh- | Microsoft Office Access | 1 | 10.11.2008 04:43 |
имитация клавиатуры | Var17 | Win Api | 3 | 17.06.2008 14:28 |
Научи чайника писать программы!!!!!! | Konohov | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 12.05.2008 16:33 |