Doporučuji:
Testy.mysteria.cz
,
HockeyPage.wz.cz
Úvod
Návody
PC hry
HTML
CSS
Pascal
Web na zakázku
Šachy
Pardubice
Autor
Guestbook
Odkazy
Pascal - hotové kódy
Grafika - domek
program domek; uses crt,graph; var Gd, Gm, I, Width, radius,klavesa : Integer; procedure dum; begin repeat Gd := Detect; InitGraph(Gd, Gm,\\'G:\\\\software\\\\jazyky\\\\bp\\\\bgi\\'); Rectangle(100, 100, 300, 200); Line(100, 100, 200, 50); Line(200, 50, 300, 100); Bar(110, 110, 150, 150); Bar(210, 110, 250, 150); Line(230, 40, 250, 40); Line(230, 40, 230, 65); Line(250, 40, 250, 75); writeln (\\'Pro pokracovani stisknete nulu\\'); readln (klavesa); until klavesa<>0; end; begin dum; end.
zpět na přehled kódů <
© ja.chytrak.cz 2005-2006. Zákaz kopírování obsahu stránek bez písemného svolení autora. Tento web je optimalizován pro Internet Explorer 6.0 a Mozilla Firefox.