[Pascal] Pivello chiede aiuto per numeri Random

[Fradetti]

Mia cugina fa seconda elementare e deve studiare le tabelline fino al 5, così ho deciso di cogliere due piccioni con una fava e mi son scaricato freepascal e una guida di due pagine in txt per farle un programmino.

Dopo 2 ore di programmazione sono arrivato a questo:


program prova;
uses crt;

var ancora : string;

label prova2;

procedure prova3;
var a1, a2, r, s : integer;

begin
clrscr;
writeln;
writeln;
writeln;
a1 := random(5);
a2 := random(10);
r := a1 * a2;
write(a1);
write(' x ');
write(a2);
write(' = ');
readln(s);
if s = r then begin
writeln;
writeln('Brava!');
writeln;
end else begin
writeln;
writeln('Asina!');
writeln;
end;
end;

begin
prova2:
prova3;
write('Vuoi Continuare? (s/n)');
readln(ancora);
if ancora='s' then goto prova2;
end.


Il programma funziona solo che i numeri non sono random :muro: :muro:

Cosa posso fare?

Grazie :)

P.s: se ci sono suggerimenti per migliorare il programma ditelo :D

[cionci]

Devi chiamare la funzione randomize una sola volta in tutto il programma e rpima di chiamare la random...

randomize;

[Fradetti]

Originariamente inviato da cionci
Devi chiamare la funzione randomize una sola volta in tutto il programma e rpima di chiamare la random...

randomize;

ho fatto una ricerca e l'avevo scoperto.... cmq grazie

ora devo solo fare un conto alla rovescia di 10 secondi e un beep per ogni sbaglio :D (e naturalmente il conteggio delle statistiche :p )

:)

Avete mica qualche link(anche in inglese) che spiega bene le unit + comuni e i vari comandi?