Новые сообщения · Правила  
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с графикой
Задачи с графикой
интересно, а зачем тут графы? =)
наверно все таки Graph как модуль паскаля?


If you can't make it GOOD make it LOOK GOOD. B.Gates
21 | Автор: DoVe | 2014-12-21, 18:55   |  Репутация: [ + 48 ]
У меня есть мгого красивых рисунков. Вылажую самые интересные и не особо сложные.
uses graph;
var gd,gm:integer;
procedure ine(x,y:integer);
begin
setcolor(4);
circle(320,240,100);
arc(x-50,y,0,180,50);
arc(x+50,y,180,0,50);
floodfill(x+50,y,180);
circle(270,240,20);
circle(370,240,20);
setfillstyle(1,15);
floodfill(270,240,20);
setfillstyle(1,0);
floodfill(370,240,20);
setfillstyle(1,4);
end;
begin
gd:=vga;gm:=vgahi;
initgraph(gd,gm,'');
ine(320,240);
readln;
closegraph;
end.

Добавлено (13.01.2009, 20:33)
---------------------------------------------
Вот еще тока это посерйозней.
uses graph,crt;
var
i,j,r,dx,dy,err:integer;
x,y:word;
begin
i:=3;
j:=0;
initgraph(i,j,'');
err:=graphresult;
if err<>grok then
writeln(grapherrormsg(err));
begin
getaspectratio(x,y);
r:=5;
for i:=0 to 15 do
begin
setactivepage(i);
circle(300,100,100);
dx:=300+round(30*cos(i*2*pi/16)*y/x);
dy:=100-round(30*sin(i*2*pi/16));
fillellipse(dx,dy,r*round(y/x),r);
end;
while not keypressed=true do
for i:=0 to 15 do
begin
setvisualpage(i);
delay(50);
end;
closegraph
end
end.

22 | Автор: VANGER | 2014-12-21, 18:55   |  Репутация: [ + 6 ]
Ты Кэп:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
23 | Автор: Berestovskiy | 2014-12-21, 18:55   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с графикой
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: