mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Elenco di files di una directory

Salve a tutti.
Problema veloce, a cui spero troviate una soluzione piu' elegante e 
funzionale della mia.
Ho una directory in cui "ogni tanto" un altro programma deposita dei 
files.
Un secondo programma necessita sapere "ogni tanto" quali files di un 
certo tipo sono presenti in quella cartella.
Mi spiego meglio. Il primo programma deposita dei files che possono 
avere questi nomi:
PYONNnnn
PYPNNnnn
OBQNNnnn
FRTNNnnn
Con NN variabili alfanumeriche, e nnn variabili numeriche.
Quello che devo ottere e' un file (che chiamiamo ad esempio dir_OBQ.txt) 
in cui ci siano elencati tutti i files attualmente presenti del tipo
OBQ*.* 
La cosa sarebbe fattibilissima con un semplice comando DOS del tipo
   DIR /B OBQ*.* > dir_OBQ.txt
e fin qui non ci piove.
Problema. Per una assurda implementazione del secondo programma, se non 
esistono files di quel tipo, lui vuole che nel file dir_OBQ.txt, ci sia 
scritto **NULLA** (asterischi compresi), mentre se eseguo il programma 
su un sistema operativo italiano mi trovo un "file non trovato".
Per ora ho risolto in questo modo. Eseguo una chiamata al 
command.com
 e 
gli faccio reindirizzare l'output del DIR in un file temporaneo. Poi lo 
apro con Pascal e se e' composto di una sola riga e la prime tre lettere 
non sono OBQ, allora scrivo il file NULLA, altrimenti lo copio pari 
pari.
Non facciamo commenti sulla assurdita' di tutto questo...
Qualcuno di voi ha in mente una soluzione piu' elegante? Qualcosa che 
non esegua chiamate al DOS ma esegua tutto direttamente?
Un mio collega ha escogitato un trucco.
Guardo se esiste il file OBQAA000, poi il file OBQAA001, e cosi' via 
fino ad arrivare al file OBQZZ999. E' vero che in questo caso non faccio 
chiamate al 
command.com
, ma mi pare una soluzione alquanto "poco 
funzionale".
Vi prego, aiutatemi :-D
-- 
     __         ____         | We don't need no education.
 __ / /__  ___ / __/__ __ __ | We don't need no thought control.
/ // / _ \/ -_) _// _ \\ \ / | All we need is another brick in the wall
\___/\___/\__/_/  \___/_\_\  | ICQ UIN: 61571298

FindFirst / FindNext possono fare al caso tuo, con un ciclo simile a
questo
[
 uses Dos;
 var
    cerca: SearchRec;
]
 FindFirst( 'OQB?????.*', Archive, cerca);
 if DosError <> 0 then
  writeln(fileoutput, '**NULLA**')
 else
  while DosError = 0 do
   begin
    if nome_va_bene (cerca.Name )
     writeln (fileoutput, cerca.Name);
    FindNext(cerca);
   end;
la funziona nome_va_bene(string):boolean deve controllare
che il nome sia effettivamente OQB<2lettere><3numeri> e
fileoutput: text e' il file .txt che vuoi creare
-- 
Dreadnaut
(Life would be easier if I had the source code)

 questo
Non l'ho ancora provato, ma a prima vista, per le poche conoscenze che ho 
del pascal e' piu che perfetto.
Ringraziare infinitamente e' il minimo che posso fare.

Newsgroup: it.comp.lang.pascal
Titolo: Applicazioni.

Saluti a tutti,
  una curiosità, ma che tipo di applicazioni è che state sviluppando (non
scolastiche) in Pascal (non Delphi) ?????
Ciao.


uso il pascal solo a scuola: sto realizzando una simulazione di una molla
con relativo grafico della velocità, energie, ecc; è finito al 99%... mi
manca solo il supporto del mouse

Newsgroup: it.comp.lang.pascal
Titolo: problema con borland tp 7.0

Salve a tutti, ho trovato questo problema: ho scritto un programma
abbastanza grosso in più unit. Al momento della compilazione mi si presenta
l'errore <data too large>. Come posso ovviare al problema?
( al momento del compiling adesso ho i seguenti messaggi:
 15274 lines, 1.8 seconds, 268640 bytes codes, 62830 bytes data )
Grazie

 l'errore <data too large>. Come posso ovviare al problema?
Hai provato a rendere dinamiche le grosse strutture dati usando i puntatori?
Per quanto ne so lo spazio occupato dai dati statici (dichiarati con var nel
corpo principale del programma o delle unit) non puo' superare i 64Kbytes
complessivi (64K per il prog.principale + 64K di dati per ogni unit). Le
variabili dinamiche invece possono occupare tutta la memoria disponibile (lo
heap del pascal) con il vincolo di 64K massimi per ciascuna variabile o
struttura.
ciao
Claudio


Come posso ovviare al problema?
Prova ad allocare dinamicamente (a tempo di runtime) le strutture dati nel
tuo programma.
Ciao.
Simone.

Newsgroup: it.comp.lang.pascal
Titolo: problema unit dos

Ciao
Sto studiando la unit dos ed ho incontrato subito un problemone.
Allora,....quando voglio lanciare un comando dos all'interno di un
programma pascal devo scrivere:
swapvectors;
exec (percorso del prog,parametri);
swapvectors;
Per esempio se voglio lanciare il programma doskey.exe devo scrivere:
exec (c:\windows\command\doskey.exe,'');
Ma se devo lanciare comandi come DIR o REN come faccio ?
Qual'e' il path di questi programmi ? 
In particolare mi serve di sapere come lanciare il programma dos REN
perche' sto facendo un programma in pascal che deve rinominare 50 file
all'interno di una directory.
Rigrazio anticipatamente tutti quelli che sapranno essermi d'aiuto.
Grazie.

 ha scritto nel messaggio
news:8eks2tspoeprk3a4l...@4ax.com...

