mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Rivista sul pascal esiste?

Ciao a tutti. Scusate se vi pongo sempre delle domande che a voi possono
sembrare stupide, però io non le considero tali e quindi le espongo! :))
Volevo chiedervi se qualcuno di voi sa se in edicola c'è un mensile o
qualcosa del genere che parla del Pascal, oppure esistono solo riviste che
parlano di c/c++, java ecc.?
Grazie e alla prossima.
Un saluto

 parlano di c/c++, java ecc.?
Boh,io non ho mai visto niente...
Ma se per pascal intendi solo la sua sintassi, per delphi trovi sicuramente
qualcosa.
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

Newsgroup: it.comp.lang.pascal
Titolo: Dove possono trovare il Pascal?

Ciao a tutti, per caso il Turbo Pascal č freeware? Se si dove lo posso
scaricare?

 scaricare?
in teoria no, cmq lo puoi scaricare dal mio sito, quello in firma
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

 
Dal sito borland, nella sezione museum puoi scaricare la versione 5.5 a 
gratise!!!
Ciao

 Ciao
Per DOS, Linux o Windows?



DOS, DOS e ancora DOS
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Su 
www.tiscali.it
 nella categoria Downloads, cerca pascal e troverai la
versione 6.0 (molto meglio della 5.5)!!!!!!!
-------------
www.programmaregratis.it
dick...@programmaregratis.it
-------------
--------------------------------
Inviato via 
http://usenet.iol.it

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

si possono importare immagini bmp in ambiente grafico?

 ha scritto nel messaggio
news:v3yX8.71535$vm5.2...@news2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: HELP ME!!!!!

cerco disperatamente qualsiasi programma svolto o concetti sui file di
testo!!
Se ne avete mandatemeli all'indirizzo
maryp...@libero.it
grazie
Mary

 ha scritto nel messaggio
news:8s5T6.6174$%m1.2...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: TSR???

Qualcuno ha voglia di spiegarmi un pò per bene le caratteristiche dei
programmi TSR e come è possiblie realizzarli???
Grazi
-----------------------------------------------------
s...@gem.it
kin...@geocities.com
IRCNet:KiNg[G]hZ »»» #
mp3.it
                                »»» #gameprog-ita

programmi TSR e come è possiblie realizzarli???
L'acronimo TSR sta per Terminate Stay Resident, ovvero identifica i
cosiddetti programmi "residenti".
Si chiamano "residenti" perche', anche dopo aver terminato la loro
particolare elaborazione, risiedono in memoria in modo latente, per
essere riattivati al momento giusto.
Anni fa scrissi una Unit per TP5 di cui conservo ancora i sorgenti
stampati, per poter gestire i programmi residenti.
Mi servi' per costruire una calcolatrice da attivare in un programma
di contabilita' in modo testo ogni qual volta se ne presentasse la
necessita'.
Perche' un programma residente possa essere attivato in qualsiasi
momento, una sua porzione deve ovviamente sempre essere in funzione,
per accertarsi, ad esempio, se venga premuta o meno la sequenza di
tasti che lo attiva.
Cio' si puo' fare creando degli "hook" cioe' degli agganci agli
interrupt adeguati (per esempio per la tastiera lo 09h) che consistono
in pratica nel sostituire alla normale routine di interrupt una
routine propria.
Ad esempio, nel caso del mio programma, la tecnica era quella di
intercettare l'interrupt della tastiera , salvarlo in una variabile di
tipo "procedure" e sostituire ad esso una mia routine, il cui codice
prevedeva di controllare se venisse premuta la sequenza di tasti per
attivare il programma e nel caso non venisse fatto di richiamare il
vecchio interrupt.
Il primo programma residente della storia fu SideKick, un programma
che univa piu' funzionalita' utili per il desktop, sviluppato dalla
Borland.
Ad esso seguirono i vari Norton Guides, THelp ecc...ecc...
Con l'avvento di Windows95 che e' un sistema operativa "event-driven"
e multi-tasking non c'e' piu' una reale necessita' di scrivere
programmi residenti.
Newsgroup: it.comp.lang.pascal
Titolo: Decompilatore?

Ciao a tutti. Vorrei sapere se esiste un programma (che ho impropriamente
chiamato decompilatore, almeno penso) che possa ripristinare un file del
Pascal compilato e quindi reso eseguibile in precedenza. Praticamente un
programma che invece di trasformare i PAS in EXE trasformi i EXE
(logicamente del Pascal) in PAS ripristinado quindi il listato del
programma. Sinceramente penso di no, ma dato che voi ne sapete sicuramente
più di me aspetto, ringraziandovi già da adesso, una risposta più precisa da
voi.
GRAZIE.

...

no, non esiste. Al limite puoi prendere un "deassemblatore", che ti
trasforma i file .exe in listati assembler. Però non so fino a che punto
siano precisi, soprattutto con  programmi compilati
ciao

voi.
Il programma a cui ti riferisci ricade nella schiera dei cosiddetti
"disassemblatori".
La risposta e' no : non si puo' fare.
La trasformazione da codice .PAS a .EXE e' del tipo "uno a molti",
cioe' per ogni istruzione macroscopica vengono generate molte
istruzioni microscopiche.
Questo significa che la trasformazione e' irreversibile e il percorso
inverso non e' effettuabile.
Andrea Laforgia
Newsgroup: it.comp.lang.pascal
Titolo: Urgente per programmatori assembler

Ho bisogno di una mano per un programma in assembler che devo finire entro
pochi giorni.
Per velocizzare la grafica (Programmo in TP7) ho deciso di creare un
programma esterno che mi vada a scrivere un pixel alla volta (essendo in
assembler dovrebbe essere più veloce del BGI).
1° problema non mi funziona il programma di prova
.MODEL SMALL
.STACK 0Fh
.CODE
 START:
 MOV AX, 04F02h
 MOV BX, 103h
 INT 10h
 MOV AX, 0A000h
 MOV ES, AX
 XOR AX, AX
CICLO:
 INC AX
 MOV DI, AX
 MOV BYTE PTR ES:[DI], AL
 CMP AL, 0FFh
 JNE CICLO
 MOV AX, 4C00h
 INT 21h
