Граф в паскале

[LLIypLLIyH]

ПОмогите нарисвоать шар решотчатый 3D видимо нужно, преподаватель сказал элипс не катит)


вот с элипсом

program tgf;
uses
 graph;
var
 gd,gm:integer;
 x,y,rxy:integer;
begin
write ('Diametr shapa '); readln(rxy);
write ('Raspolozenie no X '); readln(x);
write ('Raspolozenie no Y '); readln(y);
gd:=VGA;
Gm:=VGAHi;
Initgraph (gd,gm,'..\bgi');
if graphresult=grok then setfillstyle (4,1);
FillEllipse (x,y,rxy,rxy);
readln;
end.

я не знаю как в шар сделать, помогите пождалуйста.

[Stilet]

вместо FillEllipse пиши Ellipse.
setfillstyle (4,1); вообще убери
В цикле строй так: Сначала у эллипса радиусы равны. Потом уменьшай радиус x - получиш меридианную сетку.
Далее в таком же цикле начиная опять с круга уменьшай радиус y - будут параллели что приведет к появлению wireframe sphere

[LLIypLLIyH]

Чё то он у меня кучу ошибок на выдовал, ик ак сделать чтобы он сам кучу элипсов настроил ведь я указываю 1 радиус, а хотя через FOR наверно?

[Stilet]

Не наверное а точно. Только я бы через While делал, там шаг можно настроить.

[LLIypLLIyH]

program tgf;
uses
 graph;
var
 gd,gm:integer;
 x,y,rxy:integer;
begin
write ('Diametr shapa '); readln(rxy);
write ('Raspolozenie no X '); readln(x);
write ('Raspolozenie no Y '); readln(y);
for i:=rxy to 1 do
gd:=VGA;
Gm:=VGAHi;
Initgraph (gd,gm,'e:\bp\bgi');
if graphresult=grok then setfillstyle (0,1);
FillEllipse (x,y,rxy,rxy);
readln;
end.

вот что у меня получилось, не пашет(

[Stilet]

не пашет(

А она от предидущей ничем не отличается.

Тебе цикл нужен с begin-end; и к тому же не для всей проги, а только для Ellipse (x,y,rxy,rxy).

И еще - почитай внимательно что я тебе написал выше.

[LLIypLLIyH]

Я не могу(

[glasian]

парни помогите прогу написать срочно надо!!!
Подготовив несколько заготовок полотнища флага, добиться эффекта его движения (флаг реет). Цвет флага изменять

[LLIypLLIyH]

Мне бы кто помог

[Serge_Bliznykov]

LLIypLLIyH
вот реализация идеи Stilet (Виталий, ничего, что я в Ваше тему влез??:-) )

program tgf;
uses
 graph;
var
 gd,gm:integer;
 i,x,y,rxy:integer;
begin
(*write ('Diametr shapa '); readln(rxy);
write ('Raspolozenie no X '); readln(x);
write ('Raspolozenie no Y '); readln(y);
*)
rxy := 130;
x := 200;
y := 200;
gd:=VGA;
Gm:=VGAHi;
Initgraph (gd,gm,'e:\bp\bgi');
if graphresult=grok then setfillstyle (0,1);
i:=rxy;
while i>1 do begin
  Ellipse (x,y,0,360,i,rxy);
  i := i - 20;
end;
i:=rxy;
while i>1 do begin
  Ellipse (x,y,0,360,rxy,i);
  i := i - 20;
end;
readln;
end.

комментарий на вводе данных можно убрать.. ;-)
значение шага в цикле можно изменять.
удачи.