Il codice per poter eseguire comandi dos è Exec('C:\
command.com
', '/c ***Tuo
comando****'), oppure se devi eseguire un comando batch al posto di /c usa
/k (se non mal ricordo ma basta che fai command /? al prompt e ti trovi
tutte le opzioni).
Ciao
Davide Carrara
Newsgroup: it.comp.lang.pascal
Titolo: Librerie pascal

Ho una domanda, come si fa per creare una libreria pascal? in che formato va
salvata?
grazie.

Fun_kid wrote:

Il turbo pascal prevede l'utilizzo di "Unit" che è strutturata come segue:
Unit nomechevuoidareallaunit; (sono al massimo 8 caratteri mi pare)
Uses altreunitchetiservonoquidentro;
Interface
    Procedure abcd( .... );
    Procedure bcde( .... );
    Function defgh( .... )  ecc ecc
Implementation
   Procedure abcd( ....);
   Begin
     corpo della procedura
   end;
e di seguito tutte le altre che hai dichiarato nella sezione Interface.
In pratica la differenza tra la unit e un programma è che manca il main 
program (che comunque in certi casi può servire lostesso e infatti puoi 
metterlo) e che in pratica è un elenco di funzioni e procedure che puoi 
all'occorrenza usare.
Compilando la unit ottieni un file .TPU che va messo assieme agli altri 
files TPU di libreria nell'apposita cartella. A questo punto nei tuoi 
programmi puoi usare la tua unit con la clausola Uses all'inizio del 
programma assieme alle altre unit che gia usi.
Includendo la tua unit mettendola nella Uses all'inizio del programma 
sarà come avere a disposizione tutte le procedure, le funzioni e i dati 
(sia tipi che variabili che costanti) che dichiari dentro la Interface.
Per la visiilità hai che tutto ciò che è nella Interface è 
implicitamente anche nella Implementation, mentre tutto ciò che è nella 
implementation è locale e vale solo dentro la unit.
Ad esempio tu puoi mettere una procedura nella implementation e non 
dichiararne l'intestazione nella interface. Tale procedura non sarà 
visibile da fuori ma solo dalle altre procedure della implementation.
Dovrebbe essere sufficiente.
saluti
Fabio

 ha scritto nel messaggio
news:bj4v88$fcr6s$1...@ID-132562.news.uni-berlin.de...



Dipende se hai Borland Pascal puoi usare e scrivere delle DLL, ma in
sostanza sono + utili le unit, cmq se ti interessa ti scrivo la
proceudra
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Newsgroup: it.comp.lang.pascal
Titolo: ...se divento ricco...

...grazie al software che scrivero' dopo aver imparato a programmare mi 
ricordero' di te..:)
Ciao


grazie :-)))))))))), sono sempre a tua disposizione :-))))))))
--
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: VI PREGO AIUTATEMI.......2 !!!!!!!!

In poche parole il mio problema principale è che tutto ciò che viene dopo la
END dell'eof non viene esguito dal programma. Quindi nel mio caso non viene
eseguita l'istruzione  " writeln (somma) ".

Salve a tutti e grazie per esservi interessati al mio problema.
Ma probabilmente mi sono espresso male io e non sono
riuscito a farmi capire.
Il mio problema č che il programma non deve leggere i dati da un  qualsiasi
file di testo
preso da memoria di massa, bensě da tastiera.
Ossia, quando lancia il programma, inserisce i numeri; terminata la serie
digita CTRL+Z,
la combinazione di tasti corrispondente al comando di EOF da tastiera in
ambiente DOS.
A questo punto il programma calcola la somma per poi restituire il risultato
a video.
MA COME SI FA A SCANDIRE UN INPUT DA TASTIERA???????????????
Il metodo che uso io č forse sbagliato?!?
Vi prego, datemi una mano perchč sono con l'acqua alla gola!!!!!
MESSAGGIO per    -  Re Di Cuori  -------->    Vi ho mandato una mail.
                                 -  SuperMatteo -------->     Provate a
dargli
                                 -  DeVil            -------->     un
'occhiata, please!!!

 eseguita l'istruzione  " writeln (somma) ".
Prova a fare cosě:
PROGRAM p (input,output);
VAR x,somma: integer;
BEGIN
     somma := 0;
     WHILE NOT eof DO
        BEGIN
           WHILE NOT eoln DO
              BEGIN
                 read(x);
                 somma := somma + x
              END; {eoln}
           readln
        END; {eof}
     writeln(somma);
     ReadLn;
END.
Ora: io ho premuto 1 poi Return
               poi 2 poi Return
	       poi 3 poi Return
               poi 4 poi Return
               poi CTRL+Z poi Return
e mi stampa a video il risultato, non capisco il perché a te non
funzioni!
Fammi Sapere
MaTTeO.

 MaTTeO.

DeViL ha scritto:

Si lo notato anch'io, la cosa strana e che il programma assume un po le
sembianze di doskey, cioè premendo CTRL+Z o forse CTRL+D mi ristampa
carattere per carattere il numero precedente. Al momento non ne ho idea,
ma appena ho un po' di tempo mi informo meglio.
Ciao
MaTTeO.
Newsgroup: it.comp.lang.pascal
Titolo: come creare...

...un semplice editor di testi con il turbo pascal 7.0?
e' da quando l'ho installato che me lo chiedo...
anche se tale operazione e' avvenuta circa 2 settimane fa (e ve ne
sarete accorti), mi sto dando un gran da fare per cercare di capire
come salvare dei testi su un file! :)
poi ieri sera consultando l'help ho trovato un certo editors.tpu (non
documentato nella guida alle units del compilatore borland tp7) che
dovrebbe servire proprio alle funzioni di salvataggio su file (per
quanto ne ho capito io).
vi chiederei una cortesia... qualcuno di voi ha per caso un source
code di un semplicissimo e basilare editor di testo? cosi' inizierei a
studiarlo un po'...
o al massimo un po' di documentazione su questa editors.tpu...
vi ringrazio gente :)
--
machine

http://utenti.tripod.it/Redicuori_77/tutorial/file/fileditesto.htm
Cmq in 2 parole:
- dichiari una varibile così:  nomevar: text;
- Assegni alla var il percorso del file così:
        assign(nomevar,'c:\prova\esempio.txt');
- Se vuoi creare il file (o sovrascriver un file che esiste già) inizializzi
con:
        rewrite(nomevar);
    se leggere:
         reset(nomevar);
    se continuare a scrivere dopo la fine del file:
        append(nomevar);
- Operazioni su file:
    write(nomevar,'questo testo qndrà scritto sul file');
            oppure writeln che va su una riga a capo nel file.
    read(nomevar,x) dove x è una var string.
    erase(nomevar)  cancella il file
- Chiudi il file
    close(nomevar);
*per controllare se un file esiste già:
function esistefile(pathfile : string):boolean;
var f:text;
begin
    {$I-}
    assign(f,pathfile);
    reset(f);
    if IOresult<>0 then
        esistefile:=false
    else
        begin
         esistefile:=true;
         close(f);
        end;
end.
*per visulizzare tutto il contenuto di un file:
    while not eof(nomevar) do
        begin
            readln(nomevar,x);
            writeln(x);
        end;