END START
però può essere utile per resettare il computer (dov'è l'errore ??????)
Visto che il problema sarà nell'accesso alla memoria, come di punta ad un
byte specifico, conoscendo SEG e OFS.?
2° lavorando in modalità provvisoria, come converto i vecchi SEG OFS nei
nuovi??
3° dovendo implementare la struttura assembler in pascal come avviene il
passaggio dei parametri in entrambi le direzioni? ( sia con passaggio per
variabile che per valore)
Ringrazio in anticipo tutte le persone che mi daranno una mano
ICQ 14165006


le variabili le passi in una procedura (o function) come vuoi: con o senza
il var...
procedure Prova(var x:integer;y:integer);
begin
 asm
   mov ax,x
   mov bx,y
   mov x,bx
   mov y,ax
 end;
end;
In pratica, così x viene modificata, ed y no :-)
Altro non ti so di'... :-)
Ahh... ecco: se devi passare un membro di un record puoi fare:
procedure Prova(r:myrecord);
begin
 with r do
 asm
   mov ax,x
   mov bx,y
 end;
end;
non so farlo direttamente... penso che il punto non lo accetti :)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Il proiettile in arrivo ha diritto di precedenza"

variabile che per valore)
Per il passagio di parametri in un modulo assembly interno ad un programma
Pascal basta definire la variabile del tipo corretto : AX è una word, AH è
un byte ecc.
es :
var     REG_AH : byte;
         REG_BX  : word;
asm
    MOV    AH,[REG_AH]
    MOV    BX,[REG_BX]
end;
Spero di esserti stato di aiuto.
Ciao.
     Alberto Speranzon
 
albe...@intercity.it

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

Mio figlio deve utilizzare il turbo pascal a scuola , ma non so proprio come
procurarmelo.Ho cercato in internet e in diversi negozi... niente da fare
Chi puň aiutarmi?
Grazie davvero
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Chi puņ aiutarmi?


Freepascal
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 -- 
http://www.mascanc.net/~masi
... Oh Lord, won't you buy me a Mercedes Benz ...
... They say jump, you say how high ...
Newsgroup: it.comp.lang.pascal
Titolo: Cerco Manuale TP 7.0 Dettagliato

Ciao a tutti,
   sono uno studente univesitario di Informatica e sto cercando un
manuale Turbo Pascal 7 dettagliato; non mi interessa un testo che
insegni a programmare, più che altro sto cercando un manuale che
contenga tutti o quasi i comandi del linguaggio e tutte le loro
possibili opzioni.
Ovviamente tutto ciò da scaricare gratuitamente o potrebbe anche
interessarmi qualcosa da acquistare.
Aiutatemi!!!
SB.

Scrivi un comando poi Ctrl-F1 :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
--
Quarantaquattro Pentium,
in fila per 6 col resto di 1.9999458374...
--

Newsgroup: it.comp.lang.pascal
Titolo: FILE CRT FINALMENTE.MA...





Scusate per il disturbo,ma ora ho capito: non scrivevo uses 
crt, ma uses CTR per questo mi dava file CTR non trovato.Però ora è sorto un 
altro problema, quando voglio far apparire sullo schermo un cerchio o un 
qualsiasi altro disegno, l'elaboratore mi compila il programma ma all'avvio mi 
dice qualcosa a proposito di "initgraph", cosa vuol dire?
A parte questo ho 
trovato un altro problema in alcune  funzioni del TP7, quando voglio usare 
la funzione "pos "(che mi indica la posizione di una stringa) o la funzione 
"concat"(quando si vogliono unire più stringhe) mi da un errore, per quale 
motivo.Non è che potreste scrivermi qui di seguito la corretta scrittura di 
queste funzioni.Ciao e grazie.



 ha scritto nel messaggio
news:000801bff3e1$f140a500$938a1597@cobrakiller...

Newsgroup: it.comp.lang.pascal
Titolo: Urgente consiglio

Ciao a tutti, ho bisogno urgente di una dritta. Vorrei creare un programma
in cui alla fine di esso compaia un messaggio del tipo "Si desidera
continuare ?" e che se si preme il tasto n termini l'esecuzione , mentre
premendo un 'altro qualunque tasto, il programma si ripeta dall'inizio.
Grazie. Ciao.

 wrote in message 8776kb$ihg$1...@nslave2.tin.it...

dunque, dunque, dunque...
Program ciclo;
uses crt;
var scelta:char;
begin
repeat
   ...........
   ...........
   ............
   write('Si desidera continuare? (S/N)');
   scelta:=readkey;
   scelta:=upcase(scelta);
until (scelta='N');
end.
tutto qua, se ho capito bene ciň a cui ti riferivi

 end.
Beh, oppure puoi sempre usare un terribile
goto etichettaInizio
dario...@iol.it
http://dariobrunocorti.freeweb.org
ICQ#: 30478061
--
MS Windows: quante volte vuoi formattare oggi?

goto etichettaInizio
meglio di no ! ;)
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 goto etichettaInizio
AHHHHHHHHHHHH!!!!!!!!!!!!!
ORRORE!!!
Non provarci più a scrivere 'ste cose, ho rischiato un infarto.

 wrote in message 38981C62...@tin.it...


Scusami, ho scritto "terribile" ma forse non era abbastanza...


Lo chiedo a te! Non capisco perchè  goto è tanto odiato...a me pare tanto
comodo :-) Forse non lo capisco perchè sono nato col vb, ma una spiegazione
mi piacerebbe!
-=Azathoth=-

mi piacerebbe!
Perche' il "goto" e' l'antitesi della programmazione strutturata.
Tutto cio' che e' fattibile per salti e' parimenti fattibile per via
strutturata.



http://www.penguinpowered.com/~ecesena
Il pensiero e' cosa che con piccolissimo corpo sa compiere divinissime cose.
		-- Gorgia

BASTA CON QUESTE LABEL!!!! NON NE VOGLIO SENTIR PIù PARLARE E NON NE
VOGLIO PIù VEDERE, SONO LA COSA PIù DEPLOREVOLE DA PARTE DI UN
PROGRAMMATORE USARE LE LABEL.
Scusate lo sfogo, ma ve lo cercate


