mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: problema con batch file

Ciao,
ho un problema con un programma Pascal che richiama da un menu dei batch
file.Con Windows 95 o DOS 6.22 tutto funziona correttamente mentre su un
PC 486sx e DOS 6.00 non richiama i batch file che presi singolarmente
non danno problemi.Puo' essere il 
command.com
, visto che eseguendo il
programma prima di richiamare il batch file Windows 95 segnala
l'esecuzione di "command"?
Paolo

...


Newsgroup: it.comp.lang.pascal
Titolo: Cerco URL Patch PII

Ringrazio anticipatamente chiunque possa indicarmi dove trovare la patch
necessaria a far eseguire programmi Turbo Pascal 7.0 su sistemi con CPU
Pentium II.

http://digitezine.cjb.net
Cerca la sezione sul pascal
ciao
Guido Revello
webmaster di: 
DIG.IT
 ezine

...


Newsgroup: it.comp.lang.pascal
Titolo: Unit Graph.tpu

 
homes...@libero.it

 ha scritto nel messaggio
news:9s9gpm$iv0$1...@serv1.albacom.net...


 Te l'ho appena spedita.
Arrivata, grazie!

Newsgroup: it.comp.lang.pascal
Titolo: algoritmo ciclo pascal

Come posso fare un programma che crei tutte le combinazioni da
1 1 1
1 1 2
1 1 3
fino a 90 90 90 e consideri solo le terne dove a<>b<>c ??
Dopo non dovrebbe essere difficile fare ulteriori selezioni...
--
Paolo '83 RE
gher...@iname.com
CIAO!


Ti vuoi dare all'otto
--
fabi...@rocketmail.com

fino a 90 90 90 e consideri solo le terne dove a<>b<>c ??
program permuta ;
var i, j, k : integer ;
begin
  for i := 1 to 90 do
    for j := 1 to 90 do
      for k := 1 to 90 do
        if (i <> j) and (j <> k) and (i <> k) then
           writeln(i:3, j:3, k:3);
end.

Un bel di' Paolo 83 RE scrisse:
PR> Come posso fare un programma che crei tutte le combinazioni da
PR> 1 1 1
PR> 1 1 2
PR> 1 1 3
PR> fino a 90 90 90 e consideri solo le terne dove a<>b<>c ??
PR> 
PR> Dopo non dovrebbe essere difficile fare ulteriori selezioni...
PR> 
lotto??
E poi vuoi scartare quelle in cui ci sono doppie?? :-))
Oppure un programma di riduzione?? :-)
-- 
"Passa abbastanza tempo a confermare il bisogno ed il bisogno sparira'",
prognosi di Peter
-- 
Emanuele Cesena
ami...@iol.it
 :)	Occhio all'antispammer NOSPAZ!!
http://www.geocities.com/SiliconValley/Grid/8879

...


Un bel terno fa sempre comodo...
Ma allora facevami prima a darti tre numeri buoni....
--
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: [Info+Critiche] Irc & Web

 it.comp.lang.javascript
Il javascript è un linguaggio per il web quindi è ovvio che il loro sito sia
bello e funzionale.
Cmq se c'è da fare basta chiedere e sicuramente vi aiuterò!

 - ICQ#91902715
www.pascalonline.f2s.com
il sito ufficiale di it.comp.lang.pascal
per collaborare vieni sul canale IRC #turbopascal

Approfitto di questo sito per chiedere (ennesima volta sorry, direbbe
un uomo in bombetta) se qualcuno e' interessato a programmare e
divertirsi con P-Robots, un gioco di IA in Pascal. Ho anche modificato
il programma di gestione correggendo alcuni errori della versione
originale e scritto un piccolo tutorial, io li posto a Crucio (BriVidO
?), se vi piacciono metteteli pure sul sito. Byez.

Se controllate sul sito, vi renderete conto che i collegamenti al materiale
sono stati tutti effettuati, infatti da questo pomeriggio sono un line 2
interessanti tutorial nella sezione "documenti"---->"linguaggio psacal" --->
Tutorial.
Da parte mia dunque massima disponibilità a mettere on line e anche ad
ottimizzare il materiale che mi invierete.
Dunque raccolgo e rilancio l'appello di Re di Cuori e vi invio a partecipare
attivamente alla realizzazione del sito. Potete inviarmi tutto il materiale
da voi prodotto a: 
bri...@acybergal.com
Dan...@argo-web.it
e per documentazioni superiori ai 3 MB ed entro i 15 a:
cruci...@inwind.it
Io inoltre mi impegno a mettere on line e a linkare tutto il materiale che
mi sarà pervenuto con una cadenza di 3 o 4 giorni.
Dunque vi invito a partecipare numerosi, a mandarmi i vostri listati.
BriVidO


------IRC
Con grande rammarico devo annunciarvi che da ieri sera, causa mancanza di
persone che utilizzano il canale ci hanno privato dei bot presenti sul
canale #turbopascal, questo significa che il canale è 'fasullo' ossia non ha
ne protezioni ne storia. Onestamente non capisco perchè non avete sfruttato
la possibilità di avere aiuti, consigni e file in tempo reale, cmq da oggi
il progetto NG+WEB+IRC diventa NG+WEB !
------WEB
Ho letto qualche post di lamentela per la lentezza con cui si svolgono i
lavori relativi al sito 
www.pascalonline.f2s.com
 vi voglio ricorda che
questo NG è popolato da studenti e chi si occupa del sito è uno studente
come voi.
Questo però non ci giustifica, dato che abbiamo preso un impegno sarebbe
giusto portarlo avanti, non è possibile che Il Razziatore si occupi delle
pagine e dei tutorial contemporaneamente (Razziatore senza offesa, lo dico
per velocizzare i tempi), quindi dato che MatteoM non si è fatto più sentire
il web master è Brivido e lui si deve occupare di realizzare i collegamenti
ai tutorial che io e Razziatore stiamo preparando.
Tutte le persone che postano sul NG sono invitate a partecipare attivamente
al sito... date un occhiata a questo
www.jspoint.it
 è nato dalla collaborazione di tutti i partecipanti al NG
it.comp.lang.javascript


 it.comp.lang.javascript
Daccordissimo su tutto,ma forse un esempio con il sito del newsgroup di
javascript non č il massimo per rendere l'idea.
Se dovessimo preparare un lavoro in Pascal riuscirebbe bene come č riuscito

Newsgroup: it.comp.lang.pascal
Titolo: CERCO TURBO PASCAL VER. 5.0

Cerco qualcuno che possa inviarmi via e-mail il TP 5.0 perchè sono un
appassionato di programmazione ma dispongo solamente di un TP ver. 3.0.
Grazie
Alberto Coppini
e-mail: 
acop...@virtualnet.it

Grazie
Dal mio sito puoi scaricare la versione 6  (circa 600Kb)
http://www.users.iol.it/fabio.manzo
Ciao,   Fabio
fabi...@rocketmail.com


Mi correggo. Il sito e' all'indirizzo:
http://users.iol.it/fabio.manzo
Fabio
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: espressioni in not. polacca....

Devo scrivere un prog che avvalendosi della pila risolva le espressioni in
notazione polacca....qualche dritta? (o magari qualcuno che l'ha già fatto
me lo spedisce...)
Grazie
--
________________________________
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo! ;-)
________________________________
   FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere NOSPAM

 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


l'ho fatto grazie, ora vorrei ampliarlo con una procedure che da una
espressione, controlla se le parentesi sono giuste, es.:
{[(4+5)+3]/2}   giusta
{]3+5)} errata
mi serve un dritta per l'algorimto, intanto ho estratto le parentesi e le ho
messe in una stringa, ma ora come posso controllare?


 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


si ma io volevo inserire un'espressione in notazione normale e poi
trasformarla, dopo aver controllato le parentesi...


 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.pascal
Titolo: funzioni nello schermo

Ho un problema, ho una lista di righe scritte con writeln(...... che esce
dalla schermo
In poche parole io vorrei salendo con la freccia della tastiera andare in su
per vedere il resto del testo. Riesco solo arrivare all'angolo dello
schermo, ma non so come fare perchè vada ancora più su a vedere il resto.
Spero che sia chiara la mia domanda. Ciao e grazie

 Spero che sia chiara la mia domanda. Ciao e grazie
Ciao

Potresti sfruttare gli interrupt per spostare le pagine video: quando manca
spazio sposti la pagina video ed aggiungi la riga mancante. Quando l'utente
preme le frecce direzionami carichi la pagina video che ti interessa.
Ora non ricordo quale sia l'interrupt che ti serve e le funzioni per
spostare le pagine video ma cercando su google non dovresti avere problemi
nel trovare quello che ti serve.
Da 
http://www.pobox.com/~ralf
 puoi scaricare una guida molto ben fatta.
Ciao
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;
Newsgroup: it.comp.lang.pascal
Titolo: Potete darmi una mano su un comando di TP7? Non so come utilizzarlo :(

Allora, sono poco pratico di Turbo Pascal, ma siccome stavo scrivendo
un progammino (una patch), volevo sapere una cosa:
che comando e con che sintassi, devo usare per far controllare al
programma in pascal la dimensione esatta in byte di un'altro programma
che deve essere patchato; cosě, se corrisponde, bene, e faccio partire
la patch, se non  corrisponde gli mando un messaggio che il programma
e differente?
Grazie in anticipo :)
K'z



Puoi utilizzare la funzione FILESIZE.
Guarda qui:
Function   Lunghezza(n:string):longint;
var	f:file of byte;
begin
	Assign(f,n);
	Reset(f);
	Lunghezza:=FileSize(f);
	Close(f)
end;
Alla funzione passi il nome del file (n) e ti restituisce la sua
lunghezza il bytes.
Ciao,  Fabio
fabi...@rocketmail.com

Ciao,  Fabio
Grazie Gentilissimo :)
Mi sa che ne approfitto per chiederti un altra cosuccia, visto che ci
sono....   
:)
Potresti dirmi come faccio a fargli leggere al programma una risposta
del tipo Si o No e mandargli in esecuzione una routine "senza premere
invio"?

invio"?
Guarda un po' qui:
var	c:char;
	write('Dimmi Si o No ');
	repeat
		c:=readkey;
		if c=#0 then c:=readkey;
		c:=UpCase(c)
	until c in ['S','N'];
	if c='S' then
		<esegui routine>;
Che ne dici?
Ciao,  Fabio
fabi...@rocketmail.com

Un bel di' Fabio M. scrisse:
FM> var	c:char;
FM> 
FM> 	write('Dimmi Si o No ');
FM> 	repeat
FM> 		c:=readkey;
FM> 		if c=#0 then c:=readkey;     <<---
FM> 		c:=UpCase(c)
FM> 	until c in ['S','N'];
FM> 	if c='S' then
FM> 		<esegui routine>;
FM> 
FM> Che ne dici?
FM> 
Perfetta: solo una precisazione: la riga che ho segnato con <<---
e' inutile, tanto sei in un repeat :-)
-- 
"L'altra coda e' sempre piu' veloce", osservazione di Zenone
"Se si cambia coda, quella che si e' appena lasciata diventera'
immediatamente la piu' veloce", variazione di O'Brien
"Continuare a cambiar coda le rallenta entrambe e fa infuriare tutti",
corollario di Kenton
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879
Newsgroup: it.comp.lang.pascal
Titolo: pascal si ribella e salta le istruzioni

Guardate questa riga di codice :
 writeln ('Bla bla bla bla ');
   writeln;
   write (' Type your name : '); read (name);
   writeln;
   write (' Type your surname : '); read (surname);
   writeln;
in teoria dovrebbe darmi un prompt del tipo :
 Type your name : [digiti]
 Type your surname : [digiti]
invece, una volta inserito il nome, chiede il cognome ma non aspetta la
riposta e salta all'istruzione dopo. Perchè ?

Non vorei sparare cazzate...
Ma a me dava problemi del genere quando usavo la unit crt senza la path.

hai provato ad usare "readln" al posto di "read"?
--
http://nxos.cjb.net
jeremy <k@k.k> wrote in message 3ABA4CDA.30229A5F@k.k...


La risposta c'è nel help contestuale del TurboPascal,
"dopo aver richiamato il primo read, ogni seguente chiamata ritornerà una
stringa di lunghezza zero", in pratica se vuoi leggere la seconda variabile
devi utilizzare x forza il readln.
Ciao
Cristian
jeremy <k@k.k> wrote in message 3ABA4CDA.30229A5F@k.k...