eof è una funzione del compilatore che restituisce true quando si è giunti
alla fine del file. in pratica il ciclo legge riga per riga il file di testo
fino a quando non si è raggiunta la fine e visualizza a video le stringhe.
+ corretto sarebbe:
while not eof(nomevar) do
begin
    while not eoln(nomevar) do
    begin
        read(nomevar,y);
        write(y);
    end;
    readln(nomevar,y);
    writeln;
end;
[y è una variabile char]
eoln è sempre una funzione che indica però il fine riga.
Così si supera il limite dei 255 caratteri delle var string.
Si leggere un carattere per volta, e quando si è raggiunti il fine riga,ci
si sposta di una riga sotto.
Se hai domande, chiedi.
Ciao,
Alex
--
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

o al massimo un po' di documentazione su questa editors.tpu...
Ricordo di aver trovato qualcosa al riguardo su "Introduzione al
Pascal" di Pierre Le Beux.
Guardo dove sono finiti gli appunti...
PV
Newsgroup: it.comp.lang.pascal
Titolo: Come inserire un file midi di sottofondo e come inserire delle immagini?

Salve a tutti!
Problema n°1)
Sto cercando di programmare un gioco abbastanza semplice (sarebbe il 2 che
faccio) ma fino ad ora non sono riuscito a inserire immagini esterne (bmp),
ho provato a guardare la guida del pascal ma non sono riuscito comunque
(getimage, putimage...) se mi potete dare una breve spiegazione o magari
anche un piccolo esempio ve ne sarei grato!
Problema n°2)
Devo inserire un file midi come sotofondo, ma non riesco perke non ho
proprio idea di come fare; sulla guida ho trovato solo il metodo con il
quale inserire i suoni con delay() e sound().
Grazie per aver Letto By ReaZ

Roberto Reale ha scritto:

ALLRA NON MI CAPITE!!! IL PASCAL NON E' ADDATTO A FARE I GIOCHI... con il DIV
si possono caricare ogni genere di file esterno (Grafici 2D/3D, Sonori e
perfino video....)
--
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

 Grazie per aver Letto By ReaZ
Prego
Ciao!
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________

 perfino video....)
...anche con il Pascal !


Newsgroup: it.comp.lang.pascal
Titolo: Rappresentare i punti

Salve, sono alle prime armi con il pascal e dovendo rappresentare dei punti
con la funzione PUTPIXEL ho notato che sono troppo piccoli come faccio per
ingrandirli?

 ha scritto nel messaggio
news:rA6m6.52913$k55.1...@news.infostrada.it...


Non ho trovato niente.
Grazie 1000 cmq.
:-))))))))))))

Newsgroup: it.comp.lang.pascal
Titolo: aiuto per procedure

Se io ho 4 procedure ognuna delle quali esegue se stessa ricorsivamente e le
altre 3 in ordine diverso. Come cavolo faccio a dichiararle se il
compilatore mi dice (avendo ragione...) che, nella prima procedura, le altre
non sono state dichiarate?
--
San Vegeta from Hell
http://www.geocities.com/Area51/Dungeon/8436
(da visualizzare col browser della Netscape)

non sono state dichiarate?
usando lo specificatore "forward" :
procedure alpha ; forward ;
procedure beta ;
begin
  alpha ;
end;
procedure alpha ;
begin
  beta ;
end ;

(da visualizzare col browser della Netscape)
guardati l'help con la parola magica e FORWARD
CIAO,  Fabio
--
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: problemi con tpw tp70dos

in windows ME non riesco ad installare il turbo pascal per windows, qualcuno
mi sa dire il perchč?
Disperata ho installata tp70per Dos e questo mi da' errore 200 runtime se
uso la unit CRT?????
ma che si č ammattito???
grazie

 ma che si è ammattito???
Non si è ammattito, è solo che molto probabilmente il tuo pc monta un
processore molto veloce (rispetto a quando il tp7 è stato progettato) e
viene fuori quell'errore. Potresti passare a un compilatore free come TMT
Pascal o scaricare la patch adatta al tuo problema.

 ha scritto nel messaggio
news:LBtP7.1493$1o4....@twister2.libero.it...


 scusa come posso trovare il TMT?
www.tmt.com
Ciauz
Newsgroup: it.comp.lang.pascal
Titolo: [TP7DOS] Cursore

Ecco un'altra bella (?!?) domandina:
C'e' un modo per non far vedere il cursore lampeggiante in modalita'
testo?
Grazie anticipatamente a tutti!
Cya!
<<* Vegeta *>>
               | Internet: 
veg...@mindless.com
               | ICQ#    : 6907362
               | 
http://www.geocities.com/Tokyo/Garden/4313
** La piu' grande beffa che il Diavolo abbia mai fatto all'umanita'
** e' stata quella di far credere a tutti che lui non esiste.

...


testo?
Procedure HideCursor;
Begin
   Asm
   Mov Ah, 1h
   Mov Cx, 2020h
   Int 10h
   End
End;
Bye, Mobius

Il goirno Thu, 4 Jun 1998 12:34:39 +0200, Mobius parlo' riguardo a Re:
[TP7DOS] Cursore e disse:
Grazie a tutti e due...


...

Newsgroup: it.comp.lang.pascal
Titolo: Timer e DLL

Salve a tutti,
avrei una domanda, dato che non sono ancora molto esperto:
è possibile creare in delphi 4 un timer sensa utilizzare l'oggetto timer?
Cerco di spiegarmi meglio,ho una dll senza form, e vorrei attivare un timer,
si puo'?
Ciao.

 wrote...

Dai un'occhiata all'API SetTimer... (usa il puntatore alla funzione...)
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@interac.it

Dai un'occhiata all'API SetTimer... (usa il puntatore alla funzione...)
ha detto senza form, e SetTimer vuole una finestra
al massimo un multithread, e poi usi Sleep che è pure più preciso

 al massimo un multithread, e poi usi Sleep che è pure più preciso
In effetti ho dovuto per forza di cose creare anche un form.......
La DLL è un PlugIn per WinAmp, si occupa della gestione di un display LCD
connesso sulla porta LPT e della mini tastiera sempre su LPT.
Questo per permettere di gestire in ''remote'' un PC installato in macchina
o in casa come JukeBox.
Diciamo che il tutto funziona, con piccoli problemi in uscita dal prg: a
volte si inchioda, ma credo di dover migliorare sull'uso del metodo DESTROY.
A proposito, se faccio FORM.DESTROY il contenuto è automaticamente DESTROY
(vedi timer)?.
Sleep??? E' vero, come ho potuto dimenticarmene!!!
Thanks!
Newsgroup: it.comp.lang.pascal
Titolo: Array dinamico


