Newsgroup: it.comp.lang.pascal
Titolo: Ho un problema

Allora, io ho scritto questo programma, e per compilarlo ho scritto
<tpc gioco.pas>. Ma mi viene scritto che c'è un errore alla riga 4,
<BEGIN expected>.
uses Crt ;
^
Program Giochetto;
var
	num,tentativo,k:integer;
uses Crt ;
begin
	CLRSCR;
	randomize;
	num:=Random(1000);
	k:=0;
	writeln('	Giochino fantastico');
	writeln('	  by Paolo Perini');
	writeln('	      v. 1.1');
	writeln;
	writeln('Scopri il numero segreto compreso tra 0 e 1000:');
	writeln;
	repeat
		k:=k+1;
		write('Quale pensi sia il numero segreto? ');
		readln(tentativo);
		writeln;
		if tentativo<num then writeln('Sbagliato. Il numero da
trovare e'' maggiore. Riprova.');
		if tentativo>num then writeln('Sbagliato. Il numero da
trovare e'' minore. Riprova.');
	until tentativo = num;
writeln;
if k=1 then writeln('Miii! Che botta di culo!!! Solo un tentativo!');
if k<=10 then writeln ('Bravo! Hai usato solo ',k,' tentativi!');
if k>10 then writeln('Sei un po'' fiacchetto... hai usato ben ',k,'
tentativi!');
writeln;
writeln('Premi INVIO per tornare al DOS.');
readln;
end.
Grazie e ciao.
Paolo Perini
pe...@freemail.it
Ricordate di usare l'indirizzo sovrastante
quando mi rispondete via e-mail.
"Non ho bisogno delle riviste! La mia vista divina
mi permette di vedere chi fa la doccia e chi si
cambia!" - il dio KaiohShin

^
Ma uses crt non dovrebbe essere messo PRIMA della dichiarazione delle
variabili !?!??
Ciao e 73-51 de Tartaruga .
.oO-=> TARTARUGA (* Gabriele *) <=-Oo.
     E-Mail: 
ru...@ita.flashnet.it
http://www.geocities.com/SiliconValley/Peaks/4731/

if k>10 then writeln('Sei un po'' fiacchetto... hai usato ben ',k,'
Adesso 10 va bene :-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth

Tutto risolto, scusate l'eventuale disturbo.
Però ora ho un'altra domanda da porvi. Come faccio a mettere i colori?
E come posso far suonare dei files midi o wav?
Grazie ancora e ciao.



Se ti interessa ho una unit che funzionicchia per i mod... però ho solo la
.TPU :-)


.TPU :-)
Ehm... e cioè?
Con una conoscenza da seconda superiore con un'insegnante cretina non
so molto! 2 messaggi postati in questo ng valgono 4 mesi con quella
lì!
Per fortuna quest'anno la cambio...
Ciao e grazie di tutto.
P.S. E le finestre, puoi "introdurmi" come metterle? Grazie ancora.
Paolo Perini
pe...@freemail.it


Adesso 10 va bene :-)
Io ce la faccio spesso in 6!
Ciao e grazie di tutto. Poi magari lo farò in C... l'estate prossima!
P.S. Quanti anni hai?



17, Why??
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"


Riamndendo sul semplice... č semplicissimo:
window(x1,y1,x2,y2);
lo schermo originale č
window(1,1,80,25);
il resto funziona come al solito: clrscr pulisce la finestra, i colori li
applichi solo alla finestra, ecc.
Io di solito mi divertivo cosě:
textbackground(3);
clrscr;
for i:=1 to 1000 do
  write('Cesena Software ');
window(27,6,47,21);
textbackground(0);
clrscr;
window(25,5,45,20);
textbackground(2);
clrscr;
e qui, in quest'ultima finestra, ci mettevo il prog...
Ah ah ah!! Fermo... non osare compilare queste 10 righe :-)
Prima capisci bene cosa fanno!! E poi ricorda che sono protette da copyright
:-)))


:-)))
Bene bene...
Sta tranquillo, non compilerò quelle righe... ci cambierò Cesena
software con PeroSoft :-)))
Ciao!
Paolo Perini
pe...@freemail.it
 - attach to 
lau...@digibank.it


17, Why??
Par savě!
Me ag-nň sedz!
'ao!



Dal dialetto mi sa che siamo pure vicini... io di PC, e tu (di Mac :-) )


Paolo Perini
Hai una sorella?? :-)


What's Unreal?? :-))
Caio



No... sono felicemente sposato... è che conosco una Perini :-)
Ciao


Pallino!! Tsé :-)
Cioč, voi sono giorni (mesi forse) che vi scrivete pensando di dialogare con
un altra persona dispersa nella vastitŕ della nostra penisola...e invece
avete scoperto che siete vicini di classe.
Complimenti, io non ci sono ancora riuscito; becco tutta gente nei posti piů
lontani che magari pensa che gli stia facendo uno scherzo e mi scambia per
un altro.... sigh. Comunque siamo vicini, io sono della provincia di Parma.
Bye.
Sito: 
http://www.geocities.com/timessquare/chasm/5651
E-Mail: 
bor...@hotmail.com



Comunque siamo vicini, io sono della provincia di Parma.
Magari ci si incontra all'università (se sei in età) :-)


No... sono felicemente sposato... è che conosco una Perini :-)
Ora ne conosci 2! Che culo, eh?
'ao!
Paolo Perini


un altro.... sigh. Comunque siamo vicini, io sono della provincia di Parma.
Su, su, non ti scoraggiare!
Spesso passa un bel po' di tempo prima di accorgersi di essere nella
stessa città!
Tutto questo perchè Internet è molto anonimo, forse troppo a volte.
Ciao!


Pallino!! Tsé :-)
Cioč, voi sono giorni (mesi forse) che vi scrivete pensando di dialogare con
un altra persona dispersa nella vastitŕ della nostra penisola...e invece
avete scoperto che siete vicini di classe.
Complimenti, io non ci sono ancora riuscito; becco tutta gente nei posti piů
lontani che magari pensa che gli stia facendo uno scherzo e mi scambia per
un altro.... sigh. Comunque siamo vicini, io sono della provincia di Parma.



Non ti dico... sto sprizzando di felicità.
A proposito (non centra niente :-) ) un mio amico, uno di quelli che c'era
l'altra sera, ha osato insultare il tuo prog. al che l'ho sidato, da parte
tua, a chi produce il prog. migliore... ci stai??


tua, a chi produce il prog. migliore... ci stai??
Cooooooosa????
Allora non sa chi ha davanti! :-)
Il mio prg è bellissimissimo!
Dammi le istruzioni della sfida :-)



Che ne so... dammele tu (a proposito: hai vinto in partenza...)... facciamo
così: avete tempo fino al 17.... il 17 consegnate entrambi... io sono il
giudice, logicamente :-)
Si accettano bustarelle, soprattutto se pagate in donne :-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Il proiettile che arriva ha sempre la precedenza"

Si accettano bustarelle, soprattutto se pagate in donne :-)
No, no, aspetta! Aspetta!
Io parto! Dal 6 al 13 sono in Egitto! Aumenta il limite!



In Egitto... grosso tutto lui :-))
Vabbè... faremo più avanti... ma tanto quello là non lo tocca più il prog.
:-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Il proiettile in arrivo ha diritto di precedenza"