mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: contascatti in tp?

Ciao a tutti, ieri sera non avendo niente di meglio da fare, mi è venuto in
mente di creare un contascatti che tenga traccia dei costi di connessione ad
internet, il problema è che non so quali file andare a prendere per fare
capire al programma, quando il computer è connesso ad internet. Un'altro
problema è prendere la data dall'orologio di win (o dos). Qualcuno di voi sa
per favore darmi qualche "dritta" a rigurdo? Avete per caso qualke sorgente
utile a questo scopo?
--
E MAIL: 
ness...@dominio.it
(inserisci interfree al posto di dominio)
ICQ NUMBER: 147421455

 per favore darmi qualche "dritta" a rigurdo?
il post precedente al tuo ;-)

Il mio modem è impostato per creare un file di registro di tutti i comandi
AT e messaggi che il modem invia. E' un file log che si trova nella cartella
windows ma deve errere attivata l'opzione nelle proprietà del modem! Prova,
non so se va bene ma se è giusto sarei contento di vedere il programma
finito! DeDeZ! (P.S.: io uso il tp7 per programmi matematici a scuola quindi
non me ne intendo molto, se ho scritto una caz***** SCUSA!)

Ti ho gia risposto ieri sera su ICQ



Newsgroup: it.comp.lang.pascal
Titolo: Intercettazione tasks e modem

Ho necessità di aggiungere dei controlli all'accesso remoto. Ogni volta
che
eseguo una connessione devo fare un prg che fa dei calcoli e mi stampa il
nome della connessione attiva. Mi servirebbe o un modo per interagire con
la task dell'accesso remoto, domandando anche alcuni parametri
(principalmente il nome della connessione, perchè ne esiste più di una), o
un modo per monitorare l'attività del modem, ma non so come farei a
conoscere quale accesso è in corso in questo modo (potrei anche essere in
una situazione in cui sto ricevendo e non trasmettendo!)
GRAZIE!
--
------------------------------------------------------
Andy E. Naimoli
 
a...@psynet.net
 
http://psynet.net/aen
 (soon)
------------------------------------------------------


Newsgroup: it.comp.lang.pascal
Titolo: AND

In Pascal si puň fare l'AND su byte??
In particolare mi serviva quello sui 32 bit (interi lunghi), cioč un
operatore che restituisca un intero a 32 bit (in cui ogni bit č il risultato
di un AND logico tra i corrispondenti bit dei membri dell'operazione)
Grazie
Emanuele Cesena
d.a.m...@iol.it

...



No, non lo conosco. Allora lo farò in C
Emanuele Cesena
d.a.m...@iol.it

...

Ragazzi mi scuso!!! L'AND in Pascal fa proprio questo!!! :-)
Emanuele Cesena
d.a.m...@iol.it

No, non lo conosco. Allora lo farò in C
Sono poco esperto di queste cose, però è fattibilissimo qualcosa di
questo tipo:
Longint3 := Longint2 and Longint1;
Se è questo quello che vuoi sapere...
Ciao,
DjM / Digital Things
aka Mauro Molinari
Internet e-mail: 
djm...@geocities.com
 / 
djm...@mail.geocities.com
ICQ #: 10379016
Digital Things Home Page:
=> 
http://www.musicnation.com/home/digital_things
=> 
http://www.geocities.com//SiliconValley/Bay/8251
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, select the right address and remove NOSPAM.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto e togli NOSPAM.

Merci...
L'ho scoperto tardi :-)
Emanuele Cesena
d.a.m...@iol.it

...
: >Fallo in assembler, se lo conosci.
: >
: >
: No, non lo conosco. Allora lo farò in C
: Emanuele Cesena
: 
d.a.m...@iol.it
 I:= a and b;
.

Newsgroup: it.comp.lang.pascal
Titolo: Cerco manuale per Turbo Pascal 6.0

Come da oggetto
Sergio :-)
email: 
po...@tin.it

 wrote in message
7prh67$fet$1...@nslave1.tin.it...




Newsgroup: it.comp.lang.pascal
Titolo: AIUTO VI PREGO UrgEntE :(


Lawrence Oluyede
rhy...@tiscalinet.it
Cio' che sono e' cio'
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :-)

crescente.
Puoi sfruttare il programma precedente, con opportune modifiche ...
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

Newsgroup: it.comp.lang.pascal
Titolo: Ancora Aiuto!!!

Ciao a tutti!!
Sto cercando di scrivere un'equazione ma non ci riesco.
L'equazione è questa: F[i]=F[i-1] + L[i]
Il vettore L[i] è noto, per esempio 0,1,2,3
per cui
F[1]:=0
F[2]:=1
F[3]:=3
F[4]:=6
Grazie e Buone Feste.

 ha scritto nel messaggio
news:iY0P9.55315$TC5.1...@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Costo istruzioni

C'è qualche anima pia che sa dove posso trovare qualcosa di scritto sui
"costi" delle istruzioni in Pascal? Ringrazio anticipatamente chiunque può
intervenire :)
HellSpawn

 intervenire :)
Con i processori moderni e' un po' difficile, visto che la maggior parte
delle istruzioni vengono eseguite in un colpo di clock. comunque:
addizioni, sottrazioni e confronti soo le meno costose
moltiplicazioni
divisioni intere
operazioni semplici floating point
radici quadrate, seni, coseni, atan ecc. ecc. sono le piu' costose
poi molto dipende dal contesto
se in un ciclo hai un seno e una divisione intera, se riesci a sostituire la
divisione con un'addizione il guadagno non e' molto, perche' il peso del
seno (!!) ;-) e' comunque piu' alto.
Ciao
 Max
Newsgroup: it.comp.lang.pascal
Titolo: come non usare gli INT del DOS?

ho bisogno di poter scrivere in Pascal del codice indipendente dal DOS, che
funzioni prima del boot del sistema operativo.
Se non includo i moduli tipo CRT, sono sicuro che il compilatore non usa gli
interrupt del DOS?
Non ditemi che è una cosa assurda, perchè in C funziona!
E si può con Borland Pascal compilare in formato COM o ancora meglio BIN?
Al limite, queste cose si possono fare con FreePascal (x Linux)?

 Al limite, queste cose si possono fare con FreePascal (x Linux)?