Ti ho fatto 2 correzioncine...
{$r-}
Program array_dinamico;
Uses Crt;
type
    IntegerArray = array [1..1] of integer;
    IntegerArrayPtr = ^IntegerArray;
var
   i,c:integer;
   MyPtr : IntegerArrayPtr;
begin
     ClrScr;
     writeln('Introduci lunghezza dell''array');
     readln(c);
     getmem(MyPtr,sizeof(Integer) * c);
(*
    In questo caso "SizeOf(integer)" è uguale a "SizeOf(IntegerArray)", ma per puro
    caso: Se tu avessi dichiarato:
            "IntegerArray = array [0..1] of integer;" 
    scrivendo poi      
            getmem(MyPtr,sizeof(IntegerArray) * c);
    allora avresti allocato esattamente il DOPPIO di spazio necessario per la tua array
    dinamica.
    Per evitare questo inconveniente (che in un prog. corto è irrilevante ma su uno lungo
    potrebbe dare non poche noie) è + sicuro "getmem(MyPtr,sizeof(Integer) * c);"
*)
     for i:=1 to c do
         read(MyPtr^[i]); {Mi si blocca qui !}
(*
Ricorda che MyPtr NON è un array! E' invece il PUNTATORE ad un array.
In pratica per accedere ai valori dell'array a cui punta tale puntatore devi usare questa sintassi:   MyPtr^[i]...
*)
     repeat until keypressed;
     Freemem(MyPtr,sizeof(Integer) * c);   (* non dimenticarti questo alla fine!!! *)
end.
Ciao.
Darius. (
www.infotronica.it/darius/
)

     Freemem(MyPtr,sizeof(Integer) * c);   (* non dimenticarti questo alla fine!!! *)
Non e' strettamente necessario.
Sotto qualsiasi sistema la memoria allocata dinamicamente viene
automaticamente rilasciata alla fine del programma.

 wrote in message
3748857...@diesel.cu.mi.it...

mmm, non sono d'accordo....
In windows se occupo della memoria con un oggetto e poi non lo cancello
dalla memoria prima di terminare il programma, esso rimane lě e diminuisce
le risorse di sistema disponibili... non so se questo valga anche sotto dos.
Ciaoz
AX1S

le risorse di sistema disponibili... non so se questo valga anche sotto dos.
E' ovvio che si parla di sistemi operativi SERI e Windows non lo e'.


Hmmmm. Sono incompatibilità tra newsreader legate al formato HTML. Se non hai l'Outlook Express o un newsreader abbastanza recnte purtroppo può capitare.
__"=3D"__ è semplicemente il codice dell' __"="__
Se ti capita ancora sai cosa vuol dire - allo stesso modo =20 vuol dire [spazio] e un uguale a fine riga vuol dire che la riga stessa è stata troncata per la visualizzazione, ma si tratta di una riga sola...
In pratica il carattere = precede i 2 codici esadecimali di un carattere ASCII.
Ciao.
Darius. (
www.infotronica.it/darius/
)

però eliminando 3D funziona perfettamente, grazie mille
E' un problema di incompatibilita' tra i diversi programmi di lettura
delle news per cui viene inserita la sequenza "3D" dopo ogni segno di
uguale.
Eliminalo, nel sorgente non c'e'.
Newsgroup: it.comp.lang.pascal
Titolo: [OT] studiare Delphi

ciao a tutti, viste le limitate opportunità che il dos ti offre e che i
giochi realizzati con la unit graph del tmt pascal come snake non funzionano
con alcune schede... mi sono deciso a studiare un linguaggio per windows e
la scelta migliore mi sembra il delphi... mi consigliate di iniziare con la
versione 5 o con una versione precedente quindi più semplice? quale libro mi
consigliate di acquistare? non deve essere troppo difficile però dovrebbe
affrontare in modo completo tutti gli argomenti in modo serio tenendo conto
che le mie conoscenze in fatto di programmazione vanno poco oltre al libro
della mc graw hill "turbo Pascal 7" di O'Brien e Nameroff.
grazie mille
Andrea
P.S. il salto da pascal a delphi è molto difficile? cioè realizzare un gioco
come snake per direct draw simile a quello che ho realizzato per dos è molto
più difficile?

quale libro mi consigliate di acquistare?
Ci sono i testi di Cantu'.
Personalmente, non mi piacciono.
Se non ti spaventa l'inglese, compra "Delphi 5 Developer's
Guide" di Teixeira-Pacheco.
In ogni caso ti conviene aspettare che si diffonda Delphi 6
e acquistare qualche testo su quest'ultimo.
--
CyberWalkie - walkietalkie(at)
libero.it

 CyberWalkie - walkietalkie(at)
libero.it

proprio cosě male o vale la pena per un principiante di acquistarli?
Non te lo so dire, questione di gusti...
--
CyberWalkie - walkietalkie(at)
libero.it
Newsgroup: it.comp.lang.pascal
Titolo: Maledetto output!!

Salve a tutti..
Il mio problema è molto semplice e credo accomuni tanti programmatori
inesperti come me..
Per scrivere una stringa di lunghezza 10,leggo da input carattere per
carattere (usando readkey) che poi inserisco man mano in un array di
lunghezza 10..Ho usato questo metodo per evitare di usare la READLN
perchè,in questo caso,l'utente può scrivere finché vuole, anche più di
10 caratteri..Quindi può succedere che l'utente 'distrugga visivamente'
la maschera di output da me creata..Il problema è solo visivo perchè poi
comunque la READLN immagazzina nella variabile stringa solo i primi 10
caratteri..Vorrei implementare anche i tasti speciali come le freccette,
il tasto CANCELLAZIONE, il tasto INSERIMENTO, il tasto BACKSPACE, il
tasto INIZIO e il tasto FINE, ma la funzione diventerebbe troppo pesante
e difficile da leggere..
Il problema non è solo con le variabili stringa ma anche con le
variabili integer, e così via..
Esiste una funzione in pascal per risolvere questo problema o un metodo
d'implementazione più semplice??
Grazie per la Vs disponibilità..
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao a tutti..Credo che questo mio problema accomuni molti programmatori che
come me sono ancora inesperti..
Ho creato un array stringa di lunghezza 10 e, usando readkey, immagazzino
volta per volta un carattere..Ho utilizzato questo metodo per evitare di
usare READLN perchè in questo caso l'utente può scrivere anche più di 10
caratteri, 'distruggendo' così la mia maschera di output..Il problema è solo
visivo perchè poi comunque la READLN immagazzina nella variabile stringa
solo i primi 10 caratteri..Vorrei implementare i tasti speciali come le
freccette, il tasto CANCELLAZIONE, il tasto INSERIMENTO, il tasto BACKSPACE,
il tasto INIZIO e il tasto FINE, ma con questo metodo credo che la funzione
diventi illeggibile.. Lo stesso problema mi si presenta anche quando lavoro
con variabili integer, real e via dicendo..
Esiste una funzione in pascal per risolvere questo problema o un metodo
d'implementazione più semplice??
Ogni suggerimento è ben accetto..

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