riposta e salta all'istruzione dopo. Perchč ?
Perche' nel buffer di tastiera dopo la prima "read" rimane la sequenza
di caratteri che costituisce il "new-line", inputato mediante la
pressione di "invio".
Devi usare "readln" per entrambe le letture.
--
Andrea Laforgia (ICQ 87230455)
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

Newsgroup: it.comp.lang.pascal
Titolo: turbo pascal 7.0

Could you please send me turbo pascal 7.0
thanx
Elwood
haug...@ccsi.com

Ragazzi, ragazzi, ecco qui un altro sfigato, per di piů straniero, o che si
finge tale, che vuol fare il marcione.
Compratelo il TP7, sfigato proletario di merda.
Buy it by yourself, sfortunate fucked stranger!
Patrick Haugen ha scritto nel messaggio ...


thanx
Could you please buy it ?
Regards, 
Borland
(eh eh .... scherzo...)
Andrea Laforgia
----------------------------------------------------------------------
Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)


"Ci sono due entità infinite: l'universo e l'idiozia umana".

Newsgroup: it.comp.lang.pascal
Titolo: Cerco siti WWW dedicati al Pascal in Italiano e non

Come da Oggetto..
Tnx,
Splash
Http://www.opty.net/splash/

 ha
scritto:

Ciao,
e' da molto che non posto su questo ng e ormai non sa piu' nessuno che
io, Andrea Laforgia, Francesco Franco e Antonino Parisi (ragazzi, dove
siete finiti? Ci siete ancora in Rete?) abbiamo realizzato anni fa uno
dei primi siti italiani dedicati al Pascal.
http://www.geocities.com/SiliconValley/Lakes/7668/
Spero che funzioni ancora, è da un tot. che non ci do' un'occhiata.
A tutti coloro che postano domande su questo ng: fate prima un salto
in questo sito, c'e' la risposta a mote vostre domande!
Fatemi sapere cosa ne pensate, bye!
Remo Franceschelli - 
r.franc...@tuttocitta.it
http://www.geocities.com/SiliconValley/Lakes/7668/
Newsgroup: it.comp.lang.pascal
Titolo: Too many files open

Run time error 207!!
Qualcuno sa come uscirne considerato che ho seguito tutti i consigli
dell'Help!!
Grazie mille.
--
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Run time error 207
qualcuno sa come posso cavarmela visto che ho già provato a fare tutto
ciò che consiglia l'help?
grazie.
--
Posted from 
smtp2.libero.it
 [193.70.192.52] 


Domanda banale:
Hai già chiuso con "ALT + F3" tutte le finestre che non sono il tuo
programma?
In pratica dovresti provare a chiudere tutte le finestre per poi
riaprire la tua del programma da compilare.....
On 23 Jul 2000 20:13:48 +0200, 
ste...@libero.it
 (Stefano Pacifici)
wrote:


Non vorrei dire una stupidata, ma hai provato a dare un occhio al
config.sys?
--
Fabio Ruini
(
fabi...@libero.it
)
"Non si puņ descrivere la passione, la si
puņ soltanto vivere" (Enzo Ferrari)

 config.sys?
Sono daccordo per la precisono ai file aperti contemporaneamete
FILES=70 ti consoglio di mettere (di solito sta a 20,40)
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Intercettazione errori

Grazie (in particolare a Fabio che mi ha già aiutato tanto!!!)
Prego.
fabi...@rocketmail.com


devi però prima impostare {$S-} (e ricordarti subito dopo di rimettere il
tutto a posto con un {$S+}
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
http://www.geocities.com/SiliconValley/Grid/8879
"Il proiettile in arrivo ha diritto di precedenza"

...










...





Newsgroup: it.comp.lang.pascal
Titolo: apertura file

Salve a tutti , è la prima  volta che scrivo su questo ng,
vorrei sapere come si aprono i file di testo in scrittura senza perdere il
vecchio contenuto.
Grazie.

"Fabio" <xx...@xxx.xx> ha scritto nel messaggio
news:39fb4...@news.dada.it...

Var
 VFile: File;
 MyVar: String;
begin
 Assign(VFile, 'c:\prova.txt');
 Reset(VFile);
 Read(VFile, MyVar);
 MyVar:= MyVar + 'ciao';
 Write(VFile, MyVar);
 CloseFile(VFile);
end.
Se fai Reset(VFile) il file viene apero in lettura e scrittura, in poche
parole modificabile. Se fai ReWrite(VFile) prima distrugge il file vecchio,
poi scrivi un file nuovo.
Ciao
Davide Carrara
Newsgroup: it.comp.lang.pascal
Titolo: Ancora problemi TSR

 Ciao!
Anche io sto' cercando di fare un TSR.
Come si puo' evitare che il programma venga caricato 2 (o piu') volte???
Grazie
Matteo
--
Please mail me at:
Matteo.F...@fe.nettuno.it
Ciao.

 Matteo
Una soluzione e' questa (ma non so se e' quella che usano i piu):
esistono degli interrupt che sono lasciati liberi per programmi utente.
Prendine uno e fai in modo che quando viene invocato rstituisca un
codice particolare che identifica il tuo programma. Inoltre all'avvio
del programma devi invocare questo int e se ritorna il codice tu non
instlli le procedure trs. Con questo metodo puoi fare anche altre cose
molto interessanti che lascio alla tua fantasia.
Ciao
  Roberto.

Newsgroup: it.comp.lang.pascal
Titolo: passare da pascal a delphi

Ciao regà!
Voglio cominciare a programmare anche in delphi, ma non so dove mettere
mani... :-(
Le strutture dei programmi, le parole riservate ecc. ecc. sono le stesse del
turbo pascal oppure sono due cose completamente diverse, e quindi mi
conviene comprare un libro sul delphi (se si quale?). Se su un editor delphi
metto un programma in tp funziona? Quale editor delphi mi consigliate?
Preciso che credo che qst messaggio nn sia OT xkè qualcosa che riguarda il
pascal c'è! :-))
Ma il progetto di fare il sito che fine ha fatto? avete rinunciato?
Fatemi sapere
ciauz
--
E MAIL: 
ness...@dominio.it
(inserisci interfree al posto di dominio)
ICQ NUMBER: 147421455

Quale editor delphi mi consigliate?
L'unico esistente: Delphi! Delphi non è solo il linguaggio, ma un
ambiente integrato composto da linguaggio di programmazione Object
Pascal, un editor, la libreria VCL, ecc.. ecc.. 
-- 
(*metallikop*libero*it*)
{
http://digilander.iol.it/metallikop
}

 ha scritto nel messaggio
news:3c629...@news.dada.it...


 Ma il progetto di fare il sito che fine ha fatto? avete rinunciato?
boh...
--
Dreadnaut
(Life would be easier if I had the source code)

Ok ho capito, grazie per le risposte, avete qualche libro da consigliarmi?
mi sembra che l'apogeo ha fatto qualcosa sul delphi risulta anche a voi?
Un saluto.


Newsgroup: it.comp.lang.pascal
Titolo: Turbo.exe e Tpx.exe

Questo problema nasce dal fatto che non credo di poter generare eseguibili
eseguendo la compilazione da Tpx poiché non v'è l'opzione "disk" o "memory"
nel menù compile. Se un altro modo c'e', ditemelo e il problema si risolve.
In caso contrario volevo sapere se qualcuno ha risolto un problema che, a
quanto ho visto, è capitato anche ad altri: quello cioè del riferimento di
turbo.exe all'unità d:\ anche se la lettera del proprio hd è c. (Come sapete
questo dà luogo al famoso messaggio di errore all'inizio se vi sono dischi
nell'unità d:\ e interdice l'accesso al programma se di dischi non ve ne
sono).
--
Vi ringrazio in anticipo.
Iskratov.

Per quanto riguarda le directory le devi settare nelle opzioni,
OPTIONS ->Directory
e poi salvare le opzioni..
con TPX fai build e hai l'exe.....
l'exe lo mette nella cartella di dove hai turbo.exe!
NM

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

Scusate qualcuno sa dove posso trovare le pacht per Turbo Pascal 7?
Grazie!

http://utenti.tripod.it/TorreSoft/
Newsgroup: it.comp.lang.pascal
Titolo: Interfaccia per le Unit

Salve,
volevo porvi una semplice domanda:
Se scrivo una Unit, la compilo e la do a qualcuno che ne vuole usare le
funzioni, come faccio a far conoscere a questa persona le interfacce della
Unit? Ad in in C/C++ basta dare un file header da includere nel file di
programma + un file obj che contiene la definizione delle funzioni, quindi
compilare il file linkandolo all'obj. Con le Unit come faccio ad ottenere
una cosa simile?
Grazie
--
Luigi

Gli dai un bel fai di testo dove riporti il nome delle funzioni con i
parametri di input/output , le variabili globali e le costanti spiegando per
ogni elemento della unit cosa fa
es.:
unit leggitastiera;
interface
function inkey : byte;
function leggiastr(i : integer) : string;
function upkey(chr : char) : char;
....
....
Documentazione leggitastiera
function inkey  : char;
legge il buffer della tastiera senza bloccare il flusso (non attendete che
un tasto venga battuto)
la funzione ritorna 0 se non è stato battuto un tasto, il carattere
corrispondente al tasto in caso contrario
Parametri di INPUT      nessuno
Parametri di OUTPUT  nessuno
function leggistr(i : integer) : string;
legge una stringa da tastiera finchè non viene battuto il tasto invio oppure
la lunghezza della stringa non ha raggiunti i caratteri.
Parametri di INPUT        i   : intero    numero massimo di caratteri che
deve contenere la stringa
Parametri di OUTPUT    nessuno
etc etc
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

Doh! E' quello che temevo :)
Grazie
--
Luigi

Se hai il sorgente cfr. ReDiCuori, se hai soltanto il file .TPU ed era
stato compilato con {$D+,L+} puoi recuperare le informazioni con un
debugger, se usi il Free Pascal puoi usare
  ppudump -Vi TelegraphRoad_DireStraits.PPU
