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
Křížek pomocí funkce gotoXY
program krizek; USES crt; var a,b, klavesa: integer; begin repeat for b:=1 to 20 do begin gotoXY (1+b,b); writeln ('*'); delay(100); end; for b:=1 to 20 do begin gotoXY (25-b,b); writeln ('*'); delay(100); end; writeln ('Pro pokracovani stisknete nulu'); readln (klavesa); until klavesa<>0; 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.