Ecco il problema : in relatà il tuo programma ti fà scorrere la tua scritta, solo che la macchina è troppo veloce e quindi il tuo occhio non vede alcun spostamento.. per questo è necessario impostare una velocità (delay).. Ecco il programma perfettamente funzionante :
----------------------------------------
uses crt;
var col,rig,x : byte;
begin
col:=1;
rig:=1;
repeat
clrscr;
gotoxy(col,rig);
write('Giuseppe');
col:=col+1;
delay (50);
{ Imposta tu la velocità desiderata }
until (col=80-length('Giuseppe'));
{ Va bene anche keypressed }
readln;
end.
Ultima modifica effettuata da sange_90 il 24/11/2007 alle 14:57 |