Sto cercando di capire cosa sono e come generare i frattali.
Mi aiutate ?
grazie, Antonio
_________________________________________________________________________
la tua email gratuita e per sempre su 
http://www.freemail.it
 (anche POP3)
--
Posted from 
qma...@hermes.evo.it
 [194.184.29.10] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Non ho una grande conoscenza dei frattali; tuttavia so che esiste il sito
http://frattali.cjb.net
che parla in modo molto completo di questo argomento.
Nel sito ci sono anche dei programmi da scaricare.
Spero di averti aiutato.  Ciao.
                                                   Otrebor tr
Newsgroup: it.comp.lang.pascal
Titolo: Come si può rilevare il seriale dell' hard disk ???

Salve,
sto cercando di capire come posso rilevare il numero di serie o di
formattazione dell' hard disk. Che io sappia, non c'e' un comando che lo
rilevi................
Avevo pensato di far eseguire un comando interno del vecchio DOS come ad
esempio il VOL con destinazione un file e poi leggerlo, ma anche in questa
ipotesi non riesco ad eseguire un comando interno al vecchio DOS, tipo
'del', 'copy', 'dir', etc..
Alcuni comandi sono stati rimpiazzati dal linguaggio, giustamente, ma non
tutti i comandi e forse quello che serve a me no..........
Come potrei agire ???
Grazie....

 ha scritto nel messaggio
news:UpZO7.234234$sq5.11...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: [info] www.pascallike.cjb.net 250 click

Tutorial presenti :
1)Gestione tasti speciali
2)Inserire DLL nei propri programmi
3)Lettura tasti
4)Gestione del cursore
5)Scrivere una unit
6)Utilizzare file di testo nelle nostre applicazioni
7)I puntatori
8)Le liste lincate
9)Operazioni su file e directory
10)Collegamenti tpc/ip
Sorgenti presenti :
1)Visualizzare immagini PCX 640x480 16 colori
2)Conversione romani->interi
3)Gestione del mouse modalità CRT e GRAFICA
4)Coversione base 10 -> base n
5)Gestione file un semplice programma per visualizzare i file presenti un
una directory e  selezionarli
6)Musica dallo speaker
7)Gestione del mouse (solo modalità grafica)  permette di cambiare il
cursore del mouse a vostro piacimento
8)Bloccare CTRL+C
9)Visualizzare un immagine BMP (package completo BITMAP a 16 o 256 colori)
10)Visualizzare un immagine BMP (semplice unit  BITMAP a 16 o 256 colori)
11)Utilizzare la grafica in modalità SVGA 640x480x256
12)LookFor implementa il trova di Windows, gestisce i caratteri Jolly per la
ricerca che può essere formattata a video in vari modi
13)Calcolare la data giuliana
Grazie per l'attenzione
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

