mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Consiglio manuale  ...

Salve sono un aspirante programmatore autodidatta
Chi mi consiglia gentilmente una guida completa sul TP7 scaricabile 
gratuitamente da Internet.
Quelle che ho letto finora sono troppo scarse,
io cerco una guida per imparare a programmare seriamente (almeno le nozioni 
essenziali).
Mi sono cimentato nella lettura degli appunti del professor Cleto Azzani, ma 
cč pochissima parte pratica, esempi.
Grazie anticipatamente per le vostre risposte... 


Il TP7 un po' datato... forse č per questo che trovi poco materiale 
ancora di meno con esempi pratici. Se vuoi qualcosa vai in libraria 
comprati { portati un bel po' di soldi } La guida completa al Turbo 
Pascal della MyGrow Hill. Lo rigirano come un pedalino č veramente 
"Completa" sia per Dos che per Windows, che per il turbovision. Sempre 
che tu la trovi :D
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 La guida completa al Turbo Pascal della MyGrow Hill.
non l'ho trovata nemmeno su google...

 non l'ho trovata nemmeno su google...
perche' la MyGrow l'ha fondata Razz.
http://www.catalogo.mcgraw-hill.it/catLibro.asp?item_id=784
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
io a dire il vero mi riferivo a: 
http://www.librinformatica.com/trade/productview/3768/354/
ben + coststoso :D


 non l'ho trovata nemmeno su google...
McGraw-Hill e cmq cercando bene con google si possono trovare anche
altri libri come 
http://www.ateneonline.it/LibroAteneo.asp?item_id=784
,
il libro menzionato da Razziatore è:
-------
Autori: Stephen K.O'Brien, Stave Nameroff
Titolo: Turbo Pascal 7 / La Guida Completa
Titolo Originale: Turbo Pascal 7 The Complete Reference
Editore: McGraw-Hill Libri Italia
Costo: (Qualche annetto fa costava circa 97,000 lire) ora sulle 40 circa...
--------
Ciao
--
=Omega============
Hands On
gnammo.altervista.org
==================

 wrote in message
news:MQg1e.37860$
Of5....@nntpserver.swip.net

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


non è che magari mi passeresti qualche link a risorse e tutorial per 
freepascal in italiano.
Newsgroup: it.comp.lang.pascal
Titolo: ho già chiesto

mi servirebbè un argorittmo che mi permetta di trovare tutte le combinazioni
di di tante cifre immesse da tastiera.
ho già chiesto, ma ho perso il messaggio

> ho già chiesto, ma ho perso il messaggio
http://groups.google.it/groups?as_q=combinazioni&as_ugroup=it.comp.lang
.
pascal
-- 
Dreadnaut
(Life would be easier if I had the source code)

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

Qualcuno ha qualche idea di come disordinare *per bene* una struttura??

 disordinare *per bene* una struttura??
Sara' il caldo ma... non riesco a focalizzare
il problema, che intendi? :)


Nono, non è il caldo, sono io che devo fare le mie solite cose 
impossibili, solo che volevo disordinare un centinaio di numeri e mi 
chiedevo come fare per disordinarli proprio per bene. :)

 chiedevo come fare per disordinarli proprio per bene. :)
Non puoi semplicemente estrarli a caso e
quindi riordinarli secondo la pesca? :)

si appunto randomizza :D
"Bane" <-._@_.-> ha scritto nel messaggio
news:MPG.19a34155a...@127.0.0.1...


Newsgroup: it.comp.lang.pascal
Titolo: eseguire istruzioni in caso di errore

ciao a tutti, ho appena iniziato a studiare il pascal e mi sorge questo
problema: come si fa ad eseguire delle istruzioni in caso di errore? cioč,
per esempio, se utilizzo il comando rewrite su un file che non esiste come
faccio a non fargli dire errore e uscire dal programma ma eseguire delle
istruzioni da me scritte?
altri linguaggi lo possono fare es. visual basic, labview.
grazie mille
ciao
P.S. ho tp 7


mi scuso dell'errore... non intendevo il comando rewrite ma reset.
grazie
ciao

 istruzioni da me scritte?
prima di eseguire la rewrite dai un
{$i-}
che dice al compilatore di non stoppare il programma per un errore
poi dai la rewrite
e poi fai una if
if ioerror <>0 then
si e' verificato un errore
poi riporti subito la modalita' di uscita on error
{$i+}
es.
assign (file1, 'pippo.dat');
{$i-}
reset(file1);
if ioerror <>0 then
rewrite(file1);
{$i+}
in questo modo se il file c'e' te lo apre, se non c'e' te lo crea vuoto.
ciao

grazie!
Max <max_a...@yahoo.itNOSPAM> wrote in message
8nudti$f64$9...@pegasus.tiscalinet.it...



devi innanzitutto usare l' istruzione {$I-} per togliere l' I/O-checking.
Ora, dopo ogni comando la variabile IOresult avrà un dato valore. Solo se
questo è uguale a 0 l'ultima operazione è andata a buon fine.
Appena possibile, e' meglio riabilitare l'IO-check con {$I+}
Esempio:
{$I-}
reset(nomefile);
{$I+}
If (IOresult = 0) then...
else...
ciao,
-gabri

 wrote in message
8nv4sc$ktc$1...@sirmdpsin16.inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: THE BEST OF THE WEB !!!!!

VOLETE VISITARE IL SITO CHE AL MOMENTO STA SPOPOLANDO SUL WEB PER I
SUOI INTERESSANTI CONTENUTI ?
daniele_...@tin.it
http://members.xoom.it/gallu/pagina.htm

VOLETE VISITARE IL SITO CHE AL MOMENTO STA SPOPOLANDO SUL WEB PER 
l'enorme quantita' di lettere di protesta che sono giunte all'abuse
di Tin.it??? 
-- 
=-=-=-=-=-=-=-=-=
Mr_Brain
=-=-=-=-=-=-=-=-=
Newsgroup: it.comp.lang.pascal
Titolo: tasto da premere





ciao raga,


ho un grandissimo quesito da porvi:


io devo scrivere un programma in pascal che 
esegue un'altra applicazione (dos); quest'altra applicazione funziona in questa 
maniera: si danno da riga di comando dei parametri [nome del file di partenza e 
nome del file di arrivo(nuovo)] per creare un file di testo. Il problema è 
questo: al termine dell'esecuzione l'applicazione mi chiede di premere un tasto 
da tastiera, come faccio a dire al mio programma pascal di premere un tasto 
alla fine dell'esecuzione?



 wrote in message 
  000c01c07954$0f6d29c0$0702020a@ws07...


ciao raga,


ho un grandissimo quesito da porvi:


io devo scrivere un programma in pascal che 
  esegue un'altra applicazione (dos); quest'altra applicazione funziona in 
  questa maniera: si danno da riga di comando dei parametri [nome del file di 
  partenza e nome del file di arrivo(nuovo)] per creare un file di testo. Il 
  problema è questo: al termine dell'esecuzione l'applicazione mi chiede di 
  premere un tasto da tastiera, come faccio a dire al mio programma pascal 
  di premere un tasto alla fine dell'esecuzione?


Forse ma non sono sicuro c'è una funzione 
  chiamata KEYPRESS 







grazie DjBora, ma keypress richiede all'utente la 
pressione di un tasto della tastiera... invece io voglio che sia il programma a 
"premere" un tasto della tastiera a programma terminato!!!


 


non hai (o qualcun altro) qualche altro 
suggerimento?


 


iosephus, ego locutus



 ha scritto nel 
  messaggio 
news:000c01c07954$0f6d29c0$0702020a@ws07
...



L'applicazione chiede di premere un tasto perche' il buffer della tastiera
e' vuoto.
Prima di lanciare l'applicazione devi aggiungere in coda al buffer della
tastiera il codice di un tasto.
Il buffer della tastiera e' una zona di memoria di 32 bytes in grado di
memorizzare i codici degli ultimi 16 tasti digitati.
Perche' 16 tasti e non 32 ? Perche' ad ogni tasto e' associato un codice
ASCII (1 byte) ed un codice di scansione (1 byte) per un totale di 2 byte.
Le zone di memoria in questione sono:
0:41Ah                  Keyboard Buffer Head Pointer
0:41Ch                  Keyboard Buffer Tail Pointer
0:41Eh                  Keyboard Buffer
Puoi trovare la descrizione con un qualsiasi motore di ricerca, sulla lista
degli interrupt di Ralf Brown......altrimenti te ne invio una copia con
tutorial (...se lo trovo...).
Ciao!
Simone.
--------------------------------------------------------------
....e Dio disse : "pkunzip universo.zip"
ICQ: 19598133
Webmaster di
 
www.drfalken.com
 
www.pas-os.com
--------------------------------------------------------------





uso l'assembler... il problema è che io l'assembler 
non lo so!!! 
mi potresti scrivere il codice di un 
programma che fa questa cosa qua?


 


cmq grazie alberto...


il senso c'e' perch' il programma mi chiede la 
pressione del tasto!!!


 


iosephus,ego locutus
Newsgroup: it.comp.lang.pascal
Titolo: Problemi di memoria col Pascal 7.0

Windows, col mouse e i menu nel DOS...)
Dovrebbe essere Turbo Vision.

 per Windows). Se scopri una soluzione migliore, giramela.
Ma voi usate la memoria estesa ?
Perche' altrimenti potete avere anche 128 mega ma non potrete usare 
che i 640k...
In giro ci sono diversi sorgenti per gestire la memoria estesa...
by Frengo


------------
Warning! remember to delete NOSPAM to answer by e-mail!

 tipo?
Segui i link dalla mia Homepage e dovresti trovarne diversi :
http://Frengo.dragonfire.net
Se non trovi nulla fammelo sapere e cerco io.
by Frengo

tipo?
Cerca la RPL, Refice Programming Library, che e' piena di esempi :)))
------
Andrea
------

Per favore aiutatemi al più presto, sono disperato.
Non e' che potresti postare il programma, o parte di esso, per vedere
in che consiste l'errore ?
------
Andrea
------


"if something can go wrong,be sure it will go wrong!"


Newsgroup: it.comp.lang.pascal
Titolo: writeln?!?!?!?

come funziona il comando writeln?

 ha scritto nel messaggio
news:u2yX8.71529$vm5.2...@news2.tin.it...


    writeln('Ciao Mondo');
cmq la WriteLn è un Write (cioè spedice allo StnOut qualcosa... che in
questo coso è un a stringa ma puo' essere di tutto basta che siano
tipi semplici percui nente record) che alla fine va accapo
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 >    writeln('Ciao Mondo');
Sorry ma sono anni che vedo solo codice C

Newsgroup: it.comp.lang.pascal
Titolo: ciao

esiste una funzione che mi permette di sapere se un numero è dispari o pari?
anche qualcosa che mi permette di vedere se la divisione per due ha resto o
no.
grazie

 resto o no.
non e' la definizione di pari/dispari ? :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

esiste una funzione che mi permette di sapere se un numero è dispari o pari?
dividi il numero per 2  usando l'operatore modulo, se il resto è 0
allora il numero è pari
--
Rhymes (
rhymes_...@myself.com
)
http://www26.brinkster.com/rhymes
" ride or die "

 non e' la definizione di pari/dispari ? :-)
if num mod 2<> the numero dispari else numero pari
-- 
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

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

non conosco l'operatore,
mod
if (numero mod 2 ) = 0 then
  // numero pari
else
  // numero dispari


Il , Gianfranco Marchese typed:

scusa, ma ho scritto male:
if num mod 2 <>0 then numero e' pari


Il , Gianfranco Marchese typed:

mi correggo:
if num mod 2 =0 then numero=pari


 if num mod 2 =0 then numero=pari
ma rispondevi a me ? :-)
io dicevo
if num and 1 then <pari> :-)


> if num and 1 then <pari> :-)
si vabbeh... volevo dire dispari... mi e' venurto in
mente stanotte alle 3...
saluti,
un Dreadnaut che forse...
-- 
Life would be boring if I had the source code


tranquillo, rispondevo a me stesso, per correggere un errore, solo che nella
correzione ho sbagliato nuovamente per poi ricorreggermi... che
confusione... ma dove ho la testa per ora?
cmq, potresti spiegarmi che vuol dire "if num and 1 then <pari>? non mi
riferisco all'esempio in questione, ma all'associazione di num ed 1 con
l'operatore and, a che porta?


nella sequenza binaria, quelli che terminano in 1 sono dispari, quelli in 0
sono pari... molto semplice, no?

Nella numerazione binaria i numeri terminanti per:
1:sono i numeri dispari
0:sono i numeri pari

> cmq, potresti spiegarmi che vuol dire "if num and 1 then <pari>?
funziona decisamente meglio se ci metti <dispari> :-)
cmq uso l'and come operatore bit a bit, e lo eseguo fra num
e 1... se il primo (a dx) bit di num sara' 1 l'espressione sara' vera.
Ma se il primo bit e' uno, il numero e' dispari :-)
[ su sito di RdC c'e' il tut. sugli operatori bit a bit :-) ]
-- 
Dreadnaut
(Life would be easier if I had the source code)

 [ su sito di RdC c'e' il tut. sugli operatori bit a bit :-) ]
grazie mille


> grazie mille
di niente .-)

Newsgroup: it.comp.lang.pascal
Titolo: Salvare un file di testo

Ciao,
come si fa a salvare un file di testo?
Addicted to that rush
--- posted by geoForum on 
http://www.delphiedintorni.it

 come si fa a salvare un file di testo?
in che dialetto ?  in generale, data var f:FILE
Assign(f, 'nomefile.txt');  [o AssignFile in delphi]
Rewrite(f);
write(f, ...<contenuto del file>... );  [o writeln]
Close(f);
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Dichiara il tipo come file di testo
Var
   F : Text;
e poi usa le funzioni per i file
Dichiarazione:
Assign(F, 'Mionome.txt');
Apertura nuovo:
Rewrite(F);
Append su file esistente:
Append(F);
Scrittura senza andare a capo:
Write(F, 'Questo non va a capo');
Scrittura andando a capo:
Writeln(F, 'Questo va a capo');
Chiusura del file:
Close(F);
bye,
David

grazie :-)!!!!


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

Esiste una versione gratuita del Turbo Pascal for Windows??
Datemi qualche link per piacere

 Datemi qualche link per piacere
nn credo proprio che esista...
Il TP for win e' nato per win 3.xx.
Usarlo oggi non e' proficuo (fra nn molto la versione 6.0.???).
Il suo immediato successore e' delphi: $$$
se vuoi al max c'e' 
www.freepascal.org
 : clonde delphi per
multipiattafoma
(include tp)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Una volta Delphi 1 e 2 erano distribuite gratuitamente.
Comunque c'č Lazarus che usa FreePascal e che č un clone di Delphi.
-- 
GloboSpace Hosting Services
http://www.globospace.com

Newsgroup: it.comp.lang.pascal
Titolo: Scomposizione in fattori

Ho provato a scrivere questo programma per la scomposizione in fattori,
qualcuno sa dirmi x' nn va??? Grazie <):-)
program fattori;
uses crt;
var primo:boolean;
    resto,divisore,stop:integer;
    num,dividendo:longint;
    b:real;
procedure verifica_se_primo;
begin
resto:=1;
b:=num;
b:=b/2+1;
divisore:=trunc(b);
while (divisore>1) and (resto<>0) do
begin
resto:=dividendo mod divisore;
dec(divisore);
if resto=0 then
begin
primo:=true;
end;
end;
end;
procedure scomponi_in_fattori;
begin
resto:=1;
b:=num;
b:=b/2+1;
divisore:=trunc(b);
while (divisore>1) and (resto<>0) do
begin
resto:=dividendo mod divisore;
dec(divisore);
if resto=0 then
begin
writeln('Il numero è divisibile per: ',divisore+1);
end
else
stop:=1;
end;
end;
begin
write('Inserisci il numero: ');
readln(num);
verifica_se_primo;
if primo=false then
   begin
   while stop<>1 do
   begin
   scomponi_in_fattori;
   end;
   end
else
    begin
    writeln('Il numero ',num,' '#138' un numero primo');
end;
readln;
end.

 qualcuno sa dirmi x' nn va??? Grazie <):-)
prova a seguire quello che ho detto sopra...
Newsgroup: it.comp.lang.pascal
Titolo: get.tononnatanja edicola-cartoleria chiarello caltagirone

salve a tutti,
L'EDICOLA-CARTOLERIA CHIARELLO, in VIA ROMA 106 
TEL.0933-55080
A CALTAGIRONE, vi invitA, a visitare
IL SUO nuovo grande sito:
get.to/nonnatanja
e-mail: 
GT...@TIN.IT
NEL NOSTRO SITO PUOI TROVARE:
la MUSICA Di 
GET.TO/NONNATANJA
.
DOWNLOAD, O ASCOLTO, MENTRE NAVIGHI, DI BRANI MUSICALI. TRA POCO ANCHE, 
IN DIRETTA, IN REAL PLAYER, CONCERTI, DA PARTE DEL NOSTRO GRUPPO, E TANTO ALTRO.
LA CHAT DI 
GET.TO/NONNATANJA
.
venite TUTTI I GIORNI, a chattare  nel nostro sito.
NIPOTINE E NIPOTINI DI NONNATANJA, ORE 21: RIUNITEVI, DA TUTTA ITALIA NELLA CHAT DI 
GET.TO/NONNATANJA...
..
ORE 22,30: RIUNIONE DA TUTTA ITALIA DELLE AMICHE E E AMICI DI NONNATANJA, SEMPRE NELLA CHAT DI 
GET.TO/NONNATANJA...
..
bacheca di annunci di 
get.to/nonnatanja
E, TRA UNA CHATTATA E L'ALTRA, INSERITE I VOSTRI ANNUNCI DI QUALSIASI GENERE, (PURCHE' SERI).
SEMPRE NELLA BACHECA DI NONNATANJA: 
GET.TO/NONNATANJA
.
tutto questo e' _gratis.....
E, VISTO CHE TI TROVI SEMPRE DA NONNATANJA, DA'I UN'OCCHIATA ANCHE ALLA PARTE COMMERCIALE DEL SITO.
troverai UN VASTISSIMO ASSORTIMENTO DI MATERIALE DI CARTOLERIA.
PRATICAMENTE, TUTTO QUELLO CHE CERCHI
a prezzi VERAMENTE DA ingrosso.
SPEDIZIONI SICURE IN CONTRASSEGNO in italia, e anche all'estero. 
troverai anche articoli hardwaRe e software VIDEOGIOCHI, STRUMENTI OTTICI, su vasta scala.SEMPRE A PREZZI VERAMENTE STRACCIATI.....
NON CI CREDI? FAI UN CONFRONTO CON ALTRE AZIENDE;
SICURAMENTE NONNATANJA, NE USCIRA' VINCENTE.
Iscriviti alla nostra mailing-list per essere  aggiornato in tempo reale su
tutto quello che succede nel sito.
abbiamo bisogno anche dei vostri suggerimenti e delle vostre critiche.
fateci sapere.
scusate per l'intrusione.
venite a visitarci. ne rimarrete sicuramente sorpresi positivamente.
grazie a tutti quelli che verranno.
BUONI ACQUISTI NEL NOSTRO SITO.
cordiali saluti.
francesco chiarello
0330-364539 dopo le 18
SITO: 
get.to/nonnatanja
e-mail: 
gt...@tin.it
P.S.:
L'EDICOLA CHIARELLO VIA ROMA 106
CALTAGIRONE
TEL.0933-55080
VI ATTENDE IN GRAN NUMERO,
PER FARVI  CONOSCERE I SUOI SERVIZI E I SUOI ARTICOLI 
SEMPRE A PREZZI DA VERO INGROSSO
NON CI CREDI? VIENI, CONTROLLA I NOSTRI PREZZI, 
FAI UN CONFRONTO CON ALTRE AZIENDE.........
Net-Tamer V 1.11.2 - Registrato


Newsgroup: it.comp.lang.pascal
Titolo: valore max in una variabile

Ciao ragazzi,
ho un problema riguardo la memorizzazione di numeri in una variabile.
Esempio ho:
var a,b,c:integer;
..
BEGIN
a:=b*c;
write (a)
end.
Se (B*C) e maggiore di 32.000 il programma mi stampa una cifra errata con il
segno '-' davanti.
Come potrei risolvere qst inconveniente??
MILLE GRAZIE!

 wrote in message
CeB18.5929$tl3.1...@twister2.libero.it...


> Dichiara la variabile a di tipo longint.
certo, funziona. pero bisogna dire che tutte le
variabili hanno dei "limiti".
integer 16 bit, -32768~32767
longint 32 bit,  -2147483648~2147483647
poi hai i word che sono gli integer senza segno,
gli short int (-128~127), i byte che sono gli short
int senza segno (ossia 0~255)
tenendo presente tutto questo, fai gli opportuni controlli,
stai attento, e tutto dovrebbe andare bene.
ps: pero cristian ha ragione.. è difficile superare i longint,
ma se fai una moltiplicazione in un for... forse lo passi no?
ciao, Augusto


Io se so che un programma supera i longint (moooooooolto dificile) uso
i Real che con l'acopiata N*10^E da dei numeri abastanza vastini....
real     ¦ 2.9e-39..1.7e38
single   ¦ 1.5e-45..3.4e38
double   ¦ 5.0e-324..1.7e308
extended ¦ 3.4e-4932..1.1e493
comp     ¦ -9.2e18..9.2e18
se  il longint e difficile da superare extended lo è veramente visto
che permette un 1 seguito da 493 zeri pero' ci sono le limitazioni
delle variabili float.
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Guardando sull'help scoprirai che tutti i tipi di dato hanno un range
massimo di valori che possono assumere ed oltre il quale non possono andare.
ESEMPIO:
-2^16<=Integer<=2^16-1
Il tuo problema, ad esempio, si risolve utilizzando un longint invece che un
integer.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

Ma nel mio esempio:
var a,b,c:integer;
..
BEGIN
a:=b*c;
write (a)
end.
Devo definire tutte e tre le varibile di tipo longint??
Se definisco solo A di tipo longint lo stesso mi da kome valore max circa
32000.
Cmq per esatezza nel mio programma B e C sono due array di tipo INTEGER.
Frs e per questo ke non va???
Un'altra kosa....e meglio dichiararle tutte e tre di tipo real oppure tutte
e tre di tipo longint (sapendo ke B non supera i 1000 e C non supera 5000)??
Grazie per le risposte precedenti!
Newsgroup: it.comp.lang.pascal
Titolo: Porta seriale con Turbo pascal 7

Curiosità: posso mandare segnali binari tramite la porta seriale?
Dovrei costruire un programmatore per le eprom..
Grazie.
Cw.
PS Per caso potete consigliarmi anche un prog. sotto win che lo faccia per
conto suo?
nel senso che vorrei magari collegare la porta seriale ad una basetta e
inviare i bit dal pc.
grazie.