....assembler a bassissimo livello?  ....dovresti scordarti tutto quello che
c'e' dopo il caricamento del so e lavorare solo con il bios.... ma anche per
questo va preparata la tabella dei vettori di interrupt, altrimenti neppure
le chiamate al bios funzionano...... io non so come fare, ho letto qualcosa
a suo tempo e ho abbandonato subito l'idea...
ciao
Claudio

 Al limite, queste cose si possono fare con FreePascal (x Linux)?
Boh ! :)
Perche' non in assembler ?
Per caso devi fare un Bootloader ?
Ciao.
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________

 Per caso devi fare un Bootloader ?
diciamo che è una cosa che boota al posto del sistema operativo, in quanto
per il momento non si può ancora definire essa stessa un OS...

 - rimuovi XXX x rispondere    ICQ #8814554
Una bella signora al suo amante: "Ci sono due posti dove mi piacerebbe
essere baciata!".  "Dove?".  "Acapulco e Miami".
		-- Da it.hobby.umorismo

 se hai linux, guarda i sorgenti di LILO (o usa direttamente quello).
Ho MuLinux... versione compressa (sta in un dischetto) ma non riesco a trovare i
file sorgenti o meglio ne ho trovati alcuni in .C e .H ma nulla di
interessante...
mi mandi quelli di LILO... cioč quelli che messi sul disketto o sul HDD fanno
partire LINUX...(guarda sotto per email)
grazzie,
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Due vettori in uno.

Salve a tutti!
Vorrei sapere se č possibile mettere due vettori in uno ovviamente piů
grande.
Se la risposta č si dite come si fa in pascal?
Grazie.

 ha scritto nel messaggio
news:ssIN9.44766$Ou4.1...@twister2.libero.it...


Si č proprio quello che hai scrittto.
Grazie.
Buon Natale.
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:w4MN9.25726$R45.1...@news2.tin.it...


 ha scritto nel messaggio
news:ssIN9.44766$Ou4.1...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: windows xp

Ciao Raga!!!
Ho comprato da poco un nuovo pc con il sistema operativo windows xp.
Il problema è che sul nuovo pc turbo pascal non funziona mentre sul
"vecchio" pentium 733 con win 98se turbo pascal funziona perfettamente.
Devo installare qlc patch?
Aiuto!!!
Marco

Marco Pellex wrote:

hai provato a passare ad altro
tipo Dev-Pas con dentro GNU Pascal o Free Pascal ?
(
www.bloodshed.net
)
sennò prova a vedere nel museo della Borland

 sennò prova a vedere nel museo della Borland
A me il free pascal (free ma pesantuccio però =P) non va.
Per esempio mi da un errore sul mio vecchio programma su:
With Palette do
     Begin
     Size:=5;
     Colors[0]:=0;
     Colors[1]:=1;
     Colors[2]:=2;
     Colors[3]:=3;
     Colors[4]:=4;
     SetAllPalette(Palette);
     End;
su tutti i Colors[X]:=X;
Da che dipende ? Se invece lo compilo col TP tutto va bene.
Un'altra cosa: il programma visualiza un orologio analogico ma ho il
problema del refresh: come elimino suddetto problema ? Nel senso che si
minimizi al minimo.. Tempo fa avevo chiesto aiuto per lo stesso problema e
mi ha risposto con una serie di comandi in assembly ma non me li ricordo
più né come/dove vadano messi..
Grazie per le risposte,
Saluti,
-- 
TheRealSonGokuZ @ home

 ha scritto nel messaggio
news:a5Heb.2189$vO5....@twister1.libero.it...


forse il tuo array parte da 1 ?
e su color[0] hai accesso negato, o out of range o simili......
se valento FP, prova ad eseguire FP da go32v2 anzicche' win32,
e magari da windows, che e' meglio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 e magari da windows, che e' meglio
Ho provato ad aprire l'fp da go32v2 ma il risultato non cambia, e l' errore
che mi da' è il seguente:
clock.pass(167,17) Error: Incompatible types: got "LONGINT" expected
"RGBREC")
Se elimino quella parte di codice, quando faccio fgirare il programma, mi
esce quasi subito con un errore:
Program d:\clock.exe exited with exitcode = 201
E questo che cos'è ?
Grazie per le eventuali risposte,

Newsgroup: it.comp.lang.pascal
Titolo: aiuto so poco

mi servirebbe un eseguibile che spenga il computer come lo faccio in pascl ?

 ha scritto nel messaggio
news:y5aC8.37445$zW3.3...@news1.tin.it...



In assembler basta che richiami la funzione di POWER OFF.
Non so a quale corrisponde perchè non sono un esperto di assembler e a dire
il vero non ci ho mai trafficato... ma stai tranquillo che c'è altrimenti
windows o altri sistemi operativi come fanno?
Mica si creano una funzione cosi e wuala.... spengono il pc senza
interrogare la scheda madre o quantomeno il BIOS etc etc etc....
Cordialmente Cooper :-)


wrote:

Io ho un codice (che mo posto) ma non ha mai funzionato bene, cmq
provare non costa nulla :D
(diretamente dal Kernel del mio OS, liberamente ispirato a NXOS by
Albe)
    mov  ax, 5300h
    xor  bx, bx
    int  15h
    mov  ax, 5304h
    xor  bx, bx
    int  15h
    mov  ax, 5301h
    xor  bx, bx
    int  15h
    mov  ax, 5307h
    mov  bx, 1
    mov  cx, 3
    int  15h
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: tabella has

Qualcuno mi puo spiegare cos'è e come funziona?
Grazie anticipatamente
Spike

 Grazie anticipatamente
dicci più che altro cosa intendi per tabella has, forse hash???

Qualcuno mi puo spiegare cos'è e come funziona?
Una tabella hash (non has) e' una tabella in cui gli indici sono
rappresentati da "oggetti" che non hanno numerabilita' (per esempio le
stringhe).  Se io volessi costruire, per esempio, un dizionario tale
da contenere tutti gli anagrammi di una stringa, potrei scrivere una
tabella hash che possiede come indice una stringa e come oggetti
contenuti in corrispondenza di quell'indice tutti i suoi anagrammi.

Va be, ho dimenticato a mettere la h.
Tabella hash, certamente
Ciao spike


 contenuti in corrispondenza di quell'indice tutti i suoi anagrammi.
E'??????????

 Tabella hash, certamente
