Mito 120308 punti

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.

Registrati via email