Premessa
Questo articolo è molto vecchio e l’autore di questa pagina nel frattempo è maturato un filino culturalmente e quindi si vergogna molto di quanto qui vi sia scritto. Nello specifico è da deficienti pubblicare un articolo in cui si mostra un programma che mostra un cazzo di numero a caso, fra l’altro in un linguaggio proprietario e che si studia al liceo e basta.
Questi contenuti comunque rimarranno online per aiutare a ricordarsi di quanto si era ignoranti in Informatica solo pochi anni fa e di quanto sia stata sottile la linea che mi separava da Aranzulla.
P.S.
Se trovi un’altra guida del genere in Internet senza un simile disclaimer, insulta immediatamente l’autore.
Siccome in aula informatica ci è stato ordinato di realizzare un programma in Pascal per estrarre un numero pseudo-casuale tra 1 e 6 estremi compresi, e siccome ci è stato segnalato che era stata fatta una richiesta identica agli studenti dei corsi precedenti, abbiamo deciso di rendere disponibile a tutti la nostra personale versione del: “simulatore di un dado a sei facce” in ambiente Pascal…ma leggermente più elaborata delle classiche..
- Download del programma funzionante: Reyboz dadi
- Listato:
PROGRAM RANDOM_DADI; USES CRT;
VAR A,B:INTEGER; F:ARRAY[1..7]OF STRING;
BEGIN
CLRSCR;
RANDOMIZE;
WRITELN('Simulatore del lancio di un dado a sei facce.');
WRITELN;
WRITE('Invio per iniziare, CTRL+PAUSE per uscire.');
READLN;
FOR B:=1 TO 6 DO BEGIN
CASE B OF
1:F[B]:='UNO';2:F[B]:='DUE';3:F[B]:='TRE';
4:F[B]:='QUATTRO';5:F[B]:='CINQUE';6:F[B]:='SEI';
END; END;
WHILE(TRUE)DO BEGIN
A:=20;
FOR B:=1 TO 6 DO BEGIN
GOTOXY(38,10);TEXTCOLOR(1);WRITE(F[B]);
SOUND(A+500);DELAY(A+10);NOSOUND;
A:=A+10;
CLRSCR;
END;
GOTOXY(38,10);TEXTCOLOR(15);WRITE(F[RANDOM(6)+1]+'!');
SOUND(A+500);DELAY(10+A);NOSOUND;
READLN;
END;
END.
Il programma è appunto più complesso del necessario per l’aggiunta un piccolo effetto audio-video prima di restituire sullo schermo il numero casuale, ed in più per puro nostro capriccio i numeri usciranno a parole anzichè in cifre. In ogni caso alleghiamo per i curiosi uno schemetto per comprenderlo al meglio.
var
- A: determina la velocità del programma e i suoni di caricamento
- B: per i cicli for
- F: array di 6 elementi che contiene UNO, DUE, TRE ecc…
begin
- Scritta su schermo delle istruzioni
- Si attende la pressione di invio
- Si caricano in F le sei cifre in lettere.
while(true)begin
- Si azzerano suoni e tempi
- Vengono scritti 6 numeri alle coordinate 38-10 in colore blu + 6 suoni ad ampiezza e tempi crescenti
- Viene scritto il numero casuale alle coordinate 38-10 in colore bianco + un suono
- Si attende la pressione di invio.
- Ricomincia il ciclo while
end; end.
Ricordiamo che gli exe creati con il Turbo Pascal fanno capricci sui computer a 64 bit. Buon proseguimento sul nostro sito!