Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - aiuto scuola
Forum - Pascal - aiuto scuola

Avatar
daleg (Normal User)
Newbie


Messaggi: 5
Iscritto: 23/11/2007

Segnala al moderatore
Postato alle 21:01
Venerdì, 23/11/2007
faccio il secondo anno dell'itis e ho bisogno di una mano per un programma.
devo fare un programma in cui faccio scorrere il mio nome.
io go provato a farlo così:
program repea;
uses crt;
var col,rig,x:byte;
begin
clrscr;
repeat
col:=79;
rig:=50;
x:=col-1;
gotoxy(x,rig);
write('giuseppe');
until keypressed;
end.
però il nome non scorre
ringrazio anticipatamente

PM Quote
Avatar
sange_90 (Ex-Member)
Pro


Messaggi: 185
Iscritto: 23/01/2007

Segnala al moderatore
Postato alle 14:51
Sabato, 24/11/2007
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
PM Quote
Avatar
daleg (Normal User)
Newbie


Messaggi: 5
Iscritto: 23/11/2007

Segnala al moderatore
Postato alle 8:38
Domenica, 25/11/2007
grazie per l'aiuto:k:

PM Quote