mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Quale linguaggio?


Beh, se non usi il sistema operativo della Microsoft, devi scartare a priori
VB....Secondo me, per cominciare, č smp meglio il Pascal.....Iniziare con il
C per chi non ha dimistichezza con i linguaggi di programmazione, puň essere
un po' pesante... Forse per questo ti hanno consigliato il VB perchč, per
quanto possa essere confusionario, č certamente meno complesso del C.....
AUGURI :o)

 nel campo informatico.
In questi giorni sto scoprendo il Python. Credo che per un principiante
possa dare parecchie soddisfazioni e aprirti la strada verso il Perl. Se
non sai niente di programmazione ti conviene probabilmente aspettare un
po' prima di incominciare col C o, se vuoi studiarlo parallelamente a
qualcosa che ti dia qualche possibilità di scrivere da subito le prime
applicazioni. Didatticamente, visto che siamo in casa Pascal, è ottimo
anche questo linguaggio, che insegna a scrivere un programma come si deve.
-- 
"Non sono sufficenti [sic] 10 parole per descrivere la qualità di Linux"
 (Daniparisi, mail a _Hacker Journal)
it.cultura.classica: 
http://digilander.iol.it/mmanca




Io ho pongo un problema: ma cosa ci vuoi sviluppare con un linguaggio?
Web propongo un po di perl, database management e percheno un po di C per
qualche CGI
Programmi scientifici un po di C.
Con una stazione Unix che spaccica finestre un po di C e di tdk e vari tools
di X...
Un po di tutto cio qui sopra ma con un po di A.I. consiglio il CLISP cha le
colle per tutto basso livello e finestra, web e applicazioni di intelligenza
artificiale.
Il problema non č che linguaggio ma chi cosa e con che cosa fare funzionare
le nostre idee, poi si sceglie lo strumento, formativo comunque resta il
Pascal ed il LISP uno per il precisione della sua sintassi, mai ambigua,
l'altro come linguaggio che solleva il programmatore dalle definizioni e lo
porta ai massimi livelli del simbolismo astratto per realizzare mediante
liste programmi che si auto interpretano.
Un ritrovo per le discussioni presso 
http://www.lispmachine.org
 e si entra
in una delle liste (lisp-it) sono cordiali e spegano tante cose su un
linguaggio che longevo controbatte agli attacchi di linguaggi blasonati
come C++ e Java, ecc...
Max

Newsgroup: it.comp.lang.pascal
Titolo: a cosa serve compilare in memoria?

Come da subject:
non si può provare il programma come con Run
non si può fare un exe come con make o compile to disk.
Allora serve solo per vedere se ci sono degli errori non logici ???
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!

Allora serve solo per vedere se ci sono degli errori non logici ???
Serve ad eseguire la compilazione del programma, alla ricerca di
ERRORI LOGICI e NON.
Newsgroup: it.comp.lang.pascal
Titolo: aiuto,1 programma per 1 esame

qualcuno mi aiuti per favore !!devo dare un orale per un esame di
programmazione (turbo pascal) e mi servirebbe un programma di circa
200_300 riga abbastanza semplice
possibili temi: analisi di un testo
                        gioco(forza4-tris)
                        rubrica
                        ....
mi servirebbe il prima possibile!!
mi va bene un file di testo in word!!
grazie della collaborazione e ultima cosa se potete mandare un
e-mail:stel...@libero.it
  GRAZIE ALESSANDRA
--
Posted from 
smtp2.libero.it
 [193.70.192.52]
via Mailgate.ORG Server - 
http://www.mailgate.org


Ciao.
Simone.

                        rubrica
Ti potrei aiutere se fossi un pò più precisa.
Che significa "analisi di un testo" ?
Quali regole deve seguire il gioco "forza4-tris" ?
Che tipo di rubrica ti serve ?
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Delphi 3 free?

Il Delphi 3 č libero?
Grazie
Iding


non credo...
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

 non credo...
La versione standard si.

Qual'è l'ultima versione del delphi?
Ph.


 ha scritto nel messaggio
news:3b38aacd...@news.tiscalinet.it...


 Direi 5, però stanno facendo la 6
io invece direi che la 6 è già fuori da un po'.

On Sat, 23 Jun 2001 08:51:17 GMT, Cesare <a@b.c> wrote:

Io ho cercato su 
www.borland.com
 è non c'è ... dove sta?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: Differenze Pascal 6.0 7.0

Ciao a tutti...volevo chiedervi una cosa...devo preparare l'esame di
fondamenti di informatica e come ldp usiamo il pascal 6.0 . Io ho
sempre usato il 7.0 (a dire i lvero ho iniziato con il 3.0 8-) ) e
volevo sapere se preparandosi sul 7.0, al momento dell'esame con il
6.0 si possa incappare in spiacevoli sorprese...le differenze tra le
due versioni sono molte !?!? quali ?!?!?! troppe!!?!?!?
Grazie mille...bye...
 
.oO 73-51 de Tartaruga (* Gabriele *) Oo.
  -=> E-Mail:  
ru...@ita.flashnet.it
 <=-

...


...


             readkey;
Solo se lo switch della sinstassi estesa {$X+} è attivato.
Ciao,
Mauro Molinari
(Pascal programmer & musician)
Internet e-mail: 
maur...@tin.it
Digital Things Home Page: 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, select the right address.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto.

Newsgroup: it.comp.lang.pascal
Titolo: [DISPACERE]

Mi hanno cancellato l'account del sito
RDC


Mi dispace anche a me...
Ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

> Mi hanno cancellato l'account del sito
sigh... condoglianze :-\
--
Dreadnaut
(Life would be easier if I had the source code)

Diagnosi?
Dott. Coop :P


come mai? forse perche' nn lo aggiornavi da un po? cmq io ci sono andato una
settimana fa ed era ancora li. forse e' solo un prob del server. cmq facci
sapere se ne aprirai in caso uno nuovo
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

Newsgroup: it.comp.lang.pascal
Titolo: Altezza caratteri

In turbo pascal si può modificare solo la larghezza del carattere o anche
l'altezza, se sì come?Mi riferisco alla modalità testo.
grazie


