-
Ripper346.
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.