PROGRAMMATORE USARE LE LABEL.
Che atteggiamento e' questo ?
Nel ng non ci sei soltanto tu.



http://www.penguinpowered.com/~ecesena
La mente e' una cosa meravigliosa.  Tutti dovrebbero averne una.

 Nel ng non ci sei soltanto tu.
Lo so bene di non essere da solo, e per questo subito dopo mi sono
scusato, se almeno leggessi tutto il messaggio capiresti che era
volutamente in tono non polemico, come invece metti giù tutti i tuoi
messaggi!!



come invece metti giù tutti i tuoi messaggi!!
ma fammi il piacere !...

Newsgroup: it.comp.lang.pascal
Titolo: ancora 2 domande

Ringraziandovi per le vostre risposte, vi propongo ancora 2 domande:
1) Non è possibile esprimere il risulatao dell'equaizone cosx=x in funzione
di pi? Se no, il valore che soddisfa l'eq. potrebbe essere un "nuovo e" o
"un nuovo pi"?
2) Come calcolare l'integrale ind. di cosx/x e senx/x utilizzando gli
sviluppi in serie di seno e coseno?
grazie
ciao

sviluppi in serie di seno e coseno?
Il pascal ? 
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
#exclude <windows.h>

Newsgroup: it.comp.lang.pascal
Titolo: Problemi ad importare le units da tp a fp

Stavo cercando di ricompilare un programma scritto (e funzionante) in
tp7, in free pascal, ma quando vado a compilare una delle unit mi
dice:
unexpected end of file.
la sintassi dovrebbe essere giusta, tanto + che se lo compilo con il
tp funziona tutto a meraviglia....
Qualcuno di voi ha avuto problemi a portare units sul fp?
Phones


Ciao.
'l rasune'
Per rispondere privatamente togliere NO SPAM dall'indirizzo!
-----
Sao ko kelle terre, per kelle fini que ki contene,
trenta anni le possette parte Sancti Benedicti.
( placiti cassinesi )

Newsgroup: it.comp.lang.pascal
Titolo: delay sul turbo pascal...

Ciao ragazzi, non riesco a far funzionare il comando DELAY(n);
Aiutatatemi vi prego... 

In che senso "non riesci a far funzionare" da errore in compilazione, in 
runtime, non aspetta o che altro?

 ha scritto nel messaggio 
news:cpmjc1$qlm$1...@newsreader.mailgate.org...


 non aspetta...
la procedura delay ha problemi sui processori veloci. Indietro nel tempo 
si trovano diverse soluzioni. Uno dei vari thread:
http://groups-beta.google.com/group/it.comp.lang.pascal/browse_thread/thread/291810ef7a9a0177/e325fddd48527d28?q=delay+group:it.comp.lang.pascal&_done=%2Fgroups%3Fhl%3Den%26q%3Ddelay+group:it.comp.lang.pascal%26qt_s%3DSearch+Groups%26&_doneTitle=Back+to+Search&&d#e325fddd48527d28
-- 
Dreadnaut

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 7

Da qualche parte psso trovarlo?
Io ce l'ho ma manca la unit wincrt e anche i programmi di esempio non
funzionano tutti!
Arianna Microchip
ari...@softhome.net
Web: 
http://arianna.cjb.net
http://consolicarmen.cjb.net

salve ho un problema....beh ho scaricato un programma ke contiene varie unit
ke pero hanno l'estensione.pas!!
il problema e ke ognuna di esse per essere compilato e trasformato in .tpu
ha bisogno di altre unit sempre però
in formato .pas!! in poke parole queste unit hanno bisogno l'una
dell'altra!!
IO volevo sapere se era possibile compilare il programma senza trasformare
ogni unit.pas in unit.tpu!!
Ringrazio tutti coloro ke mi risponderanno, ciao

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

vai sull'indirizzo in firma sez. download
Arianna Microchip


vai sull'indirizzo in firma sez. download
Arianna Microchip


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

lo faro!
TNX


Arianna Microchip

Newsgroup: it.comp.lang.pascal
Titolo: [infoIRC]Una prima bozza di sito

Ciao,
ho fatto una bozza del sito, ditemi cosa ve ne pare, e siate pure
spietati:
www.argo-web.it/pascal/home.htm
Ciao
Roberto

 wrote in message
3A8BEAFC...@cybergal.com...


Secondo me va bene, forse però lo sfondo è troppo marcato.
Attira troppo l'attenzione.
Cix!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

E' giustificato tutto a destra, per risoluzioni maggiori di 800x600 si
sposta tutto a destra.
Cmq è solo una questione grafica.
Ciao e buon lavoro, Daniele.

 spietati:
In IRC hai fatto l'esempio di un menu completamente diverso dal punto di
vista degli argomenti!
Concordo sullo sfondo,e poi è un po' troppo uguale al tuo sito!
Comunque è molto gradevole! Specialmente se i pulsanti simulassero un
movimento all'indietro quando vengono cliccati (questo è solo un mio
pallino!non forrei rallentare il sito per un mio sfizio)
voto: 7/8     sai perchè?
te la ricordi la frase:
"siamo tutti delle variabili char che lavorano insieme per formare un unica
variabile string?"
Beh,perchè il voto diventi 10 , ci vuole l'intervento del resto della
squadra!
Comunque bravo!


wrote:

Oggi io redicuori e dts chattando sul canale siamo arrivati a qualche
conclusione...
<+ReDiCuori> secondo me si deve decidere prima cosa metterci nel sito
<+ReDiCuori> e poi la grafica viene di conseguenza
<+ReDiCuori> o no ?
<neon> già, almeno iniziare ad aprire qualche sezione
[...]
<+neon> ricapitoliamo...
<+neon> 1) faq
(se non sbaglio c'era un abozzo di FAQ 0.1 fatto da un certo Gianluca
M. Potremmo ospitarle nel sito)
<+ReDiCuori> 2) listati di units e programmi scritti dai frequentatori
del ng
<+neon> 3) tutorials vari (possibilmente suddivisi per argomenti)
<+^DTS^> 4) links
<+ReDiCuori> 5) notizie varie sulla programmazione
<+ReDiCuori> 6) recenzioni di libri
neon
Newsgroup: it.comp.lang.pascal
Titolo: SVGA come?