una tabella hash non è altro che un vettore che contiene i tuoi elementi; per
accedere agli elementi si passa la chiave di ricerca come parametro di una
funzione, detta funzione hash appunto, che resituisce la posizione della chiave
nella tabella.
ciao

E'??????????
Puoi essere piu' preciso nelle tue esternazioni ?
Che vuoi dire ?
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

una tabella hash non è altro che un vettore che contiene i tuoi elementi; 
Si tenga presente che la chiave di ricerca degli elementi viene quasi
sempre calcolata con una funzione hash a partire dall'oggetto che
fungera' da indice ed e' possibile che due oggetti distinti producano
la stessa chiave di ricerca.  In questo caso nasce una collisione,
ovvero allo stesso indice in tabella corrispondono due elementi
distinti.  E' per questo motivo che spesso si tende a rappresentare
gli elementi contenuti in tabella con "liste" di elementi.


 gli elementi contenuti in tabella con "liste" di elementi.
non mi ero soffermato nei particolari perchè non sapevo fin a che "profondità"
volesse conoscere le tabelle hash.
Cmq hai fatto bene a precisare

 Che vuoi dire ?
vooevo dire: "Che cazzo hai scritto?????? NON c'ho capito 'na mazza!!!!"

NON c'ho capito 'na mazza!!!!"
Il concetto e' semplice.
Supponi di voler costruire un dizionario di anagrammi.
L'ideale sarebbe avere (a livello astratto) qualcosa del tipo :
dizionario["lavagna"] = (valanga)
In questo caso, si costruisce una funzione hash che parte da un
oggetto che non ha numerabilita' (come la stringa) e restituisce un
numero intero, da usare come indice del dizionario.
Come elemento contenuto nel dizionario, in previsione di collisioni,
non c'e' un unico elemento, ma una lista di elementi.


 non c'e' un unico elemento, ma una lista di elementi.
Ok, adesso č piů chiaro!
Grazie

come la somma del valore ordinale dei caratteri...
Magari messa a modulo con la lunghezza dell'array.
In realta' questo metodo non e' molto efficiente.
C'e' tutto uno studio su come dovrebbero essere costruite le funzioni
hash, per ridurre al minimo le collisioni tra chiavi distinte.
Newsgroup: it.comp.lang.pascal
Titolo: DOMANDA A DREADNAUT E CARLETTO

DOVE TROVO QUEL NEWSGROUP?NON C\'E NEL ELENCO ALFABETICO:
TROVO SOLO comp.lang.c++,comp.lang.pascal ecc.. ma non comp.lang.fortran!!
------------------------------------------------------------------------
Questo messaggio e' stato inviato tramite i Newsgroup di Punto
http://www.punto.it
------------------------------------------------------------------------

 ha scritto nel messaggio
news:a9u4or$n2s$1...@zap-news.punto...

scarica i newsgroup con outlook express e con account 
news.virgilio.it
 o
powernews.libero.it
ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

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

    ciao a tutti chi sa indicarmi un buon compilatore e un editor.
ciao e grazie


Beh,dipende dal sistema operativo che utilizzi,comunque il free pascal ed il
tmt pascal sono entrambi ottimi compilatori,il secondo lo puoi trovare su
www.tmt.com
 ed il primo non me lo ricordo.
Per l'editor non so proprio che cosa consigliarti.Ciao


Dal mio sito puoi scaricare il Turbopascal ver. 6.
http://members.xoom.com/fabioman
Ciao
--
fabioma...@rocketmail.com

 Per l'editor non so proprio che cosa consigliarti.Ciao
Se sei sotto win, UltraEdit colora pure la sintassi.
--
Davide
davi...@usa.net
ICQ: #20331544
Newsgroup: it.comp.lang.pascal
Titolo: somma-prodotto n numeri

Per la scuola devo fare due programmi, che calcolino la somma e il prodotto
dei primi n numeri. Vorrei sapere se il metodo che ho usato è il migliore.
Posso usare solo cicli repeat until.
SOMMA
a:=0; b:=0;
     repeat
     b:= b+1;
     a:= a+b;
     until b=10;
PRODOTTO
a:=1; b:=1;
      repeat
      a:=a*b;
      b:=b+1;
      until b=c+1;
questo mi sembra sia un po' contorto, soprattutto non capisco l' ultima
riga, anche se funziona bene. Grazie e chiedo scusa per le frequenti domande
banali (per un esperto :)
--
Paolo '83 RE
gher...@iname.com
CIAO!



Che questo ultimo 'programmino' funzioni ho dei seri dubbi.
La variabile C da dove esce fuori. Dovrebbe essere UNTIL   b=11.
Ma il contatore lo potevi trattare come nel precedente partendo da 0 e
facendo l'incremento subito dopo la REPEAT e poi finire con
UNTIL   B=10
Io pero' farei cosi'
SOMMA:
	s:=0;
	for i:=1 to n do
		s:=s+i;
PRODOTTO:
	p:=1;
	for i:=1 to n do
		p:=p*i
mi sembra geniale.....
CIAO
--
fabi...@rocketmail.com

Posso usare solo cicli repeat until.
SOMMA :
n = numero elementi
somma := n * (n - 1) div 2 ;
PRODOTTO :
n = numero elementi (> 1)
i = indice
prodotto := 1;
for i := 2 to n do prodotto := prodotto * i ;

Un bel di' Paolo 83 RE scrisse:
PR> SOMMA
PR> a:=0; b:=0;
PR>      repeat
PR>      b:= b+1;
PR>      a:= a+b;
PR>      until b=10;
PR> 
certo.
Pero' dovresti mettere, come ultima riga:
	until b = n;
se vuoi calcolare la somma dei primi n numeri... cosi'
come hai scritto, calcoli la somma dei primi 10 numeri.
Se vuoi stupire la prof [:)], fai cosi':
a := n * (n+1) / 2;
:-))
PR> PRODOTTO
PR> a:=1; b:=1;
PR>       repeat
PR>       a:=a*b;
PR>       b:=b+1;
PR>       until b=c+1;
PR> 
anche qui ok.
pero' io lo scriverei come hai fatto per la somma:
a:=1; b:=1;
	repeat
	b:=b+1;
	a:=a*b;
	until b=n;
