Тризуб на Паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Тризуб на Паскале - 2007-04-26 20:57:57.580000
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
Помогите построить ету фигуру в паскале
|
|
|
|
|
RE: Тризуб на Паскале - 2007-04-26 21:58:35.560000
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
это лишь 3д график функции, сделаю тебе свободно, щас спешу и поэтому сделаю только ПРОТОТИП функции:
z=sin[x*f+d]*y^n*a
где:
х,у-кординаты точки на опорной плоскости
z-"высота" этой токи
f,d,n,a-коэфициэнты, побираемые при обладке
приду через пару часов, напишу прогу…
|
|
|
|
|
RE: Тризуб на Паскале - 2007-04-27 00:00:25.606666
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
кароче вот прога я её пишу стразу в браузере, если шо, отлажуй сам…:
uses
graph,crt;
var
gd,gm,x,y:integer;
z:real;
begin
initgraph(gd,gm,'..\bgi');
for y:=1 to 50 do
for x:=1 to 50 do
begin
z:=sin(x/15)*y*y*10;
putpixel(x*3+round(z)+100,100-y*3+round(z),1);
end;
readkey;
closegraph;
end.
удачи…
|
|
|
|
|
RE: Тризуб на Паскале - 2007-04-27 07:58:09.500000
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
на тризуб ета фигура немного не похожа, но спасибо за подсказку!
|
|
|
|
|
RE: Тризуб на Паскале - 2007-04-27 10:26:11.520000
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
а вот до тризуба подгоняй сам, для этого тебе голова дана…
|
|
|
|
|
|