18/05/2001
Questa settimana nessun aggiornamento ho perso il dischetto con tutorial e
sorgenti :(((
Sign Sign
Re Di Cuori
"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:1RxL6.16645$RX4.9...@news.infostrada.it...


Ho lavorato tutto questo pomeriggio ed ecco i nuovi aggiornamenti :
Sorgenti :
- Libreria per funzioni matematiche potenze, logaritmi....
- Come rilevate Windows dal proprio programma pascal (il link è presente sia
nella sez. sorgenti sia nella sezione FAQ)
- Un piccolo programmino per navigare nel proprio HD ed eseguire file EXE
Link  :
aggiunti nuovi link per la programmazione in pascal e non


Mi scuso per i pochi aggiornamenti, ma tra un esame e l'altro non ho avuto
molto tempo....

    14) Calcolare il determinante di una matrice  (offerto da DTS)
    15) Trasformare un numero in lettere a cifre (offerto da Arianna)

Newsgroup: it.comp.lang.pascal
Titolo: Comandi al SO

Come si fa a passare dei comandi al sistema operativo?
Intendo dire come faggio a far eseguire ad un prog in pascal delle
istruzioni sul sistema poerativo?
Qualcosa del tipo:
esegui('istruzione');
dove istruzione è un comando del SO in uso, ad esempio in linux può essere
un mount o un pppd o un cp o un mv ecc...
grazie a tutti e ciao.
--
Davide Petilli
dpet...@libero.NOSPAM.it
Per rispondermi leva NOSPAM dal mio indirizzo!

istruzioni sul sistema poerativo?
Dipende dal compilatore che utilizzi.
E' una questione dipendente dall'implementazione.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

 wrote in message
384c4e33...@diesel.cu.mi.it...

(*******************************************************************
Esempio per Turbo/Borland Pascal sotto dos (o Winzozz)
*******************************************************************)
{$M $4000,0,0 }   { 16K stack, no heap }
uses Dos;
var
  Comando,
  Parametri : string;
begin
  Comando := GetEnv('COMSPEC'); { percorso di ricerca del 
COMMAND.COM
 }
  Parametri := '/C dir /w'; { /C = esegui il comando e termina (vedi
"
COMMAND.COM
 /?") }
  SwapVectors;
  Exec(Comando, Parametri);
  SwapVectors;
  if DosError <> 0 then
     WriteLn('Errore dos #', DosError)
                   else
     WriteLn('Esecuzione terminata con successo ! Codice processo figlio =
', DosExitCode);
end.
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Statistiche NG!

Me misero topino sono il topposter di questo ng { il che non è molto
bello } ma sono in buona compagnia
guardatevi le statistiche se non ci credete..
http://www.dotnethell.it/Newsgroups/NGProfile.aspx?NgID=2230
pero guardate la mia scheda:
http://www.dotnethell.it/Newsgroups/UserProfile.aspx?UserID=16623
chi è il secondo? beh ovvio direi
http://www.dotnethell.it/Newsgroups/UserProfile.aspx?UserID=20481
il 3° non lo conosco { Ciao Max io sono Il Razziatore, piacere }
mentre il 4° è una mia vecchia conoscenza {RdC sei sempre mitico! }
http://www.dotnethell.it/Newsgroups/UserProfile.aspx?UserID=39850
mi aspetavo + msg dal mago delle comete...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com


wrote:
Quel sito non č molto affidabile... cmq per gennaio:
http://www.mynewsgate.net/frameset.php?destra=newsstat.php&mese=200401&ng=it.comp.lang.pascal
dove io sono 25° {su 27 } il che mi torna!

Newsgroup: it.comp.lang.pascal
Titolo: Non funziona la Crt

Ho provato più volte a scaricare la crt da internet per correggere il
pascal, inserendola nella directory BIN,  ma non continua a funzionare,
vorrei sapere come devo fare..
Grazie.

mi sembra di capire che ti riferisci ai problemi del "runtime error 200",
giusto ?
la patch l'ho scaricata un pacco di tempo fa e non ricordo neanche dove...
cmq mi sembra che modificasse uno/due file nella sub \bin
saluti
fabio
fabi...@libero.it

Dany ha scritto nel messaggio ...

Vai su 
http://go.to/drfalken
 sezione "Patch, Tips & Tricks" - file
crt_fix11.zip (14kbyte)
Ciao.
Simone.

Newsgroup: it.comp.lang.pascal
Titolo: compilatore pascal che funzioni ben

Cerco un compilatore pascal che funzioni bene ..ho provato diversi 
compilatori non funzionano secondo me bene ho fatto dei programmi 
banalissimi e non me li compila.

FreePascal (
www.freepascal.org
)

Newsgroup: it.comp.lang.pascal
Titolo: Un buon libro...

Ciao a tutti,
    chi mi saprebbe consigliare un bel libro per Pascal?
bye, Stefano

Guida Completa Turbo Pascal 7, McGraw Hill, Stephen K. O'Brien, Steve
Nameroff.
Ciao
slave83 <sla...@NOSPAMnet2000.it> wrote in message
k2lj4.2744$C3.3...@news.infostrada.it...


concordo al 100%
l'ho comprato ormai cinque/sei anni fa e ogni giorno che passa lo riscopro
sempre più utile !!!
saluti
fabietto
fabi...@libero.it
)

sempre più utile !!!
Cioe' sono cinque/sei anni che stai imparando il pascal ? ;))
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

più o meno... :-))
fabietto
fabi...@libero.it
Newsgroup: it.comp.lang.pascal
Titolo: [OT]: Proposta di NG

Che ne pensate di proporre la creazione di it.comp.lang.asm ?
Ciao!
Simo.



Buona idea
Ciao

Simo.
Io sarei favorevole ma.....
Se non sbaglio
ci vogliono piu' di 70 voti per far approvare un ng e 
sinceramente non credo che ci sia cosi' tanta gente interessata
all'argomento.
E' un peccato perche' devo fare un prog. in assembler e non so dove
mettere le mani,e purtroppo nei ng attuali e' un argomento OT. :-(
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

Mancano ancora 66 voti

Che ne pensate di proporre la creazione di it.comp.lang.asm ?
Se per il Pascal siamo quattro gatti, per l'assembler..... :-)))))).
Bye.
Joseph Parrello.

io non ci capisco un tubo pero' mi associo
ciao
  Bart

N0bodY88 del NewBies Staff
ei N0body88 che fine ha fatto il vostro sito?
non lo pubblicate piu' il numero 4 della vostra e-zine ?


Potete contare su un voto in più:))
--
-----------------------------------------------------
s...@gem.it
kin...@geocities.com
IRCNet:KiNg[G]hZ »»» #
mp3.it

all'argomento.
Infatti ora siamo passati a cento voti, grazie al GCN :-))))).
Bye.


Ho letto che occorrono 75 voti ma finora siamo pochini    : (


Nooooooo!!!!!!
Anche volendo, non ce la faremo mai....        :...(

Io sono favorevole, contate sul mio voto.
Saluti.

Ho letto che occorrono 75 voti ma finora siamo pochini    : (
Pero' tentar non nuoce.
Se siamo riusciti ad ottenere una decina di consensi su un ng cosi'
poco popolato come iclp, penso che se si proponesse la cosa anche agli
altri ng di programmazione e a quelli degli (crak..)hacker, possiamo
farcela.


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto DJGPP

Ho la versione 97 di questo pluri compilatore, leggendo nelle doc ho
scoperto che e' anche multi lingue, solo che i testi in intaliano per la
versione '97, all'epoca, non erano ancora pronti.
Ringrazio anticipatamente coloto che mi sapranno indicare dove trovare
questi testi in italiano e come installarli.
Saluti Gmork
e-mail:conf...@altanet.it

 
e-mail:conf...@altanet.it
Cosa intedi per versione 97?
A quanto ne so l'ultima e' la 2.01 (con gcc a 2.8.1)
  ______ ___  _  ______ ______                   ___                          
   )    ) ) )/ )(___   ) )    )______ ______ _____) )  ________________....  .
  / // / /  __/  __/ _/ / // /  ) _  ) )    ) )    / ________________....  .
 / _/ / / _ \  _/  /_  / _/ /  / ___/ / // / / // /   ______________.... . .
(_____)(_/ \_)(______)(_____) (_____)(__/__)(_____) __________________....  .
<===========================================================================>
*T*h*e*   *M*a*g*i*c*   *I*s*   *E*v*e*r*y*t*h*i*n*g*   *Y*o*u*   *I*m*a*g*i*n*e*
		e-mail  
DK2...@cryogen.com
 
am57...@silab.dsi.unimi.it
Newsgroup: it.comp.lang.pascal
Titolo: number

Ciao volevo chiedere che differenza c'è tra REAL e INTEGER?
Ciao e grazie

> Ciao volevo chiedere che differenza c'è tra REAL e INTEGER?
Potresti leggere l'help, cosa ne dici? :)
Se avrai ancora dubbi, allora riposta.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

Ciao e grazie
Un tipo intero - INTEGER - indica una variabile che contiene un numero
intero registrata nella memoria del computer come il numero in codice
binario se è positivo,  come il suo complemento a due se è negativo (e
usi un "tipo con segno" come INTEGER, SHORTINT o LONGINT del Pascal).
Un tipo REAL è un tipo in cui il numero viene rappresentato allocando
un certo numero di bit per l'esponente e un certo numero di bit per la
mantissa. Siccome il numero di bit è limitato si dice che fra due
numeri rappresentabili ne esistono infiniti altri che non lo sono; per
cui si dice che il computer opera su un insieme di numeri discreto
anzichè denso come invece è quello dei razionali.
Per approfondire:
http://www.disco.unimib.it/arch2000/pagine-di-info/codifica/2interi.htm
http://www.disco.unimib.it/arch2000/pagine-di-info/codifica/2float.htm
PV, le loup-garou