cosi' e' uguale...
Nota che b e' inizializzato ad 1, poi gli sommo subito 1 e
vale quindi 2.
Sembra di perdere un passaggio, ma non importa, perche'
moltiplicare per 1 non cambia il risultato.
Ciao ciao!
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
"Nulla e' impossibile per colui che non deve farlo", legge di Weiler

No, funzionano tutti, cmq i vostri consigli sono stati tutti molto utili
Forse non ci siamo capiti bene perchè non ho inviato tutto il codice e forse
ho tralasciato qlc d' importante...
Ringrazio tutti.

Newsgroup: it.comp.lang.pascal
Titolo: Licenza programma pascal

Salve a tutti ho un dubbio: Ho realizzato un programma per la gestione di un
magazzino in pascal, ora  potrei farlo usare ad un negozio di un amico o
serve qualche licenza copyright?
Grazie a tutti

non sò se la borland pretende dei diritti, ma mi sembra che per i compilati,
non pretendeva nulla. Bastave dimostrare di essere in possesso del
turbopascal originale.
Ad ogni modo, puoi ovviare al problema tentando di ricompilare il tuo
sorgente con il freepascal che è open-source.
http://www.freepascal.org
E' quasi identico al turbopascal, le modifiche probabilmente saranno nella
gestione di un eventuale database.
Prova a vedere.

Newsgroup: it.comp.lang.pascal
Titolo: A.A.A cercasi libro disperatamente...

Salve a tutto il Ng. ,
sono uno studente universitario della facoltà di Informatica di Napoli e
come libro del primo corso di programmazione il mio prof. ha adottato un
testo in inglese che non riesco a trovare; o meglio l'ho trovato solo su
Amazon, ma non ho carta di credito! Il titolo é "Foundamentals of computer
science - Pascal", l'autore Richard A. Meyers, edizioni Prentice Hall. Se
qualcuno sapesse come posso reperirlo qui in Italia, mi sarebbe di graaande
aiuto.
Grazie in anticipo.

Scusa la domanda scontatissima ma...
Nessuno dei tuoi compagni di corso è riuscito a reperirlo?
In caso la risposta sia affermativa, in qualche modo il tuo professore sarà 
riuscito a farlo...
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

Newsgroup: it.comp.lang.pascal
Titolo: Libri Pascal

Ciaooo sono nuovo del neswgroup !!! =D !!!
volevo sapere se qlk mi poteva indicare un buon libro sul pascal !!!
Grazie mille !!!
Cya !!!

 ha scritto nel messaggio
news:%4kO5.18756$BF.6...@news.infostrada.it...


 volevo sapere se qlk mi poteva indicare un buon libro sul pascal !!!
Turbo Pascal 7 della McGraw Hill, č il migliore!

...





S. K. O'Brien, S. Nameroff: Turbo Pascal 7. McGraw Hill (1993)
questo
rhymes
rhy...@tiscalinet.it

 ha scritto nel messaggio
news:g4g01t045ovcruovt...@4ax.com...

Newsgroup: it.comp.lang.pascal
Titolo: record

Trovare con record l'inserimento di alunni e voti di una classe
Spiegareche cosa sono i record.
--------------------------------
Inviato via 
http://usenet.libero.it


sono delle particolari variabili definite dall'utente. possono contenere
piu' campi, ognuno anche di tipo diverso, ad esempio
type
  TAlunno=record
    Nome:String;
    Cognome.String;
    Eta':String;
    Voto:array[1.3] of byte;
    Classe:String;
  end;
var
  Alunni:array[1..30] of TAlunno;
come vedi ho dichiarato un nuovo tipo, chiamato TAlunno e successivamente un
array di 30 elementi del tipo TAlunno, chiamato Alunni. e' possibile
accedere ai singoli campi del tipo TAlunno, mettendo tra il nome della
variabile ed il nome del campo un punto (.)., ad esempio, per accedere al
nome dell'alunno che si trova nella posizione 5 dell'array, possiamo fare
cosi':
Alunni[5].Nome:='Gianfranco';
oppure
Alunni[5].Voto[1]:=10;    he he he :-)))))))
come vedi l'utilizzo di record e' molto utile, in quanto ci permette di
racchiudere sotto un unico nome un gruppo di piu' variabili. e' possibile
fare una assegnazione del genere:
Alunni[1]:=Alunni[25];
in questo caso tutti i campi di Alunni[25] verranno copiati nella posizione
1.
per consentire una migliore gestione della memoria dei record, e'
consigliato usare la parola riservata packed, come mostrato sotto:
type
  TAlunno=packed record
  ....
la cosa bella e' che a te non cambia nulla, la metti o no, pero' cambia
quialche cosa nella gestione della memoria. e' indispensabile quando si
usano file di record per evitare problemi di accesso al file. quindi
usalo!!!
piccola disgressione:
un ulteriore concetto di record sono gli oggetti, particolari record che
permettono la dichiarazione di procedure e funzioni (chiamati metodi), oltre
che di variabili. in delphi questo concetto si estende ulteriormente alle
classi, molto simili agli oggetti. esiste una modalita' di programmazione
detta OOP, programmazione orientata agli oggetti, che costituisce la base di
molti linguaggi di programmazione moderni, tra cui lo stesso Delphi. ti
consiglio di approfindire l'argomento, se ti interessa, io l'ho trovato
molto utile.
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

Program r_alunni;
type sessi= (m,f);
    materie =(italiano,storia,latino,matematica,
              inglese,disegno,ed_fisica);
    voto= 1..10;
    alunni = record
             cognome:string [20];
             sesso:sessi;
             voti:array [materie] of voto
       end;
var alunno:alunni;
procedure leggialunno(var alunno:alunni);
                       var appoggio:char;
                           i:materie;
begin
  write ('cognome');
  readln(alunno.cognome);
case appoggio of
    'm':alunno.sesso:=m;
    'f':alunno.sesso:=f
  end;
  writeln('introduci i voti');
     for i:=italiano to ed_fisica do
     readln (alunno.voti[i]);
    end.

Newsgroup: it.comp.lang.pascal
Titolo: Problemi con le pagine video

Quando passo da un pagina video ad un' altra l' immagine appare
completamente decentrata. Sapete dirmi se e' problema del Borland Pascal?
La mia scheda video e' una Cirrus Logic CL 5434
Grazie,
Andrea