(come esempio, e' che la sto ascoltando adesso eheh++).
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.


wrote:

non si puo'... devi dare il tuo file .pas... oppure il file .tpu ma a
quel punto non puoi dare interface.... ovvio puoi sempre fare un
readme o qualcosa del genere... ma il file tpu (cioč il .obj) tra una
versione e l'altra non č compatibile...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: Non riesco, aiuto!!!!!Ordinamento liste!!!

Per favore, potreste spiegarmi come posso fare a riordinare alfabeticamente
dalla lettera A alla Z una lista(lineare) costituita da record con un campo
dichiarato come stringa?Es:.
Record of
   numero:integer;
   nome:string;
   link:puntatore;
END;
Questa è la procedura che ho scritto:
PROCEDURE riordina_lista(VAR h,n:pointer);
VAR
z,p:pointer;
temp:string;
BEGIN
   z:=h;
   p:=h;
   REPEAT
      readln(n^.nome);
      temp:=n^.nome;
      n:=n^.link;
      REPEAT
         readln(n^.nome);
            IF n^.nome<temp THEN BEGIN
               temp:=nodo^.nome;
               z^.link:=n^.link;
               n^.link:=p;
               z:=n;
               p:=n
               END
               ELSE BEGIN
               z:=n;
               n:=n^.link;
               END;
      UNTIL n=nil;
   p:=h^.link;
   n:=p;
   z:=p;
   UNTIL p^.link=nil;
   n:=h;
END;{riordina_lista}
Il problema è che non mi stampa niente: l'ho già riscritta più volte, non
ottenendo risultati, anzi...ottenendo 'NIL pointere dereferenced'!
RE:
E' sbagliato proprio il metodo di codifica.
Ti conviene se vuoi ordinarla in qualche maniera, scrivere qualche
sottoprogramma in più che ti faccia astrarre la lista in modo da poterla
accedere diciamo direttamente elemento per elemento.
Cioè dovresti fare una funzione che acceda all'elemeno n e che vada a
leggerlo, poi ti devi fare una funzione che conti il numero di elementi
nella lista, e un'altra che faccia lo scambio di elementi.
quindi:
directaccesslist(..)
countelements(..)
swapelements(..)
a questo punto pigli un qualsiasi algoritmo di ordinamento e gli dai impasto
la lista utilizzando i sottoprogrammi sopra indicati.
Se invece vuoi risparmiare tempo come stai cercando di fare allora ti
scervellerai solamente e alla fine non ti funzionerà maiiii niente!
Ciao da Giovanni.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                           Giovanni Ceglia
                WebMaster & WebDesigner
 
http://www.xungame.com/
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Proprio non mi viene!!!!

 wrote in message
mIE37.121$m06....@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Salve, vorrei trovare un manule gratuito

Salve,
vorrei trovare un manule gratuito per imparare a programmare programmi che
riescano a controllare le periferiche come la stampante.
Grazie, Shukri.

 ha scritto nel messaggio
news:ag1k82$1k3$1...@lacerta.tiscalinet.it...

Primo, devi mandare i dati su LPT1; secondo, li devi mandare nel formato
della stampante, e siccome è binario, devi aprire lpt1 come file binario:
var f:file of char;
begin
assign(f,'lpt1:');
rewrite(f);
write(f,dati1);
write(f,dati2);
....
end;
se devi stampare solo testo, allora apri pure in modalità testo f (ovvero
dichiari var f:text) e usi write(f, ...) o anche writeln (che non puoi usare
se lo apri come file binario),
Terzo, infine, devi conoscere il formato di dati da inviare alla stampante,
ma siccome ne esiste uno per stampante, o passi a Windows o passi a Linux(il
freepascal è gratis e supporta entrambi, oppure Delphi 6 Personal o Kylix 2
Open Edition), dopodiché usi i comandi del sistema che a loro volta usano i
driver. Per sapere i comandi del sistema, vai su un ng specifico del
sistema, come it.comp.programmare.win32 o it.comp.os.linux.development.
Ciao.
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

Newsgroup: it.comp.lang.pascal
Titolo: Libreria CTR TurboPascal 7

Salve, io ho cercato su internet la libreria CTR.TPU per poter
colorare il testo di alcuni programmi che ho fatto, ma non lo trovata.
Vi ringrazio anticipatamente se qualcuno può darmi l'HTTP:// del
download o inviarmala tramite E-Mail.
Saluti

Johnbell ha scritto:

Vuoi dire la CRT?
Il tp7 dovrebbe gia averla basta un uses crt.
program coloratesto;
uses crt;
begin
      textcolor(3);
      write('Hello',#32);
      textcolor(6);
      write('World');
      repeat until keypressed;
end.
Minchia è da una vita che non tocco il pascal -_- ti ringrazio :D
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.pascal
Titolo: Che sbaglio...?!

Cosa c'è di sbagliato in questa procedura?! L'errore che mi dà il
compilatore è 'Ordinal expression expected', mandando il cursore su OF del
case.
PROCEDURE ConvMedia(Media:real);
 BEGIN
  CASE Media OF
    27,28,29,30: writeln('A');
    24,25,26   : writeln('B');
    21,22,23   : writeln('C');
    18,19,20   : writeln('D');
   ELSE writeln('E')
  END;
 END;
Grazie...



L'errore è semplicemente che Media, essendo di tipo Real, non è un
tipo "Ordinal". I tipi ordinal sono quelli dove, dato un certo numero,
sono certi sia il predecessore che il successore: dato il numero 7, il
predecessore è sicuramente 6 e il successore sicuramente 8. 
Di 7,937 qual'è il successore?
Pertanto Case è in grado di manipolare solo numeri ordinali, quali
integer, longint, byte, ecc...     
-- 
(*metallikop*libero*it*)
{
http://web.tiscali.it/mbsoftware
}

"Unforgiven" <unfor...@somehost.somedomain> ha scritto nel messaggio
news:668cvtkqlgbnp27gj...@4ax.com...

Grazie 1000 per l'aiuto!!
Newsgroup: it.comp.lang.pascal
Titolo: problema con creazione file

 grazie.

scrivere correttamente il nome del file 'Pippo.txt' nei link
Purtroppo non va bene, devo assolutamente creare file i cui nomi
abbiano solo lettere minuscole.
Altri consigli ? 


Mmmmhhh mi sembra che win faccia vedere *tutti* i file con
la prima lettera maiuscola, anche se non ce l'hanno...
Controlla da dos/prompt/console
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

ciao
Da dos i file vengono mostrati tutti con tutte le lettere maiuscole.
:-(
Cmq. la cosa continua a sembrarmi strana....perche' se ci fate caso i
file .*bak che si autocreano quando modificate un .pas sono composti
da tutte lettere minuscole.
Quindi deve esserci un modo per creare file con le lettere minuscole.

prova a usare il comando lowercase(str)... se non lo sai usare vai di
ctrl+F1

Newsgroup: it.comp.lang.pascal
Titolo: Piccolissimo problema: Vermente Bravo a chi me lo risolve!!!

Ho un piccolo problema:
dovrei, in fase di esecuzione del mio programma Pascal, simulare con una
istruzione (che ignoro) la pressione del tasto ESC.
E comunque inviare al pc un tasto qualsiasi come se questo fosse stato
digitato da tastiera.
Come fare????????

Confesso di non aver capito molto bene il tuo problema, comunque se si
tratta di simulazione, puoi definire una var ESC:boolean, TRUE quando č
premuto il tasto ESC, FALSE altrimenti. Se poi invece di simularlo lo
devi leggere da tastiera puoi fare in diversi modi (fammi sapere).

...

Ma... so che i tasti premuti si leggono nella port[$60]... perň non ho idea
di come si possa scrivere nel buffer della tastiera...
Puoi provare a scrivere nella port[$60], oppure in una lě vicino (59 o 61),
perň sappi che potresti anche fare dell'immane casino :-)
Comunque, se specifichi meglio il contesto del problema, forse si puň
tentare di ovviarlo.
Per esempio: se hai un programma che gestisce un input da tastiera, con una
funzione tipo:
var ch:char;
Newsgroup: it.comp.lang.pascal
Titolo: hackeraggio file...help

Salve. Avrei un problemino.
Ho un file di dati cerato in TP ma non ne conosco la struttura per poter
modificare i dati all'interno.
Qualcuno sa come aiutarmi?
Grazie.
--
Posted from 
agora.stm.it
 [195.62.32.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Grazie.
la storia della struttura è vecchia come l' informatica.
Che estensione ha questo file ?
E' vero che l' estensione non fa il formato, però se nessuno ci ha messo le
mani rinominando il file si può risalire al tipo di file e magari in
internet trovi la struttura.
Se non è complicato, tramite un editor esadecimale puoi capire la dimensione
in byte di ogni campo, però se è una struttura tipo file
eseguibile......allora lascia stare
l' editor !!
C'è anche un' altro dato che spesso compare nei file (nei primi byte), la
famosa "signature" che può aiutare a capire il tipo di file anche se ne è
stato cambiato il
nome !!
Dimmi alcune informazioni sul file, se puoi ed il file è relativamente
piccolo e non contiene dati privati, manda pure così gli do un' occhiata !!
Ti saluto.....ciao !!
Antonio Tarolla

 
che tipo di dati contiene??
Cosi' a naso credo proprio che non ti potra' aiutare nessuno...
Qualcosa si puo' fare se conosci un po' i dati contenuti...
ancora meglio se li puoi vedere (ad es. con un programma).
Faccio un esempio che mi e' capitato.
Se hai un archivio di estrazioni per il lotto, e sai quante estrazioni
sono registrate, e' facile (diciamo "puo'" esser facile) risalire
ad un record del file che conterra' una sola estrazione.
Una volta ottenuto un solo record, smanetta smanetta, se non e' troppo
grosso e sai cosa devi tirarne fuori, lo trovi.
Ah... tutte queste considerazioni valgono se, ovviamente, non e'
un file criptato e/o compresso... altrimenti prima devi 
decriptare/decomprimere :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Se non t'importa dove sei, non ti sei perso", regola di Rune
Newsgroup: it.comp.lang.pascal
Titolo: Dos e Win, clipboard differente?

Noto che copiando da un documento sotto winxp ed incollando nelle
finestra del pascal non č possibile, sembra le due memorie siano
distinte, eppure noto che molti riescono a fare il paste di codice ed
help del Pascal sotto dos, come fate?

 a fare il paste di codice ed help del Pascal sotto dos, come fate?
si, gli appunti del pascal e quelli di windows sono diversi. Puoi incollare
del testo dagli appunti di win in un qualsiasi prompt attivando l'opzione
"Modalita' inserimento" fra le proprieta' della finestra, anche se a volte
il turbo pascal a volte si perde qualche carattere (tipo i "." credo).
Il metodo piu' semplice per copiare del codice e' cacciarlo in un blocco
note e poi salvare il file; alternativa se sei al prompt e' usare
"copy con <nomefile.txt>", incollare col tasto destro e poi dare un ^Z.
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

"copy con <nomefile.txt>", incollare col tasto destro e poi dare un ^Z.
Eh?
Ma scusa ma se fai modifica no eh? Tra le voci contestuali della
finesta { si apre cliccando sul icona della finestra o click destro
nella barra delle aplicazioni in basso } inseme ai soliti Chiudi,
ingrandici ecc c'è anche Modifica e dentro Copia, inclolla segna ecc
ecc per copiare bisonga prima incollare.
Quando si incolla c'è lo sgradevole fatto che le rigono vengono
automanticamente indentate. perche e come se vuoi stesse scrivendo
quindi se incolate il testo
<tab>a
<tab>b
il tp visalizera
<tab>a
<tab><tab>b
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 quindi se incolate il testo
che su un programma di 100 righe diventa letale, e' per quello che
spiegavo l'eh-metodo del copy-con che non soffre dello stesso
problema :-)
-- 
Dreadnaut
(che ha troppo sonno per scrivere la sig.)

Newsgroup: it.comp.lang.pascal
Titolo: ancora un problema di grafica...

come faccio a leggere e visualizzare un file .ico (di Windows)


Forse dico una cazzata, ma le icone (*.ico) non sono altro che file bmp,
infatti basta
che a file.bmp dai il nome file.ico e Window lo vede come un icona e lo usa
come tale.
Newsgroup: it.comp.lang.pascal
Titolo: Prog in background

Come si fa a creare un programma che gira solamente in background......???  

Come si fa a creare un programma che gira solamente in background......???
Eh eh eh... ti piacerebbe :-))
Scherzi a parte: basta crearlo in modo da "simularlo" in background :-)
Ti faccio un esempio... tempo fa abbiamo riscritto una readln...
Ad un certo punto (per forza) dovrai fare un readkey, per prendere i tasti
premuti... :-)
Se metti invece
if keypressed then ch:=readkey;
allora attiverà il readkey (che altrimenti avrebbe interrotto il prog.) solo
se premi un tasto... altrimenti il resto del prog. continuerà ad andare (ad
esempio musica di sottofondo...).
Insomma: dipende molto dal programma... altre cose si possono fare con
gestori delle interruzioni... ma la storia si complica: se puoi postare
qualche info in più sul tuo prog. :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

