[Pascal] comando random che non funziona

[Mark Lenders]

Ho un problema nell'esecuzione di un programma: vorrei stampare a video dei caratteri con posizionamento casuale, ma il programma non lo fa e me li posiziona tutti nel punto più alto a sinistra.

Questo è il codice incriminato:

program prova;


uses crt;


var
        carattere, riga, colonna: integer;




begin
        clrscr;


        colonna:= random (25);
        riga:= random (81);
        for carattere:=1 to 10 do
        begin
        gotoxy(colonna, riga);
        textcolor(GREEN);
        writeln('©');
        end;


        readln
end.

In questo esercizio precedente invece mi era riuscito, non riesco proprio a capire dove sia la differenza...

program prova;

uses crt;


var
        contatore, colonna, riga, colore, totali: integer;


begin
        clrscr;


        totali:=0;




        repeat
                totali:=totali +1;
                colonna:= random (81);
                riga:= random (26);
                gotoxy(colonna,riga);
                colore:=random (16);
                if colore=YELLOW then
                        contatore:=contatore +1;
                textcolor(colore);
                write('█');
                delay(100);
        until contatore=3;


        gotoxy(1,50);
        writeln('Totale rettangolini: ', totali);
        write('Percentuale di rettangolini gialli sul totale: ');
        writeln( (contatore/totali) * 100:4:2, '%' );




        readln


end.

Please help me...

[Mark Lenders]

Nessuno mi aiuta?

[oregon]

La differenza è evidente ... riga e colonna li devi impostare dentro al ciclo, come fa il secondo programma...

[Mark Lenders]

Evidente per uno esperto, di sicuro non per uno che sta iniziando ad imparare.
Grazie dell'aiuto.

[oregon]

Evidente per uno esperto

Non sono d'accordo ... anche chi non è esperto è capace di notare il fatto che quelle righe stanno dentro o fuori dal ciclo. Magari non si rende conto della differenza, ma la differenza è evidente.

E poi, dal lato puramente "logico" ... se deve piazzare un carattere a delle coordinate casuali è anche qui ovvio generare queste coordinate per ogni carattere, e "per ogni carattere" vuol dire nel ciclo ...