Se intendi il passaggio nella modalita' 800x600x256col della scheda
Cirrus, e' un problema anche mio. Certamente e' una patologia dovuta
all'hardware e non al Pascal.
	Piero.

Io ho problemi anche nella semplice 640x480x16
Questo e' l' esempio della Borland. Controlla se ti funziona, poi fammi sapere
{Setactpg.PAS}
{Sample code for the SetActivePage procedure.}
uses Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  if (Gd = HercMono) or (Gd = EGA) or (Gd = EGA64) or (Gd = VGA) then
  begin
    SetVisualPage(0);
    SetActivePage(1);
    Rectangle(10, 20, 30, 40);
    SetVisualPage(1);
  end
  else
    OutText('No paging supported.');
  Readln;
  CloseGraph;
end.
Grazie, Andrea


 
[...]
Ma allora questo non e' un problema e' solo uno scherzo della Borland, che
fa credere di poter fare qualcosa di impossibile. Lo standard VGA nella
modalita' 640x480x16col ha solo una pagina video, da quello che mi
risulta, e quindi non e' possibile fare quello che tenti, e che invece
e'possibile fare con la EGA in una modalita' simile.
Ciao
	Piero.

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

dovrei preparare delle tesine in pascal per un esame universitario a gennaio
chiunque volesse darmi una mano è pregato di farsi sentire.Ciao


Tesine in pascal è un po' generico. Proponi qualcosa, sarò felice di
aiutarti
Davide Carrara

Newsgroup: it.comp.lang.pascal
Titolo: sistemi lineari

ciao a tutti ho cercato molto ma non ho trovato niente .
chi mi potrebbe postare un link o un codice per risolvere i sistemi lineari
con il sistema gauss sidel ???
grazie anticipatamente

http://www.google.it/search?hl=it&ie=UTF-8&oe=UTF-8&q=gauss+seidel+&btnG=Cer
ca+con+Google&lr=lang_it
Con un solo click 615 risultati ed il primo ...
RdC
ah si scrive "gauss seidel"
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Come faccio a....

....mantenere il cursore nella stessa posizione fino a quando non viene
inserito un numero.
E' sicuramente capitato a tutti di schiacciare il tasto invio prima di
inserire un numero;per cui il cursore va a capo all'inizio della riga.
Ho costruito una tabella dove vado ad inserire lungo y i dati.
Vi inserisco una parte di inserimento dati:
for i:=1 to n do begin
     gotoxy(18,7+i);read(lungsx[i]);
end;
come va modificato in modo da avere il cursore nella stessa posizione anche
se viene premuto invio prima dell'aquisizione di un numero???
Grazie.

 ha scritto nel messaggio
news:zk_R9.83261$TC5.2...@twister1.libero.it...



io penso che questa possa essere una soluzione..ma parziale..in
quanto...come fa a capire la macchina che il dato è stato
acquisito o meno? e se nella tabella anche lo zero e i numeri negativi
avessero un significato?
Davide
=======================
Non approvo ciò che tu dici,
ma difenderò a costo della
mia vita il tuo diritto a dirlo ( Voltaire )
=======================

 avessero un significato?
E' un falso problema, routine di conversione e via...


 ha scritto nel messaggio
news:zidS9.85837$TC5.2...@twister1.libero.it...



ma è sempre una stringa..lui voleva un numero!
Davide
--


> ma è sempre una stringa..lui voleva un numero!
usi Val ( )
-- 
Dreadnaut
(Life would be easier if I had the source code)

Anzichè usare una funzione si può fare in modo che il cursore non si sposti
fino a quando venga premuto invio???
Anche se viene inserito un carattere è il programma stesso che ti dà
l'errore per cui questo per ora non mi interessa.
Grazie.
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:x6fS9.81257$R45.3...@news2.tin.it...


 ha scritto nel messaggio
news:GMiS9.86888$Ou4.2...@twister2.libero.it...


 premuto invio.
function myread_num(x,y : integer) : integer;
var s : string;
ch : char;
begin
     s:='';
    repeat
       goto(x,y); ch:=readkey;
        if ch in ['0'..'9'] then
         begin
             s:=s+ch;
              y:=y+1;
         end;
    until (ch=#13) and (ord(s[0])=0);  (* esci dalla lettura se ho premuto
invio ed ho avuto dati prima *)
    myread_num:=val(s);
 end.
Questa legge solo numeri interi positivi, per i negativi devi aggiungere un
controllo in più !
Ciao RdC

Newsgroup: it.comp.lang.pascal
Titolo: Disperazione totale!!!!!

Salve ragazzi...è la prima volta che provo a scrivere su questo newsgroup ma
sono veramente disperata....
Devo scrivere un programmino per un esame e sono mesi che ci sto dietro
senza combinare nulla....
L'esercizio cheide di scrivere un programma che dato un numero in decimale
restituisca in output la sua notazione romana...e fin qui tutto bene...il
programma funziona a perfezione...il problema è il viceversa...
ovvero scrivere un programma che dato un numero in notazione romana
restitisca la sua notazione decimale...
C'è qualcuno che può aiutarmi??
Vi prego....sono veramente disperata!!!!
P.s: se volete posso inviarvi il file sorgente che continua a darmi errore
nonostante tutte le modifiiche che ho fatto!!..

ciao
ecco il programma:
(*inizio*)
program numeri_romani_numeri_decimali;
var s : string;
    a : array[1..255] of integer;
    i, j, L, sm : byte;
    minus, num : integer;
begin
 writeln;
 write('Inserire numero romano: ');
 readln(s);
 L := ord(s[0]);
 num := 0;
 for i := 1 to L do
  case s[i] of
   'I' : a[i] := 1;
   'V' : a[i] := 5;
   'X' : a[i] := 10;
   'L' : a[i] := 50;
   'C' : a[i] := 100;
   'D' : a[i] := 500;
   'M' : a[i] := 1000;
  end;
 i := 1;
 if (i = L) then
  num := a[i];
 sm := 1;
 while (i <= L) do begin
  i := i + 1;
  while ((a[i-1] >= a[i]) and (i <= L)) do begin
   i := i + 1;
  end;
  i := i - 1;
  for j := sm to (i - 1) do
   num := num + a[j];
  j := i + 1;
  minus := 0;
  while ((j <= L) and (a[j-1] <= a[j])) do begin
   minus := minus + a[j-1];
   j := j + 1;
  end;
  num := num + a[j-1] - minus;
  sm := j;
  i := j;
 end;
 writeln;
 write(num);
 readln;