SI è possibile (un mio amico a fatto una Chat tramite la seriale...
prima o poi dovrei vedere il sorgente ma non c'è mai tempo)
...
Credo che devi usare l'instruzione Port[NumeroPortaCorispondente] che
si usa come una variabile.
Attento NumeroPortaCorispondente non è 1 = Com1 2= Com2 ma è visto che
con Port si attraversano tutte le porte del PC devi trovarti un po' di
documentazione....
io non posso essere + utile... spero che qualcun altro + legato
all'assembler (per esempio un certo Albe) ti possa essere utile

 documentazione....
per vedere il numero delle porte è facile (almeno le seriali e parallele).
In genere sono sempre le stesse (ho provato su diversi pc).
Per esempio la parallela è 378h
le due seriali non ricordo, ma hai presente la tabellina che appare quando
accendi
il pc? guarda in basso a destra, noterai gli indirizzi delle porte.
Gestire la parallela è facile, seriale non so nulla, se lo scopri metti
qualcosa sul newz!
Ciao, Augusto

Davo un occhiata giusto per caso, ed ho visto che si parlava di seriale,
siccome può interessare qualcuno penso, sul mio sitarello se andate a questo
indirizzo:
http://www.xungame.com/public/tutorials.asp
c'è una un piccolo modulo che gestisce le seriali per delphi, il linguaggio
è l'object pascal, ma il modulo in realtà io lo scrissi per il pascal e poi
lo modificai per il delphi, volendo lo rimodificate per il pascal e tutto
dovrebbe funzionare. E' semplice, divisi il modulo in chiari e leggibili
sottoprogrammi.
initcom...
readcom...
ecc. ecc..
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  Giovanni Ceglia WebMaster & WebDesigner
 
http://www.xungame.com/
 
http://www.mozzarelladibufaladop.com/
Newsgroup: it.comp.lang.pascal
Titolo: problema

dati il numeri di elementi e la classe , visualizzare tutte le possibili
combinazioni.
come faccio?

 come faccio?
Spiegati meglio...

 ha scritto nel messaggio
news:18Afa.43518$Lr4.1...@twister2.libero.it...


 per cui avremo 1110,1111, 1112 1113  1114 1115 1116  1117  1118  1120,etc.
mmh una cosa non ho capito... se gli elementi sono da 1 a 8, lo zero
che ci fa' ?
-- 
Dreadnaut
(Life would be easier if I had the source code)
(e se fosse in java ?!?!? :-\ )

 ha scritto nel messaggio
news:dad40748.03032...@posting.google.com...


[premessa: a^b = a ripetuto b volte;  e.g. 1^4 = 1111 ]
beh la prima idea che mi viene e' quella di "contare": parte dal primo
numero 1^n, e poi inizi a sotituire dal fondo con il successivo; in
caso di riporto passi al penultimo elem.
- Piu o meno:
var
 n : char; { !! lavoriamo sulle cifre, non su numeri }
 c : byte;
 s : string;
- dove
 n := '<numero di elementi>'; { a.e. '8' }
 c := <classe>;
 s := '11....1'; { 1 ripetuto c volte }
- poi ci serve una funzione ausiliaria:
function prossimacifra( var cif: char ): boolean;
{ il booleano e' per sapere se c'e' stato riporto }
 begin
  cif := succ ( cif  );
  if cif > n then cif := '1';
  prossimacifra := (cif = '1');
 end;
- e il ciclo principale diventa qualcosa del tipo
 repeat
  writeln ( s );
  p := length(s);
  while prossimacifra( s[p] )
   do dec(p);
 until p = 0;
che puoi leggere come:
aumenta l'ultima cifra (a dx), se hai riporto aumenta anche
la successiva, ripeti il tutto finche' non hai riporto quando
aumenti la prima cifra (a sx).
Non e' _la_ soluzione, pero' funziona. se hai piu' di 10 elementi
si puo' ancora adattare... pero' non saprei.  Altrim potresti fare
con una qualche funzione ricorsiva sul numero di cifre...
ma boh :-)


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

Dove posso trovare un buon compilatore?

 Dove posso trovare un buon compilatore?
www.freepascal.org
-- 
Andrea Bergia - studente          Linux Registred User #281550
Per favore non mandatemi allegati in Word o PowerPoint.
Si veda 
http://www.fsf.org/philosophy/no-word-attachments.html

Newsgroup: it.comp.lang.pascal
Titolo: [OT]Computer Temple

Ciao a tutti.
Qualcuno sa ke fine ha fatto 
computertemple.com
?
Grazie.
--
el rasune'
-----
Sao ko kelle terre, per kelle fini que ki contene,
trenta giorni le possette parte Sancti Benedicti.
( placiti cassinesi )

 Grazie.
Prego

 Grazie.
Prego
Dark Angel

Grazie ragazzi!
--
el rasune'
Sao ko kelle terre, per kelle fini que ki contene,
trenta giorni le possette parte Sancti Benedicti.
( placiti cassinesi )
"Dark Angel" <goldangel@NO_SPAM_tin.it> ha scritto nel messaggio
news:szyK6.5900$f52.2...@news.infostrada.it...


net/
Ragazzi, ma perchè mi da
errore ?? Dice che la pagina è inesistente !!!
--------------------------------
Inviato via 
http://usenet.iol.it
 


Ciao
'l rasune'

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

C'è qualkuno qua in mezzo ke partecipa alle olimpiadi di informatica????

Volevo il testo delle selezioni regionali degli anni passati e magari anche
le soluzioni
grazie in anticipo e in bocca al lupo se tu partecipi
Newsgroup: it.comp.lang.pascal
Titolo: Aprpst di Pascal OS

Non mi ricordo piu' il sito, quindi non so' a che punto sia la cosa...
Ma se io mi sbattesi e facessi *tutto* il kernel (se po ffa, se po ffa....)
Qualcuno sa fare il compilatore (preproc. + parser + assembler +
.... + linker etc etc ) ?
[ma ne avete davvero voglia :-) ]
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Scusate... ho visitato solo ora il sito....
ma non c'e' un po' troppo assembler ?
Non basterebbe fare in asm solo le procedure di interruzione ?
boh....
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Newsgroup: it.comp.lang.pascal
Titolo: Gli esecutivi (.EXE)

Salve a tutti,
sono uu ragazzo che sta imparando il linguaggio Pascal, ma ho un piccolo
problema a visualizzare gli esecutivi del programma che faccio.
Questo compilatore li crea automaticamente o devo mettere qualche funzione
nel programma che me li crea o c'è qualche opzione che devo inserire?
Io sono in possesso della versione 5.5 del turbo pascal e sto cercando da
qualche parte la versione aggiornata, se potete darmi qualche indirizzo
sarei molto contento.
Un saluto da Giovanni

Un saluto da Giovanni
Ciao!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciň che sei nel minimo che fai."

 sarei molto contento.
E' sempre il solito: 
http://www.crackstore.com/tools
 e ti scarichi Tp7

 wrote in message 8rjo2r$l5m$4...@nslave3.tin.it...

SCUSATE LO SO CHE SI CHIAMANO ESEGUIBILI, MA NELLA FRETTA HO SCRITTO
ESECUTIVI.
COMUNQUE VI RINGRAZIO PER L'AIUTO E VI MANDO TANTI SALUTI.
CIAO

 COMUNQUE VI RINGRAZIO PER L'AIUTO E VI MANDO TANTI SALUTI.
Perchè urli????
Newsgroup: it.comp.lang.pascal
Titolo: Problema con le unit

Salve a tutti. Per la prima volta ho compilato, senza alcun apparente
problema, delle unit. Solo che ora non riesco a usarle: anche se le
metto nella directory in cui si trovano le unit standard di TP7, mi
compare il messaggio di errore "Unit name Mimsatch", e questo avviene
solo con unit non standard. Qualcuno riesce a aiutarmi?
Grazie infinite

Un bel giorno, tutt'a un tratto, Andrea, non so se mi spiego !, si mise a
scrivere :

