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.

Rispondi quotando