end.
(*fine*)
non sono completamente sicuro dell'assenza totale di bug :)
meglio se lo controlli bene
ciao,
-- gabri

   num := a[i] else begin


Newsgroup: it.comp.lang.pascal
Titolo: AUITOOOOOOOOO con Outlook...

Sto diventando pazzo con Outlook che non mi salva piů le password deglia
account di posta elettronica e ogni volta li devo riscrivere...
Perfavore aiutatemi ...
P.S.: Se mi scrivete in email č meglio almeno fino a quando non risolvo
questo problema...
GRAZIE
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

Ops .... ho sbagliato NG ...

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!

CIAO A TUTTI,
HO UN PICCOLO PROBLEMINO!
HO CREATO UN RECORD DI NOME PERSONA E IN QUESTO CI SONO TUTTE LE
INFORMAZIONI CHE FORMANO UNA VOCE NELLA MIA RUBRICA TELEFONIA (ES. NOME,
COGNOME, ECC[TUTTI SRING]).
IL MIO PROGRAMMA INSERISCE UTENTI, VISUALIZZA I NOMI, ECC...
IL MIO PROBLEMA SI FORMA NEL MOMENTO IN CUI, SE PER SBAGLIO INSERISCO DUE
PERSONE AD ESEMPIO CON LO STESSO NUMERO TELEFONICO, COME FACCIO A CANCELLARE
UN UTENTE DALLA MIA RUBRICA??
INOLTRE NEL MIO FILE SORGENTE, QUANDO INSERISCO NUOVI UTENTI, PRIMA DEL NOME
O DI QUALSIASI ALTRO DATO MI SI VISUALIZZA UN RETTANGOLINO NERO, COME FACCIO
A TOGLIERLO?
VI RINGRAZIO TUTTI!!!!!!!!!!
CIAOOOOOOOOOO
ALESSIA
amicc...@tiscalinet.it

 
amicc...@tiscalinet.it
Lo sai vero che scrivere in maiuscolo equivale ad urlare? :-)
Ciao MaTTeO.
P.S.: Nel caso avessi detto delle bestialità o non abbia capito il tuo problema
fammelo sapere!
Newsgroup: it.comp.lang.pascal
Titolo: Domanda base su C++ Builder .....

Salve a tutti,
sono nuovo di questo newsgroup e volevo chiedere una cosa per iniziare a
programmare......
Conoscete un sito web per avere un manuale base per il C in quanto conosco
la base della programmazione
in generale e il Pascal ma non conosco i comandi base del C ........ per poi
poter utilizzare il Visual Builder C++.
Ringrazio subito.
Ciao......
--
Marco - Roma

 poter utilizzare il Visual Builder C++.
Perche` mai?  Usa Delphi, equivalente al C++ Builder ma basato
su Pascal: potrai sfruttare appieno le tue conoscenze gia`
esistenti, evitandoti di impelagare con un linguaggio potente
si`, ma VERAMENTE complesso.  Usa it.comp.lang.delphi.
Alex

 poter utilizzare il Visual Builder C++.
Apparte il consiglio di Alex...
cmq per qualche manuale del C puoi vedere le FAQ su 
www.programmazione.it
Per imparare il C++ non è necessario imparare prima il C.
Spesso viene consigliato di partire direttamete dal C++... chiedi sul NG
it.comp.lang.c++
--
______________________________
per rispondere Brain(a)
infinito.it
bye Brain

 wrote in message
8i8gnk$nmh$1...@sirmdpsin16.inwind.it...


 > poter utilizzare il Visual Builder C++.



Ciao

Newsgroup: it.comp.lang.pascal
Titolo: Help!Chi mi fa questo programma?

Dati due array di 50 elementi max di cui il primo deve essere più grande del
secondo,dopo aver opportunamente inserito i valori fare la somma degli
stessi nella stessa posizione;una volta terminati gli elementi del secondo
array fare la somma dei valori rimanenti del primo array.
Ringrazio anticipatamente a colui/lei che mi darà una mano.


Qui nessuno fa programmi a nessuno, al massimo ti possiamo dare una
controllata al tuo programma e darti qualche dritta, ma non aspettarti
il programma già fatto!!!
MaTTeO.

 wrote in message
GtKx5.48019$XZ4.6...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Shifth degli array!!!Help

Come Faccio a shiftare un elemento nel vettore Risp Please

 ha scritto nel messaggio
news:9ejr59$h0v$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Come si...

Può avere una finestra sullo schermo indipendente dal resto dello schermo
che si aggiorna automaticamente con una nuova parola senza dover effettuare
un clrscr.
Grazie
P.s. come si può far lampeggiare il testo?

P.s. come si puň far lampeggiare il testo?
Se usi textcolor dai aggiungi al valore 16!
Oppure usa videomem.pas...
NM

 ha scritto nel messaggio
news:tFrN8.32054$5i1.1...@news2.tin.it...

Beh...per la finestra indipendente penso ke l'ideale sia progettare varie
procedure...cmq nella unit crt ci sono delle funzioni e delle procedure
fatte per quello...
cmq x far lampeggiare una scritta puoi aggiungere +128 quando dai il colore
al testo
textcolor(6+128);
Ma nn so come dare dei tempi diversi...
ciao g1n0W3h

> Oppure usa videomem.pas...
Scusa?? Cos'è?
Cereal

Scusate.. Ops.. ;-)
Cereal


puoi fare anche textcolor(colore+blink)
Davide
--
=======================
Non approvo ciò che tu dici,
ma difenderò a costo della
mia vita il tuo diritto a dirlo ( Voltaire )
=======================
Newsgroup: it.comp.lang.pascal
Titolo: Memorizzazione dati

Devo avere dei dati aggiornati quotidianamente e prelevati da diverse pagine
web, volevo chiedere se qualcuno sa dell'esistenza di procedure o funzioni
alle quali passando l'indirizzo di pagina e un nome di un file tipo TXT
queste mi possono mettere i dati letti dal web nel file in formato testo per
dos (ascii), non mi interessano i download di  figure immagini ecc. ma
solamente di caratteri.
Io uso il Borland Pascal.
Grazie per l'eventuale aiuto.
RENZO
ma...@interplanet.it

 
se trovi un browser testuale fai molto prima.
Per Windows, pero', non ne conosco :-)
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
L'uomo moderno e' l'anello di collegamento mancante tra le scimmie e gli
esseri umani.

Newsgroup: it.comp.lang.pascal
Titolo: 256 colri

ciao stavo cercando di programmare un giochino stupido ma mi servirebbe usare 
256 colori
qualcuno mi sa dire se c'è un modo per farlo o se si possono scaricare delle 
unit da qualche parte?
grazie 
ciao

On Wed, 16 Oct 2002 16:39:12 GMT, 
sergio_...@libero.it
 (vrban)
wrote:

se usi il tp e usi graphics... esiste un driver per il modo X ..
320x200x256 colori.. se intressato contattami privatamente...
Antonio

Oltre alla modalita' 320x200, basta che scarichi i driver bgi per svga,
cosi' da avere le risoluzioni fino a 1024x768 anche a 32bit.
Fai attenzione pero' all'uso di questi driver (soprattutto se la tua
scheda non e' vesa 2.0) altrimenti potrebbero freezarti il pc e quindi
devi resettare il Pc.
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: PROBLEMI con FREEPASCAL vers.0.9

Come faccio per risolvere i problemi di Runtime error 102 e 201?
grazie
Fly

 ha scritto nel messaggio
news:0mbV4rEl$GA....@news-02.uni.net...


 ha scritto nel messaggio
8bu2c9$6ng$2...@lacerta.tiscalinet.it...


               Attenzione all'anti-spam XXX
Non raggiungere mai le 88 miglia orarie se non sai quanti gigawatt fa la
tua automobile.

:-)))))))))) !!!!
Phones
"ema" <ece...@XXXpenguinpowered.com> ha scritto nel messaggio
news:8c239m$8v$1...@srv.ema.it...


 Altrimenti e` chiaro che ti ritorna indietro subito: ha finito.