Il nome della Unit e quello del file .TPU deve essere lo stesso.
(Non ho capito poi perche' !)
Andrea Laforgia
----
I guai ve li andate a cercare : 
quando Bill Gates annuncio' che avrebbe fatto scrivere 
Windows98 a Topo Gigio perche' non gli avete creduto ?

(Non ho capito poi perche' !)
Se usi "uses MiaTpu;" secondo come farebbe il Pascal a trovarsi la
unit MiaTpu? La cosa piu' logica e' andarsi a trovare il file con lo
stesso nome di file ed estensione .pas, se lo trova lo compila (e
diventa MiaTpu.tpu) se non lo trova ricerca il file MiaTpu.tpu. Se non
lo trova da' l'errore. Un po' un casino, ma almeno funziona. Anche se
e' triste dover andare in ogni unit ed includere una nuova unit
nell'istruzione uses solo per aggiungere una funzione della nuova
unit. In C e' molto piu' pratico, basta che tutti i file .C includono
lo stesso header, e' dentro l'header file che si mette la clausola
include. Se si vuole aggiungere una funzione di una libreria, basta
agigungere l'include nell'header, evitando di impazzire modificando
tutti i file sorgente .C. Poi non ci lamentiamo delle unit, se pensi
che il Pascal "puro" non sapeva neanche cosa erano.
Bye.
Jo Parrello - OWL/C++ Programmer
http://utenti.tripod.it/SourceNet
(
jopar...@geocities.com
)

che il Pascal "puro" non sapeva neanche cosa erano.
Nessuno si sta lamentando delle unit.
E' giusto che il pascal puro non sappia cosa siano, perche' e' lo standard del
linguaggio, slegato da ogni estensione.


unit. 
Questa non l'ho capita.
Fabio
--
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e fast computer

Qualcuno può mandami via e-mail una patch funzionante per il patch error
200, che viene identificato in tutti fast computer.
Ho provato le patch consigliate sul sito della inprise, ma nessuna ha
funzionato

...

Scusa
Ma il sito Inprise non suggerisce nessuna patch! Dice in parole molto
pulite di "arricamparci"!
ciao
----------------------------------------------------------------------
Alexander
aal...@iol.it
ICQ: 21080895
"L'arte rinnova i popoli e ne rivela la via. Vano delle
scene il diletto ove non miri a preparare l'avvenire"
----------------------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: heap overflow error??!!

HEAP OVERFLOW ERROR
C'è qualche rimedio per questo errore??
Grazie
--
-----------------------------------------------------
s...@gem.it
kin...@geocities.com
IRCNet:KiNg[G]hZ »»» #
mp3.it
                                »»» #gameprog-ita

C'è qualche rimedio per questo errore??
Solo riducendo la quantita' di spazio allocato nella memoria heap.
Questo errore, pero', e' tipico di quei programmi in cui il controllo
dell'allocazione di memoria sfugge al programmatore.
Di solito la memoria heap necessaria ad un programma (leggasi la
memoria necessaria per le strutture dinamiche) non arriva mai a
superare quella disponibile.
Ti consiglio di rivisitare il tuo programma in cerca di eventuali bug.
Nel caso, invece, il tuo programma funzionasse a dovere e la memoria
realmente non bastasse, puoi provare ad aumentarne le dimensioni con
la direttiva $M, oppure ad utilizzare un file come buffer, anziche' la
memoria convenzionale.

Newsgroup: it.comp.lang.pascal
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN January 1999 (3 CDs) 30.000 lire
-MSDN April 1999 (3 CDs) 30.000 lire
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN April 2000 (3 CDs) 80.000 lire (Ultimo numero uscito)
-Component Source MSDN 10/99 Edition (1 CD) 20.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 30.000 lire
-MSDNnews (opuscolo) January/February 2000 10.000 lire
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it


Newsgroup: it.comp.lang.pascal
Titolo: Stampare e... basta

Volevo che nel mio programmino si stampasse una cornice attorno allo schermo
(cioč dalla coordinate 1,1 a 80,25); solo che quando stampo l'ultimo
carattere (di coordinate 80,25), la funzione write fa avanzare il cursore di
un carattere, cominciando cosě una nuova riga ed eliminando la prima.
Mi servirebbe, in pratica, una funzione che stampi un carattere e basta,
senza far avanzare il cursore di un carattere.
Dato che ci sono, ne aproffitto anche per chiedere come si fa ad eliminare
un file in Turbo Pascal
Ciao
Andrea

queste sono due proc per accesso diretto alla mem video...
piu' o meno fanno quello che chiedi... se serve altro ho
una unit completa
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
{ - snip from fCrt.pas - }
 type
  CrtCell = record Ch,At: byte; end;
  CrtMap  = array [1..50,1..80] of CrtCell;
 var
  CrtMem : CrtMap absolute $B800:$0000;
 Procedure fWrite(y,x:byte; s:string);
  var
   n : byte;
  begin
   for n := 0 to length(s)-1 do
    CrtMem[y,x+n].Ch := ord(s[n+1]);
  end;
 Procedure fWriteEx(y,x:byte; s:string; a:byte);
  var
   n : byte;
  begin
   for n := 0 to length(s)-1 do
    CrtMem[y,x+n].Ch := ord(s[n+1]);
   if a <> 0 then for n := 0 to length(s)-1 do
    CrtMem[y,x+n].At := a;
  end;

> queste sono due proc per accesso diretto alla mem video...
Scusa se ti faccio un'altra domanda, ma esiste qualcosa da sostituire al .Ch
per impostare il colore di sfondo e quello del testo??
Grazie mille

Me la potresti mandare (
ky...@uscitadiemergenza.net
)? Grazie...
Kyle
"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:xBA57.5896$VO5.2...@news.infostrada.it...


 .Ch per impostare il colore di sfondo e quello del testo??
vedi la seconda delle due procedure:
il campo At contiene gli attributi, cioe' colore e sfondo in un unico
byte, con il colore di sfondo nei 4 bit alti, quello del testo nei 4 bassi
(colori da 0 a 15 per il testo e da 0 a 7 per lo sfondo)
CrtMem[y,x].At := (col_testo + col_sfondo shl 4) [or 128];
l'ultima parte opzionale se vuoi il lampeggiamento
[ mmh una volta c'erano quattro righe di asm che permettevano di eliminare
il lampeggiamento e avere 16 col di sfondo... qlcn le ricorda ? ]


OK, ti ringrazio...
Dreadnaut <drea...@liberoDALLASPAM.it> wrote in message
isZ57.607$NZ6....@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: adesso mi spiego meglio aiuto plz

Ehm adesso vi faccio 3/4 del programma affinchè voi capiate meglio
program pincopallino;
Uses Crt;
CONST max=100;
TYPE  vettinteri=array[1..max] of integer; (un array con max 100 posti)
VAR vett:vettinteri;
        dim:integer;
OK???
PROCEDURE Dimesionearray(VAR dim:integer);
begin
repeat
write ('dammi la dimesione massima dell'array ');
readln (dim);
until (dim>0) and (dim<=100);
end;
PROCEDURE elementi (VAR vett:vettinteri; VAR dim:integer);
VAR i:integer; (contatore per il for)
BEGIN
for i:=1 to dim do
begin
write ('dammi l''elemento ');
readln (v[i]):
end;
end;
OK?
adesso ci dovrebbe essere la procedura che conta quante volte un elemento è
presente tra quelli digitati con la seconda procedura dall'utente
percio se l'utente digita un array cosi :
1,2,3,1,2,3
il programma con una procedura di stampa che nn serve facciate dovrebbe dare
l'elemento 1 è prestente 2 volte, l'elemento 2 è presente 2 volte,
l'elemento 3 è presente 3 volte
poi ci dovrebbe essere una seconda procedura che prende l'array e metti
prima i pari e poi i dispari
cioè : 1,2,3,1,2,3
ok? il programma dovrebbe dare 2,2,1,3,1,3 ci siete?? spero di si e grazie
per l'aiuto a tutto il ng

 ha scritto nel messaggio
news:CjKT6.6233$Ft6.2...@news.infostrada.it...


Scusa, mi sono dimenticato un minimo di spiegazione...
Trovato è una var boolean. i,k,j integer;
Dunque... v è un nuovo vettore bidimensionale. Prima di tutto lo
inizializzo.
Poi inizio a scandire i valori di vett e li confronto uno ad uno con tutti
quelli che ci sono sulla prima riga di v.
Sè è stato trovato un "simile" allora incremeta (il numero di valori di vett
l'ho messo sulla seconda riga) altrimeti crea metti questo nuovo valore in
unaltra cella di v.
Capito?
Es: vett ha questi valori:   1,4,8,13,56,8,4,56,56
Alla fine il vettore v risulterà così:
----------------------------------
|   1  |   4  |   8  |  13  |  56  |
|----------------------------------|
|  1  |   2   |  2  |  1    |    3   |
----------------------------------
Ok?


 v[j,2] eccc, io utilizzo di solito v[i] o j e basta
Quando hai un array ad una dimensione (come usi sempre tu) hai semplicemente
una serie di celle numerate da 1 a n.
In un array dimensionale... pensa per es a battaglia navale: hai una
struttura con x colonne e y righe.
E' la stessa cosa.
Quando io scrivo per es v[5,3]:=7;
vuol dire che inserisco il valore 7 nelle 5° colonna e 3° riga:
colonne
                        1      2       3       4    5      6
                   -------------------------------------------
           1       |         |        |        |        |      |      |
 righe          ------------------------------------------
         2        |         |        |        |        |      |      |
                   -------------------------------------------
         3        |         |        |        |        |  7   |      |
                   -------------------------------------------
Spero di essermi spiegato...
Ciao
Alex

 ha scritto nel messaggio
news:CjKT6.6233$Ft6.2...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: cerco TP versione 3

a scuola, mio figlio ha cominciato a programmare in TP  ma usano la versione
3.
Dove posso trovarla ?
Grazie
Giorgio

Dove posso trovarla ?
La uso anch'io a scuola. Mi sembra abbastanza vecchia per essere considerata
Abandonaware, quindi la posterň su it.binari.emulatori
Ciao,
Davide
davi...@usa.net
ICQ: 20331544
Newsgroup: it.comp.lang.pascal
Titolo: Problemi con Gnu Pascal

Non riesco a compilare niente, perche` ogni volta il gpc non riesce a
trovare:
crtbegin.o
appare la scritta:
ld:cannot open crtbegin.o: No such file or directory
Ma il file esiste ed e` nella directory:
/usr/lib/gcc-lib/i386-redhat-linux/
2.7.2.3/
Cosa posso fare per farlo vedere a gpc.
Grazie in anticipo
Andrea

 /usr/lib/gcc-lib/i386-redhat-linux/
2.7.2.3/
Prova a copiare quel file nella directory dove fai la compilazione.

aser...@geocities.com
 wrote:
 >/usr/lib/gcc-lib/i386-redhat-linux/
2.7.2.3/
Strano, nella mia debian e` in /usr/lib. Prova a fare un symlink.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | What was you username again? <clickety clickety click>


Ok ti ringrazio, il problema e` risolto.
Ora ne ho un altro perche` non riesco ad eseguire il codice compilato:
va in 'core dump', forse devo usare qualche opzione particolare?
Andrea

aser...@geocities.com
 wrote:
 >Ora ne ho un altro perche` non riesco ad eseguire il codice compilato:
 >va in 'core dump', forse devo usare qualche opzione particolare?
No, devi scrivere il programma senza bug.


va in 'core dump', forse devo usare qualche opzione particolare?
--check-null-pointers --trace-program-manually --eliminate-bugs
Leonardo
make: *** No rule to make target `love'.  Stop.

No, devi scrivere il programma senza bug.
Lo fa con qualsiasi programma (anche quelli piu` semplici), non credo
che dipenda da me!
Non riesco a capire quale puo` essere la causa.
Andrea

Newsgroup: it.comp.lang.pascal
Titolo: BGI Error ?

Ho fatto in modo(aggiungendo una linea nell'autoexec.bat) che ogni volta che
accendo in pc mi parta un mio programmino in pascal (ovviamente tramutato in
exe...)
il problema è che se lo provo normalmente (non all'inizio, ma dopo che ha
caricato Windows) funziona perfettamente...
.. ma se lo faccio partire subito mi da questo errore:
BGI Error: Graphics not initialized (use InitGraph)
Ma certo che lo ho usato !!!
a:=detect;
initgraph(a,b, ' ');
è sbagliato o incompleto ???

 ha scritto nel messaggio
news:8i596n$hmq$1...@nslave2.tin.it...

Prova (a, b, '');

initgraph(a,b, ' ');
Puo' darsi che tu debba inserire il percorso di ricerca contenente i
file .BGI. La cosa migliore e' assicurarsi di non mettere spazi tra i
due apici, di mettere il .BGI nella stessa directory del programma, e,
meglio che mai, linkare il file .BGI direttamente nel programma,
evitando cosi' di uscire pazzi.
Bye.

Bye.
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee
Newsgroup: it.comp.lang.pascal
Titolo: massimo elemento di un vettore ... help!

innanzitutto voglio ringraziare tutti quelli che mi hanno risposto
sinora :))
questa volta vorrei sapere se esiste un modo intelligente di
determinare
l' elemento di un vettore (di dimensione > 100) ilcui valore è
massimo.
Ho risolto il problema ordinandolo e prendendo l'ultimo elemento...
esiste un algoritmo + efficiente ?
Il problema sorge perchè la funzione che allegherò funziona solo per
un numero assai ridotto
di elementi :
................................................
program Masssimo3numeri;
var a,b,c: integer;
function max (x,y: integer):integer;
BEGIN
     if x<y then max:=y else max:=x
END;
Begin
     write('INSERISCI 3 NUMERI : ');readln(a,b,c);
     writeln(MAX(MAX(a,b),c));
................................................
grazie
claudio

esiste un algoritmo + efficiente ?
Boh
Io ho sempre fatto una for con dentro il confronto Max < V[I] dove max
all'inzio č inizializato a al primo valore del array
Const
   VIMin  = 0;
   VIMax = 100;
Type
   TArray = Array[VIMin .. VIMax ] of Integer;
Function Max(V : TArray) ; Integer;
Var Temp : Integer;
Begin
   Temp := V[VIMin]
    For I := VIMin + 1To VIMax
       Do If Max < V[I]
           Then Max := V[I];
End.
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 massimo.
Per un vettore di grosse dimensioni  il modo migliore è ordinarlo magari in
maniera decrescente, utilizzando un algortmi di ordinamento veloce, in
alternativa al vettore potresti utilizzare una struttura heap che ha come
caratteristica fondamentale quella di essere parzialmente ordinata e che il
nodo padre è sempre maggiore dei due nodi figlio... ma si tratta di stutture
dati un po complesse
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

 esiste un algoritmo + efficiente ?
direi proprio di sì! dato un vettore di n elementi il metodo di ordinamento
migliore nel caso medio (niente casi degeneri del tipo vettore già ordinato
od amenità simili) ha complessità dell'ordine di n*ln(n); scandire un
vettore alla ricerca dell'elemento massimo significa eseguire un'operazione
di costo O(1) (costante tanto per intendersi) per la lunghezza dell'array,
cioè ha complessità O(n).
Tutto questo nell'ipotesi che il vettore tu lo abbia già, se invece devi
richiedere l'inserimento dei dati, allora puoi tenerti il massimo via via
che 'popoli' l'array con gli elementi che l'utente inserice.
ciao
Newsgroup: it.comp.lang.pascal
Titolo: Convertire in pascal

Ciao, ho bisogno di un'aiuto ; come si fa' in Pascal a convertire i numeri
da una base all'altra , esempio da decimale a esadecimale e viceversa oppure
i numeri nei corrispondenti caratteri ASCII ? Grazie in anticipo. Bye Alex.

 wrote in message 812vju$mcl$1...@nslave2.tin.it...



Scrivi pure, grazie. Bye Alex.

 wrote in message 813hqq$rf6$1...@nslave1.tin.it...


i numeri nei corrispondenti caratteri ASCII ? 
Da decimale a qualsiasi base <= 16 vale la seguente funzione :
const simboli : string = '0123456789ABCDEF' ;
function converti( n, base : integer ) : string ;
var s : string ;
    r : integer ;
begin
  s := '' ;
  repeat
    r := n mod base ;
    n := n div base ;
    s := simboli[r+1] + s ;
  until n = 0 ;
  converti := s ;
end ;
Puoi facilmente scrivere l'inversa.
In particolare, pero', da esadecimale a decimale, puoi semplicemente
usare la funzione val() in questo modo :
var mia_stringa_hex : string ;
    mio_numero_dec  : integer ;
    err_flag        : integer ;
...
val( '$'+mia_stringa_hex, mio_numero_dec, err_flag) 
Per convertire i numeri in stringhe, puoi usare la procedura str().
str( mio_numero:width:decimali, mia_stringa ) ;
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)
Newsgroup: it.comp.lang.pascal
Titolo: errore misterioso - esame1.pas (0/1)

testo; 
scusami se mi permetto magari sto per dire una stronzata,ma non hai
pensato di mettere ogni parola del testo in un grande array e poi di
usare una procedura di ricerca,e contare quante volte la ricerca ha
avuto successo?????
ciao.
[federico|end] 
ogal...@iol.it
 ,remove "ogalu." before reply
Key fingerprint = BB 82 C6 18 2B A2 77 44  48 E0 CC E5 BF EC 67 9E
"la Scienza e' un'equazione differenziale ; 
la Religione e' una condizione al contorno"
Alan M. Turing



Bravo Federico ! come si vede che non hai esperienza di programmazione
!!!!!
Andrea

avuto successo?????
SI! :-)
peccato che il mio prof. la pensava diversamente:
mi spiego: "utilizzare un array renderebbe il programma 'limitato' a
parole di una certa lunghezza"
- e dico io: qnte volte potremmo mai scrivere supercalifragiliss... e
vattelappesca?
Cmnque, anche se l'appello non lo chiedeva esplicitamente, bisognava
usare una lista!!! (tanto per complicarsi la vita!)
 

                                                Luca Basso Ricci.
Ma questo comunque, anche se va bene, non e' un uso perfetto
dell'albero.
Se le parole sono tante l'albero va' bilanciato per la ricerca
ottimale.
E' cosi' che funziona per esempio per i data-base.
E comunque e' questo il metodo da adottare con gli alberi binari.


Sarà anche cosi per i db, ma tu quante parole pensi di avere nel tuo testo, 
qualche milione? e pensi che le parole che inserisci riescano a far degenerare 
l'albero in una lista?
Pensa a cosa stai facendo, su cosa stai lavorando, non pensare a cosa servono 
gli alberi oppure a cosa e come li usano i veri programmatori per gestire dei 
db enormi.
Programmare non vuol dire sempre attenersi a delle regole (il libro mi dice 
che l'albero si usa cosi ed allora lo usi cosi e basta), vuol dire anche 
rubare quando serve ed a volte la formalità va a farsi benedire a favore della 
semplicità e della performance.
Anzi, la soluzione da me proposta risulta essere quella preferita dai docenti, 
non escludo che si possa fare in altri mille modi e maniere.
                                                Luca Basso Ricci.

 Faresti bene a leggerti un buon libro di Calcolo Numerico, circa il
Andrea
Newsgroup: it.comp.lang.pascal
Titolo: Master Operating System

Ciao, qualcuno di voi usa o ha usato il MOS? A limite dove posso trovare
librerie che mi permettano di creare interfacce grafiche per DOS?
Grazie!

Cojo wrote:

Io me la sono scritta a manina usando la graph e la mouse { anch'essa 
scritta a manina :D } č divertente se hai tempo "da perdere"
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 scritta a manina :D } è divertente se hai tempo "da perdere"
Avevo iniziato anche io a scrivere qualche classe, ma appunto non anvendo
molto tempo libero cercavo qualcosa di già fatto!!

Non so cosa sia MOS, ma per creare GUI in DOS nell'ultima beta del
Free Pascal (1.9.6) e' stata inserita FreeVision clone di TurboVision.
Senno' prova sullo SWAG nel file TXTWNDW.
-- 
Omega e' omega e basta