-
peppone14.
User deleted
se pensate ke pascal serva solo x far addannare gli alunni vi sbagliate di grosso ecco un gioco divertente creato con pascal ke (cosa importante) HO CREATO IO STESSO E NN L'HO COPIATO DA NESSUNA PARTE. Praticamente il pc spara un numero e voi lo dovete individuare, quando sbagliate vi dice se dovete scrivere un numero + grande o + piccolo o se č giusto.
se x caso vi dovesse kiedere quale programma devi scegliere dite win rar.
Il programma ora č giusto, avevo avuto una svista sulla variabile b, potete scaricarlo tranquillamenteSPOILER (click to view)Program giochino;
USES PRINTER;
var a,c,d,e,f,g,h,i,l,m,b,z:integer;
begin
b:= random(100);
writeln (b);
writeln ('hai 10 possibilit…');
writeln ('scrivi un numero');
readln (a);
if b>a then writeln('mira + in alto');
if b<a then writeln('mira + in basso');
if b=a then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (c);
if b>c then writeln('scrivi un numero piu grande');
if b<c then writeln('scrivi un numero piu grande');
if b=c then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (d);
if b>d then writeln('scrivi un numero piu grande');
if b<d then writeln('scrivi un numero piu piccolo');
if b=d then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (e);
if b>e then writeln('scrivi un numero piu grande');
if b<e then writeln('scrivi un numero piu piccolo');
if b=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (f);
if b>f then writeln('scrivi un numero piu grande');
if b<f then writeln('scrivi un numero piu piccolo');
if b=f then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (e);
if b>e then writeln('scrivi un numero piu grande');
if b<e then writeln('scrivi un numero piu piccolo');
if b=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (g);
if b>g then writeln('scrivi un numero piu grande');
if b<g then writeln('scrivi un numero piu piccolo');
if b=g then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (h);
if b>h then writeln('scrivi un numero piu grande');
if b<h then writeln('scrivi un numero piu piccolo');
if b=h then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (i);
if b>i then writeln('scrivi un numero piu grande');
if b<i then writeln('scrivi un numero piu piccolo');
if b=i then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (l);
if b>l then writeln('scrivi un numero piu grande');
if b<l then writeln('scrivi un numero piu piccolo');
if b=l then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (m);
if b>m then writeln('scrivi un numero piu grande');
if b<m then writeln('scrivi un numero piu piccolo');
if b=m then writeln (' hai vinto, bravo');
readln;
end.
Edited by peppone14 - 13/5/2007, 20:39File AllegatoGIOCO.rar
(Number of downloads: 4)
.