Si si puo'...
Si usa "TextMode"... ci sono diversi mode
Puoi' andare da 25 righe (normale) a 50 righe
il codice bhe... mo te lo cerco :D
80x50 ->  TextMode(C80 + Font8x8)
ma se megalomane sono sicuro ke ti piacera questo codice:
program Video;
{ Switch color monitor to 40 columns
 and back. Won't work on mono adapter. }
uses Crt;
var
  OrigMode: Integer;
begin
  OrigMode := LastMode;
  TextMode(CO40);
  WriteLn('Big Characters');
  ReadLn;
  TextMode(OrigMode);
end.
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 wrote in message
allo3s$1rj0uu$1...@ID-99656.news.dfncis.de...


 modo di richiamare un tipo di font da turbo pascal ???
X quel ke ne so io, solo in modalità grafica.
--
DArK
===============================
        ThE DArKneSS Is JuST DArK
===============================

Newsgroup: it.comp.lang.pascal
Titolo: Equazioni

Qualcuno potrebbe inviarmi il listato per risolvere le equazioni
di  I° grado ?
Kosby
P.S. E' Urgente.

 ha scritto nel messaggio
news:8g39h7$4mp$1...@pegasus.tiscalinet.it...


 wrote in message

Newsgroup: it.comp.lang.pascal
Titolo: Extended

Salve, ho buttato giů qualche riga per un programmino che mi esegua delle
permutazioni e quindi utilizzo numeri molto molto grandi.
Il problema č che se dichiaro le variabili real,il range si ferma intorno a
10^35. Mi sono ricordato poi che esiste il tipo extended ( 10^4932 ).
Quando perň dichiaro
                                f: extended;
mi da come risutato " Errore 116 :  Must be in 8087 to compile this ".
Come risolvo il problema ? Ricorro a qualche altro tipo ? Quale? ( Visto che
uso numeri nell'ordine di 10^250).
                                                                    Kosby

                                                                     Kosby
prova ad usare la direttiva {$n+} o {$n-} col tipo reale che dici, 
non ricordo bene. Consulta pure la guida del pascal.
web.tiscali.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:4%KK8.12722$QT3.3...@twister2.libero.it...

Con il vecchio, ma saggio tp7 funzia senza problemi...
in ogni caso controlla le opzioni per l'emulazione dell'8087...
ciao g1n0W3h

Newsgroup: it.comp.lang.pascal
Titolo: Reverse di una lista

Ecco la soluzione più semplice che mi sia venuta in mente per il reverse di una
lista, dovrebbe funzionare, non l'ho provata ma a logica è giusta, poi........:
procedure reverselist(l: list; var l1: list);
{l1 va passata inizializzata a nil}
var
  temp: list;
begin
  new(temp);
  while l<>nil do
  begin
    temp:=l;
    temp^.next:=l1;
    l1:=temp;
    l:=l^.next;
  end;
end;
Spero sia utile

io una procedure l'ho provata, e mi sembrava anche molto semplice da implementare,
usando solo la procedura standard di inserimento.
Data la procedura insert, la richiamo in reverse
procedure insert (var p: lista; s: integer);
var paux: lista;
begin
new (paux);
paux^.val:= s;
paux^.next:= p;
p:= paux;
end;
Procedure reverse (var p: lista);
var paux: lista;
begin
paux:= NIL;
while p <> NIL do
      begin
      insert (paux, p^.val);
      p:= p^.next;
      end;
p:= paux;
end;

Newsgroup: it.comp.lang.pascal
Titolo: Di nuovo aiuto per l'array

Capperi nn mi sono espresso bene!!!!! Allora io ho un array 123123123
e devo dire quante volte un numero č presente!!! per esempio:
il numero uno quante volte č presente 3 volte, e il programma deve dirmi
numero 1 č presente 3 volte e cosi per tutti i numeri.

 wrote in message
TKtT6.1184$Ft6....@news.infostrada.it...


Ci dovrebbe essere una procedure per l'array in imput cosi:
PROCEDURE (VAR vet:numeri; dim:integer);
VAR i:integer
BEGIN
FOR i:=1 TO dim DO
write ('dammi il numero ');
readln (v[i]):
END;
END;
PROCEDURE conta (...............);
VAR
eccc
Ehm nn parlarmi di metodo pinco pallino perchè nn li conosco ..........
Cmq il tuo metodo nn dovrebbe andare bene perchè se l'utente manda in input
il vettore come si fa????
ReDiCuori <redicu...@NOSPAMlibero.it> wrote in message
FVtT6.1300$Ft6....@news.infostrada.it...


 Ehm nn parlarmi di metodo pinco pallino perchè nn li conosco ..........
Il metodo che ti dicevo è quello di Skonvols2k ossia la persona che ti ha
postato prima,
in quel caso devi creare un vettore sovraddimensionato per poter contare
tutti i numeri "possibili"


Newsgroup: it.comp.lang.pascal
Titolo: <!-- To use a different cobrand, make sure you have a template for it in /parts/cobrand/ -->

<b><font color="#800000">
IT</font><font color="#008000"><i>net</i></b></a></FONT>.
                        <br>
                        <BR clear=all><IMG height=5 hspace=0
            src="
http://media.xoom.it/new/spacer.gif
" width=314><BR></TD>
          <TD bgColor=#000000 width=2><SPACER HEIGHT="2" WIDTH="2"
            TYPE="BLOCK"></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 height=2 width=489>
        <TBODY>
        <TR>
          <TD bgColor=#000000 colSpan=2 height=2 width=489><SPACER HEIGHT="2"
            WIDTH="1" TYPE="BLOCK"></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=left colSpan=2 vAlign=top><IMG height=20 src="
http://media.xoom.it/new/fade_bottom.gif
" width=250>
</TD></TR></TBODY></TABLE>
</FORM>
</BODY>
</HTML>




 
<HTML>
<HEAD>




<!--- inizio HOTSPOT --->






<!--- fine HOTSPOT --->





<TD bgcolor=#FFCC66 align=center WIDTH=487>

<IFRAME SRC="
http://ad.it.doubleclick.net/adi/xoom.it/membersarea;area=membersarea;sz=468x60;ord=4043
?" WIDTH=468 HEIGHT=60 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR="#FFCC66">
<SCRIPT language="JavaScript1.1" SRC="
http://ad.it.doubleclick.net/adj/xoom.it/membersarea;area=membersarea;abr=!ie;sz=468x60;ord=4043
?">
</SCRIPT>
<NOSCRIPT>
<A HREF="
http://ad.it.doubleclick.net/jump/xoom.it/membersarea;area=membersarea;abr=!ie4;abr=!ie5;sz=468x60;ord=4043
?">
<IMG SRC="
http://ad.it.doubleclick.net/ad/xoom.it/membersarea;area=membersarea;abr=!ie4;abr=!ie5;sz=468x60;ord=4043
?" BORDER=0 WIDTH=468 HEIGHT=60>

Newsgroup: it.comp.lang.pascal
Titolo: crittografia

dove posso trovare un programma di crittografia in pascal?

 ha scritto nel messaggio
news:xmH46.5756$FF1.3...@twister1.tin.it...


 ha scritto nel messaggio
news:xmH46.5756$FF1.3...@twister1.tin.it...


 FATTELO DA SOLOOOOOO se no ti becchi un bel 17 all'esame!!!!!!!!!!!
Allora c'è anche qualcun'altro sotto esame!!!!
Cmq non è difficile implementarne uno, dipende sempre da cosa devi
proteggere.........

Newsgroup: it.comp.lang.pascal
Titolo: Procedura Dispose

Cosa fa esttamente la procedura Dispose?
Il mio dubbio č questo...
Ho una lista, formata da un puntatore che punta ad una serie di record di
due campi: uno dove sta il dato (un intero ad esempio) e un altro puntatore
per il record successivo...
Type TLista = ^TRec
         TRec = Record
                         i: Integer;
                         Prox: TLista;
                      End;
P -> i|Prox -> i|Prox -> i|Prox -> nil
Temp -> i|Prox
Questa č la situazione iniziale.
Poi faccio
  Temp^.Prox:=P;
  P:=Temp;
A questo punto se faccio Dispose(Temp) perdo anche Temp^.Prox nonostante sia
puntato dal puntatore P, oppure solo in questo particolare caso viene
eliminato solo il puntatore e non la variabile puntata?
Spero che qualcuno mi sappia spiegare bene come funziona :\

Dispose dealloca la memoria dell'oggetto passato e basta
Var
   P, P1 : PMioPunt;
P := MioPunt
P1 := MioPunt^.Next;
Dispose(P) // elimina MioPunt e basta
Dispose(P1) // elimina MioPunt^.netx e basta
Ovviamente se
P := MioPunt;
P1 := P;
Dispose(P) o Dispose(P1) cancellano la stessa cosa
--
Ciao,
David (
www.utilityweb.net
)

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per trovare il Turbo Pascal for Windows

Ciao ragazzi,
temo che il Turbo Pascal per Windows non sia più in vendita, vero?
Allora, non c'è nessuno che può dirmi dove scaricare il Turbo Pascal
for Windows (1.0 o 1.5) o è magari tanto gentile da mandarmi per
e-mail il programma in un file .zip?
Ho già trovato diverse versioni del Turbo Pascal per DOS (la 1.0, la
3.2, la 5.5...) e vorrei provarne anche qualcuna per Windows.
Se qualcuno pensasse a Delphi, fa già parte della mia collezione. :-)
Credo che siano freeware (almeno il Delphi 1.0 dovrebbe esserlo
diventato). Se lo fossero, che ne direste se aggiungessi una pagina
"download" al mio sito.
E' un semplice interesse filologico - nessuno condivide la mia
passione per i vecchi computer e programmi?
Ciao a tutti
Michele

 ha scritto nel messaggio
news:3bb0925e...@news.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: File .SWG - .DIZ

Ciao tutti!!!
Ho scaricato swang dal sito ( 
www.pascallike.too.it
 ).Una volta estratto i
file ho visto che avevano estensioni .swg  e  .diz  invece di essere .pas.
Come si aprono questi file???
Grazie.

 ha scritto nel messaggio
news:tFER9.79430$TC5.2...@twister1.libero.it...


Nella sezione Tools ho scaricato Swang 1.0 (8,30Kb) collezione di codici
sorgenti e programmi scritti in pascal.....
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:TaFR9.72386$R45.3...@news2.tin.it...


 ha scritto nel messaggio
news:hiFR9.79991$Ou4.2...@twister2.libero.it...


Ok grazie.
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:XXIR9.73562$R45.3...@news2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: ... #turbopascal seriamente

Vegeta... e tutti quelli che sono entrati una volta l'hanno visto
vuoto e se ne sono andati (sconsolati o meno) non fate i timidi
riprovate di sera č qusi pieno (con punte anche di 4 persone :o) )
Metiamoci d'accordo per un ora tipo dalle 22 alle 23 e ci ritroviamo
tutti li... se no la vedo un po' inutile non č un canale tipo #italia
che ci sono 24mila anime 24 su 24... percui senza organizazione non ci
incontreremo mai "dal vivo"
-----------------
per vivo il Razziatore intendeva dire in modo diretto, con botta e
risposta...
----------------
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ICQ     : 67552596
Ciao!!!
'l rasune'

Se posso, kome mai questo nick???
Ciao,
Dark Angel


Per me va bene.... ragionier Ugo Fantocci... ah no... mi scusi... rag. Ugo
Pupazzi
;)
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   \/   \_/

> Metiamoci d'accordo per un ora tipo dalle 22 alle 23 e ci ritroviamo
capita piu' spesso che ci troviamo fra le 21 e le 22 :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 Dark Angel
Ciao a te!
'l rasune'
-----
Sao ko kelle terre, per kelle fini que ki contene,
trenta giorni le possette parte Sancti Benedicti.
( placiti cassinesi )

 \_/   \/   \_/
Saluti a te!



Dove???  o_O
----------------------------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Stampare grafica col pascal

Ciao mi chiamo Gianframco e mi diverto a creare programmi
col Turbo Pascal
6.0. Ho un computer pentium III con sistema operativo Windows 98 SE. Il mio
problema è che non riesco
a stampare le immagini da me create senza
copiarle negli appunti e passarle ad un altro programma come ad Es.
Notepad, Word, ecc.. Potete aiutarmi?
Un saluto Gianfranco!
--------------------------------
Inviato via 
http://usenet.iol.it

 Notepad, Word, ecc.. Potete aiutarmi?
temo di no(potresti mandare i dati sulla parallela, ma avresti bisogno di un
driver per ogni stampante), ma col tuo computer passa a Delphi 6 personal(č
gratis) o a un'altra versione, cosě vai con windows e hai metodi
adatti(anche se ci vuole un po' di bordello per i programmi grafici, col
ridisegno quando riduci a icona... ecc.) e poi stampare diventa (penso) come
scrivere a video.
Da DOS, potresti usare postscript, se la stampante lo supporta(le laser lo
fanno, le altre non so). Oppure usare postscript e stamparle con un
programma esterno come GhostScript( non ho il link sottomano) comunque non
penso sia banale usare postscript.
Ciao
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

