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
Čtyři souměrné objekty
program pict; uses crt,graph; var Gd, Gm, I, Width, radius, klavesa, r : Integer; procedure obrazek; begin repeat Gd := Detect; InitGraph(Gd, Gm,'G:\\software\\jazyky\\bp\\bgi'); r:=300; Line(320,0,320,600); Line(0,240,640,240); Rectangle(90,90,120,120); Rectangle(120,120,130,130); Rectangle(130,130,140,140); Rectangle(140,140,150,150); Rectangle(90+320,90,120+320,120); Rectangle(120+320,120,130+320,130); Rectangle(130+320,130,140+320,140); Rectangle(140+320,140,150+320,150); Rectangle(90,90+240,120,120+240); Rectangle(120,120+240,130,130+240); Rectangle(130,130+240,140,140+240); Rectangle(140,140+240,150,150+240); Rectangle(90+320,90+240,120+320,120+240); Rectangle(120+320,120+240,130+320,130+240); Rectangle(130+320,130+240,140+320,140+240); Rectangle(140+320,140+240,150+320,150+240); writeln ('Pro pokracovani stisknete nulu'); readln (klavesa); until klavesa<>0; end; begin obrazek; 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.