Concetti Chiave
- Il programma è scritto nel linguaggio di programmazione Pascal e simula un gioco di indovinelli numerici.
- Il computer genera un numero casuale minore di 100 e il giocatore deve cercare di indovinarlo inserendo un numero da tastiera.
- Se il numero inserito è corretto, il programma congratula il giocatore; altrimenti, indica se il numero è troppo alto o troppo basso.
- Utilizza funzioni grafiche di base come 'gotoxy' e 'textcolor' per migliorare l'interfaccia utente nel terminale.
- Il ciclo 'repeat...until' continua fino a quando il giocatore non indovina il numero generato dal computer.
Qui di seguito c'è un programma scritto in Pascal che permette di giocare cercando di indovinare un numero minore di 100 generato dal computer. Si fa generare il numero dal computer, si inserisce un numero da tastiera e poi il computer deve dire se lo hai indovinato. Se no, esso deve dire anche se è maggiore o minore del numero da lui generato.
program indovina_il_numero;
uses crt;
var n,a:real;
begin
textbackground(1);
clrscr;
randomize;
textcolor(10);
gotoxy(12,2);
writeln('Indovina il numero segreto che si cela in questa pagina!!');
n:=random(101);
gotoxy(2,5);
writeln('Inserisci ora il numero da te pensato');
repeat
gotoxy(2,7);
write('a= ');
readln(a);
if a=n then begin
textcolor(10+16);
gotoxy(2,40);
writeln('Bravo hai indovinato!! Complimenti!!');
end
else if a>n then begin
textcolor(10);
gotoxy(2,10);
writeln('Il numero digitato è troppo grande!!');
end
else begin
textcolor(10);
gotoxy(2,10);
writeln('Il numero digitato è troppo piccolo!!');
end;
until a=n;
readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
