Sporič obrazovky
Delphi & Pascal (česká wiki)
Kategórie: KMP (Programy mladých programátorů)
Autor: Miroslav Lízal, Tomáš Okurek
web: pascalweb.wz.cz/index86.html
Program: Sporic.pas
Soubor exe: Sporic.exe
Autor: Miroslav Lízal, Tomáš Okurek
web: pascalweb.wz.cz/index86.html
Program: Sporic.pas
Soubor exe: Sporic.exe
Sporič obrazovky.
{ SPORIC.PAS Copyright (c) Miroslav Lízal, Tomá Okurek } { Sporic obrazovky. } { } { Datum:05.12.2002 http://www.trsek.com } program sporic; uses crt; var neco,n:integer; var a,b:char; begin clrscr; n:=1; a:=' '; b:=' '; while not(keypressed) do begin clrscr; for neco := 1 to n do begin write(' '); end; writeln(' ()"()'); for neco := 1 to n do begin write(' '); end; writeln(' ("(řoř)'); for neco := 1 to n do begin write(' '); end; writeln(' ,-(___)|''--.'); for neco := 1 to n do begin write(' '); end; writeln('"=(O)===(O)='''); n:=n+1; delay(1000); end; end.