Pascal graph
uses graph,crt;
var gd,gm:word;
s:string;
sl:char;
n,i,x,y:integer;
begin
detectgraph(gd,gm);
initgraph(gd,gm,'');
randomize;
setcolor(green);
repeat
for i:=1 to 30 do
begin
sl:=chr(random(255));
s:=s+sl;
end;
delay(1);
settextstyle(0,1,random(getmaxx));
outtextxy(random(getmaxx),random(20),s);
until keypressed;
readln;
closegraph;
end.
jedno jednostavno pitanje: zašto mi se ništa ne događa kada USPJEŠNO kompajliram program. Sretan Uskrs :D