mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: File di testo

Per caso qualcuno mi può mandare una creazione tipo di un file di testo
(nella mia non so come uscire dall'inserimento senza memorizzare il
carattere di uscita) e una funzione che calcola il n. di linee che
compongono il file?
Grazie,
daniela.



Questo esempio ke ho appena fatto calcola il numero di linee ke
compongono il file... ci sono altri modi per farlo ma questo è il più
semplice.... sempre ke non hai file di grosse dimensioni.
program linea;
var
FileNome : String;
function GetLine(Nome:String):LongInt;
var
 temp:LongInt;
 Ptr: TEXT;
begin
assign(Ptr,Nome);
reset(Ptr);
temp := 0;
repeat
  readln(Ptr);
  temp := temp + 1;
until eof(Ptr);
Close(Ptr);
GetLine := temp;   (* Ritorna le linee *)
end;
begin
FileNome := 'prova.txt';
writeln('Linee :',GetLine(FileNome));
end.

 ha scritto nel messaggio
news:3b34f7c4...@news.tin.it...


 compongono il file... ci sono altri modi per farlo ma questo č il piů


 ha scritto nel messaggio
news:j1lZ6.22751$8R5.5...@news.infostrada.it...


Il repeat non è molto appropriato se il file è vuoto tenta cmq di leggere
una riga
 program linea;
 var
 FileNome : String;
 function GetLine(Nome:String):LongInt;
 var
     temp:LongInt;
     Ptr: TEXT;
 begin
 {$I-}
    assign(Ptr,Nome);
    reset(Ptr);
{$I+}
   temp := 0;
   if IoREsult=0 then
    begin
       while not eof(Ptr) do
           begin
              readln(Ptr);
              temp := temp + 1;
           end;
        Close(Ptr);
   end
   else writeln('Impossibile aprire il file :',nome);
  GetLine := temp;   (* Ritorna le linee *)
 end;
ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------
Ps.: vedi sul sito esiste un tutorial sui file di testo
Newsgroup: it.comp.lang.pascal
Titolo: Appunti di windows

Scusate il secondo post di seguito ma sto facendo un lavoretto piuttosto
importante e quindi... :)
Sono su notepad per es. Seleziono e faccio "copia".
Bene, ora vorrei sapere in che area di memoria mette win il testo
selezionato. Vorrei usare questi "appunti" in un programma tp.
Grazie mille
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

Alex
Arianna Microchip
ari...@softhome.net
Web: 
http://arianna.cjb.net
http://consolicarmen.cjb.net

 ha scritto nel messaggio
news:9eokbr$e8jl$1...@ID-83341.news.dfncis.de...


 ha scritto nel messaggio
news:v9ovgtcud5i1kun57...@4ax.com...


Basta che apri i *.pas con il note pad:
apri note pad, apri file, selezioni tutti file, e apri il tuo PROGRAMMA.pas

 che quindi si possa fare tagli-copia-incolla tra le varie applicazioni.
Forse ho capito male io? o hanno capito male tutti gli altri?
Vuoi che si possa fare un taglia-copia-incolla del testo del tuo
programma? oppure vuoi che il windows faccia taglia-copia-incolla
di qualsiasi testo, qualsiasi cosa, e che successivamente il tuo
programma legga o trovi ciň che il windows ha "incollato"?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 programma legga o trovi ciň che il windows ha "incollato"?
+ o - sě: windows fa per es un copia e poi quando lancio l'exe fatto il mio
tp, riesca a "prendere" il testo copiato prima e riesca quindi ad incollarlo
nella mia applicazione.
Non so se mi sono spiegato...
Alex
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

 selezionato. Vorrei usare questi "appunti" in un programma tp.
Win98 o Win31??
Win98 gira in modalita' protetta, e non puoi accedere direttamente alla
memoria
scavalcandolo, perke' rischi di farlo imballare.
Per poter accedere al contenuto degli appunti, devi usare le API di Winzozz.
Non so se ci sono librerie per gestire le API in TP7. Devi usare Delphi.
Bye bye.
'l rasune'
-----
Sao ko kelle terre, per kelle fini que ki contene,
trenta giorni le possette parte Sancti Benedicti.
( placiti cassinesi )

Grazie mille del chiarimento.
Ora ho capito che è un gran casino! :)
Dubito che ci siano unit per gestire le api... mai viste!
Ciao
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it
"Fantozzi rag. Ugo" <mr.d...@SPAMtiscalinet.it> ha scritto nel messaggio
news:9f3opp$var$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: getdate

Scusate ragazzi, piccolo quesito:
avrei bisogno di convertire in string le variabili contenute nel getdate e
non ne ho la più pallida idea....ho provato in vari modi...ma mi da l'errore
26(type mismatch)
var
    a,m,g,gds:word;
.......
getdate(a,m,g,gds);

beh le tre var sono anno mese giorno e giorno della settimana...
se vuoi ti costruisci delle array Mese/GS che contengano
'Gennaio','Febbraio'  e 'Lunedi''','Martedi''' etc etc e da li
ti ricavi Mese[m] e GS[gds] che sono stringhe...
per convertire anno e giorno guarda la proc Str
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 --- 8< ---
ops... il fatto che fossero quattro non mi ha
minimamente toccato :-)


Si ma il mio problema principale è convertire i numeri...esempio...
Devo calcolare quanti giorni intercorrono tra la mia data di nascita e la
data attuale. Dovrò convertire anche la data del getdate...cioè: se mi darà
3/1/2001 voglio che me lo mostri come 03/01/2001 ....come fare? Ricordando
però che dopo devo calcolare i giorni ...e non saprei minimamente come
operare.
Grazie mille per l'aiuto...
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:A2ZY7.20468$s04.9...@news.infostrada.it...


 data attuale. Dovrò convertire anche la data del getdate...cioè: se mi
darà
qualcuno un paio di mesi fa aveva fatto un programma molto
simile (mi sembra n° giorni fra due date ?! boh...)
prova a chiedere e/o cercare indietro sul ng ( 
www.dejanews.com
 )


Newsgroup: it.comp.lang.pascal
Titolo: Radice di un numero

C'è nessuno che può postare l'algoritmo per il calcolo della radice
quadrata, cubica, quarta, ecc. di un numero?
--
Davide
davi...@usa.net
ICQ: #20331544

