Kajtas
Administrator
Dołączył: 26 Wrz 2010
Posty: 37
Przeczytał: 0 tematów
Pomógł: 1 raz
Ostrzeżeń: 0/5
|
 Wysłany: Sob 10:58, 11 Gru 2010 Temat postu: p11_4 - wirujace kwadraty |
|
|
Opis:
Tworzy graficzny obrazek, kwadraty w kwadracie to takie wirujace cos...
Ogolnie super
| Cytat: | progam p11_4;
uses crt,graph;
procedure kwadrat(x,y,a,n:integer;p:real);
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,i:integer;
begin
x1:=x;
y1:=y;
x2:=x+1+a-1;
y2:=y1;
x3:=x2;
y3:=y2+a-1;
x4:=x1;
y4:=y3;
x5:=x1;
y5:=y1;
MoveTo(x1,y1);
LineTo(x2,y2);
LineTo(x3,y3);
LineTO(x4,y4);
Lineto(x1,y1);
for i:=1 to n do begin
x1:=x1+round((x2-x1)*p);
y1:=y1+round((y2-y1)*p);
x2:=x2+round((x3-x2)*p);
y2:=y2+round((y3-y2)*p);
x3:=x3+round((x4-x3)*p);
y3:=y3+round((y4-y3)*p);
x4:=x4+round((x5-x4)*p);
y4:=y4+round((y5-y4)*p);
x5:=x1;
y5:=y1;
MoveTo(x1,y1);
LineTO(x2,y2);
LineTo(x3,y3);
LineTo(x4,y4);
LineTo(x1,y1);
end;
end;
var karta,tryb,wx,wy,ilepowtorzen,bok:integer;
proporcja:real;
begin
karta:=9;
tryb:=2;
InitGraph(karta,tryb,'c:\tp\bgi');
wx:=200;
wy:=150;
bok:=200;
proporcja:=0.05;
ilepowtorzen:=20;
kwadrat(wx,wy,bok,ilepowotrzen,proporcja);
readkey;
closegraph;
end. |
Post został pochwalony 0 razy
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
