Kis Pascal nektek

[code]Program colorer;
Uses Crt; { eznélkül nem megy }
Var x,y : integer;
Begin
TextColor(white);
Repeat
TextBackground(Random(32));
ClrScr;
GotoXY(16,12);
WriteLn(‘Szerintem színes. Szerintem’);
Sound(Random(3200));
Delay(120);
NoSound;
Until keypressed;
NoSound;
End.[/code]Tulajdonképpen ez annyi, hogy véletlen háttérszínt és hangokat generál, egészen addig ameddig egy gombot meg nem nyomunk. Ez van, unatkozom órán.

« »

mefiblog logó

Írja és rendezi Mefi, avagy Nádai Gábor © 2005-2024

A blogot büszkén pörgeti a WordPress motorja, Anders Norén sablonjának átbuherált változatával.