Beh guarda ti faccio il piacere di leggere il testo del programma, dimmi
cosa c'è di anormale....senza fare battutine, grazie!
ciao
Fly
program Voti2(filevoti,output);uses crt;
const   maxstudenti=50;
        maxmaterie=5;
        maxlungnome=30;
        maxvoto=10;
        maxtotale=50;
        scala=0.4;
var     filevoti:text;
        studente:1..maxstudenti;
        procedure leggiestampanome;
        var lungnome:0..maxlungnome;
        carnome:char;
        begin
                assigncrt(filevoti);
                lungnome:=0;
                repeat  assignCrt(filevoti);
                        read(filevoti,carnome);write(filevoti,carnome);
                        lungnome:=lungnome+1;
                until carnome='.';
                if lungnome< maxlungnome
                        then write(' ':maxlungnome-lungnome)
        end;
        procedure leggiestampavoti;
        var     materia:1..maxmaterie;
                voto: 0..maxvoto;
                totale:0..maxtotale;
                stella: integer;
        begin
                totale:=0;
                for materia:=1 to maxmaterie do
                begin  assigncrt(filevoti);
                        read(filevoti,voto);
                        totale:=totale+voto
                        end;
                        write(totale:40-maxlungnome);
                        write(' ');
                        for stella:=1 to round(scala*totale) do write('*')
                end;
                procedure allineainputedoutput;
                begin  assigncrt(filevoti);
                        readln(filevoti);
                        writeln
                end;
        begin
                assigncrt(filevoti);
                reset(filevoti);
                for studente:=1 to maxstudenti do
                begin  assigncrt(filevoti);
                        leggiestampanome;
                        leggiestampavoti;
                        allineainputedoutput
                end;
                repeat until keypressed;
        end.

               Attenzione all'anti-spam XXX
Perche' mai le cose non possono essere come appaiono in superficie?
Newsgroup: it.comp.lang.pascal
Titolo: HELP WITH PRINTING!!!

Hey people!!
I'm trying to write some code that will be able to print to a printer in
pascal. I know about the printer.tpu unit, but the help files aren't very
helpful. If anyone knows any commands, or maybe a few lines of code, that
will be able to print to a printer in pascal, it would be greatly
appreciated. - Or even Internet programming web sites!!
Email: DJD...@BTInternet.com


Hello,
if you want to print something in pascal, the easyest way is to use the
printer unit.
to print something you only have to write :
               writeln (prt,' TEXT TO PRINT ' );
bye.
-------------------------------------------
Alberto Speranzon
-------------------------------------------
e-mail : 
albe...@intercity.it
-------------------------------------------


Newsgroup: it.comp.lang.pascal
Titolo: puntatori

ho scaricato una guida che spiega cosa sono i puntatori dal sito di
redicuori. in linea di massima ne ho capito il funzionamento, ma c'e' che
potrebbe rispiegarmele in poche parole? grazie mille
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il reply togliere NOSPAZZATURA

 potrebbe rispiegarmele in poche parole? grazie mille
Dipende da cosa vuoi sapere di preciso
-- 
Luigi
--
bug windows [5] = {"95", "98", "NT", "Me", "2000"};
togli "tilescarpe" per rispondere via e-mail

Da spiegare cosě in poche parole č quasi impossibile !
Sappi solo che sembrano difficili da comprendere, ma una volta capito, non
ti si toglieranno mai dalla mente.
Se puoi, poni un questito preciso sui puntatori, ti saprň aiutare meglio.
I Puntatori sono molto importanti, se vuoi approdare a C/C++ sono alla base.
Ciao e Buona Fortuna
"Marchese Gianfranco" <dgr...@tinNOSPAZZATURA.it> ha scritto nel messaggio
news:TnX47.81510$q77.7...@news2.tin.it...


 ha scritto nel messaggio
news:A%i57.467$VO5....@news.infostrada.it...


 5)in pratica tutto :-)
Comprati una guida e fai prima :)
Ciao
Luigi

 5)in pratica tutto :-)
forse è un po' troppo per me...... ;P

 tipo....
Intendi i puntatori generici.....
p : pointer?
in C/C++ è
void* p;
ciao


 ha scritto nel messaggio
news:5uY67.18994$NZ6.6...@news.infostrada.it...


 void* p;
ma allora quel maledetto del mio professore ha detto una cacchiata!!!

 ma allora quel maledetto del mio professore ha detto una cacchiata!!!