Newsgroup: it.comp.lang.pascal
Titolo: for interminabile

io ho questo listato, preso paro paro da un libro che sto studiando.
nell'esecuzione del for secondo quanto dice il libro una volta raggiunto
5 dovrebbe uscire dal for e darmi il risultato e invece continua a farmi
inserire numeri all'infinito!
voi lo vedete l'errore?
program summation;
const amountOfInput=5;
var sum:integer;
    number:integer;
    index:integer;
begin
     sum:=0;
     write('input');
     for index:=1 to amountofinput do
         begin
              read(number);
              write(number);
              sum:=sum+number;
         end
         writeln;
         write('la somma e'' ',sum);
end.

sull' end del for ovviamente c'e il ;


 >
     Andrea è scritto correttamente....a me funziona perfettamente..!!! Ed
uso il Tp 7.0 sotto Dos, ciao
^_][ice][man][_^

sono in ginocchio sui sassi appuntitti per rimediare alla minchiata di domanda
che ho fatto :)

Newsgroup: it.comp.lang.pascal
Titolo: Random

Ma questa funzione non dovrebbe dare un numero a caso ?
Mah... Avviando più volte lo stesso programma vengono restituiti sempre gli
stessi valori in successione.
numero:= Random (20) da valori ad es. 1, 1, 10, 2 ,0, 14..
Se si riavvia lo stesso programma avremo di nuovo 1, 1, 10, 2, 0, 14...
Come bisogna fare per avere numeri SEMPRE diversi ?
_________________________________
#ICQ: 17079401
http://quartaa.cjb.bet
_________________________________
-->René<--
:-)

you wrote :
#Ma questa funzione non dovrebbe dare un numero a caso ?
#Mah... Avviando più volte lo stesso programma vengono restituiti sempre gli
#stessi valori in successione.
#numero:= Random (20) da valori ad es. 1, 1, 10, 2 ,0, 14..
#Se si riavvia lo stesso programma avremo di nuovo 1, 1, 10, 2, 0, 14...
#Come bisogna fare per avere numeri SEMPRE diversi ?
Usare Randomize all'inizio del programma.
begin
  randomize ;
  ...
end.
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: maxint....

maxint funziona solo con le variabile intere o anche con
quelle reali?
Se no esiste un comando analogo per i reali?
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

Se no esiste un comando analogo per i reali?
Un comando analogo non esiste.
Il TP prevede 5 tipi a virgola mobile :
real     (48 bit) , 11-12 cifre significative (2.9e-39 .. 1.7e38)
single   (32 bit) ,  7- 8 cifre significative (1.5e-45 .. 3.4e38)
double   (64 bit) , 15-16 cifre significative (5.0e-324 .. 1.7e308)
extended (80 bit) , 19-20 cifre significative (3.4e-4932 .. 1.1e4932)
comp     (64 bit) , 19-20 cifre significative (-9.2e98 .. +9.2e98)
Il tipo "comp" pero' e' un intero a 64 bit.
Puoi pertanto definire le seguenti costanti :
type MaxReal     : real = 1.7e38;
type MaxSingle   : real = 3.4e38;
type MaxDouble   : real = 1.7e308;
type MaxExtended : real = 1.1e4932;
type MaxComp     : real = 9.2e98;
In ogni caso, conoscendo il formato floating point sul quale stai lavorando (es.
bit di segno, numero di bit per esponente e numero di bit per mantissa)
conoscendo la base (2, 16 ...) sulla quale e' basato il tipo, si puo' calcolare
il massimo valore.
Andrea Laforgia
---------------
(grattatio pallarum omnia mala fugit)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.pascal
Titolo: R: TP7 (viste le richieste)

ehi ma ci sei anche qui...allora è vero che spazi dappertutto ;-)

> ehi ma ci sei anche qui...allora è vero che spazi dappertutto ;-)
..no ma qui e' solo una questione di compilatore .. io l'ho messo su
spippolatori..uno l'ha trovato..poi lo ha rivelato..poi l'ho tolto.. diversi
si sono incazzati ( %-P ) .. allora l'ho rimesso.

 
che ha fatto, porello?? :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
Guida Pratica alla Scienza Moderna:
	1 - Se e' verde o si muove, e' biologia.
	2 - Se puzza, e' chimica.
	3 - Se non funziona, e' fisica.
		-- Giuseppe Di Paolo

 che ha fatto, porello?? :-)
ha ha .. ma sono anni che ci stanno a scassare le balle con .."vuoi
diventare ricco? .. guarda cos'e' successo ad un ragazzo olandese di nome
Rasmus Lino.." .. e giu' catene di S.Antonio. . :))
Son dei rompicoglioni a tempo pieno .. una via di mezzo tra Socrate e i
testimoni di Geova. :))
(Socrate come rompicoglioni era imbattibile!)

 
gia', ma era un valido rompi coglioni... :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
Seconda Legge di Clarke:
	L'unica maniera di scoprire i limiti del possibile e' di
	oltrepassarli e finire nell'impossibile.

gia', ma era un valido rompi coglioni... :-)
  I rompicoglioni sono tutti validi quando si giudicano allo specchio mentre
i tolleranti non si guardano allo specchio ma sono severi nel giudicare i
rompicoglioni le poche volte che lo fanno.
 I tiranni sbagliano nel giudicare i rompicoglioni ma dall'errore traggono