> Ciao volevo chiedere che differenza c'è tra REAL e INTEGER?
E una cosa abbastanza base...
Real e un tipo Reale (ma non di sangue blu :o) )
Integer e un tipo Intero
Cioè se vuoi memorizare numeri con la virgola devi utilizare la classe
dei reali:
Type     ¦ Range               ¦ Digits ¦ Bytes
---------Ï---------------------Ï--------Ï------
real     ¦ 2.9e-39..1.7e38     ¦ 11-12  ¦  6
single   ¦ 1.5e-45..3.4e38     ¦  7-8   ¦  4
double   ¦ 5.0e-324..1.7e308   ¦ 15-16  ¦  8
extended ¦ 3.4e-4932..1.1e4932 ¦ 19-20  ¦ 10
comp     ¦ -9.2e18..9.2e18     ¦ 19-20  ¦  8
mentre per un numero intero (cioè sensa virgola) devi utilizare la
classe degli interi:
Type     | Range                   | Format   | Bits
---------Ï-------------------------Ï----------|-------
Shortint | -128..127               | Signed   |  8-bit
Integer  | -32768..32767           | Signed   | 16-bit
Longint  | -
2147483648
..
2147483647
 | Signed   | 32-bit
Byte     | 0..255                  | Unsigned |  8-bit
Word     | 0..65535                | Unsigned | 16-bit
Se non ti e chiaro qualcosa chiedi pure
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 Ciao e grazie
intanto il campo di variazione, real puo' contiene cifre molto piu' grandi,
e poi real puo' contenere numeri con la virgola. per maggiori informazioni
vai all'indrizzo in firma
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA
Newsgroup: it.comp.lang.pascal
Titolo: Operazioni sui nomi file

Grazie
program rename_file;
var	f:file of byte;
	s1,s2:string;
begin
	write('Nome file: ');
	readln(s1);
	s2:=copy(s1,1,pos('.',s1)-1)+'.old';
	assign(f,s1);
	rename(f,s2)
end.
Ciao,    Fabio
fabi...@rocketmail.com

ma ricevo sempre un runtime error 2, come posso fare?
L'errore č dovuto al fatto che se ParamStr(1) č, ad esempio 'miofile.est', tu
passi alla funzione "rename" 'miofile.est'+'.old' e quindi lui cerca di
rinominare il file in 'miofile.est.old' che non č un nome valido.
Devi usare invece un programma del genere :
uses dos;
var n : string;
      cartella  : dirstr;
      nome : namestr;
      est  : extstr;
begin
  n := 'c:\cartella\sottocartella\miofile.est';
  fsplit(n, cartella, nome, est);
  est := '.old';
  n := cartella + nome + est;
end.
Andrew Cleverland
-----------------
Disse il saggio "Avěta parč bbell sop 'o marm !"...

Newsgroup: it.comp.lang.pascal
Titolo: Pascalonline, nuovo aspetto grafico e novià a riguardo

Salve a tutti, dopo grande fatica :) ho realizzato questa cosa per il sito
del pascal, naturalmente è ancora da finire, ma ditemi cosa ne pensate,
rispondendo a questo post oppure a 
bri...@cybergal.com
 :)
GRAZIE a tutti e fatemi sapere :)
P.s Il sito è ottimizzato per explorer 5.0 e NN 6.0  :)
L'indirizzo è : 
http://www.pascalonline.f2s.com/online/index.htm
Per tutti quelli interessati, ieri sera abbiamo pensato di prendere il
dominio su Aruba (per informazioni 
www.aruba.it
), il costo è di 48.000 iva
compresa, per tutti gli interessati, rispondete a questo post.


Io sono profondamente interessato; fatemi sapere qual'è la mia quota da 
pagare!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

 ha scritto nel messaggio
news:9062AF67Fyup...@212.41.192.21...


 ha scritto nel messaggio
news:9062AF67Fyup...@212.41.192.21...


popolari vero :)
Già, prezzi popolari... problema: come facciamo a recapitare i soldi al 
"pagante"? Posta ordinaria, direi, in caso di RA o bonifico, le spese 
supererebbero il contributo.
A proposito del post precedente, io so come funziona e posso togliere tutti 
i menu che voglio da netscape, ma tu devi contare che chi va a vedere le 
tue pagine può essere un perfetto imbranato in materia e potrebbe non 
visualizzarle in maniera corretta: un consiglio: fai sempre tutto in modo 
che anche un (parola brutta ma efficace) LAMERONE possa fruirne al meglio.
Io l'ho imparato a mie spese! :o)
Ciao ciao!


 ha scritto nel messaggio
news:9062C6B18yup...@212.41.192.21...


 compresa, per tutti gli interessati, rispondete a questo post.
io sarei d'accordo, ma, come qualcuno ha già detto, è meglio vedere come gira il
sito, se ci sono tanti hit, e poi passare al dominio di primo livello, per
adesso che non ci sono contenuti, ma solo bozze, aspetterei..
E poi aruba mi dicono faccia cagare, lentezza server poca assistenza, e roba del
genere, meglio pensare ad altro, perme.....
ciao ciao

 ha scritto nel messaggio
news:4ptr6.3293$6W.7...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: FORMULE RIDUZIONE

Amici del N.G. scrivo semplici programmi in turbopascal, e vorrei realizzare
un programmino che mi consenta di ridurre un sistema integrale del
superenalotto di N-1, N-2,
N-3. Non sono riuscito a trovare l'algoritmo per effettuare questa
riduzione. Qualcuno puň aiutarmi ?
Grazie.