quadrata, cubica, quarta, ecc. di un numero?
radice := exp ( esponente * ln ( base ) ) ;
Dove esponente e' 1/2 per la radice quadrata, 1/3 per quella cubica,
1/4 per la quarta, ecc....

Beh, puoi avvalerti di quella formuletta che dice: a^b = e^(b*ln(a))
Perciò per la radice quarta di 10, per esempio, fai:
writeln(Exp(1/4*ln(10)):5:3);
Ciao.
Darius. (
www.infotronica.it/darius/
)
Newsgroup: it.comp.lang.pascal
Titolo: aiuto per sprite !!!!

Ciao a tutti ,
                        sto cercando di realizzare un gioco (clone di
pacman) con il Turbo Pascal 6.0 ( NOn fate commenti per favore !!!)
Ho letto diversi tutorial e passato diversi sorgenti , ma penso di avere un
pò confusione .
Conosco discretamente il TP e l'assembler  ma in questi giorni ho letto
forse troppi tutorials e sorgenti   alcuni anche un pò datati !!!!
Premetto che ancora non voglio addentrarmi nelle directx o altro di
complicato  vi pongo i miei dubbi
1) Se ho un bitmap o un pcx o altra estensione come faccio a sapere
quanto è grande la sua intestazione e come faccio ad avere info sulla
lunghezza e larghezza ?
2) Che procedura conviene usare per copiarlo in memoria e stamparlo sullo
schermo  ?
3) Se uno sprite è animato come posso gestire al meglio i frame
             Sprite : array[1..5] of frame ;
  Come lo gestisco poi ?
Grazie a tutti coloro che mi aiuteranno
c...@libero.it
cek

   Come lo gestisco poi ?
Incrementi un contatore  ogni tot frame ( o megli con l'interrupt del
tempo ) e poi scrivi la frame(contatore mod 5)
Fammi sapere come e` andata e spediscimi il tuo clone di Pac-Man (e` ancora
un grande gioco)!
--
\ |
 \|ix

