Vorrei risolvere questo problema: il codice che ho scritto a mio avviso è esatto, ma il programma non si avvia.
Ho chiesto in un'altra discussione e mi è stato detto che probabilmente è un'errore del mio IDE (che sinceramente non so nemmeno cosa sia).
Inizialmente questo messaggio di errore me lo dava solo se inserivo una condizione di fine ciclo superiore alle 3 unità, ad esempio "until contatore=5;". Ora invece sempre.
Questo è il codice se vi va di dargli un'occhiata, a mio avviso non ci sono errori:
codice:
program prova;
uses crt;
var
colonna, riga, totale, contatore, colore: integer;
begin
clrscr;
colonna:=0;
riga:=0;
totale:=0;
contatore:=0;
colore:=0;
repeat
totale:= totale +1;
colore:= random (16);
colonna:= random (81);
riga:= random (25);
gotoxy(colonna, riga);
textcolor(colore);
writeln('█');
if colore=YELLOW then
contatore:= contatore +1;
writeln((contatore div totale) * 100);
until contatore=9;
readln
end.