Salve, sono un appassionato di Turbo Pascal e padroneggio abbastanza bene
sia la libreria crt che quella graph, vorrei qualcosa di più. Mi hanno
parlato della possibilità di utilizzare una risoluzione grafica 1024x768 con
una tavolozza di 256 colori. Ho trovato a scuola un file (SVGA256.BGI) e
attraverso la procedura installuserdriver (o qualcosa del genere) sono
riuscito a vedere su schermo questa benedetta modalità. Ho provato a
realizzare un programmino, ma ho notato che ci sono delle imperfezioni per
quanto riguarda la posizione delle stringhe via outtextxy... il modo
utilizzato è il 4.
Sapete suggerirmi come utilizzare al meglio tale libreria e magari fornirmi
qualche url dove documentarmi?
Vi ringrazio anticipatamente.
CiaoZ

 ha scritto nel messaggio
news:vepy6.122804$lj4.3...@news6.giganews.com...






Ti ringrazio x 
i link ma io cercavo qualcosa di semplice come ad esempio:
per 
inizializzare la grafica utilizzare le istruzioni: 
................
utilizzare il modo grafico x
ecc.ecc.
non è che 
saresti così gentile da aiutarmi o magari sendarmi un programma
dal quale 
posso prendere spunto?
Non voglio realizzare cose stratosferiche ma 
semplicemente utilizzare i 256
colori e una risoluzione di 
1024x768.
Please!!
Newsgroup: it.comp.lang.pascal
Titolo: real interi.........ma cmq real!

Ieri notte verso tarda ora mi sono messo a scrivere un programmino per
fare i grafici di funzioni su assi cartesiani....
Mi sono bloccato subito ad uno dei più classici problemi:
la funzione di disegno putpixel lavora con valori integer
mentre dalle funzioni mi aspetto valori real.
Per ovviare a questo problema pensavo di ottenere i valori real
approssimati ad una cifra dopo la virgola, e poi trasformarli in
integer, moltiplicandoli per 10;
Ma il compilatore (borland turbo pascal 7) cmq si blocca per "type
mismach"
Cosa posso fare?
a) disabilitare il controllo sui tipi... come?
b) cambiare compilatore con uno che trasformi tranquillamente i real
in integer (anche tagliandoli)
c) cambiare linguaggio di sviluppo del programma....
Phones
***** CODE*********************
program PROVA;
uses graph,crt;
var scheda,var1,modo,Xdis,Ydis,var4:integer;
    var2,var3,X,Y:real;
BEGIN
scheda:=detect;
initgraph(scheda,modo,'c:\tp');
(*DISEGNO GLI ASSI*)
for var1:=0 to 640 do putpixel(var1,240,15);
for var1:=0 to 480 do putpixel(320,var1,15);
for var1:=1 to 641 do begin
(* SULL'ASSE DELLE ASCISSE HO 319  pixel per X<0 e  320 pixel per X>0
SULL'ASSE DELLE ORDINATE HO 239 pixel per X<0 e 240 pixel per X>0
*)
xdis:=var1;
x:= -32.0 + (xdis/10);
y:=x;    (*ECCO LA FUNZIONE DI PROVA CHE VOELVO VISUALIZZARE*)
ydis:=  240 - (y*10);
putpixel(Xdis,Ydis,4);
end;
readln;
END.

premetto che non so niente di pascal ( e poco anche di C++)
comunque in C++ puoi fare
1) un CAST ad interi, con
 var f: real;
   i: integer;
  i :=  (integer) f;  <-- questa in C
è la cosa più semplice, ma devi vedere se il tuo compilatore
può fare il CAST (magari devi attivare qualche opzione...)
2) però se fai come sopra il reale è sempre troncato all'intero inferiore
 quindi cercati una funzione che faccia un arrotondamento e
 non un troncamento

 ha scritto nel messaggio
news:a1IV6.607$ET5....@news2.tin.it...



Oppure trunc, cmq round è più affidabile,
ti do una dritta dato che prima degli esami stavo commutanto da c a pascal
lo stesso programma
ti conviene inserire  per un fattore moltiplicativo nella funzione.
Altrimenti stamperai i punti troppo vici uno dall'altro
Ciao ReDiCuori

round() arrotonda
trunc() se devi proprio elimare la parte decimale (e' piu' veloce)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)


wrote:



Semplicemente devi passare alla PUTPIXEL un valore intero.
Se le variabili sono X, Y: REAL fai:    PUTPIXEL( TRUNC(X), TRUNC(Y),
COLORE);
Così passi solo la parte intera TRASFORMATA IN INTERO. Ok?
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\  /\
\_/   V  \_/
Newsgroup: it.comp.lang.pascal
Titolo: Sono nuovo, e avrei bisogno di un piccolo aiuto

Ciao ea tutti, sono nuovo del newsgroup e del mondo della programmazione; 
un amico mi ha consigliato di iniziare studiando il linguaggio pascal, ma 
io non so niente su questo linguaggio; qualcuno di voi potrebbe darmi 
qualche dritta  e dirmi con quale programma dovrei lavorare e dove 
trovare materiale per iniziare?
ciao e grazie in anticipo
-- 
Experience
ICQ 124732711

Io ho trovato tutto a scuola cmq uso Turbo Pascal 7.0 della borland per
programmare in pascal :)
Cmq lo puoi trovare su vari siti adesso non mi viene manco mezzo ma se
cerchi su google qualche sito da dove downloadare il TP7 lo trovi
(la scuola serve a qualcosa, per fottere i programmi!!!)
--
--omega--
"Hands on"

 ha scritto nel messaggio
news:MPG.15ee09d43...@news.libero.it...

puoi trovare qualche cosa sul mio sito (in firma), in costante aggiornamento
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

Grazie mille
-- 
Experience
ICQ 124732711

Spanu Enrico wrote:

Puoi andare sul mio sito :
http://digilander.iol.it/carmageddon1

Qui trovi una dispensa sul Pascal standard .....
č abbastanza completa.... abbastanza , non dice tutto :)
per sapere tutto ti devi fare un cul..... cosě da solo :)))))))
la pagina č    
http://www.dsi.uniroma1.it/~prog2a/appunti.html
ciao ciao


-----------------------------------
Considerate la vostra semenza: 
fatti non foste a viver come bruti, 
ma per seguir virtute e canoscenza
Saluti da Ulysse

 ciao ciao
Ma lascia stare quegli appunti che non servono a nulla...
vai a 
http://homes.dsi.unimi.it/~prog1a/corso/
 e guarda un professore che sa
fare delle dispense.
p.s. anch'io sto alla "sapienza".
ciao, Daniele.
Newsgroup: it.comp.lang.pascal
Titolo: 6 numeri a caso

Premetto che ho solo 3 giorni di esperienza con il TP.
Ho creato questo programma per gioco però adesso che mi vedo restituire
sempre gli stessi 6 numeri mi sto incavolando.
Dove sbaglio?
program enalotto;
uses crt,printer;
var a,b:integer ;
begin
clrscr;
writeln('Questo programma ti stamperà 6 numeri da giocare al "Super
Enalotto"');
writeln('Premi un tasto per iniziare a stampare');
repeat until keypressed;
writeln(lst);
for b:=0 to 6 do
begin
a:=random(90);
if a<>0 then begin
writeln(lst,a);
writeln(lst);
end;
end;
writeln('Premi un invio per terminare');
readln;
end.
GRAZIE!!!

 writeln(lst);
come prima, questa istruzione non significa niente.



rhymes
rhy...@tiscalinet.it

 >end.
Ciao!
Filippo

 ha scritto nel messaggio
news:0qxR5.84023$BF.30...@news.infostrada.it...


>     a:=random(90);
random 90 prende un numero compreso tra 0 e 90.
Se non ricordo male nel lotto non c'è lo 0 =P
a:= random(89) + 1;

Infatti ho imposto la condizione
begin
a:=random(90);
if a<>0 then begin
writeln(lst,a);
writeln(lst);
"neon" <neon...@NOSPAMhotmail.com> ha scritto nel messaggio
news:ocdi1tkd4pvkni493...@4ax.com...


a 0, i numeri stampati saranno meno di 6.
Invece usando
a:= random(89) + 1;
ottieni 6 numeri che sicuramente sarranno maggiori di 0 e minori o
uguali a 90
=P

 >


Sto seguendo la vicenda da molti giorni. Sono stato incuriosito dalla bella
idea di creare un prg che spari 6 numeri a caso per il superenalotto e
vorrei creare anch'io il suddetto prg. Qualcuno può postarmi la sintassi del
prg corretta e funzionante dato che io non sono riuscito a farlo girare
correttamente ??
Grazie.

 ha scritto nel messaggio
news:8vc4kj$kt7$2...@lacerta.tiscalinet.it...


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

Salve Ragazzi,
Se possibile e se non reco rompimenti vari, vorrei sapere, visto che sono 
no' alle prime armi,ma alle primissime armi,come posso fare per dare 
quest'istruzione a un programmino in TP,
Allora
Immetti 1° numero
Immetti 2° numero
Operazione:
Num 1° + Num 2° = risultato
Se risultato maggiore di 90, bisogna fare quanto segue:
Risultato - 90
Come si fa'?
Grazie mille
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
Share information about yourself, create your own public profile at 
http://profiles.msn.com
.
-- 
Posted from [62.11.38.22] by way of 
f303.pav1.hotmail.com
 [64.4.30.178] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


program numeri;
var a, b, ris : word;
begin
 write('a: '); readln(a);
 write('b: '); readln(b);
 if ((a + b) > 90) then
  ris := a + b - 90 else
   ris := a + b;
 writeln('risultato: ', ris);
 readln;
end.
ma se non sai fare ciò, non conosci per nulla la sintassi... studiatela.
ciao
-- gabri
Newsgroup: it.comp.lang.pascal
Titolo: valore integer

ragazzi, sapete dirmi qual č il valore massimo che puņ assumere una
variabile di tipo integer nel pascal standard ?
(no turbo!)

Se non sbaglio integer a 16bit dovrebbe essere 2^16 ma non ne sono sicuro al
100%
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

L'integer è l'intero con segno: -2^16 -> 2^16-1
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

 (no turbo!)
Allora... la variabile Integer occupa due bytes (una word), cioè 16 bit.
Al 99% è sicuro che il 16° bit è usato come bit di segno.
Quindi i valori vanno da -(2^15)+1 fino a 2^15, vale a dire da -32767 fino a
32768.
Se nel Pascal normale poi quel bit (quello più significativo) non è usato
come bit di segno, allora si va da 0 a 65535 (cioè 2^16-1), che corrisponde
alla Word del turbo pascal (in pratica una Integer senza segno, appunto).

> L'integer è l'intero con segno: -2^16 -> 2^16-1
Pardon, 2^25
Integer: -32768->32767


http://riverbbs.net/etext/pascal/
--
Dreadnaut
(Life would be easier if I had the source code)

non chiedetemi perche' ho postato in questo thread invece
che in uno nuovo %-)   ...boh... sara' il sonno...


 Integer: -32768->32767
Mò si, anche perchè 2^25 sono 16 MB

> Ecco, ancora..... 2^15, non 2^25
...ero proprio fuso :-P
Soooooory


Newsgroup: it.comp.lang.pascal
Titolo: modem e pascal?

ciao a tutti
ho una domanda:
come mando stringhe al modem?
grazie e ciao
Snorrp

 ha scritto nel messaggio
news:3b54a53...@NEWS.cis.dfn.de...

Newsgroup: it.comp.lang.pascal
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire
-Component Source MSDN 10/99 Edition (1 CD) 8.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 10.000 lire
-Component Source MSDN 06/2000 Edition (1 CD) 16.000 lire
-MSDNnews (opuscolo) January/February 2000 4.000 lire
Component Source MSDN e MSDNnews se associati a un numero di MSDN Library a
metà prezzo.
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire (Ultimo numero uscito!)


 Vendo i seguenti numeri di MSDN Library Originali:
A tutti i lettori dei gruppi spammati da questo qui!!!!!
Vogliamo metterci d'impegno e spedire una valanga di mail ai vari "abuse"??????
Ciao, Riccardo
-----------------------------------------------------------------------
WebMaster: ----------> 
http://www.jsdir.com
 <----------
Need a JavaScript password?
http://www.agora.it/Ri.Riccardi/ingresso.html
-----------------------------------------------------------------------
"Any sufficientely advanced technology is indistinguishable from magic"
Arthur Charles Clarke
-----------------------------------------------------------------------

 Vogliamo metterci d'impegno e spedire una valanga di mail ai vari "abuse"??????
 
D'accordissimo, ma come si fa? A che spedire le mail?
Ciao
Marcello

 D'accordissimo, ma come si fa? A che spedire le mail?
ab...@inwind.it
 includendo tutto il messaggio e, soprattutto, _tutti_ gli
headers. Purtroppo, però, a me non hanno risposto ..
Ciao
M.
-- 
:wq

 
Visualizza l'header completo del messaggio, cerca tutti i server da cui è 
passato, trova il primo e manda ad "ab...@nomeelserver.qualcosa".
Se vuoi divertirti manda a TUTTI i server. Più gli si rompe le scatole e più 
probabilità ci sono che l'indirizzo di e-mail del mittente venga messo in 
black-list, ed anche il server da cui parte!!!!!
Ciao, Riccardo
------------------------------------------------------------------------
WebMaster: ----> 
http://www.jsdir.com
 <---- (aka 
http://www.jspoint.it
)
------------------------------------------------------------------------
Need a JavaScript password?
http://www.jspoint.it/staffscripts/script021/PazzWordProva/ingresso.html
------------------------------------------------------------------------
"Any sufficientely advanced technology is indistinguishable from magic"
                      Arthur Charles Clarke
------------------------------------------------------------------------

Grazie a entrambi per la risposta. Ho provveduto a forwardare il tutto a
'
ab...@inwind.it
', speriamo che il numero faccia la forza.
Ciao
Marcello
Newsgroup: it.comp.lang.pascal
Titolo: note su Dispose(ptr);

Salve NG,
questa procedura serve per eliminare una precedente allocazione di
memoria tramite new(ptr); e fino a qua ci siamo...
Ma che succede se non *disposo* tutte le precedenti allocazioni che ho
fatto nel programma? Alla chiusura del programma vengono eliminate
cmq?
dalla guida di Turbo Pascal 7:
********************************************
  Dispose (procedure)
  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
 Disposes a dynamic variable.
  Declaration:
  procedure Dispose(var P: Pointer [ , Destructor ]);
  Target:
 Windows, Real, Protected
  Remarks:
 Should not be used with Mark or Release.
 The declaration of Dispose has been extended so it can also dispose
of an
 object allocated on the heap, if you pass it that object's destructor
as a
 second parameter, like this:
  Dispose(P, Done);
 After a call to Dispose, the value of P is undefined and it is an
error to
 reference P.
  Restrictions:
 If P does not point to a memory region in the heap, a run-time error
occurs.
  See Also:
  FreeMem
  GetMem
  New
****************************


credo di no, i dati rimarrebbero in memoria a sprecare spazio inutilmentre,
almeno credo. altrimenti a che servirebbe questa procedura?
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

La dispose libera la memoria allocata da una new.
Se chiudi un programma senza liberare la memoria occupata dinamicamente,
quella memoria non sarà più utilizzabile perché non avrai più il puntatore
di accesso a quell'area di memoria.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

mmmh credo che il memory manager (in pratica la unit system)
si occupi all'uscita di deallocare tutto quello che rimane ancora
allocato al momento della terminazione.
Ovvio che non deallocare non e' una sana pratica...
--
Dreadnaut
(Life would be easier if I had the source code)

 Ovvio che non deallocare non e' una sana pratica...
Concordo :)


beh all'interno del programma ha ragione: se una procedure si allocasse
una var temporanea dinamicamente ogni volta che viene chiamata e poi
non la deallocasse ti ritroveresti a tappo in dopo un certo numero di
chiamate...
il TP dubito abbia garbage collection, quindi se perdi il puntatore alla
zona di memoria non puoi piu' liberarla. Altri liguaggi (a.e. java)
provvedono
a liberare la memoria quando un oggetto non ha piu' referenze.


 a liberare la memoria quando un oggetto non ha piu' referenze.
Ho capito :-)

Newsgroup: it.comp.lang.pascal
Titolo: Per ReDiCuori!

Ciao ReDiCuoiri.
Ho visitato il tuo sito ( 
www.pascallike.too.it
 ) ed ho scaricato i file
.RAR.
Con quale programma si aprono i file .RAR???
Grazie.

winRar :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:9v%O9.55041$TC5.1...@twister1.libero.it...


Dove posso trovare winrar??
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:jX%O9.36918$R45.1...@news2.tin.it...


> Dove posso trovare winrar??
www.google.com/search?q=winrar
stranamente e' il primo link in elenco...


Grazie.
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:Mo1P9.55499$Ou4.1...@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Assembler in pascal

Salve! Qualcuno sa come si usano le procedure o le function in assembler
direttamente nel pascal? Ricordo di aver fatto una cosa simile circa cinque
anni fa, ma da allora mi sono dimenticato tutto ed ho perso i file dei
programmi che ho creato. Ricordo però che era possibile. Come fare? Grazie

Massimiliano Donno wrote:

Per scrivere codice assembler direttamente nel Pascal devi iniziare il blocco
assembly con la parola chiave asm e terminarlo con end;
esempio:
asm
 mov AX,10f
end;
Esempip di procedure in asm
procedure pippo_pappo;asm;
 mov  AX,10
 mov  BX,11
 mov CX,12
end;
per richiamarla è come richiamare una procedure standard.
Tanti saluti da Airex


www.infinito.it/utenti/negus80
 ... pascal, c++, asm

identificatore sconosciuto. Aiutatemi.
Il tp5, se non sbaglio, NON lo supporta l'assembler in questo modo, ma
soltanto l'assemler in linea, che è diverso.
Per usare l'assembler in linea devi usare una cosa del genere :
				inline(/codice_op);
dove codice_op è il codice operativo dell'istruzione che devi
eseguire.


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

Ciao a tutti,
     sapete spiegarmi come posso fare a calcolare il valore di un numero
elevato alla x senza usare strutture di iterazione?
Grazie mille

 ha scritto nel messaggio
news:%qyc8.1511$E33....@twister1.libero.it...


 ha scritto nel messaggio
news:KEyc8.1044$3s4....@news1.tin.it...


 wrote in message
EVzc8.1337$3s4....@news1.tin.it...


 Cooper.
Occhio con questa formula : se a è negativo..........
La matematica...la matematica!!! va studiata!! :))
Milliken

Mai, sentito parlare di valori assoluti? Se proprio volevi essere pignolo
potevi scrivere la formula corretta... comunque... faccio io per te...
X = EXP ( B * LN ( ABS (A) )
Rammento che comunque... lo scopo non era quello di scrivere la formula
corretta ma far vedere che era possibile risolvere il problema tramuta una
semplice funzione matematica... (vedi post precedenti).
Cordialmente, Cooper.
PS: Alle parole ci vogliono i fatti... la prossima volta includi anche la
soluzione però :-)  ^_^
"milliken" <milliken@infiTOGLI_QUESTOnito.it> ha scritto nel messaggio
news:a53hno$sul$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.pascal
Titolo: Intelligenza artificiale

oltre al programma life
Nessuno di voi ha fatto un programma in cui si simula intelligenza
artificiale del computer
ad esempio si danno delle indicazione e lui sceglie la via migliore come
risolverla


Reti neurali.
Tu insegni loro come devono comportarsi... e loro sono in grado di 
decidere quale č la soluzione migliore in base a quello che hai 
insegnato tu, anche se non si sono mai trovati di fronte a quella 
particolare situazione.
In particolare ho visto tempo fa un OCR scritto in Delphi. Tu insegnavi 
all'OCR come si scrivono le lettere (per esempio scrivevi a mano 
chessň... 10 volte... la lettera A, poi la B, etc.)... poi era in grado 
di riconoscere i caratteri che tu scrivevi a mano anche se leggermente 
dissimili da quelli insegnati... [in pratica era in grado di riconoscere 
la tua scrittura] una figata e mezza.
Avrei voluto studiarmi meglio il codice, ma non era piccolissimo ed era 
tutto commentato in tedesco :(
Le reti neurali sono un po' complesse perň da realizzare (il principio č 
abbastanza semplice... la realizzazione non č poi cosě banale perň).
Ciao,
   Luca

delle indicazione e lui sceglie la via migliore come risolverla
beh allora... l'esempio che fai tu potrebbe essere un normalissimo
problema: lo modellizzi, gli dai i dati e lui calcola il risultato, l'ai
non e' necessaria (vedi programmazione [non-]lineare e amici).
Per quanto riguarda l'intelligenza beh ci sono due vie, due filosofie
piu' o meno opposte:  una e' l' "AI" ufficiale, che piu' o meno dice
"abbiamo delle macchine, quindi piu' o meno degli automi a stati
finiti, e di piu' non possiamo chiedere. Dobbiamo farli abbastanza
complessi da poter gestire e scegliere fra il maggior numero di
situazioni/variabili possibili, se non tutte". E' un approccio
estensionale, in cui si cerca di preparare il programma a rispondere
a tutti i possibili stimoli e se possibile memorizzare le soluzioni
migliori. [ vedi ad esempio i bot tipo `Alice` ]
L'altra via e' quella delle reti neurali, che dice "l'intelligenza non
nasce completa ma si evolve e deve imparare. Creiamo un `cervello
artificiale` in grado di imparare e sfruttare cio' che ha acquisito".
La rete neurale e'  una struttura (dati) formata da neuroni-equivalenti,
cioe' delle unita' capaci di recepire stimoli semplici, valutarli
secondo dei pesi e dare un risultato. Con essi si crea una rete
`a somiglianza` che possa rispondere e memorizzare stimoli, un po'
come un cervello.
Quella che trovi nei giochi e' proprio AI (ci sono un tot di stati e
transizioni possibili a seconda di quello che accade "attacca finche'
health>20, poi nasconditi");  credo solo "Creatures" avesse un engine
a rete neurale, ma non ricordo con precisione.
Quale delle due strade sia migliore proprio non lo so'... magari l'anno
prossimo avro' le idee piu' chiare :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 dove trovo un programma che usa questa tecnica???????
Scusa per la risposta tardiva... se ne è discusso recentemente su 
it.comp.lang.delphi, cerca nel subject "reti neurali".
Ciao,
   Luca
Newsgroup: it.comp.lang.pascal
Titolo: Fibonacci

Qualcuno di buon cuore mi potrebbe inviare il codice pascal soltanto con i
for, while ,repeat della
successione di fibonacci?
Grazie
Emiliano
emip...@tin.it

 ha scritto nel messaggio
news:iqQL7.13613$4M2.3...@news2.tin.it...

Anche tu in A8 con Burattini?

 wrote in message
iqQL7.13613$4M2.3...@news2.tin.it...


 sbaglio)
detto fatto: F(n)= F(n-1) + F(n-2)

Infatti avevo qualche dubbio se fosse come hai detto, tu cmq quello che ho
scritto è equivalente a fib(n-1)

Inoltre il codice lo si può migliorare utilizzando tecniche di programmazone
dinamica che porterebbero la complessità a livello polinomiale

 scritto è equivalente a fib(n-1)
tralasciando la non chiara interpretazione delle tue frasi ( ... :) ) tu fai
F(n-1) ma lo assegni a F(n)...

 dinamica che porterebbero la complessità a livello polinomiale
basterebbe farla iterativa: due variabili globali e diventa lineare...,
polinomiale quindi

Newsgroup: it.comp.lang.pascal
Titolo: ide fpc linux

Salve,
sto tornando a linux.
Ho installato fpc 1.9.8 (per linux)... ma l'IDE mi pare assente.
qualcuno sa se esiste di fatto?
c'e' un file 'fp' in 'bin'  ma mi sa che e' un link...
ovviamente quando installo do la conferma a tutto...
ciao
ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 qualcuno sa se esiste di fatto?
Io uso KDevelop e mi trovo bene.
Ciao

 qualcuno sa se esiste di fatto?
