 Что это за функция?, R>0.93 |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Jaxx |
 6.07.2005 13:38
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 145 Пол: Мужской Реальное имя: Павел Репутация:  0   |
Вот нашел исходничек один. С виду - Паскаль. Но один момент меня просто убивает. Вот исходник:
uses
Graph,Crt;
var
Dt,M : integer;
R,A,B,C,D,E,F,
NewY,NewX,X,Y : real;
begin
Dt := Detect;
InitGraph(Dt, M,'');
Randomize;
X := 0; Y := 0;
repeat
R := Random;
if R>0.93 then
begin
A := -0.15; B := 0.28; C := 0.26; D := 0.24; E := 0; F := 0.44;
end
else
if R>0.86 then
begin
A := 0.2; B := -0.26; C := 0.23; D := 0.23; E := 0; F := 1.6;
end
else
if R>0.01 then
begin
A := 0.85; B := 0.02; C := -0.02; D := 0.85; E := 0; F := 1.6;
end
else
begin
A := 0; B := 0; C := 0; D := 0.16; E := 0; F := 0;
end;
NewX := A*X + B*Y + E;
NewY := C*X + D*Y + F;
X := NewX; Y := NewY;
PutPixel(Round(X*50)+100,Round(Y*50)+50, Green);
until(Keypressed);
CloseGraph;
end.
Может, я совсем дурак, но в упор не понимаю, что такое R>***. -------------------- - Дорогие девушки! У вас сухая кожа? Редкие волосы? Проблемы с фигурой? Приходите к нам! У нас темно и мы пьяные.
|
   |
 
|
  |
Ответов(1 - 4)
| volvo |
6.07.2005 13:44
Сообщение
#2
|
|
Гость |
 Это не R> - это R > 0.01 . Просто для того, чтобы вставить значок ">" в HTML-документ (сами знаки "<" и ">" ставить нельзя, это - теги), пользуются ">"... Ну или "<" соответственно для "<" |
|
|
|
| Jaxx |
6.07.2005 13:48
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 145 Пол: Мужской Реальное имя: Павел Репутация: 0 |
М-да... Как-то я и не допер. А ведь 3 года в HTML работаю. Во заглючило меня.
 -------------------- - Дорогие девушки! У вас сухая кожа? Редкие волосы? Проблемы с фигурой? Приходите к нам! У нас темно и мы пьяные.
|
|
|
|
| Romtek |
6.07.2005 23:35
Сообщение
#4
|
 Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Это, случаем, не отрисовка папоротника?
-------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
|
|
|
| volvo |
6.07.2005 23:44
Сообщение
#5
|
|
Гость |
Romtek,
:yes: Оно самое... Во какой: Эскизы прикрепленных изображений 
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.07.2025 2:10 |