beh il puntatore non e' generico... e' tipato void...
se poi void e' un tipo generico... beh problemi suoi :-ž
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 se poi void e' un tipo generico... beh problemi suoi :-ž
Puņ essere quello che vuole, ma se ti permette di fare cio che fai con un
puntatore generico del pascal, allora si puņ affermare che esiste anche in
C++. Anche Stanley B. Lippman, l'autore di C++ primer, lo definisce
puntatore generico...
ciao

 puntatore generico...
hihihi tranqui non negavo che lo fosse.. giocavo sulle parole...
pero' Mr Kernighan non mi ricordo come lo chiamasse... domani ci do
un'occhiata ;-)


riferirsi, 
Semmai e' il contrario.
Se si sta parlando di C e di Pascal (standard) i puntatori
senza tipo esistono in C e non esistono in Pascal.
Se si sta parlando di Turbo Pascal, i puntatori senza tipo
esistono sia in C che in Turbo Pascal.
--
Naquern Yansbetevn
naquern.y...@africamail.com

beh il puntatore non e' generico... e' tipato void...
No, "void" non indica alcun tipo.
--
Naquern Yansbetevn
naquern.y...@africamail.com
Newsgroup: it.comp.lang.pascal
Titolo: Cursore mio per bello che tu sia te ne devi andare via...

Salve a tutti!
Mi trovo di fronte ad un problemino che molto probabilmente voi potrete 
semplicemente aiutarmi a risolvere.
Sto creando delle librerie, in questo momento sono dedito alla creazione 
del parser per l'input, ma ho un problema non da poco:
Ho la necessità di nascondere il cursore della tastiera ma non riesco 
proprio a venirne a capo.
Ho provato con TView.HideCursor (dichiarando uses TVIEW) ma non riesco a 
far funzionare questa libreria. C'è qualcosa che ho dimenticato per farla 
funzionare? Sono completamente fuori strada? La soluzione sta da un'altra 
parte?
Per favore aiutatemi! Non pretendo *soluzioni* solo *consigli*.
Grazie, tante grazie.
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

 proprio a venirne a capo.
9 thread indietro...
uses DOS;
var
   CPUreg: registers;
begin
with CPUreg do
          begin
               ah:=$01;
               ch:=20;
               cl:=0;      {se qui metti 21 torna il cursore normale}
          end;
     intr($10, CPUreg);
end.

si puo' anche elaborare un po' (ci mettiamo il Polini, e poi la marmitta)
procedure CursorSize(hi, lo: byte); assembler;
 asm
  mov ah, 1
  mov ch, hi
  mov cl, lo
  int 10h
 end;
dove hi e lo sono la posizione di inizio e quella di fine del cursore
in verticale, cosi' puoi farlo grande come vuoi (o farlo sparire),
metterlo a meta' del carattere etc etc... prova un po' di numeri
( meglio se < 256 :-) )
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
Newsgroup: it.comp.lang.pascal
Titolo: Units:come crearne una ?

Io programmo con il Turbo Pascal 7 e volevo sapere come potevo
inserire tutte le mie procedures in un'altro file.
Poi una volta creato il file Exe e trasformato in obj l'altro file,
va bene il comando $L per richiamarlo ?
--
****************************
Phones DJ
Per gli amici ==> uNz
E-Mail ==> 
Phon...@yahoo.it
ICQ ==> 42244992
****************************

Perchè vuoi creare un file obj, in TP7 puoi creare le unit (come da
subject) seguendo questi passi (se ben ricordo)
1. Al posto di Program nomeprog scrivi Unit nomeunit, nomeunit deve
corrispondere al nome del file unit: se si chiama Proc.pas allora Unit
Proc
2. dopo unit definisci le unit che hai intenzione di utilizzare tramite
la parola riservata "uses"
3. Dopo questa intestazione viene la parola riservata "Interface" a cui
devi far seguire la dichiarazione dei tipi, delle variabili e delle
function - procedure che hai intenzione di implementare in questa unit
(per una function la dichiarazione intendo questo: Function
sum(a,b:integer):integer; senza il codice che deve eseguire)
4. Dop la sezione di interface, viene la parte di "Implementation" in
cui viene messo il codice felle function - procedure che vuoi
impelmentare.
Se qualcosa non ti è chiaro, scrivimi pure


va bene il comando $L per richiamarlo ?
Che ci fai con il .obj ?
Per creare una libreria (unit):
UNIT nome_della_libreria;
INTERFACE
uses
    unit_da_utilizzare;
{ costanti globali }
const
    ...
{ dichiarazione strutture globali }
type
    ...
{ variabili globali }
var
    ...
{ procedure globali }
procedure Zio_Paperone;
procedure Inserisci_Soldini(valore: longint);
{ funzioni globali }
function Salvadanaio: longint;
IMPLEMENTATION
{ costanti locali (invisibili all'esterno della unit) }
const
    ...
{ dichiarazione strutture locali }
type
    ...
{ variabili locali }
var
    ...
    soldini_nel_salvadanaio: longint;
procedure Zio_Paperone;
begin
    ...
    { ;) }
    ...
end;
procedure Inserisci_Soldini(valore: longint);
begin
    soldini_nel_salvadanaio := soldini_nel_salvadanaio+valore;
end;
function Salvadanaio: longint;
begin
    Salvadanaio := soldini_nel_salvadanaio;
end;
BEGIN
    soldini_nel_salvadanaio := 0; { salvadanaio inizialmente vuoto :) }
END.
Le parole in MAIUSCOLO sono necessarie per definire una unit. (tutto il
resto e' optional ;) )
Compila il codice come se fosse un normale programma e ti ritroverai il file
nome_della_libreria.tpu
Ciao.
Simone.

inserire tutte le mie procedures in un'altro file.
Crea una tua unit ...
Nella guida del Pascal ci sono tutte le istruzioni, ma te le riassumo in un attimo ...
Unit <nome_unit>
Interface
 uses            { unita` di cui fai uso }
 const           { costanti uso generale}
 type            { uso generale }
 var             { Variabli uso generale }
 procedure       { tutte le procedure della unit }
 function        { tutte le funzione della unit }
 Implementation
Descrizione delle procedure;
Descrizione delle funzioni;
Esempio di descrizione delle procedure;
-=> NeGuS <=-
www.infinito.it/utenti/negus80