[pascal] programa infinito apitando

ETraud Ter Jul 22, 2008 3:53 am

Achei certa piada a este programa quando li o que ele faz....

Num ciclo de repetição ele apita, como ele vai fazer o ciclo até que seja 0, vai sempre correr, porque vai comecar no "0=0+1"---->nunca será 0...

Podes assustar alguem com isso....

Program virus_lol;
Var num,cont:integer;
Begin
cont:=0;
num:=0;
repeat
cont:=cont+1;
writeln(cont*cont*cont,'Reading hard disk sectores ',cont*cont*cont,' injecting virus...',cont*cont,chr(7));
until num<>0;
readln;
End.