spesso spunto per diventare tolleranti.  I Tiranni che diventano tolleranti
dopo un po' santurano tanto la loro indole da diventare dei rompicoglioni.
  e cosi' via.. :))) Aristotele permettendo..

non so se sono pronti per tutto ciň! non sei su ahccc ;))

>non so se sono pronti per tutto ciň! non sei su ahccc ;))
.hi hi hi.. ma pensa che (anche se qui non lo sanno .. o qualcuno, visti gli
attuali frequentatori, lo
potrebbe anche sapere ma non se ne rende conto) a suo tempo postavo fisso su
questo ng (ovviamente con altro nick) . :)) .. roba d'altri tempi.

 
e' una frase troppo filosofica, la leggero' ogni sera prima di andare a
letto, finche' libero mi permettera' l'accesso ad ahccc, poi saro' pronto :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
Nessuno puo' essere esattamente come me.  Qualche volta anch'io ho dei
problemi nell'esserlo.
		-- Tallulah Bankhead

letto, finche' libero mi permettera' l'accesso ad ahccc, poi saro' pronto
:-)
 he he .. ma guarda che haccc si vede un po' dappertutto.
 Prova col newsgroup del Ministero del Tesoro .. ( oih oih oih :)) )
 news://
news.tesoro.it
   .. e' pubblico anche quello del resto. :))
Newsgroup: it.comp.lang.pascal
Titolo: Eseguire da exe comandi nella casella esegui di Win98

Come si può fare perchè un programma pascal compilato possa eseguire dei
comandi come se gli stessi venissero inseriti nella casella esegui di
Win98??! (Per esempio mailto:
no...@provider.it
 oppure
http://www.nome.it
)
Ciao e grazie.
Berny.

Dal prompt e' disponibile il comando "start <quellochevuoi>"
che apre l'applicazione predefinita':
questo funziona sotto win2k:
Exec( 'c:\winnt\system32\cmd.exe' , '/c "start
mailto:
drea...@liberoDALLASPAM.it
  " ' );
sotto 98 penso basti chiamare 
command.com
 invece di cmd.exe
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Funziona perfettamente!
Ma ora, volendo per esempio specificare in automatico l'oggetto o ancora
allegare sempre in automatico un file?
Ciao e grazie 1000.
Berny.
Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:_65S6.11714$ZZ.4...@news.infostrada.it...


beh questo non e' piu' pascal, ma outlook :-)
non ho idea, fai un po' di esperimenti tu e vedrai che qlcs
scopri... ad es esiste nel meno "invia a" il comando
"destinatario posta" ... magari da li puoi ricavare qlcs


Newsgroup: it.comp.lang.pascal
Titolo: Programmi esterni

 e i parametri??
Leggere bene: exec(PROGRAMMA, PARAMETRI);           {scusa
la maleducazione }
cioè: exec('c:\windows\desktop\???',parametri);
{notare apici per la stringa}
--
Paolo Giarrusso

 cioč: exec('c:\windows\desktop\???',parametri);


Newsgroup: it.comp.lang.pascal
Titolo: LEGGIMI FARAI UN'OPERA BUONA

Rispondi 
a:ME5...@mclink.it
S.O.S.
Cerco disperatamente materiale on line,tipo dispense o appunti universitari
su 2 argomenti: algoritmi e linguaggio Pascal.
Non essendo uno studente di ingegneria o informatica il mio problema č che
siano scritti in maniera accessibile e che non presuppongano una grande
conoscenza matematica.
Il mio eame di inf.generale incombe. AIUTATEMI!!!!


Newsgroup: it.comp.lang.pascal
Titolo: Liste dei file in una directory

Vorrei sapere se esiste un qualche modulo (intendendo sia procedure che
function che moduli esterni) che mi permette di avere la lista dei file e
delle directory presenti in una tale directory.
Inoltre verrei sapere se esiste qualche modulo che mi fornisca la directory
in cui il programma è in esecuzione.
Premetto che utilizzo un editor/compilatore Turbo Pascal 7, ma non conosco
il Turbo Pascal.
Ringrazio da adesso tutti coloro che vorranno aiutarmi.
--
----------------------------------------------------------------
Francesco Trotta
----------------------------------------------------------------
elimina x_ dall'indirizzo email
----------------------------------------------------------------
http://www.a-vip.com/francesco.trotta
----------------------------------------------------------------


Se è quello della Borland... guardati l'help... è già tutto fatto.
Se è un altro, ti ci guardo io. (Adesso è l'1.06)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

Ti ringrazio molto e ti propongo un'altra domanda:
e se volessi sapere anche conoscere le sottodirectory presenti in una data
cartella?
--
Utilizza i tag per l'oggetto dei messaggi in questo newsgroup



Ho cercato un po' sull'Help... ma non ho trovato nulla.
Quindi provo ad indovinare... le directories non sono files con l'attributo
di directory??
Bohh??


Impara prima il pascal, e le chiamate del DOS int21h.
Sampo Soft © 1998.

RISPOSTA ESATTA

ESAGERATO
deve imparare il pascal non l'assembler.
Gli basta saper utilizzare la UNIT DOS
Newsgroup: it.comp.lang.pascal
Titolo: TUTTO SKERMO

Salve, esiste un modo (tipo una procedura)  per far avviare un programma a
skermo pieno in modalià testuale (quindi non con initgraph) senza ricorrerre
ad  ALT+INVIO? Cioè in modo ke il prog lo faccia da solo e non tramite
l'utente.
Grazie.

skermo pieno in modalià testuale...
 Se hai l'eseguibile, in pratica il file .EXE compilato.. scegli
da Windows (menu "Proprietà") come il programma MS-DOS deve essere
lanciato.
Saluti.
--
    _
 Fa/_)io         A1200 PowerTower, WB 3.9, 060@60, 64MB, FireBall 13GB,
  /__)enedetti   Voodoo3, Digicom-10/100, Philips PCRW1208 - TFT-140/S.
/...mi ritornu in cantari/

era una cosa ke mi sono dimenticato di scrivere nel mio post:
"... ke non sia tasto destro/proprietà (ecc...)...."
grazie lo stesso dell'interessamento.
DARK

