Pascal i rysowanie

[loki7777]

Mam takie dwa zadania w pascalu (powalony jezyk
Narysowac dwa okręgi styczne zewnętrznie (promienie okręgów jako dane wprowadzane do programu)
lub
Narysowac globus z układem południków równoleżników (ewentualnie dodac kontynenty i oceany)
i nie wiem nawet jak to zaczac z delphim sobie poradzilem, ale pascal to juz za duzo dla mnie, a zwlaszcza graph i 13h.Moze ktos mi moze pomoc z tym,albo ma gdzies zrodlowke takiego programiku.przerylem google i jakos nic nie moge znalezc

[M@X]

Nie pomoge, ale postuluje by dac zrodlo w zalaczniku na forum - sam bym chetnie zobaczyl jak to sie robi!

[Patrix]

maybe this ?
http://www.google.pl/search?q=object+pascal+circle

[loki7777]

Zródło do 1 programu, 2 nie udalo mi sie napisac, ale bedzie cos z elipsa i circle
PS. Wielkie f*cki dla ludzi z 4programmers!!

[Patrix]

Chmm mam problem z pokolorowaniem prostokąta:

program graph1;

USES CRT,GRAPH;

VAR
ster,tryb:integer;

Begin
        detectgraph(ster,tryb);
        initgraph(ster,tryb,' "" ');
        setcolor(4);

        rectangle(220,220,280,240);

        setfillstyle(12,yellow);
        floodfill(250,220,yellow);

        readln;
        closegraph;
End.

Maluje mi cały ekran zamiast figury...

[REi]

Moze nie trafiasz w figure

[Arepo]

Napisany przez Patrix

Maluje mi ca***322;y ekran zamiast figury...

Witam

widz***281; tu 2 b***322;***281;dy :

pierwszy to to, ***380;e jak ju***380; napisa***322; kolega REi nie trafi***322;e***347; w kwadrat tylko w lini***281; i gdyby reszta by***322;a dobrze to wype***322;nieniu uleg***322;oby wszystko na zewn***261;trz kwadratu i jego wn***281;trze

drugi b***322;***261;d to parametr yellow w procedurze floodfill, powinien by***263; to kolor linii wyznaczaj***261;cych obszar do wype***322;nienia, czyli je***347;li narysowa***322;e***347; czerwony kwadrat, to musi by***263; tam w***322;a***347;nie ten kolor

proponuj***281; tak***261; zmian***281; programu :

program graph1;

USES CRT,GRAPH;

VAR
ster,tryb:integer;

Begin
        detectgraph(ster,tryb);
        initgraph(ster,tryb,' "" ');
        setcolor(red);

        rectangle(220,220,280,240);
        setfillstyle(12,yellow);
        floodfill(250,221,red);

        readln;
        closegraph;
End.

pozdrawiam