-
zabawa w pascalu - grafika
witam, mam podany program i muszę pozmieniać dane tak, aby wyszedł jakiś ciekawy wzór.
Trochę się pobawiłam, ale szału nie ma...te moje kształty są raczej przeciętne, a podobno
mogą wyjść nawet motyle. Jeśli ktoś ma czas, bardzo proszę o pomoc! ![Smile](images/smilies/smile.png)
program grafika;
uses graph,crt;
var x,y,x1,y1,r,i: integer;
k: real;
begin
detectgraph(ster,tryb);
initgraph(ster,tryb,'c:\tp\bgi');
x:=getmaxx div 2;
y:=getmaxy div 2;
r:=100;
for i:=1 to 180 do
begin
k:=2*i*pi/180;
x1:=round(2*r*cos(k));
y1:=round(2*r*sin(k));
line(x+r+x1,y+y1,x-r+x1,y-y1);
end;
repeat until keypressed;
closegraph;
end.
no i np. pozamieniać miejscami sinusy z cosinusami, mnożyć, dodawać,zmiana r itp...
mam nadzieję, że dobrze przepisałam, w razie czego wstawiam link do kartki:
Imageshack - p1170688.jpg
dziękuję !
Tagi
Zasady Postowania
- Nie możesz zakładać nowych tematów
- Nie możesz pisać wiadomości
- Nie możesz dodawać załączników
- Nie możesz edytować swoich postów
-
Forum Rules