-
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)
. -
Davidan90.
User deleted
Lo hai creato tu ????? AH AH AH AH AH AH AH AH AH AHA HA HAH AH AHHAHAHAHAHAHHAHAHAHHAHAHAHAHAHHHHHHHHHHHAHAHAHAHAHHA . -
Sharoar.
User deleted
ah lo ho già sentito questo gioco ^^ lo aveva fatto anche un mio amico ! è belluz . -
peppone14.
User deleted
nn ci credi, è una grande scemenza crearlo x ki studia ogni tanto pascal
. -
.
Prince Of Game Legend Member lv15
- Group
- Member
- Posts
- 6,746
- Location
- dalla casa dell'Uomo del Monte
- Status
- Offline
ma nn è vero k ho 10 possibilità, devi rittoccarlo,all'inizio avevo messo 10 e nn era giusto, poi all'8° tentativo ho messo 10 ed era giusto.
l'ho fatto ank'io uno simile k ho pubblicato qui. -
peppone14.
User deleted
ma dove l'hai messo il programma io nn l'ho trovato, cmq se vuoi pubblico il linguaggio da cui l'ho fatto, ma nn mi sembra ke ci siano errori, SPOILER (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 ('hai 10 possibilit…');
writeln ('scrivi un numero');
readln (a);
if a>b then writeln('scrivi un numero piu grande');
if a<b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (c);
if a>c then writeln('scrivi un numero piu grande');
if a<c then writeln('scrivi un numero piu grande');
if a=c then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (d);
if a>d then writeln('scrivi un numero piu grande');
if a<d then writeln('scrivi un numero piu piccolo');
if a=d then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (e);
if a>e then writeln('scrivi un numero piu grande');
if a<e then writeln('scrivi un numero piu piccolo');
if a=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (f);
if a>f then writeln('scrivi un numero piu grande');
if a<f then writeln('scrivi un numero piu piccolo');
if a=f then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (e);
if a>e then writeln('scrivi un numero piu grande');
if a<e then writeln('scrivi un numero piu piccolo');
if a=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (g);
if a>g then writeln('scrivi un numero piu grande');
if a<g then writeln('scrivi un numero piu piccolo');
if a=g then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (h);
if a>h then writeln('scrivi un numero piu grande');
if a<h then writeln('scrivi un numero piu piccolo');
if a=h then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (i);
if a>i then writeln('scrivi un numero piu grande');
if a<i then writeln('scrivi un numero piu piccolo');
if a=i then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (l);
if a>l then writeln('scrivi un numero piu grande');
if a<l then writeln('scrivi un numero piu piccolo');
if a=l then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (m);
if a>m then writeln('scrivi un numero piu grande');
if a<m then writeln('scrivi un numero piu piccolo');
if a=m then writeln (' hai vinto, bravo');
readln;
end.
e cmq se è stupido pascal io nn ci posso fare niente
. -
.
Prince Of Game Legend Member lv15
- Group
- Member
- Posts
- 6,746
- Location
- dalla casa dell'Uomo del Monte
- Status
- Offline
non è il turbo pascal, hai sbagliato tu dovresti mettere così SPOILER (click to view)Program giochino;
USES PRINTER;
var a,c,d,e,f,g,h,i,l,m,b,n:integer;
begin
randomize;
b:= random(100);
writeln ('hai 10 possibilit…');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (c);
if c<b then writeln('scrivi un numero piu grande');
if c>b then writeln('scrivi un numero piu grande');
if c=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (d);
if d<b then writeln('scrivi un numero piu grande');
if d>b then writeln('scrivi un numero piu piccolo');
if d=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (e);
if e<b then writeln('scrivi un numero piu grande');
if e>b then writeln('scrivi un numero piu piccolo');
if e=b then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (f);
if f<b then writeln('scrivi un numero piu grande');
if f>b then writeln('scrivi un numero piu piccolo');
if f=b then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (g);
if g<b then writeln('scrivi un numero piu grande');
if g>b then writeln('scrivi un numero piu piccolo');
if g=b then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (h);
if h<b then writeln('scrivi un numero piu grande');
if h>b then writeln('scrivi un numero piu piccolo');
if h=b then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (i);
if i<b then writeln('scrivi un numero piu grande');
if i>b then writeln('scrivi un numero piu piccolo');
if i=b then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (l);
if l<b then writeln('scrivi un numero piu grande');
if l>b then writeln('scrivi un numero piu piccolo');
if l=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (m);
if a>m then writeln('scrivi un numero piu grande');
if a<m then writeln('scrivi un numero piu piccolo');
if a=m then writeln (' hai vinto, bravo');
readln;
writeln ('scrivi un numero');
readln (n);
if n>b then writeln('scrivi un numero piu grande');
if n<b then writeln('scrivi un numero piu piccolo');
if n=b then writeln (' hai vinto, bravo');
end.
oppure + semplicementeSPOILER (click to view)Program giochino;
USES PRINTER;
var a,b:integer;
begin
randomize;
b:= random(100);
writeln ('hai 10 possibilit…');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('scrivi un numero piu grande');
if a>b then writeln('scrivi un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (a);
if a<b then writeln('era un numero piu grande');
if a>b then writeln('era un numero piu piccolo');
if a=b then writeln (' hai vinto, bravo');
readln;
end.
Edited by ripper_92 - 13/5/2007, 10:39. -
peppone14.
User deleted
me lo spieghi cosa c'è di sbagliato
. -
.
Prince Of Game Legend Member lv15
- Group
- Member
- Posts
- 6,746
- Location
- dalla casa dell'Uomo del Monte
- Status
- Offline
il primo l'hai fatto giusto e poi con gli altri nove hai fatto comparare il numero inserito con il primo numero e nn con b ke era il numero casuale. quindi se la seconda volta inserivi lo stesso numero ti diceva k avevi vinto . -
.
Prince Of Game Legend Member lv15
- Group
- Member
- Posts
- 6,746
- Location
- dalla casa dell'Uomo del Monte
- Status
- Offline
ho fatto un programma come il gioco di peppone con meno parole ma più complicato File AllegatoGICO.PAS
(Number of downloads: 4)
. -
peppone14.
User deleted
si è un errore di distrazione, io ho fatto copia e incolla e ho sbagliato a scrivere la lettera, ora pubblico la versione esatta
Program giochino;
USES PRINTER;
var a,c,d,e,f,g,h,i,l,m,b,z:integer;
begin
b:= random(100);
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.. -
pascal2.
User deleted
scusate tanto ma quel gioco non va risolto così!!! se volete farlo come si deve dovete impostare un ciclo che giri tante volte quante possibilità scegliete di voler dare... .