Forum CDRinfo.pl - Pascal i rysowanie

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Off topic (https://forum.cdrinfo.pl/f5/)

- - Pascal i rysowanie (https://forum.cdrinfo.pl/f5/pascal-rysowanie-64929/)

Pascal i rysowanie

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

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

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!!

Chmm mam problem z pokolorowaniem prostokąta:

Kod:

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... :sciana:

Moze nie trafiasz w figure :D

Cytat:

Napisany przez Patrix (Post 701864)

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

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 :

Kod:

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