Io sotto linux uso KDevelop e mi trovo bene.
Ciao

Newsgroup: it.comp.lang.pascal
Titolo: cerco compilatore freeware

Ciao a tutti
vorrei sapere se esiste un compilatore pascal freeware e, nel caso da dove
scaricarlo.
Grazie a tutti
inb...@tin.it

Se per compilatore intendi che faccia l'EXE, il TP 7.0  lo fa, prendi quello
no??
Emanuele Cesena
gma...@tin.it


--------------------------------------------------------
Andrea      
mica uno qualunque...
---------------------------------------------------------------------------
per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo



Se non ti ha ancora risposto nessuno prova questo:
http://www.brain.uni-freiburg.de/~klaus/fpk-pas/
Ciao
--
Military intelligence is a contradiction in terms.
                -- Groucho Marx
Military justice is to justice what military music is to music.
                -- Groucho Marx
e-mail:
 
re...@chim03.chin.unipd.it
 
ro...@deathsdoor.com
Home:
 
http://chim03.chin.unipd.it/~rebel
******************************************
Amministratore del Sistema Chim03
******************************************

Prova ad installare l'ambiente DJGPP... troverai il Gnu pascal compiler a
32 bit con estensioni borland.
--------------------------------------------------------
                 Marco Ronchini *linux user*
Studente del c.d.  d'Ingegneria Informatica e Automatica
              Universita' di Roma "La Sapienza"
       Sito:
http://www.tibur.dis.uniroma1.it/~d002795
--------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: domande sui file e relative funzioni

Dovendo leggere file di qualunque tipo, come farebbe un hexeditor,
come va dichiarata la variabile file?
file, file of byte od altro?
io pensavo file of byte,
La lettura va fatta con blockread?
blockread vuole file non typed,
ma poi non funziona la filesize che li vuole typed
esistono altri modi oltre al blockread per leggere file non text?
extrabug @ 
iname.com

 ma poi non funziona la filesize che li vuole typed
come sopra :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

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

Qualcuno sa da dove posso scaricare questa versione del Turbo Pascal per
windows???
Grazie a tutti
P.S.: ho la versione 7.0 per DOS ma, da grande ignorante, come faccio a
creare i files .exe?

 ha scritto nel messaggio
.....
.....

Newsgroup: it.comp.lang.pascal
Titolo: TP 1.5 per Windows

 >accendere in un determinato colore i pixel del video. Grazie



OK, allora guardo.
http://www.sussidiario.it/informatica/programmazione/
guarda se trovi qualcosa qui...
temo che tu chieda troppo.
controlla
http://www.devq.net/pascal/
colgo l'occasione per accennare ai siti
http://www.provincia.brescia.it/hosted/?bagatta/pascal/
(un tutorial sulla versione 5.5 del Turbo Pascal - versione che ora si
puņ scaricare liberamente dal sito della Borland)
http://www.statfac.unibo.it/sartori/default.htm
(fantastico!!!)
i due migliori tutorial che ho trovato nella mia ricerca
PV

 può scaricare liberamente dal sito della Borland)



io invece cerco assolutamente il pascal alla versione 1.5 dove lo posso
scaricare? dove l'hai preso tu? io posseggo solo la versione 7 per win, ti
prego aiutami
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

 
http://community.borland.com/museum/
devi registrarti. Troverai anche la versione 3.0 e la 5.5 scaricabili
gratuitamente. Saluti. Michele
Newsgroup: it.comp.lang.pascal
Titolo: help ...liste!!

Il programma da compilare è il seguente:
scrivere un programma in pascal atto a eliminare TUTTI gli elementi uguali
ad un parametro fornito alla procedura stessa, in una lista
unidirezionale(già esistente in memoria) specificando tutti i parametri
necessari a realizzare la suddetta funzionalità nel modo più generale
possibile e tutte le dichiarazioni di dati necessarie.
Sarei infinitamente grato a chi volesse compilare tale programma( o anche
una dritta per scriverlo)......aiuto......


Be c'e' una premessa da fare ovvero se la lista è statica o dinamica (faccio i due esempi comunque)
Lista Statica:
Var
  MiaLista : Array[1..100] Of String; (* String è un esempio ovviamente *)
  NumeroDiDati : Integer;
Procedure Cancella(Elemento : String); (* Elemento è la stringa da ricercare e cancellare *)
Var
   I, J : Integer;
Begin
    I := 1;
    While (I <= NumeroDiDati) Do
    Begin
        If MiaLista[I] = Elemento Then
            Begin
                If I < NumeroDiDati Then
                   Begin
                       For J := I To NumeroDiDati-1 Do MiaLista[J] := MiaLista[J+1];
                   End;
                Dec(NumeroDiDati);
            End
               Else
                  Inc(I);
    End;
End;
Lista Dinamica Unidirezionale:
Type
    PLista = ^TLista;
    TLista = Record
                      Dato : String;
                      Prossimo : PLista;
                 End;
Var
    InizioLista : PLista;  (* Punta al primo elemento della lista *)
Procedure  Cancella(Elemento : String);
Var
    Precedente, Attuale, Altro : PLista;
Begin
    Attuale       := InizioLista;
    Precedente := Nil;
    While (Attuale <> Nil) Do
             Begin
                  If Attuale^.Dato = Elemento Then
                     Begin
                         Altro := Attuale^.Prossimo
                         Dispose(Attuale);
                         (* Controllo se è il primo elemento della lista *)
                         If Precedente = Nil Then
                            Begin
                                InizioLista := Altro;
                            End
                                Else
                            Begin
                                 Precedente^.Prossimo := Altro;
                            End;
                         Attuale  := Altro;
                     End
                        Else
                     Begin
                          Precedente := Attuale;
                          Attuale := Attuale^.Prossimo;
                    End;
             End;
End;
Li ho buttati giu' in 2 minuti (ti possono servire come traccia)
Comunque bisogna sempre pensare da soli.
--
Ciao,
David (
www.utilityweb.net
)

 ha scritto nel messaggio
news:brsf5e$thn$1...@newsreader.mailgate.org...
