FreePascal.ru

Для начала попробую без всяких направлений,скоростей и без учета радиусов .
Просто чтоб менялось их направление. А потом уж можно и поэксперементировать .

Вообще хотел сделать модель движения молекул,
примерно как в программке.
Теперь буду думать об возможности столкновения шаров.

Еще хотел спросить о файле с расширением *.0 .какую функцию он выполняет?

Чувствую, что на некоторое время этот раздел форума будет моим.

А что дается на вход? файл txt? или просто строка?
Если строка, то я думаю так.
Сначала делим текст на слова. Это делаем в цикле For ищем пробелы.
For i:= 1 to length(s) do begin if s[i]:=' ' then.......
Слова можно занести в массив.
присваиваем мин:=length(вся строка);
Затем находим длину каждого ...

bw спасибо, буду исправляться.

Понял только последние две програмки.
Slep это что то вроде delay?
В fillellise что значат 300,300,300,300? у эллипса ведь вроде 2 центра.
Как используется функция randomize в FPC? например если нужен промежуток от 0 до 15 нужно записать так: X:=random(15);?

Floodfill действительно тормозит. закраска идет от центра к краям горизонтальными линиями.

Создал програмку для рисования только окружностей. Получается примерно по 2 тыщи окружностей в секунду.
GD:=D4bit;
gm:=m640x480;

И еще хотел спросить про такую функция как random, как она в FPC?

Добавлено спустя 14 минут 26 секунд:
Вот собственно и сама програмулина

Program s1;// под TP 7 ...

Дож,Vadim,спасибо за советы. попробую.
Vadim т.е можно поставить например Driver:=D2,4,8,16bit ?
и например mode:=m640x480; ?
Кстати почему на вы? Мне 16 лет. так, что можно и проще =)
Дож а как собственно использовать эти самые Gui,OpenGl,directX?

При рисовании окружности FPC сильно тормозит. Используется процедура circle(x,y,r); Процессор AMD athlon 2000+, видео Geforce 7300 Gt;
В TP 7 производительность в сотни раз быстрее.
Инцилизация графики идет так:
driver:=detect;
mode:=0;
initgraph(driver,mode,'Путь к модулю graph или просто '').
Кто ...