beh puoi tentare di switchare avanti e indietro ad una modalita'
grafica, cosi' win manda il prompt a tutto schermo, e li rimane...
Basta anche 320x200, quindi questo:
Procedure FullScreen; assembler;
  asm
   MOV     ax,0
   MOV     al,$13
   INT     $10;
   MOV     ax,0
   MOV     al,$03
   INT     $10;
  end;
dovrebbe bastare... non fa altro che passare a 320x200 e tornare
in modalita' testo...
--
Dreadnaut
(Life would be easier if I had the source code)

"... ke non sia tasto destro/proprietà (ecc...)...."
 Credo allora che non sia possibile.
Saluti.
--
    _
 Fa/_)io         A1200 PowerTower, WB 3.9, 060@60, 64MB, FireBall 13GB,
  /__)enedetti   Voodoo3, Digicom-10/100, Philips PCRW1208 - TFT-140/S.
/...qan mi soven dels bels digz amoros e dels plazers qe.m saubetz far/

Grazie! Kazzo, 6 grande!   :-)
P.S.: Da dove potrei iniziare x l'assembler?

> P.S.: Da dove potrei iniziare x l'assembler?
hihihi non ne ho idea :-)


> hihihi non ne ho idea :-)
Simpatico!   ;-)

no seriamente... quelle 4 righe sono quelle per cambiare modalita'
video, le trovi nel 90% delle unit per la vga... quindi alla fine le
impari... se vuoi studiare seriamente l'assembler, beh non e' il mio
campo, ne so' +/- zero... prova a cercare n ng sull' asm :-)

Newsgroup: it.comp.lang.pascal
Titolo: divison by zero in processori pII

Ciao a tutti, sono nuovo di questo NG (e anche di pascal)
Ho iniziato ieri il mio primo programma (costituito da soli
writeln e readln!). Avevo già sentito parlare del bug del pascal,
che quando si scrive "uses crt;" viene dato un errore di divisione x
0...
Qualcuno sa indicarmi dove posso trovare una path in proposito?
Grazie...

http://utenti.lycos.it/pascallike/tools/crt.rar
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

grazie...

Newsgroup: it.comp.lang.pascal
Titolo: Matrici e ricorsione

Vorrei chiedevi una cosa,esiste un algoritmo standard per esaminare tutte le
posizioni di una matrice ricorsivamente?
Praticamente l'esercizio ke devo svolgere e qst:
Scrivere un algoritmo ricorsivo ke ricerca in una matrice [NxM] se nelle
righe pari sono riportati solo numeri pari e nelle righe dispari solo numeri
dispari.
Ciao!

 ha scritto nel messaggio
news:7EgT8.20052$vm5.7...@news2.tin.it...

potresti fare cosi':
for k:=1 to n do
  for j:=1 to m
     if ((j mod 2=0) and (matrice[k,j] mod 2 =0) ) or ((j mod 2<>0) and
(matrice[k,j] mod 2 <> 0))
       then
       else flag:=1;
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

        else flag:=1;
Andrà anche bene ma non è ricorsiva.

 >        else flag:=1;
Ti ringrazio per la risposta ma effettivamente io cercavo un algoritmo
ricorsivo.

 ha scritto nel messaggio
news:ULUT8.21797$Jj7.5...@news1.tin.it...

Tutto gli algoritmi iterativi possono essere trasformati in iterativi e
viceversa
se  prendi questo algoritmi poi riscriverlo cosě
passando flag =true;
procedure pippo (Matrice, n. m, var flag);
     if flag and n>0 then
         i=1;
         while i>=1 and flag
              if ((i mod 2=0)  flag=(matrice[n,i] mod 2 =0)
              else flag=(matrice[n,i] mod 2 <>0)
              i=i+1;
         end
         pippo(Matrice,n-1,m,flag);
     end;
Dovrebbe funzionare e volendo la puoi far divetare una funzione
Ciao ReDiCuori
--
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

 L'informatica è un arte


 > L'informatica č un arte


> burattini?
marionette ?!?
--
Dreadnaut
(Life would be easier if I had the source code)

DOVREBBE ESSERE IL PROF. CHE HA DATO L'ESERCIZIO!!!
Dreadnaut <Drea...@liberoDALLASPAM.it> wrote in message
v5oW8.11272$K_4.2...@twister1.libero.it...


> DOVREBBE ESSERE IL PROF. CHE HA DATO L'ESERCIZIO!!!
immaginavo... ma non ho resistito a sparare la ca**ata :-)

Newsgroup: it.comp.lang.pascal
Titolo: Torre di Hanoi

Qual è l'agoritmo ricorsivo che risolve questo semplice problema che mi
sta facendo impazzire da alcuni giorni?
Grazie 1000!

Program torre_hanoi (input, output);
const dischi  =  4;
type piolo  =  'A'..'C';
var  i, mossa :  integer ;
procedure muovi(nd: integer ; pP, pA: piolo);
begin
     mossa := mossa + 1;
     write(mossa: 3);
     writeln(': Muovere disco  ',  nd, '  da  ',  pP, '  a  ',  pA)
end;
procedure hanoi  (n: integer ;  pioloP,  pioloA,  aus: piolo);
begin
     if n = 1 then
         muovi(1,  pioloP,  pioloA)
     else  begin
         hanoi(n - 1,  pioloP,  aus,  piloA);
         muovi(n,  pioloP,  pioloA);
         hanoi(n - 1,  aus,  pioloA,  pioloP)
     end
end;
begin
    mossa := 0;
       writeln('Mosse per spostare   ', dischi,  ' dischi');
       writeln('---------------------------------------------');
       hanoi(dischi,  'A',  'B',  'C');
       readln;
end.
Prova
Ciao, Giuseppe
--


Ancora grazie 1000!

Var NumeroDischi : integer;
Procedure trasferisci (Disco,Partenza,Destinazione,Sosta : integer);
Begin
 if Disco>0 then Begin
                  {muove da Partenza a Destinazione}
                  trasferisci(Disco-1,Partenza,Sosta,Destinazione);
                  trasferisci(Disco-1,Sosta,Destinazione,Partenza);
                 End;
End;
BEGIN
 readln(NumeroDischi);
 trasferisci(NumeroDischi,1,3,2);
