gioco con pascal

ki è piu fortunato, tu o il pc?

« Older   Newer »
 
  Share  
.
  1. 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 tranquillamente


    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 (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:39
    File Allegato
    GIOCO.rar
    (Number of downloads: 4)

     
    .
  2. Davidan90
     
    .

    User deleted


    Lo hai creato tu ????? AH AH AH AH AH AH AH AH AH AHA HA HAH AH AHHAHAHAHAHAHHAHAHAHHAHAHAHAHAHHHHHHHHHHHAHAHAHAHAHHA
     
    .
  3. Sharoar
     
    .

    User deleted


    ah lo ho già sentito questo gioco ^^ lo aveva fatto anche un mio amico ! è belluz
     
    .
  4. peppone14
     
    .

    User deleted


    nn ci credi, è una grande scemenza crearlo x ki studia ogni tanto pascal
     
    .
  5.  
    .
    Avatar

    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
     
    .
  6. 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
     
    .
  7.  
    .
    Avatar

    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 + semplicemente
    SPOILER (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
     
    .
  8. peppone14
     
    .

    User deleted


    me lo spieghi cosa c'è di sbagliato
     
    .
  9.  
    .
    Avatar

    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
     
    .
  10.  
    .
    Avatar

    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 Allegato
    GICO.PAS
    (Number of downloads: 4)

     
    .
  11. 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.
     
    .
  12. 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...
     
    .
11 replies since 11/5/2007, 17:33   5916 views
  Share  
.