...caro mio hai messo il dito nella piaga! Io ho iniziato a programmare in
Pascal facendo sistemi per il Totogol, poi sono passato al Lotto e al
Totocalcio ed ho iniziato a programmare in Delphi... infine ho perso un po'
di tempo con il Superenalotto.
Come è finita??? che ho lasciato perdere il superenalotto perché il tempo
perso per studiare soluzioni veloci ed efficaci non viene ripagato (OT: ti
consiglio di darti al Totocalcio che personalmente ho trovato molto più
redditizio ).
Quello che cerchi di fare è abbastanza semplice nel caso di Totogol e
Totocalcio, diventa estremamente complesso con il Superenalotto perché si
inizia a dover fare i conti con la memoria a disposizione in quanto le
combinazioni da elaborare e confrontare sono davvero molte (622.614.630).
Cmq il principio è questo:
- supponiamo di ridurre N-3 (ossia massimo 3 numeri uguali per ogni colonna
giocata)
- inizi lo sviluppo del sys con 6 cicli for nidificati
- scrivi sul file di output la prima colonna buona (filtrando con eventuali
condizioni le colonne elaborate)
- scrivi su una lista (o un file ma è più lento) la stessa colonna accettata
- da qui inizia la riduzione, ogni colonna che passa i filtri la confronti
con quelle già scritte sulla lista: scorrendo la lista poni la condizione
che la colonna in esame debba avere al più tre numeri uguali a quelle già
scritte. Se passa il confronto la scrivi sull'output e sulla lista e passi
poi alla colonna successiva, altrimenti al primo confronto che fallisce
passi direttamente a quella successiva. Continui così per tutte le
combinazioni.
In questo modo il file di output conterrà solo colonne che tra loro
totalizzano al massimo 3 punti.
Premesso che non è banale da scrivere, una volta che gira il problema sta
nel fatto che ben presto sia la lista che il file di output diventeranno
ingestibili per dimensioni e ammesso che tu risolva questo problema i tempi
di elaborazione sono dell'ordine delle ore con un Pentium350...
...considerato che la Probabilità di fare un misero 3 anche giocando 100
colonne è del 26,402% io ho lasciato perdere...(per non parlare del 4, 5 e
6 -->P(4): 0,836%; P(5):  0,008%; P(6): 0,0000161%)...
...ho lasciato perdere il gioco ma oramai ero troppo avanti con il programma
e l'ho finito. Ho risolto dividendo la lista in blocchi più piccoli e
memorizzandoli in diversi file fin quando non servono per il confronto.
Funziona ma se poi la previsione non ti soddisfa hai buttato qualche ora di
lavoro di CPU !!!!!
Facci sapere se ti cimenterai nell'impresa.
In bocca al lupo.
Ulisse
Newsgroup: it.comp.lang.pascal
Titolo: Siti sul Pascal

Qualcuno conosce qualche sito anche inglese sul Pascal dove siano presenti
esempi e suggerimenti o corsi vari?
Esiste una FAQ di questo NG?
Grazie
Zeus

Zeus scripsit

Per i siti parti da questo:
www.geocities.com/siliconvalley/2926/tp.html
ciao!
-- 
Carotino
Member #2 and PR of POTA (founded by Zarkan)
ICQ 19905752
Amiga's Paradise:
www.geocities.com/timessquare/labyrinth/5925/index.htm

...


Newsgroup: it.comp.lang.pascal
Titolo: Scusate, qualcuno vede i miei post??

Chiedo umilmente scusa, so che non si fa...
ma sono in crisi, non capisco piu' se riesco o no a postare...
qualcuno sarebbe cosi' gentile da farmelo sapere (eventualmente in e-mail,
cosi' non disturbiamo oltre...)
Grazie!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Lasciate a se stesse, le cose tendono ad andare di male in peggio",
corollario 2 alla legge di Murphy

certo!
Newsgroup: it.comp.lang.pascal
Titolo: frecciette

Salve a tutto il ng.
Come ben sapete, alla pressione di caratteri quali le frecciette o i tasti
F1,F2 etc... vengono restituiti 2 caratteri ascii e non 1.
Come faccio a fare una cosa del tipo:
x:=readkey;
if x=chr(0 72) then
[...]
{x è una var char e 0 72 sono i valori restituiti dalla freccietta su}
Ovviamente mi dà errore!
Come faccio?
Grazie

 F1,F2 etc... vengono restituiti 2 caratteri ascii e non 1.
var c : char;
      b : word;
writeln('premere esc per finire');
repeat
if keypressed then
  begin
      c:=readkey; b:=ord(c);
      if c=0 then
        begin
            c:=readkey;  b:=ord(c)+255;
            write('il codice del tasto è :'); writeln(b);
        end
      else  write('il codice del tasto è :'); writeln(b);
  end;
until ord(c)=27
Ciao ReDiCuori

if x=chr(0 72) then
Devi usare il readkey due volte, la seconda solo se la prima ti da 0
qualcosa tipo questo:
uses crt;
function leggitasto:string;
begin
if ord(readkey)=0
   then case ord(readkey) of
        72:leggitasto:='freccia su';
        80:leggitasto:='freccia giu';
        75:leggitasto:='freccia sinistra';
        77:leggitasto:='freccia destra';
        end
   else
        leggitasto:='nessun tasto freccia';
end;
begin
writeln(leggitasto);
end.
Ho eliminato anche la variabile c, non so se sia meglio.
extrabug @ 
iname.com

tasti F1,F2 etc... vengono restituiti 2 caratteri ascii e non 1.
F12 dovrebbe restituirne 10, provare per credere

 {x è una var char e 0 72 sono i valori restituiti dalla freccietta su}
(FRECCETTA)
o_O
genyo

Newsgroup: it.comp.lang.pascal
Titolo: VisualPascal?

 via Mailgate.ORG Server - 
http://www.Mailgate.ORG



e non solo... ^_^
rhymes
rhy...@tiscalinet.it


 E' l'evoluzione del Pascal per Windows.
No, no e poi no!!!!!!!!! Delphi e TP sono cose completamente diverse!!!!!!
Delphi: Ambiente di sviluppo RAD (Rapid Application Development) che prende il
linguaggio pascal, ampliandolo per lo sviluppo di applicativi Windows, con
l'utilizzo dell'OOP nativo!
Turbo Pascal: Ambiente di programmazione Dos, con sviluppo di applicativi a
16-bit, con la possibilità di utilizzo OOP solo come estensione!
Per "versione Visual del Pascal" credo intenda una cosa come la DosShell: per
questo esiste Turbo Vision, delle librerie scritte usando Pascal e completamente
OOP; oppure esiste anche la versione per Windows, nota come Pascal for Windows
di cui l'ultima versione è la 1.5 che consente la creazione di applicazioni
Windows a 16-bit, per intendersi Win 3.1x.
Ciao e spero di essere stato abbastanza esauriente!!

16-bit, con la possibilità di utilizzo OOP solo come estensione!
ma allora con 'sto borland delphi è più facile fare "un giochino"????


wrote:


> ma allora con 'sto borland delphi è più facile fare "un giochino"????
Beh, visto che ti consente di utilizzare le DirectX, il "gioco" è quasi risolto,
dal momento che le routine grafiche se le gestiscono loro!!