END.
Ciao
Andrea C
Newsgroup: it.comp.lang.pascal
Titolo: ctrl break

avete idea di come nascondere il ctrl break o il ctrl+c? entrambi
uccidono le applicazioni.
Se sapete come fare scrivetemi se potete un minuscolo esempio 
(preferibilmente che sia compatibile pure con freepascal dos/win)
il mio sito e' 
http://web.tiscali.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Spero di non sparare qualke kazzata ma mi sembra di ricordare il "booleano"
Checkbreak da settare su true o false:
True --> l'utente può interrompere l'applicazione.
False --> l'utente non lo può + fare.
Checkbreak:=False;
l'help del TP ti fornirà migliori kiarimenti!
--
DArK
===============================
        ThE DArKneSS Is JuST DArK
===============================

Checkbreak da settare su true o false:
Anche io mi ricordo cosi
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: Qualcuno della Sapienza al 1° anno??

Salve se hai aperto questo post sicuramente avrai sentito parlare del 2°
modulo,
ecco io non ho capito una cosa, come devono essere strutturate le tre
procedure (is...,is..,is...) per far sì che alla fine mi diano un albero??
O sbaglio, cioè non è questo il ragionamento?
Grazie.

Tommygun ha scritto nel messaggio ...

???
Ma che sta' a' dì?
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
    /\   /\
\_/  V   \_/

 wrote in message
O3xN6.7655$Ql3.3...@news.infostrada.it...


 Grazie.
Nessuno ti risponderà se sei così chiaro a esprimerti
(potrai al massimo essere mandato a farti benedire).

 wrote in message
9giucv$jh6$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Interfaccia grafica con Pascal

Devo fare una interfaccia grafica con il Pascal con pulsanti, textbox, ecc.
Non posso usare ovviamente il Delphi e non posso usare Turbo Vision perché
devo usare anche la libreria graph per gestire dei grafici.
Qualcuno sa come posso fare?

 Qualcuno sa come posso fare?
lazarus.freepascal.org
[non mi pare però che ci sia la versione win32 disponibile per ora]
Altrimenti, sempre con Freepascal ti interfacci direttamente alle API di 
Windows... ma sinceramente non l'ho mai provato.
Ciao,
   Luca

 Windows... ma sinceramente non l'ho mai provato.
grazie mille! adesso vado nel link che mi hai suggerito! cmq il programma
deve essere in dos, non in windows, quindi niente API :)

 deve essere in dos, non in windows, quindi niente API :)
Quindi a te serve una libreria in grado di gestire graficamente (e non 
testo) finestre, pulsanti e così via in dos?
Hmmm... non saprei, non mi è mai capitato di dovermi porre questo problema.
Io usavo Turbo Vision ai tempi che furono... ma questo è in modalità 
testo (potevi fare interfaccie molto carine però).
Forse esiste qualcosa online... ma probabilmente avresti più speranze di 
successo con Linux che con Dos.
Ma come mai _deve_ essere in dos e non in windows?
Ciao,
   Luca

 Ma come mai _deve_ essere in dos e non in windows?
io dovrei usare il modulo graph e in Windows non esiste (o se esiste non lo
so usare ;) )...
dovrei fare un grafico che varia in base a dei valori. Vorrei che questi
valori si potessero inserire tramite delle text-box.
Forse ho trovato delle unit su 
www.freepascal.org
 per creare interfaccie in
stile XP (!!!!)... spero che vadano bene!
Turbo Vision è carino ma, come hai già detto tu, è solo per la modalità
testo; è un peccato perché gestiva i menù, finestre, ecc.
Grazie ancora

 interfaccie in stile XP (!!!!)... spero che vadano bene!
temo che siano quelle create con le api di windows...
-- 
Dreadnaut
(Life would be easier if I had the source code)

> temo che siano quelle create con le api di windows...
no no. Si basa su una ventina di bitmap che SIMULANO la grafica di WinXP
(per la precisione quella blu, tanto per intenderci). Ho compilato tutto
(una marea di unit...) ma gli esempi non partono! Mi da un errore quando
inizializza (si dice così?) la grafica! Ho controllato le path, di aver
compilato tutto, ecc. ma niente. Boh.
Il bello è che è un errore della unit, non del Pascal vero e proprio :-?

 testo; è un peccato perché gestiva i menù, finestre, ecc.
Scarica il dev-pascal (include il freepascal, funziona da windows ed ha
molte facilitazioni per la grafica... ed è freeware) fidati.
Newsgroup: it.comp.lang.pascal
Titolo: Chi sa come?

Come faccio in Pascal a pulire la schermata del programma?
E a fermare l'esecuzione di un programma per un numero di secondi definito
da me?
Un pò come il "clear" e lo "sleep n" sotto unix per chi lo conosce,,,,,
ciao e grazie
Glorfindel

X cancellare lo schermo
ClrScr;
Per fermare il progz:
Delay(Millisec);
--
By Ser Kill
"The life is in my code..."
"Basta una scintilla e zac, il cervello ti si fonde, mentre
 prima potevi avere una vita "normale" ora sarai solo nel tuo silenzio"

 Delay(Millisec);
Ari tnx   ^_^
Glorfindel

 Come faccio in Pascal a pulire la schermata del programma?
uses crt;
begin
    clrscr;
    {resto del tuo programma}
end.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Newsgroup: it.comp.lang.pascal
Titolo: AIUUUTO!!! PER UNIVERSITA'!!

Chi mi puņ aiutare nel scrivere un programma??
Devo progettare il gioco del Master Mind in pascal , ho una traccia da
seguire.A chi č disposto la posso spedire.
ciao dani


scommetto che e' il progetto di programmazione1.
L'ho fatto anch'io il master mind pero' ancora non lo consegno......e
c'ho l'esame fra 15 giorni.
Ti potrei postare il file .pas che ho fatto io pero' prima mi devi
dire in che universitą ti trovi.......non vorrei che facessi la mia
stessa universitą e poi ci troviamo a consegnare lo stesso progetto
pur stando in gruppi diversi.
Ciao. 
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054


Cara Daniela prova a spedirmi la traccia da seguire e se ho tempo guardo se
ti posso aiutare.
Ciao