Come si fa a creare un programma che gira solamente in background......???  
Si scrive come TSR, ovvero residente.
Andrea Laforgia
----------------------------------------------------------------------
Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)
Newsgroup: it.comp.lang.pascal
Titolo: Parametri ai programmi

Sapete se č possibile fare in modo che all'esecuzione di un
programma (.exe) creato in pascal fare in modo che riconosca
dei parametri o variabili immessi (prima dell'esecuzione) dopo
il nome del programma?
Ad es., se creo un programma (myprog.exe) che deve aprire dei
file di testo scelti dall'utente (testo.txt), č possibile fare in modo che
digitando "myprog testo.txt" il programma myprog vada in esecuzione
ed apra il file testo.txt?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

il nome del programma?
Se programmi in TP puoi sfruttare ParamCount che ti restituisce il 
numero di parametri e ParamStr per ottenere il parametro stesso.
Consulta l'help a riguardo.
--
Ippopapero Acquatico,
...mica uno qualunque...

 Consulta l'help a riguardo.
Funziona! č fantastico! Grazie 1000


 ha scritto nel messaggio
news:9dbb0q$299$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: DOVE POSSO TROVARE PASCAL ?

Ciao ,
io programmo per divertimento in Qbasic e vorrei porovare a cimentarmi con
il Pascal , dato che lo userò molto spesso.
Dove posso trovare (preferibilmente gratuitamente e su Internet) il Pascal
(anche Turbo) ?
Grazie In anticipo !

(anche Turbo) ?
Esiste il compilatore GNU Pascal, probabilmente il migliore.
Cone esso puoi tra l'altro compilare i sorgenti TP, dato che possiede estensioni
per gestirli.
Trovi maggiori informazioni alla pagina 
http://www.delorie.com
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Esiste il compilatore GNU Pascal, probabilmente il migliore.
Quali sono le differenze tra GNU Pascal ed il Turbopascal x Dos
Ciao,  Fabio
--
fabi...@rocketmail.com

Quali sono le differenze tra GNU Pascal ed il Turbopascal x Dos
Ti riporto le note caratteristiche prese dalla pagina ufficiale :
The GNU Pascal Compiler (GPC) is, as the name says, the Pascal compiler from the
GNU family. This means: 
- 32 bit compiler, no limits, highly optimizing, runs on all operating systems
supported by GNU C (including DOS, Windows 95/NT, OS/2, and most UNIX compatible
systems).
 
- Free Software according to the GNU General Public License (see also GNU for
remarks and translations), compatible to other GNU languages and tools such as
GNU C and the GNU debugger. 
The compiler integrates the following language standards: 
- ISO-7185 Standard Pascal, 
- most of ISO-10206 Extended Pascal, 
- and most of Borland Pascal 7.0. 
Some highlights: 
- from Extended Pascal: complex numbers, initialized variables, structured
function return values, modules.
- from Borland Pascal: inc, dec, shl, shr, absolute variables, units, objects. 
- GNU extensions: min, max, (PXSC-style) user-definable operators. 
Disadvantages: 
- the GNU debugger (gdb) does not yet understand Pascal syntax and types, 
few standard libraries (can use C standard libraries instead), longer
compilation times than with e.g. Borland Pascal. 
New features in version 2.0
- Borland extensions are integrated into the main distribution line. 
- Easier to compile. 
- Texinfo online documentation. 
- Precompiled Module/Unit interfaces. 
- Automatic "make" facility. 
- "Export foo = all" extension to Extended Pascal. 
- Machine attributes, e.g. for using the Windows API. 
- Some bugs fixed. 
Bisogna considerare che il GPC non ha costo ed e' in continua evoluzione ! ...
Andrea Laforgia
---------------
(grattatio pallarum omnia mala fugit)


Newsgroup: it.comp.lang.pascal
Titolo: [SSR] ehehheheh

Spam Senza Ritegno:  
digilander.libero.it/dreadnaut/
piu' che altro perche' c'ho messo il Tph 2 Html
(o forse ce l'ho messo per fare il sito ?  boh... )
-- 
Dreadnaut
(Life would be easier if I had the source code)

Lo so che questo post nn ci azzecca con quello di Dread, ma era per non
creare una altro thread...
Allora ringrazio tutti quelli che in questo week-end hanno mi hanno mandato
il loro materiale
per il sito, in questi giorni sto un po incasinato con gli esami ma in
settimana ruberò un po di tempo
per leggere le email ed inserie il materiale nel sito.
Tnx RdC
Newsgroup: it.comp.lang.pascal
Titolo: No Finestra

Salve,
ero curioso di sapere se esiste un modo (intendo procedura interna al file
stesso) x far avviare un prog (ke non visualizza nulla in output) la cui
finestrella dos sia gią minimizzata nella barra delle applicazioni. Visto ke
č possibile, tramite una proc. in asm, farlo avviare a skermo intero, ho
pensato fosse possibile anke questo...(ma lo č?)
--
ThE DArkNeSS iS JuST DaRK

 pensato fosse possibile anke questo...(ma lo č?)
mmmh quella era una banfa coi fiocchi... per farlo partire minimizzato
credo non ci siano altri metodi se non i .pif :-)
--
Dreadnaut
(Life would be easier if I had the source code)

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

ho fatto un programma che mi divide di un numero decimale le cifre intere e
quelle dopo la virgola
ho utilizzato la funzione int
per la parte intra
mentre per trovare la parte decimale poi ho sottratto al nimero digitato da
tastiera la parte intera
come faccio a sapere nella stampa quante cifre decimali devo stampare?
(:0:n);
io volevo che sia consequente alle cifre date da tastiera.
grazie

Per estrarre la parte decimale di un numero potresti anche usare la funzione
Frac.
Ad ogni modo la soluzione migliore č leggere da tastiera una stringa e poi
convertirla in numero. In questo modo saprai esattamente quante sono le
cifre della parte intera e quelle della parte decimale! Il passo successivo
č riscrivere la ReadLN, creandone una versione piů flessibile ad adatta alle
tue esigenze. Ad esempio che ti permetta di inserire solo numeri e non le
lettere e che accetti il [.] o la [,] come separatori...

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

Si puņ programmare in pascal avendo come sistema operativo WIN 98 ?
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

Si pur programmare in pascal avendo come sistema operativo WIN 98 ?
Certo ! basta avere il compilatore adatto...
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]