Se usi le DirectX in C, risulta tutto molto più facile
--
Fabio "C h R o N o" "Engraver"
UIN: 47413913
E-mail: 
engr...@libero.it
Secondary E-Mail: 
fab...@puntofuturo.net
Homepage: 
http://digilander.iol.it/Emima/
Grafico - Siderion
"La pianta dell'ingegno non smette mai di germogliare..."

  .... Pac-Man (e` ancora un grande gioco)!
Confermo in pieno!!
Un saluto da Maki.
togli NOSPAM dalla email
NOSPAMm...@libero.it
Newsgroup: it.comp.lang.pascal
Titolo: problemi vari...

Ciao a tutta la ml.
Vi scrivo per avere qualche suggerimento e , se possibile, aiuto.
Devo sostenere un esame all'universita' che prevede una parte (piccola) 
dedicata alla programmazione in pascal.
Mi rendo conto che si tratta veramente di pochi argomenti basilari ma, 
nonostante la mia applicazione, sto facendo
un po' fatica ad entrare nel mondo della programmazione.
Credo che il mio problema sia + quello di riuscire a inventare 
l'algoritmo che risolve un problema,
che non quello di redigere il programma in una forma sintatticamente 
corretta.
Comunque, ecco l'esercizio su cui mi sono arenato:
devo scrivere un programma che sia in grado di calcolare i divisori 
propri di un numero. Il programma deve essere
diviso in una funzione che verifica che il numero ne abbia, e una 
procedura  che li calcola e li scrive; ovviamente
questo esercizio fa parte del capitolo dedicato a procedure e funzioni...
Ecco le mie domande:
1)Non ho ben chiara la differenza tra variabili locali e globali e 
quindi non riesco a far "collaborare"
la funzione che sono riuscito a scrivere, con una procedura che non 
riesco a scrivere ...:)
2)Questa e' la funzione che sono riuscito a scrivere (vi do solo la 
parte importante):
var n, Divisore, risultato : integer;
read (n);
Divisore:=2;
Risultato:= n mod Divisore;
while risultato <> 0 do
begin
Divisore:= succ (Divisore);
Risultato:= n mod divisore;
end;
questa funzione mi restituisce solo il primo divisore utile, e non sono 
riuscito a far continuare il processo,
per gli altri.
Potete suggerirmi un algoritmo che possa fare al caso mio?
Tenete conto che non mi interessa la soluzione in se, poiche' si  tratta 
solo di un esercizio, ma mi interessa
di piu' riuscire a cominciare a programmare, ad avere quella fantasia 
che permette di trovare un modo per
dire , tramite il pascal, al pc di risolvere un problema (se questo si 
puo' imparare...).
C'e' qualche altra risorsa su internet che possa aiutarmi?
Qualsiasi ltro suggerimento e' gradito
GRazie a tutti
Antonluigi

 ha scritto nel messaggio
news:3CD06FA2...@tiscali.it...



Marcello.

 ha scritto nel messaggio
news:l15A8.87390$vF6.2...@news2.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Come si fa a stampare?

Ciao a tutti
io programmo da circa un anno (con il borland pascal) e ora mi servirebbe
sapere come fare a stampare qualcosa. Ho visto che esiste la unit printer ma
l'help mi è sembrato incomprensibile!! Sperando che qualcuno mi possa
aiutare, magari dandomi una unit, saluto tutti ringraziandovi per la
collaborazione.
Ciao e grazie
Fabio
faco...@tin.it

 wrote:

Stampare e' facile e non si usano unit.
Basta buttare tutto quello che vuole stampare in un file cosi'
dichiarato:
	f:text;
poi gli devi assegnare il nome 'lpt1' se la stampante e' collegata
sulla porta parallela 1 o 'lpt2' se....
	assign(f,'lpt1');
	rewrite(f);
a questo punto se vuoi stampare la stringa S basta che fai
	write(f,S);
se vuoi stampare ed andare a capo
	writeln(f,S);
puoi stampare variabili di tipo char.
Se per esempio dopo aver stampato alcune cose vuoi andare a pagina
nuova, basta che fai:
	write(f,#12);
La stampante viene trattata in tutto e per tutto come un file. Cosi'
e' facile anche controllare anche se la stampante e' accesa. Infatti
bsta provare a scivere qual'cosa e controllare il valore di IOResult
(ricordandosi di utilizzare gli   {$I-}  e  {$I+} ).
Ciao,   Fabio
fabi...@rocketmail.com

E come si fa se si vuole cambiare dimensione o formattare in qualche
modo il testo?

Ciao Fabio e grazie del consiglio, però ho un problemino.
Ho provato a far girare il seguente semplice programma:
program stampa;
var t:text;s:string
begin
s:='abc';
assign(t,'lpt1');
rewrite(t);
writeln(t,s);
close(t);
end.
che però, invece di stampare una pagina con scritto 'abc' non fa niente,
perché?
E poi, scusa se sfrutto la tua gentilezza, mi spieghi meglio come faccio a
usare IOresult che per me è una parola araba!
Grazie ancora dell'aiuto e a presto
Fabio
faco...@tin.it

usare IOresult che per me č una parola araba!
  Eh, l'help, questo sconosciuto :)
------------------
  IOResult (function)
 Returns the status of the last I/O operation performed.
 Declaration:
 function IOResult: Integer;
 Target:
Windows, Real, Protected
 Return Value:
0 if successful.
 Remarks:
I/O-checking must be off--{$I-}--to trap I/O errors using IOResult. If
an I/O error occurs and I/O-checking is off, all subsequent I/O
operations are ignored until a call is made to IOResult. A call to
IOResult clears the internal error flag.
 Remarks:
A call to IOResult clears its internal error flag. I/O-checking must
be off {$I-}.
---------------------
  Ciao,
  Mabu.


faco...@tin.it
Il discorso sulla IOResult lo rimando ad un'altra volta.
Saluti,  Fabio
fabi...@rocketmail.com


Per cambiare tipo di testo puoi utilizzare i fonts della stampante.
Questi sono selezionabili anche via software. Guardati il manuale
della stampante. In pratica devi inviare alla stamparte delle
particolari stringhe (che dipendono dal modello della stampante o tipo
di linguaggio usato). Per la formattazione del testo e' piu'
complicato. Devi fare tutto da te gestendoti gli spazi che devi
mettere tra le parole.
CIAO,   Fabio.
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Memoria video

Salve,
potreste dirmi come si gestiscono i colori con la memoria video? Ci sono 
più di 16 colori a disposizione no? E senza fare uso della Graph.
Grazie
-- 
Luigi
--
bug windows [5] = {"95", "98", "NT", "Me", "2000"};
togli "tilescarpe" per rispondere via e-mail

 ha scritto nel messaggio
news:2%i57.465$VO5....@news.infostrada.it...


 Alex
Per caso c'è qualche libro (anche sull'Assembly) che lo spiega?


> Per caso c'è qualche libro (anche sull'Assembly) che lo spiega?
Non lo so propio, mi spiace. Non mi sono mai interessato molto
all'argomento...


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

Salve, qualcuno saprebbe indicarmi un compilatore a 32 bit???

...


Newsgroup: it.comp.lang.pascal
Titolo: DOVE SCARICARE TURBO PASCAL?

Vorrei trovare una versione FREE del Turbo Pascal.
Dove posso scaricarla?
Grazie.
Andrea

 wrote in message 7u7vtp$6o3$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Offerta di Lavoro

Azienda Informatica Romana attiva nel settore Sicurezza, cerca
programmatore esperto Delphi, con conoscenze anche di C, C++ e vari
Server DB (MSSQL, MySQL, ecc.) per immediato inserimento in Team di
Sviluppo. Preferibilmente max 30enni e domiciliati in area Roma.
Spedite il vostro Curriculum all'indirizzo sopracitato. 
mhv...@tin.it

 ha scritto nel messaggio

Non sono molto d'accordo con la cosa, ma è illegale porre dei limiti di età 
negli annunci di offerta di lavoro.
Inoltre sarebbe opportuno che chi posta annunci sia identificabile (sempre a 
norma di legge).
Il messaggio è completamente OT.
Diffiderei di una "azienda" che posta a mezzanotte di un giorno festivo.
Gianluca. 

 Diffiderei di una "azienda" che posta a mezzanotte di un giorno festivo.
beh, e' un'agenzia informatica, quindi il fatto che posti a mezzanotte 
indica che lavorano in una stanza illuminata solo dalla fluerescenza dei 
monitor e in cui l'ora non ha importanza -> estrema professionalita' :)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!!!!!!!!!!

Ho un grande favore da chiedere a chiunque sia in grado di rispondermi...
Avrei urgente bisogno di un manuale  per "Turbo Pascal for Windows 1.5" o
simile... magari che non contenga solo le istruzioni per i cicli di
iterazione ma anche qualcosina di utile...
Se sapete dove trovarlo ditemelo o se lo avete su HD speditemelo a
saw...@libero.it
 .
Per favore .... mercoledě ho un esame e devo presentare un programmino fatto
in turbopascal.
Grazie infinite per gli aiuti che vorrete darmi!
ciao
--
GoDDamneD

 ha scritto nel messaggio
news:jj4c8.15067$8F6.6...@twister2.libero.it...
[CUT]
Interesserebbe molto anche a me, visto che lo sto studiando a scuola molto
superficialmente e mi piacerebbe approfondire...
Magari anche un manualino di Delphi non farebbe male... ;-)
Grazie

 ha scritto nel messaggio
news:jj4c8.15067$8F6.6...@twister2.libero.it...

www.turbo-pascal.cjb.net
--
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
1.5
per il reply togliere NOSPAZZATURA

Newsgroup: it.comp.lang.pascal
Titolo: Vegeta!!!!

Ehi Vegeta mi stai per caso dicenìndo che con il mio pentium non potrò mai
scrivere Pascal senza CPU Killer??
Il programma scaricato dal sito che mi hai indicato ovvierà a questo
problema??
Come lo posso usare?
Grazie ancoraJUNIOR!!!

 Come lo posso usare?
Dipende da che patch è, quella che ho io va scompattata nella cartella
bin e lanciata, patcha i file giusti e non da più errore. Poi ci sono
anche delle patch residenti in memoria, per i programmi già compilati.
-- 
dario...@iol.it
 (pgp key on pgp servers)
http://dario.eyep.net
 (dial-up)
ICQ#: 37438061
The only good Windows is an uninstalled Windows, or maybe Windows2K


DI NIENTE!!!!!!!!

Newsgroup: it.comp.lang.pascal
Titolo: Real e Single

Mi sono posto un problema a cui non so rispondere.
Un Real occupa 6 byte, e rappresenta numeri da 2.9E-39 a 1.7E38.
Ciò significa che impiega 1 byte per memorizzare  l'esponente
(2.9E-39=-2^128, mentre 1.7E38=2^127).
Ma un tipo Single, quanti bit usa per registrare l'esponente?
Mi aiutate a capirlo?
PV

precisione singola e doppia dovrebbero seguire i malefici standard ieee:
single:
8 bit esponente
1 bit segno
23 bit mantissa (cifre significative)
----
32 bit totale
double:
1 bit segno
11 bit esponente
52 bit mantissa
----
64 bit totale
so' di una quadrupla precisione ma non l'ho mai vista...
il real e' invece una cosa "media" :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: dove...........

.....................posso trovare la versione 7.0 di turbo pascal da
scaricare gratuitamente?

 scaricare gratuitamente?
ti posso aiutare ancora di + cosi' :
vai su 
www.freepascal.org
scarica la versione 1.0.6 per il tuo OS
e per ogni programma che fai, aggiungi come prima istruzione la seguente
{$mode TP}
tutto fatto
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


guarda nel sito in firma
--
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


Prova a cercare su 
www.google.it
 (ti ci vorrà molta pazienza...)

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

Creando un array dinamico tipo numero: array [1..last] of real bisogna per
forza impostare last come costante ? non è possibile farla variare ?
_________________________________
#ICQ: 17079401
http://members.xoom.it/renato_ep
_________________________________
-->René<--
:-)

 wrote in message
7lfsl9$p7q$2...@nslave1.tin.it...


forza impostare last come costante ? non è possibile farla variare ?
Questa domanda e' divenuta da un po' di tempo una vera e propria FAQ.
Il Pascal non consente di dichiarare i vettori con una lunghezza
variabile.
La misura va esplicitata obbligatoriamente in fase di dichiarazione
come costante.
In alcune estensioni del Pascal standard, come il Turbo Pascal, si
puo' ovviare al problema distraendo le routine di run-time del
programma dal controllo di coerenza con l'intervallo dichiarato per
l'array.
La direttiva da utilizzare e' {$r-}
In pratica si puo' definire qualcosa del genere :
{$r-}
type p_vettore_interi = ^vettore_interi ;
     vettore_interi = array [0..0] of integer ;
...
var pvi : p_vettore_interi ;
ed usare 
getmem( pvi, 100 * sizeof( integer ) ) ;
per allocare memoria per il puntatore.
E si potrebbe ricorrere ad una funzione tipo la seguente per espandere
il vettore allocato, in un secondo momento :
type size_t = word ;
function tp_expand( p : pointer ;
                    old_size,
                    new_size : size_t ) : pointer ;
var f : file ;
label esci_con_errore, fine ;
begin
  if ( new_size > old_size ) then
  begin
    {$I-}
    assign( f, 'REALLOC.SWP' ) ;
    rewrite( f, 1 ) ;
    blockwrite( f, p^, old_size ) ;
    if ( IOresult <> 0 ) then goto esci_con_errore ;
    freemem( p, old_size ) ;
    getmem( p, new_size ) ;
    if ( p = NIL ) then goto esci_con_errore ;
    reset( f, 1 ) ;
    blockread( f, p^, new_size ) ;
    if ( IOresult <> 0 ) then goto esci_con_errore ;
    tp_expand := p ;
    goto fine ;
  end ;
esci_con_errore :
  tp_expand := NIL ;
fine :
  {$I+}
end ;
Newsgroup: it.comp.lang.pascal
Titolo: GIOCO

Chi mi dice un sito o mi manda direttamente un gioco creato con Pascal?
Simone

ma vuoi il src, o il gioco ? :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:CwgM6.2818$pa3.3...@news.infostrada.it...


 Simone
Il mio preferito, Super Mario:
http://www.cs.kun.nl/~mike.wiering/mario/
Ciao!
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-

Sul mio sito trovi un sacco di sorgenti e trovi degli esempi.
Non veri giochi ma  ottimi per capire che col pascal č possibile fare certe
cose!
http://www.xungame.com
Ciao.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                           Giovanni Ceglia
                WebMaster & WebDesigner
 
http://www.xungame.com/
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Newsgroup: it.comp.lang.pascal
Titolo: Socket - Localhostname

Ciao a tutti.
Vorrei sapere se esiste qualche unit free, magari completa di source,
per i socket (tcp/ip).
Mi spiego meglio: vorrei usare delle funzioni, ad esempio, per sapere
il mio local IP, il mio localHostname, il remoteIP, etc....
Eventualmente, se cio' non esistesse, sarebbe opportuno provare a
costruirsi una unit, partendo dai servizi offerti dagli interrupt?
Saluti.

...


si si
l'ho gia' fatto in visual basic e delphi, ma lo volevo fare per dos


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

Salve,
Ho un sistema operativo Win XP.
Ho installato Turbo Pascal 7, ma mi sono accorto che, contrariamente alla
versione TP6 in TP7 non esistono le units Crt che contenevano molte
procedure/funzioni predefinite come ClrScr, ReadKey, eccetera.
Dovrebbero essere nella Unit Turbo3, ma non ci sono.
Ho provato a copiare la unit Turbo3 dalla versione TP6, ma la cosa non
funziona (lanciando un programma che contiene ClrScr viene fuori
Error:Division By 0).
Come fare?
                            Grazie
                                       Giuseppe


Hai scaricato un tp incompleto... cercalo altrove e scarica una versione
completa e funzionante.
Ciao

Error:Division By 0).
Questo è normale (PS non dovrebbe funzionarti... una unit del TP6 non
è compatibile con una unit del TP7 cmq la CRT sta dento ad un file
insieme ad altre "di sistema" il file è TURBO.TP e non centra un
piffero con il file TURBO3.TPU
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO: cerco disperatamente aiuto

Sono uno studente e ho assolutamente bisogno di risolvere questo
problema in Pascal:
" Scrivere un programma in Pascal che dato un grafo non orientato
determina se esiste un percorso che attraversa una ed una sola volta
tutti i nodi"
Vi prego ho fretta di risolvere questo problema!!!!
Le risposte sono preferibili via E-Mail all'indirizzo : 
aen...@iol.it
perchè non controllo spesso questo newsgroup!!!
Vi ringrazio sin d'ora per il Vostro gentilissimo aiuto e a
risentirci!!!!
Davide "AenigmA"
Ænigma
---
ICQ uin: 24791154
Remove "NOSPAM" to reply

Questo non č altro che il problema del piccione viaggiatore, che diversi
studi hanno classificato come algoritmo non computabile, in quanto il
necessario per risolvere si classifica un O (grande) polinomiale ( se non
erro si chiama cosě ) n elevato alla m, cioč non in tempi ragionevoli, ma
ore, giorni, mesi e perfino anni.
Nel caso di pochi nodi č fattibile, ma per un n sufficientemente grande
allora diventa non computabile.


"non computabile" in un tempo ragionevole, ma pur sempre risolvibile.
---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Problema Crt

So che questo problema è vecchio come il bacucco ma mi serivrebbe la patch
per il Pascal per i processori PII, quella che risolve il problema del
"division by 0" usando le librerie. Se qualcuno riesce a mandarmela sul
mcb...@ngi.it
 gliene sarei infinitamente grato.
O per lo meno ditemi dove scaricarla... grazie
Alien McBlood

...


 --> IL MIO SITO: 
http://digilander.iol.it/darkbytes
Grazie mille volo!
Alien McBlood

Newsgroup: it.comp.lang.pascal
Titolo: Lettura di file da DVD/CD

 
          Ciao a tutti,
devo leggere un file da DVD, ma quando tento di farlo mi da degli errori in
quanto il file è un file di sola lettura. Ho provato, dopo l'istruzione
"reset" a far proseguire il programma in caso di Ioresult=0 oppure
ioresult=5, ma alla prima read che faccio il programma mi si blocca.
Come posso fare a dire al programma che in effetti il file lo apro solo per
leggerlo????
Grazie, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie, Mario
Trovato !!!
Prima di aprire il file, bisogna inserire
FileMode:=$0002;
In questo modo il file viene aperto per la sola lettura


Newsgroup: it.comp.lang.pascal
Titolo: HELP: Richiesta semplice programma per la gestione di fatture.

Ho bisogno di un programma in pascal che ,inseriti i dati di una
normale fattura stampi il documento con il totale.
Deve essere semplice ed essenziale e deve tener conto di piu' aliquote
IVA, sconti, spese documentate,ecc.
Vi ringrazio anticipatamente.
Marco



Scusa, vuoi che qualcuno di noi ti faccia un programma di gestione 
fatture puramente 'a gratis'?
E' meglio se mandi un messaggio piu' esplicativo
PLEASE RESPOND ME AD 
abo...@racine.ra.it
Newsgroup: it.comp.lang.pascal
Titolo: Incompatibilita

Un paio d'anni fa avevo scritto un programma in Turbo Pascal 7 della Borland
per gestire una scheda di mia costruzione.
Tutto funzionava su un Pentium con Win95, ma adesso , un P2 e win98 TUTTI i
vecchi eseguibili mi danno lo stesso run-time error, anche ricompilandoli
sul nuovo computer.
Visto che non vorrei riscrivere questo programma, che mi serve ancora, cerco
suggerimenti per "recuperarlo"
        Grazie
--
Posted from [195.120.22.160]
via Mailgate.ORG Server - 
http://www.mailgate.org

 suggerimenti per "recuperarlo"
Devi procurarti una PATCH apposita.
Vedo se riesco a rimediarla ...

 sul nuovo computer.
Beh che errore era potevi scriverlo però ! :)
 Se si tratta di un division by zero, può essere che si tratti di un
computer troppo veloce (mi è capitato) ma solo se in qualche punto il tuo
programma controlla la velocità del pc su cui gira.
Ciao !			{MSX}
-- 
=============================
E-MAIL:   
Lugat...@iol.it
----------------------------------------------------------
ICQ#   48855787
----------------------------------------------------------
http://gpi.eden.it/
=============================


No, basta che usa il modulo crt,che si usa quasi sempre.
Si trovano molte patch in giro per risolvere questo problema.
Potete chiedere a Simone "Falken".

 wrote in message
sBbH3.41412$1u4.2...@typhoon.libero.it...

Ciao :)
Allora, quando viene inserito "uses nomelibreria" in un programma, il
Borland/Turbo Pascal inserisce automaticamente un salto ad un codice che
esegue determinate operazioni per utilizzare correttamente tale libreria.
Nella unit "CRT", il codice in questione inizializza alcune variabili tra
cui (normalmente non accessibile da programma) una a 16 bit che stabilisce
il numero di operazioni che il processore riesce ad eseguire in un
determinato periodo.
Brevemente, questa variabile viene utilizzata dalla procedura Delay in modo
da poter ottenere un ritardo "quasi uguale" su ogni tipo di macchina (sia
8086 che Pentium).
Poiche' i recenti processori (credo dal P200 in poi) riescono ad eseguire
moltissime istruzioni, la dimensione della variabile in questione non e'
piu' sufficiente, quindi e' necessario portarla a 32 bit.
Se non hai bisogno di utilizzare la procedura Delay o non ti interessa che
esegua un ritardo ben preciso, allora puoi scaricare tranquillamente il mio
bugfix....altrimenti ti consiglio di aspettare qualche giorno (sto
studiando...) per la versione definitiva del suddetto programmillo.
Ciao!
Simone.
_____________________________________________
"....c'e' vita su Marte ?"
"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: imparare a programmare

potete suggerirmi un sito dove reperire una guida semplice per incominciare
ad imparare a programmare in pascal?
tenete presente che di programmazione non conosco nulla.
Grazie a tutti.
marc...@tin.it

Un bel giorno, tutt'a un tratto, Marco Sica, non so se mi spiego !, si mise a
scrivere :

Ciao Marco,
ti fornisco l'indirizzo di un sito nel quale puoi trovare una buona guida sul
pascal.
http://www.swcp.com/~dodrill/pasdoc/paslist.htm
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 tenete presente che di programmazione non conosco nulla.
http://www.geocities.com/SiliconValley/2926/tpf.html
chapters "books", "manuals", FAQ.
:-) Franz Glaser

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 6-7 per Linux

Salve a tutti,
vorrei sapere dove posso scaricare l'ultima versione di turbo pascal
per piattaforma linux. La mia sta iniziando ad essere vekkiotta :-)))
DeV
skywa...@usa.net

Turbo pascal non credo che ci sia. Cmq, puoi usare il gpc della GNU, un
compilatore pascal a riga di comando. Lo dovresti trovare su
http://www.gnu.org
--
Davide
davi...@usa.net
ICQ: #20331544
<DeV> wrote in message 3729c57f...@news.ntt.it...


 DeV 
skywa...@usa.net
Turbo Pascal is for DOS (and a little for Windows) only.
Look for FPC and GNU here:
http://start.at/tp-links
chapter "compiler"
:-) Franz Glaser

Newsgroup: it.comp.lang.pascal
Titolo: aiuto, cerco unit...

volevo sapere se qualcuno ha la unit delle liste e puntatori  .
Chiunque la abbia me la puo inviare in privato?
Grazie
emip...@tin.it

 ha scritto nel messaggio
news:vWpC8.39824$zW3.4...@news1.tin.it...


 ha scritto nel messaggio
news:vWpC8.39824$zW3.4...@news1.tin.it...

Richiesta assurda!
Le strutture dinamiche si adattano caso per caso al tipo di problema in
questione che si desidera affrontare.
Qualcuno volendo, può spiegarti al  massimo la logica in una struttura
dinamica e come si crea... e non il resto :)
Cooper.
Newsgroup: it.comp.lang.pascal
Titolo: Ho un problema.

Salve a tutti,
non sono digiuno di programmazione perché ho lavorato e lavoro tutt'ora in
Clipper, ma di Turbo Pascal non ci capisco una mazza.
Mi ritrovo fra le mani il listato di un programma dentro cui devo (o
dovrei) cercare una funzione che non so come si chiama. Faccio un esempio:
se in Clipper scrivo ? DATE() oppure ? TIME() il programma mi restituisce
la data o l'ora del sistema; se in Turbo pascal voglio sapere la frequenza
cui lavora il sistema, esiste una funzione che me la estragga? Se qualcuno
vorrà darmi una risposta poi spiegherò la ragione (perché è un pò lunga da
spiegare) di questa mia richiesta. Grazie.
Angelo.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> se in Turbo pascal voglio sapere la frequenza cui lavora il sistema,
 > esiste una funzione che me la estragga?
nelle librerie di default non c'e' una simile procedura... c'era una
"stima" per permettere di temporizzare i programmi ma adesso non
funziona piu' e deve essere sostituita con librerie esterne, quindi
in ogni caso la funzione che cerchi sara' scritta da qualche parte
nel programma stesso o nelle librerie allegate ad esso.
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 nel programma stesso o nelle librerie allegate ad esso.
Innanzitutto grazie per avermi risposto;
ho letto e riletto la tua risposta, capivo che c'era qualcosa che non
andava e ci sono arrivato solamente oggi. L'altra volta ho dimenticato di
scrivere che il programma è stato creato per funzionare in dos e tutt'ora
funziona in dos. Ed ancora, oltre ad avere il listato, ho anche il linker
del turbo pascal per dos, cioè il compilatore ed il linker che è stato
usato a suo tempo per creare i file .pas che funzionano tutt'ora. E'
sempre impossibile fare quello che avevo chiesto io nel primo post? Grazie.


Newsgroup: it.comp.lang.pascal
Titolo: Trovare il maggiore

Salve.
Qualcuno mi puň scrivere un modo per trovare il numero piů alto tra n numeri
di un vettore senza usare procedure.
Grazie.


var vettore : array[1..10] of integer;
      i,max: integer;
begin
(* inserimento dati nel vettore *)
max:=vettore[1];
i:=2;
while (i<10) do
  begin
      if max<vettore[i] then  max:=vettore[i];
      i:=i+1;
  end;
 writeln('il massimo č ',max);
end;
Ciao RdC
--
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

funziona.
Grazie.
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:3cPT9.13505$0v.3...@news1.tin.it...


 Grazie.
Eh si, funziona! RdC si sarą ammazzato di lavoro per creare quel codice :-)
Scherzi a parte, stimo molto RdC.
Ciao

 Eh si, funziona! RdC si sarà ammazzato di lavoro per creare quel codice

Newsgroup: it.comp.lang.pascal
Titolo: urgente

Scusate la banalità della domanda associata all'oggetto "urgente", ma ho
bisogno di una risposta al + presto.
Usando la funzione rectangle della unit graph, mi viene disegnato solo il
contorno del rettangolo. Se io volessi " riempirlo" di colore come devo
fare? E per disegnare con colori diversi come si fa?
Grazie

Grazie
Sono anni che non programmo piu in tp sotto dos
ma mi pare di ricordare che BAR fa quello che chiedi.
le istruzioni per i colori proprio non me li ricordo (forse nemmeno 
BAR esiste)


Hai propio ragione, grazie mille. Per i colori...boh!
Alex

Prova con setcolor  e fillcolor dovrebbero essere questi i comandi cmq se
vedi l'help c'è qualche esempio
Ciao ReDiCuori
"Alex" <el_co...@TOGLIQUESTOlibero.it> ha scritto nel messaggio
news:9ivf6.107309$ew1.6...@news.infostrada.it...


SetFillStyle(colore, pattern)
direi, cmq controlla
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

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

scusate se qualcuno ha un manuale per il turbo pascal 7.0
grazie

 scusate se qualcuno ha un manuale per il turbo pascal 7.0
Il massimo che possos dirti č: visita questa pagina 
http://members.xoom.virgilio.it/elektro/programmazione.htm
bye

Newsgroup: it.comp.lang.pascal
Titolo: Richiesta piccolo programma.

Scusate, mi è stato chiesto con la massima urgenza un semplice
programmino in Pascal per il gioco degli scacchi. Se ho ben capito, la
necessità è quella di un programma fatto per il gioco a due (niente AI o
roba simile), praticamente solo una scacchiera sul computer. Lo farei
io, se sapessi usare il Pascal decentemente, purtroppo ormai l'ho perso
del tutto in favore del C++. Se qualcuno avesse o fosse disposto a fare
un programmino simile, gli sarei molto grato se me lo inviasse a questo
e-mail. Grazie.
-- 
				I'm the best at what I do.
					Cesare "Wolverine" Bartolini

, il giorno Mon, 15 Sep 1997
23:22:58 +0200 hai scritto:
#Scusate, mi è stato chiesto con la massima urgenza un semplice
#programmino in Pascal per il gioco degli scacchi. Se ho ben capito,
la
#necessità è quella di un programma fatto per il gioco a due (niente
AI o
#roba simile), praticamente solo una scacchiera sul computer. Lo farei
#io, se sapessi usare il Pascal decentemente, purtroppo ormai l'ho
perso
#del tutto in favore del C++. Se qualcuno avesse o fosse disposto a
fare
#un programmino simile, gli sarei molto grato se me lo inviasse a
questo
#e-mail. Grazie.
#-- 
#				I'm the best at what I do.
#					Cesare "Wolverine" Bartolini
Ciao,
se per caso hai il Borland Pascal 7.0, c'e' nella directory degli
esempi un gioco di scacchi (che funziona sotto win o in protected
mode) molto ben fatto (c'e' anche la possibilita' di giocare contro il
computer, e gioca bene!!)
bye,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/
(Programmazione in Pascal)
** Concentrazione = Forza **

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

Esiste un comando o una libreria che dia la possibilità di avere la risposta
(mi basterebbe vero/falso) di un ping effettuato ad un qualsiasi indirizzo
IP ?
Grazie.

 wrote in message 8knpf7$q9p$1...@serv1.iunet.it...

Newsgroup: it.comp.lang.pascal
Titolo: VIRUS CON TP 7

Vorrei sapere alcune istruzioni fondamentali per fare eseguire comandi dos
col Turbo Pascal.
Uses ...:
Premetto che so programmare un pņ in pascal ma non ho mai provato a fare
virus.
Ringrazio per le risposte

 wrote in message
10k8vq6$r6b$1...@fe2.cs.interbusiness.it...

Guardati le seguenti funzioni:
ChDir, DiskFree, DiskSize, DosExitCode, DosVersion, EnvCount, Envstr, Exec,
getDate, getDir, GetDriveName, GetEnv, GetIntVec, GetTime, GetVerify, Halt,
Intr, Keep, MkDir, MsDos, PackTIme, ParamCOunt, ParamStr, RmDir, SetDate,
SetIntVec, SetTIme, SetVerify, SwapVectors, UnpackTime.
Ciao e bun lavoro
Giorigo.

Newsgroup: it.comp.lang.pascal
Titolo: Scrittura su file.

Ho un file di testo con contenuto:
abc def
e per provare a scrivere su di esso ho scritto questo programma di prova, ma
non funziona:
program prova;
uses crt;
var
f : text;
ch : char;
begin
assign (f, 'C:\test.txt');
reset (f);
append (f);
while not eof (f) do
begin
read (f, ch);
if (ch = 'a') or (ch = 'e') then
begin
write (f, 'X');
end;
end;
close (f);
readln;
end.
L'output vorrei che fosse:
aXbc deXf
Grazie
Luigi
-- 
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 end.
Spero di esserti stato di aiuto.
Ciao Ciao
--
KNOWLEDGE IS POWER
http://chameleon.go.to

Newsgroup: it.comp.lang.pascal
Titolo: Due problemi

Salve a tutti, ho due problemi con il Pascal
1)Come faccio a leggere dei parametri inseriti nella riga di comando
quando viene lanciato il programma?
2)Come faccio a restituire un valore al DOS quando finisce il
programma (quello che nei file batch è riconosciuto come errorlevel).
Grazie in anticipo.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
ATTENZIONE! Rimuovere "
riccar...@iol.it
"
dall'indirizzo email
Saluti by Riccardo
e-mail : 
riccar...@iol.it

programma (quello che nei file batch è riconosciuto come errorlevel).
Halt(i);
i e' l'errorlevel
Ciao!
Andrea C (uno dei tanti)
-----------
ATTENZIONE! Rimuovere NOSPAM dall'indirizzo email
(serve per evitare pubblicita' indesiderata)!
Newsgroup: it.comp.lang.pascal
Titolo: Scrittura su file

Ho un file di testo con contenuto:
abc def
e per provare a scrivere su di esso ho scritto questo programma di prova, ma
non funziona:
program prova;
uses crt;
var
f : text;
ch : char;
begin
assign (f, 'C:\test.txt');
reset (f);
append (f);
while not eof (f) do
begin
read (f, ch);
if (ch = 'a') or (ch = 'e') then
begin
write (f, 'X');
end;
end;
close (f);
readln;
end.
L'output vorrei che fosse:
aXbc deXf
Grazie
-- 
Posted from [62.10.160.174] by way of 
oe6.law8.hotmail.com
 [216.33.240.110] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Per scrivere su un file di testo non devi usare RESET ma REWRITE o APPEND.
Il primo metodo ti consente di cancellare il contenuto del file o di crearlo
se ancora non esiste, dopodichè ce l'avrai aperto per scrittura e potrai
metterci dentro ciò che vuoi.
Il secondo metodo invece serve per aprire per scrittura il file GIA'
ESISTENTEe a scriverci ciò che vuoi alla fine di esso. Però se usi APPEND
con un file che ancora non esiste si verificherà un errore e tornerai alla
schermata Pascal. Quindi sta' un po' attento...
=))))
"Luigi" ha scritto nel messaggio ...


Si, conosco rewrite e append... ma ho già provato senza risultato.
program prova;
uses crt;
var
f : text;
ch : char;
begin
assign (f, 'C:\test.txt');
reset (f);
append (f);
while not eof (f) do  <--- Mi dice file non aperto per input... ma se faccio
rewrite il contenuto del file si cancella.
begin
read (f, ch);
if (ch = 'a') or (ch = 'e') then
begin
append (f);       <--- Avevo provato anche così, ma non funziona lo stesso.
write (f, 'X');
end;
end;
close (f);
readln;
end.
Ciao
-- 
Posted from [195.223.215.6] 


via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Senti... quando devi aprire il file per scriverci dentro, ti consiglio di
usare queste poche righe:
Assign(F,'C:\PROVA.TXT');
{$I-}
Reset(F);
If IOResult<>0 Then Rewrite(F) else Append(F);
{$I+}
....
....
ci scrivi dentro ciò che vuoi...
...
...
Close(F);
End.

program writeinfile;
uses crt;
var
f : text;
ch : char;
begin
assign (f, 'C:\test.txt');   {Da qua}
{$I-}
reset(f);
If IOResult<>0 Then
rewrite(f)
else
append(f);
{$I+}         {A qua me lo hai detto tu}
while not eof (f) do    <---- qui mi dice "File non aperto per input"
begin
read (f, ch);
if (ch = 'a') or (ch = 'e') then
begin
append (f);
write (f, 'X');
end;
end;
close (f);
readln;
end.
Ciao
-- 
Posted from [195.223.215.7] 


"Luigi" ha scritto nel messaggio <000401c0253a$d0df4d40$2f352797@it>...

Si. TI dice FILE NOT OPEN FOR INPUT perchè lphai aperto per scriverci
dentro, non per leggerci.
Per leggere il suo contenuto devi usare Reset(F). Ma questo ti dà errore se
il file non esiste.

Quindi cosa devo fare?
Ciao
-- 
Posted from [195.223.215.6] 


Potete postarmi il prg corretto dato che non mi funziona ????
Grazie

Posted from [195.223.215.6]

Newsgroup: it.comp.lang.pascal
Titolo: Pascal per Win

No no no non voglio chiedervi dove trovarlo perchè ce l'ho...vorrei solo 
cpire come farlo funzionare ma ne ho abbastanza dell'help in inglese (e 
dell'inglese in generale ^__-) sapete se in giro esiste un sito o una guida 
in italiano?? Ad esempio per prova ho cercato di afr funzionare li uno dei 
programmi che ho scritto per esercizio in Pascal normale (senza usare CRT e 
librerie 'strane' ma solo con dei FOR qualche IF e un po' di variabili e 
costanti) ma mi da 'runtime error' quindi ci sono delle differenze...si ma 
quali?? TIA
-- 
#___o(^.-)o____Valefatina©___________________________________________#
  [cit] Ama il tuo prossimo, non questo, il prossimo! [/cit]
 
  # Per rispondere in mail leva una 'b' a caso dall'indirizzo.
  # ICQ: 105400693
  # INVIAMI UN SMS [e già che ci sei firmati :)]
  # 
http://www.smsatme.com/sma/sms.php?auth=:A6:19:E6:DE:A0:87:EB:1E
#____________________________________________________________________#

Penso che tu debba usare "uses wincrt;"
per far funziare tutto.
Piuttosto io sto cercando il manuale per TP for Windows...
leggete il post sotto con oggetto: "aiutooo"
--
GoDDamneD

Newsgroup: it.comp.lang.pascal
Titolo: Spiegazioni!!!!!!!!!!!!!!!Per Principiante!!!!!!!!!!

Vorrei sapere se avendo dei virus posso aprirli con Turbo Pascal 7.0 per
vedere come sono fatti.
Grazie a quelli che mi rispondono.
Ciao
Alessandro

 vedere come sono fatti.
al 99.99% no, perchè quasi sicuramente hai il binario e non il sorgente e
cmq i virus sono scritti quasi tutti in C o in C++

 wrote in message
Pine.LNX.4.10.10002221445540.705-100000@ciriostation...



a parte per quelli assembler....che sono la quasi totalità...
dai i virus non si scrivono con linguaggi ad alto livello

 dai i virus non si scrivono con linguaggi ad alto livello
L'asm però lo incapsuli in un prog C, poi percarità c'e' anche chi scrive
virus in javascript :-)

Newsgroup: it.comp.lang.pascal
Titolo: Soluzione RICORSIVA: AIUTO!!!!!!

   ''Descrivere (Codice Pascal e relativa spiegazione) una soluzione
RICORSIVA  per il calcolo di:
K=(K-1)(N-2)(N-K-2)
essendo N e K numeri interi positivi o nulli''
Se c'č qualche buona anima in grado di risolvere questo...... VI PREGO:
AIUTOOOOOO!

 essendo N e K numeri interi positivi o nulli''
Se non hai casi base, la ricorsività non ti serve, anche perchè a cosa
servirebbe???

Si tratta di un esercizio....
Anche  me sembra una cosa inutile e priva di senso, però la devo fare...
Se potete aiutarmi, mi ate un favore.
Grazie e Caio
Enrico

 ha scritto nel messaggio
news:93igvg$869$1...@nread2.inwind.it...


 questa sottigliezza (bastardata).
Infatti l'univ dovrebbe servirti a porre dei problemi e risolveri nel modo
migliore!!
Ciao

 ha scritto nel messaggio
news:%fFb6.11839$ew1.8...@news.infostrada.it...


> Si si hai ragione Morpheus non Enrico.
:))
Newsgroup: it.comp.lang.pascal
Titolo: errore...

salve a tutti perchè la seguente riga mi da errore?
--------------------------------------
Procedure insarc;
Begin
assign (fvarc,'arc.txt');
reset (fvarc);
seek (fvarc,filesize(fvarc));
--------------------------------------
spero che qualcuno mi possa dare una mano
grazie
--
Merlino666

 seek (fvarc,filesize(fvarc));
Ciao....non puoi usare la  "seek" su di un file di testo (F: Text)....claro?
Ciao!


Newsgroup: it.comp.lang.pascal
Titolo: pas a com

come faccio a rendere un file .pas in .com
e dove posso trovare le librerie oppure crearmene una
per tutto conto mio?
--omega--

 ha scritto nel messaggio
news:5VFH6.20089$0t6.9...@news.infostrada.it...


del TP, ora puoi trasformare il .pas in .exe
Basta compilare senza assemblare, (o compilare e poi disassemblare >:>) 
e assemblare con un assemblatore che supporti il formato COM (esempio: 
NASM)

 NASM)
Non e' cosi' semplice, perche' il Borland/Turbo Pascal (a partire
dalla versione 5.0 ?) utilizza un segmento per lo stack diverso dal segmento
per il codice (e' una caratteristica dei file eseguibili (.exe) ).
In teoria dovresti disassemblare il codice eseguibile, modificare il
sorgente per allocare memoria per lo stack quindi compilare.
Ciao!
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-