seguire.A chi č disposto la posso spedire.
Spero ti possa essere d'aiuto :
program MasterMind ;
type TipoCombinazione = string [4] ;
     TipoRisultato    = string [4] ;
var Elementi      : string [8] ;
    CombSegreta   : TipoCombinazione ;
    CombGiocatore : TipoCombinazione ;
    Responso      : TipoRisultato ;
    Vincita       : boolean ;
    I             : integer ;
function AnalizzaCombinazione ( C1 : TipoCombinazione ) :
TipoRisultato ;
var RNeri, RBianchi : TipoRisultato ;
    I : integer ;
begin
  RNeri := '' ;
  RBianchi := '' ;
  for I := 1 to 4 do
    if (C1[I] = CombSegreta[I]) then RNeri := RNeri + '*'
  else
    if (pos(C1[I], CombSegreta) > 0) then RBianchi := RBianchi + '.' ;
  AnalizzaCombinazione := RNeri + RBianchi ;
end ;
procedure CreaCombinazioneSegreta ;
var Indice : integer ;
begin
  randomize ;
  Elementi := 'ABCDEFGH' ;
  CombSegreta := '' ;
  for I := 1 to 4 do
  begin
    repeat
      Indice := random ( 8 ) + 1 ;
    until pos(Elementi[Indice], CombSegreta) = 0 ;
    CombSegreta := CombSegreta + Elementi[Indice] ;
  end ;
end ;
begin
  Vincita := FALSE ;
  CreaCombinazioneSegreta ;
  writeln ( 'Master Mind 4/8' ) ;
  I := 0 ;
  repeat
    inc ( I ) ;
    write ( I:2,'->' ) ;
    readln ( CombGiocatore ) ;
    Responso := AnalizzaCombinazione( CombGiocatore ) ;
    Vincita := (Responso = '****') ;
    writeln ('Risposta : '+Responso ) ;
  until ( I = 10 ) or Vincita ;
  if Vincita then writeln ( 'Hai vinto !!!' )
  else writeln ( 'Spiacente ! hai perso !' ) ;
end.

LINGUAGGIO  PASCAL
1) In che tipo di iterazione si usa l'if condizionato?
2) Come sono strutturate le istruzioni if, for, while, repeat?
3) Che cosa boolean e a che tipo di dati si riferisce?
4) che cos'è l'array?
Vi Ringrazio anticipatamente per il vostro aiuto.
Rocco.

 ciao dani
Ciao Daniela,
ho un mio amico che lo ha già fatto e ti assicuro che è veramente carino e
fatto bene.
Il mio amico si chiama Daniele Cruciani (ha già scritto anche qualche
e-mail su questo gruppo) il suo indirizzo di posta è
cruci...@tiscalinet.it
Scrivigli e senti se può spedirtelo.
Ciao!
P. S. Se ti interessa sta risistemando il programma proprio in questi
giorni per renderlo utilizzabbile anche con il mouse! Scrivi a lui per
magiori informazioni.
Newsgroup: it.comp.lang.pascal
Titolo: HELP (Windows/MCI): how to use the MCI_SysInfo command

Hello to all.
I'm writing a CD Player program under Windows 3.1x, wich uses MCI. I need
to obtain how many CD-ROM drives are installed on a computer (I'm going to
support up to 10 drives). The MCI command MCI_SysInfo should make the job,
shouldn't it? This is my procedure, written in Turbo Pascal for Windows 1.5
(but very easy to understand to C++ programmers, too):
procedure CDROM_Drives_Count;
var Info : TMCI_SysInfo_Parms; Options, Result : Longint;
      Names : array [0..9] of PChar; NrDrives : Longint;
      i, Stop : Byte;
  begin
    {I want to query about CD Audio device} 
    Info.wDeviceType := MCI_DevType_CD_Audio;
    {I want to know how many drives are installed}
    Options := MCI_SysInfo_Quantity;
    {send the command: by now I don't care about Result; but I have a
doubt: SysInfo is sent directly rather than to a specified device, so I
think I can leave 0 the wDeviceID parameter of mciSendCommand, but I'm not
sure}
    Result := mciSendCommand (0, MCI_SysInfo, Options, Longint (@Info));
    {with the MCI_SysInfo_Quantity, lpstrReturn is also used to return a
DWORD, so a Longint}
    NrDrives := Longint (Info.lpstrReturn);
    {now I'm going to get the name of each CD Audio device and put them in
the Names array}
    Options := MCI_SysInfo_Name;
    {I'm going to support up to 10 drives, from 0 to 9, no more}
    if NrDrives > 10 then Stop := 9 else Stop := NrDrives - 1;
    {now repeat this operation Stop + 1 times}
    for i := 0 to Stop do
      begin
         {get the name of device i}
         Info.dwNumber := i;
         {send the command}
         Result := mciSendCommand (0, MCI_SysInfo, Options, Longint
(@Info));
         {put the returned name into the Names array; dwRetSize specifies
the size of the returned string}
         StrLCopy (Names[i], Info.lpstrReturn, Info.dwRetSize - 1)
     end
  end;
Now I should have the name of each drive in Names[DriveNumber]. I should be
able to get their wDeviceID with the mciGetDeviceID function.
First of all, is this procedure right? Am I mistaking something?
Well, this procedure hangs at two points:
1) Info.wDeviceType := MCI_DevType_CD_Audio;
    [...]
    Result := mciSendCommand (0, MCI_SysInfo, Options, Longint (@Info));
I tested it a lot of times and I found that the value of Info.wDeviceType
is not the value I want it to assume. It should assume the constant ID of
the "cdaudio" device type, but the program hangs (general protection
fault)! Why?
2) StrLCopy (Names[i], Info.lpstrReturn, Info.dwRetSize - 1)
Why doesn't this statement work? The procedure hangs (general protection
fault)! I really don't know why!
If you can help me, please please please put my e-mail address
(
maur...@tin.it
) in the Cc: field of the reply. Moreover, if anyone can
suggest any GOOD documentation about MCI devices (with some examples), I'll
be grateful if he could contact me.
Thank you in advance.
-- 
Mauro Molinari
Internet e-mail: 
maur...@mbox.vol.it
 / 
maur...@tin.it

 wrote:
ma perche' scrivi in inglese ?