Si pur programmare in pascal avendo come sistema operativo WIN 98 ?
Certo ! basta avere il compilatore adatto...
Quale ??
--
Posted from 
mta01-acc.tin.it
 [212.216.176.32]


Quale ??
Dunque, non sono molto aggiornato, ma penso che il Borland Pascal 7.0 sia
l'ultimo ? o no ?
In ogni caso potresti considerare il linguaggio Delphi, che e' praticamente un
borland pascal un po' piu' evoluto (aggiunge anche qualcosa si simile al C).
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]


Newsgroup: it.comp.lang.pascal
Titolo: Urge consiglio

E' da poco che utilizzo il Pascal e avrei bisogno di un aiutino su come
realizzare un programma che faccia la scomposizione in fattori primi di un
numero n.
Ringrazio fin da ora chi saprà consigliarmi.
 Pietro

 Ringrazio fin da ora chi saprà consigliarmi.
Spero di esserti stato uitile...
Phones
Newsgroup: it.comp.lang.pascal
Titolo: Pascal CAS

Salve gente,
ho preso una decisione per trascorrere le vacanze di Natale in
allegria (sě, tradurrň anche quelle pagine, buon Morpheus, se
interessa a qualcuno): scrivere un CAS (Computer Algebra System) in
Pascal e distribuire il codice sotto la licenza GPL. 
Mi trovo allora nel dubbio: come gestire le stringhe in input?
Le stringhe possono essere... 'a+bc'... '4ab+c'... 'cos(x)'... e io
non trovo l'approccio giusto per separare coefficienti, incognite e
lettere conservando tutto in memoria per le varie elaborazioni :-(
Chi mi consiglia come risolvere il guaio?
PV

 Chi mi consiglia come risolvere il guaio?
guarda, da qualche parte, mi sembra su PDJ, parecchio tempo fa Cosimo
Laddomada aveva pubblicato un parser di espressioni ovviamente in delphi,
molto simile al pascal; e piů recentemente č apparso qualcosa su dev, mi
sembra in vb, avevo iniziato a dargli una forma 'umana' di programma ma poi
ho abbandonato per troppo poco tempo a disposizione: se ti interessa fammi
sapere che cerco meglio!
ciao

sapere che cerco meglio!
Non leggo il Professional Developer's Journal, ma il nome di Cosimo
non mi è nuovo: mi  era piaciuto il suo software "IO Matematico".
Mi ha dato parecchi spunti...
Per quanto riguarda il codice, ho cominciato a buttar giù qualcosa:
il "PAS Math" è arrivato ieri sera alla versione 0.02...
Appena darà seri problemi vi informerò. Oggi (o domani, forse)
implementerò le frazioni.
(L'idea è di realizzare il solo software GPL che visualizzi tutti i
passaggi eseguiti per risolvere un'espressione,un'equazione o un
sistema.)
Ciao
PV

 implementerò le frazioni.
sarò ben lieto di aiutarti: a proposito, ho implementato qualcosina di
matematica, se la vuoi dimmelo, ma credo che ti potrò rispondere solo dopo
natale....
Ciao e auguri
Newsgroup: it.comp.lang.pascal
Titolo: Aiut! Alberi e Liste

Come si puņ definire in pascal un albero binario di numeri naturali, e una
lista (semplicemente concatenata) di numeri naturali?
Una procedura che ha in input un albero binario di ricerca e restituisce una
lista contenente tutti gli elementi che appaiono nell'albero in ordine
decrescente?
grazie

you wrote :
#Come si puň definire in pascal un albero binario di numeri naturali, e una
#lista (semplicemente concatenata) di numeri naturali?
#Una procedura che ha in input un albero binario di ricerca e restituisce una
#lista contenente tutti gli elementi che appaiono nell'albero in ordine
#decrescente?
program albero_lista ;
type p_tipo_nodo_albero = ^tipo_nodo_albero ;
     tipo_nodo_albero = record
                          numero_naturale : integer ;
                          nodo_sinistro   : p_tipo_nodo_albero ;
                          nodo_destro     : p_tipo_nodo_albero ;
                        end ;
     p_tipo_nodo_lista = ^tipo_nodo_lista ;
     tipo_nodo_lista  = record
                          numero_naturale : integer ;
                          prossimo_nodo   : p_tipo_nodo_lista ;
                        end ;
var MioAlbero : p_tipo_nodo_albero ;
    MiaLista  : p_tipo_nodo_lista ;
    I         : integer ;
procedure inserisci_in_albero( var nodo : p_tipo_nodo_albero ;
                                   num  : integer ) ;
begin
  if (nodo = NIL) then
  begin
    new( nodo ) ;
    nodo^.nodo_sinistro   := NIL ;
    nodo^.nodo_destro     := NIL ;
    nodo^.numero_naturale := num ;
  end
  else
  if ( num <= nodo^.numero_naturale ) then
     inserisci_in_albero( nodo^.nodo_sinistro, num )
  else
     inserisci_in_albero( nodo^.nodo_destro, num ) ;
end ;
procedure inserisci_in_lista( var nodo : p_tipo_nodo_lista ;
                                  num  : integer ) ;
begin
  if (nodo = NIL) then
  begin
    new(nodo) ;
    nodo^.prossimo_nodo := NIL ;
    nodo^.numero_naturale := num ;
  end
  else inserisci_in_lista(nodo^.prossimo_nodo, num ) ;
end ;
procedure trasferisci_da_albero_a_lista( NodoAlbero    :
p_tipo_nodo_albero ;
                                         var NodoLista :
p_tipo_nodo_lista ) ;
begin
  if ( NodoAlbero <> NIL ) then
  begin
     trasferisci_da_albero_a_lista( NodoAlbero^.nodo_destro, NodoLista
) ;
     inserisci_in_lista( NodoLista, NodoAlbero^.numero_naturale ) ;
     trasferisci_da_albero_a_lista( NodoAlbero^.nodo_sinistro,
NodoLista ) ;
  end ;
end ;
procedure scrivi_lista( nodo : p_tipo_nodo_lista ) ;
begin
  while ( nodo <> NIL ) do
  begin
    write( nodo^.numero_naturale:3, ',' ) ;
    nodo := nodo^.prossimo_nodo ;
  end ;
  writeln(' [NIL]') ;
end ;
begin
  MioAlbero := NIL ;
  MiaLista  := NIL ;
  randomize ;
  for I := 1 to 10 do inserisci_in_albero( MioAlbero, random(100) ) ;
  trasferisci_da_albero_a_lista( MioAlbero, MiaLista ) ;
  scrivi_lista( MiaLista ) ;
end.
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Domandona

Questa č una domanda che mi č stata fatta, io non so assolutamente
rispondere e pensavo che forse voi sareste riusciti a darmi una mano.
La domanda č: come fare un programma che, inserita una funzione algebrica,
la visualizzi e ne calcoli l'area sotto la curva in un determinato
intervallo tramite l'integrazione per trapezi ?
Sono ben accetti anche link a siti e sorgenti dei programmi ! ^____^
Grazie.

 La domanda è: come fare un programma che, inserita una funzione algebrica,


Newsgroup: it.comp.lang.pascal
Titolo: [OT??]PRINCIPIANTE


www.pieroangela.com
neon

http://members.xoom.it/kosby
                                                                Kosby
"neon" <neon...@NOSPAMhotmail.com> ha scritto nel messaggio
news:0frmusg977udemajh...@4ax.com...
