mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Credete che si possa DA SOLI scrivere un video-gioco ???

Che ci crediate o no, un amico l'ha fatto e non è davvero niente male per
essere stato scritto in Pascal+Assembler...
Su 
www.geocities.com/TimesSquare/Zone/3845
 è possibile avere altre info e
scaricarlo gratis (il file .zip è di 35Kb)...
Buon divertimento!
Ciao!    Marco
P.S.: Se fossi stato io a decidere, sinceramente avrei trovato il modo per
specularci sopra...
       PAY ATTENTION!!!
Per rispondermi utilizzare il
seguente indirizzo di e-mail
~°~°~°~°~°~°~°~°~°~°~°~°~°~°~°~°~
     if you want contact me,
mailto:
mfon...@studenti.unina.it
°~°~°~°~°~°~°~°~°~°~°~°~°~°~°~°~°
Se vuoi conoscermi, visita la mia home-page
"leggerissima" su 
www.geocities.com/TimesSquare/Zone/3845

Certo che si puo'.
E anche con una mano sola. ;)
Andrea Laforgia
----
I guai ve li andate a cercare : 
quando Bill Gates annuncio' che avrebbe fatto scrivere 
Windows98 a Topo Gigio perche' non gli avete creduto ?



Ci risiamo !!!
ti ho risposto pure l'altra volta : si' e con una mano sola.

...


Un bel di' Marco scrisse:
M> Che ci crediate o no, un amico l'ha fatto e non č davvero niente male per
M> essere stato scritto in Pascal+Assembler...
M> Su 
www.geocities.com/TimesSquare/Zone/3845
 č possibile avere altre info e
M> scaricarlo gratis (il file .zip č di 35Kb)...
M> 
c'e' un altro bellissimo (a me piace un casino) giochino scritto in Pascal...
andate su 
gpi.eden.it
, nella sezione "italian ware", poi giochi free...
Si chiama Puy e qualcosa...
(giacche' ci siete scaricate pure Bubble2000 :)) ).
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
"Quando non sai cosa stai facendo, fallo con la massima precisione", seconda
legge del Laboratorio

specularci sopra...
Spero ke lo dicevi per skerzare......Il commercio è la tomba
dell'informatica e di molte altre cosae...
DeV
DeV
skywa...@usaADREM.net
cut adrem for reply
#grungepunkitalia
Byez

scaricarlo gratis (il file .zip č di 35Kb)...
ma...
che genere di gioco ?
quante righe di codice ?
quanto tempo impiegato ?
bello ??
č un genio l'amico ?
DeV
<< Only You PUNK >>


 dell'informatica e di molte altre cosae...
Assi'? Sappi che se non ci fosse il commercio tu non avresti Nessun
gioco come Half Life ne' tanto meno il tuo pentium 2 su cui farli
girare...
Newsgroup: it.comp.lang.pascal
Titolo: Grosso Problema

program CHAR;
Uses WinCRT;
var
   a,b,c:char;
-> Error 94. "." Expected
(indicando la riga dove ho dichiarato le variabili...)
Ma cosa sbaglio ? ? ?

"=~Cathàll'®~=" ha scritto nel messaggio
 program CHAR;
 Uses WinCRT;
 var
    a,b,c:char;
 Error 94. "." Expected
 (indicando la riga dove ho dichiarato le variabili...)
 Ma cosa sbaglio ? ? ?
Da quel poco che so il messaggio di errore ti fa notare che manca il punto e
comunque uses va indicato con crt non con Wincrt.Magari posta tutto il
programma....
Credo di non avere detto baggianate :)
Un saluto

 -> Error 94. "." Expected
mmh e' tutto qua ?
se (si) allora e' perche' manca il blocco principale begin/end
che ha dopo l'end un punto.
se (no) e' perche' hai dichiarato il programma con un nome
di identificatore gia' esistente ( 'char' - ricorda che il pascal
e' case-insensitive), quindi il compilatore si aspetta un "sottocampo"
del tuo programma, cioe' in questo caso un tipo definito nel tuo
programma... mmmh asp che con un esempio forse e' piu' chiaro:
se hai fatto una unit che si chiama "hahaha" che contiene una
var 'stringa', la potrai richiamare anche se nel tuo prog esiste una
seconda variabile con lo stesso nome utilizzando il punto:
hahaha.stringa
quindi nel tuo prog il compilatore si aspetta char.unqualchetipo
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)


Prova a cambiare "program CHAR": chissà che "CHAR" (identificatore di un
tipo di dato) come nome del programma non faccia piacere al Pascal.
Mi sembra sia molto improbabile, ma non avendo sotto mano un compilatore,
non posso assicurarmene personalmente :-p
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 programma... mmmh asp che con un esempio forse e' piu' chiaro:
Penso che il problema sia questo.. Il blocco begin/end + le istruzioni era
già presente, ho evitato di postarlo..
Ora provo
Grazie !

 (indicando la riga dove ho dichiarato le variabili...)
Riecchime :-) hehehe
Ho finalmente potuto testare il tuo codice su compilatore: il problema è
proprio il nome del programma ovvero non puoi mettere "program
<parola_chiave>;" per 'identificare' un programma. Per parola chiave
intendo: tipi di dato (real,integer & co), istruzioni (if, while, case,
array, & co), etc...
Mettici "pippo", "pluto", "paperino" o, se puoi farne a meno, ometti
l'intera clausola "program".


 <parola_chiave>;" per 'identificare' un programma. Per parola chiave
puoi puoi... dopo pero' doveva specificare "system.char" per dichiarare
la variabile... ('system' e' la unit di sistema del TP, quella che contiene
i tipi e le funz/proc base)
--
Dreadnaut
 - Voglio comprare un boomerang nuovo. Come faccio a sbarazzarmi di
  quello vecchio?

 ha scritto nel messaggio
news:WpaM7.173662$sq5.8...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: problemino con assembler[OT]

sto studiando un po' di assembler
ma, provando a compilare il seguende
codice d'esempio
DOSSEG
.MODEL SMALL
.STACK 200h
.DATA
.CODE
START:
  MOV AX, 4C00h
  INT 21h
END START
.. ottengo sempre degli
errori
uso MASM, e ho provato un sacco di combinazioni con le opzioni del
compilatore (ml.exe) e del linker (link.exe)
ma non c'e' verso
grazie
per qualsiasi info a riguardo
--------------------------------
Inviato via 
http://usenet.iol.it

 per qualsiasi info a riguardo
Prego
--
=Omega======================
"Hands On"
http://sentinellaomega.cjb.net
http://www.sentinellaomega.too.it
============================

 ha scritto nel messaggio
news:212Z63Z98Z29Y1...@usenet.iol.it...


 END START
C'è un errore di logica, dopo INT 21h ci va *SEMPRE* un INT 20h che chiuse
l'interupt col DOS.
Non so se il masm si incaxxa per quello, cmq è un errore.
Ciao
--
Timothy Redaelli
P.S. Prova col debug


ciao, guarda che non è un errore. Un programma dos può benissimo terminare
con
mov ax,4c00h
int 21h
,senza usare int 20h.


che errori ti dà?


veramente quando AL=0 significa che esce senza dare errori...cioč, che
l'errorlevel del prog č zero.

 Non so se il masm si incaxxa per quello, cmq è un errore.
Non è vero che ci va *SEMPRE* un int 20h dopo un int 21h :)
So pochissimo di asm quindi non mi pronuncio + di tanto :)


 So pochissimo di asm quindi non mi pronuncio + di tanto :)
Prova ad aprire il prompt di MS-DOS
scrivi (ogni riga un invio):
debug
a100
MOV AH,02
MOV DL,41
INT 21
<INVIO>
G100
<INVIO>
E vedrai che errori(almeno sotto win2k)!!!
Ciao
--
Timothy Redaelli


prova invece a scrivere
debug
a100
mov ah,4c
mov al,0
int 21
e vedrai che non ci sarà nessun errore nonostante l'assenza dell'int 20h

Newsgroup: it.comp.lang.pascal
Titolo: input"automatico"

Salve a tutti,
chissa' se qualcuno di voi e' competente per gli output del pascal..
mi spiego :
ho realizzato un bel programmino per manipolare matrici , che si usa tramite
menu ( case of ) , ovvero dopo aver riempito la matrice faccio apparire la
schermata
con scritte tipo: " premi 1 per il metodo di Gauss" , " Premi 2 per..."etc.
Ho notato quanto sia fastidioso quel prompt che rimane a lampeggiare ,
e non mi piace il fatto di dover digitare la scelta e poi appena confermarla
con invio ; mi piacerebbe ottenere qualcosa di piu' automatico ,
nel senso premo "1" o "2" o altro e mi parte in automatico per quello che ho
richiesto , senza dover confermare con invio e senza veder quei
bruttissimi prompt di attesa!
Qualcuno sa come si fa in pascal??
Vi ringrazio anticipatamente!
Ciao a tutti.
Fabio.

nella unit crt trovi 'keypressed' e 'readkey' che dovrebbero fare per te
--
Dreadnaut
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:G9mg8.56178$v7.19...@twister1.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: misurare il tempo ?

Il timer interno al pc con 8086 ..  486 ,non so oltre ,interrompe la cpu
circa 18 volte al secondo.Come posso fare in un programma a misurare con
precisione intervalli di tempo inferiori a un diciottesimo di sec ,con
qualsiasi cpu a qualsiasi clock e con la cpu interrompibile ? Mi sembra che
l'ultima pretesa sia impossibile anche se appare realizzata in tanti
programmi. Se riesco a risolvere questo vorrei poi mettere in piedi una
formula che mi stabilisca l'intervallo minimo misurabile.
Grazie ,Gianmaria Samori'.

Giuseppe
Quale origine ha 01234dd ?
Grazie della risposta. Gianmaria  Samori'.

 Quale origine ha 01234dd ?
lo uso in esadecimale per mia convenienza, in decimale non lo ricorderei. la
porta 40 puo' ospitare valori a 16 bit imboccandola in successione. quindi
se tale porta arriva ad un massimo di 65536 e in tale condizione i cicli di
clock equivalgono a circa 18.1 battiti al secondo, fai 65536 * 18.1 e trovi
la frequenza massima del clock.
comunque quel valore l'ho letto da un fille contenuto nella programming
enciclopedia, se non sbaglio, e l'ho adottato come buono. dalle infinite
prove che ho fatto funziona alla perfezione.
se vuoi una certa frequenza di clock dividi il valore 01234ddh per la
frequenza che vuoi ottenere. se dividi quel valore per numeri inferiori a
18.1 circa ottieni un numero piu' grande di 16 bit, quindi non utilizzabile.
se vuoi 100 cicli di block fai 01234ddh div 100 e ottieni il valore da
impostare nella porta 40. il pit fara' il conto alla rovescia dal valore
impostato. arrivando a 0 inviera' una richiesta di interrupt e reimpostera'
il contatore.
ciao
passa alla procedura la frequenza che vuoi: 100 hz o anche 44100 hz.
comunque se non metti qualche routine all'irq 0 non t'accorgerai di niente.
poi rimetti tutto a posto, cioe' a 18.
procedure timertic(tic : word);
var
til : longint;
begin
if tic = 0 then tic := 1;
til := $1234dd div tic;
if til > 65535 then til := 0;
tic := til;
asm
cli
MOV AL,36H
OUT 43H,AL
mov ax,tic
OUT 40H,AL
mov al,ah
OUT 40H,AL
sti
end;
end;
Newsgroup: it.comp.lang.pascal
Titolo: come aumentare lo stack?

ho composto un algoritmo che ordina un array secondo il metodo bubblesort
(ma non è questo il problema).
Poichè ho usato una procedura "particolarmente ricorsiva", se l'array è
particolarmente grande (tipo 10.000) il pc mi da runtime errore 202
(praticamente mi dice che è finito lo stack). ho letto che devo utilizzare
un comando come questo $M stacksize ma non so dove e come!
ho letto che lo stack è di default impostato su 8192. ho capito bene, vero?
io utilizzo il TPW 1.5. spero qualcuno possa aiutarmi
saluti a tutti
ivan

"Ivan Definitive Version" <iva...@CANCELLAILMAIUSCOLOinterfree.it> ha
scritto nel messaggio news:F5sc8.21190$8F6.9...@twister2.libero.it...

$M:  Memory Allocation Sizes Directive
Specifies a program's memory allocation parameters.
Syntax: $M StackSize, HeapSize

 ha scritto nel messaggio
news:a4tudg$2vu7d$1...@ID-87006.news.dfncis.de...

questo lo avevo letto anche io ma non so dove inserire questa stringa e
tantomeno cosa precisamente scrivere! ho provato a inserire $M 8192 (o altri
numeri) in diverse parti del programma ma mi dice sempre errore sulla M
(error in integer constant (errore numero 7)) ma non so dove sbaglio....
grazie cmq per l'interessamento!
ivan

Puoi aumentare lo stack procedendo nel modo seguente:
Option / Memory Sizes
        Real Target:  65520
        Protect Target 65520
...e confermi tutto. Questo mediante l'ide del pascal.  Io ho preso come
riferimento BP7 per il resto non so aiutarti.
In ogni caso puoi ovviare al problema dello stack usando un algoritmo
non-ricorsivo... sarà più laborioso... in termini di codice ma sicuramente
non produrrà questi effetti collaterali.
Cordialmente, Cooper.
"Ivan Definitive Version" <iva...@CANCELLAILMAIUSCOLOinterfree.it> ha
scritto nel messaggio news:F5sc8.21190$8F6.9...@twister2.libero.it...


-- snip dall'help del tp7 --
Syntax:        $M StackSize, HeapSize
Defaults:      {$M stack size, local heap size}   (Windows)
               {$M stack size}                    (Protected mode)
               {$M stack size, heapmin, heapmax}  (Real mode)
devi inserirla all'inizio del prog in un commento (strano ma
vero) perche' non e' un comando del pascal ma e' una direttiva
che dai al compilatore quindi in cima al tuo prog metti
(senza spazi fra la parentesi e il $M)
{$M <quello che ci va, se usi il tpw, stack (fino a 64kb) e heap}
puoi guardare quant'e' piu' o meno il valore di default dell' heap
(mem per i dati 'dinamici') con la proc MemAvail in un prog
che non faccia nulla :-)
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: intero a stringa

Come posso convertire un intero in una stringa??
grazie


Val e Str
 
ti servono respetivamente per implementare facilmente una IntToStr e
una StrToInt
 
ovviamente puoi anche ampliare ad altri tipi
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


E' molto semplice, puoi usare la procedura Str(numero, var stringa) che
converte "numero" in "stringa"
テdan

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO ARRAY

Per favore mi potete spiegare come si fanno sti due programmini (solo la
procedura):
- uno che conti quanto un elemento viene ripetuto dall'utente (lo so č
stupido ma la mia prof nn sa usare i record)
- l'altro che metta prima gli zeri poi i pari e poi i dispari
grazieeeeee

 - l'altro che metta prima gli zeri poi i pari e poi i dispari
questo se ti spieghi meglio forse aiuta... :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 grazieeeeee
prego :)
PS cpmunque se ti serve ancora aiuto basta che chiedi....... pero cerca di
esprimerti un po meglio ( x risponderti sono andato un po' a intuito)
Newsgroup: it.comp.lang.pascal
Titolo: Ordinare alfabeticamente

Qualcuno saprebbe dirmi se c'è un modo per
visualizzare delle stringhe in ordine alfabetico?
In particolare mi serve per visualizzare i files
di una directory ordinati alfabeticamente, ma
non so come fare.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 non so come fare.
che so usi??
sotto linux: ls | sort

 wrote


Uso windows (98). Anch'io in dos utilizzo
dir | sort, ma lo devo fare in Pascal.


 Qualcuno saprebbe dirmi se c'č un modo per

E possibile confrontando le stringhe :
 if stringa_nome_file1 > stringa_nome_file2 then ...
Questo pero non basta per fare quello ke vuoi, ti occorre anke
trafficare coi puntatori.
Ciao!
--
el rasune'
-----
Ca custa chiel ca custa...
    Viva la val d'Austa!

 Qualcuno saprebbe dirmi se c'č un modo per


 trafficare coi puntatori.
Uso il Pascal da appena due settimane circa.
Vabbň, cercherň di capire cosa sono i puntatori e come
si usano. Cmq grazie.
Simone.


Qualcuno saprebbe dirmi se c'č un modo per


 >visualizzare delle stringhe in ordine alfabetico?
Grazie, ci sono riuscito.... e soprattutto ho capito come funziona.


Newsgroup: it.comp.lang.pascal
Titolo: [OT] Importante

Scusatemi subito per l'off-topic e per il crosspost, ma volevo essere
certo lo leggessero piu' persone possibili.
Questo messaggio e' molto importante, quindi vi prego, leggetelo.
In giro per la rete sono downloadabili molti programmi per il controllo
remoto del pc (il piu' famoso e' Back Orifice, ma ve ne sono altri tipo
Netbus). Per qualsiasi motivo non installate il server nel vostro pc! Se
pensate che sia abbastanza sicuro, dato che esiste una password, vi
sbagliate: esistono molti programmi con cui aggirare la password o
toglierla. Inoltre, state attenti ad avviare file eseguibili che vi
vengono passati, perche' possono essere i file del server di questi
programmi rinominati. Io sto controllando da 7 giorni, tramite il client
di netbus, quante persone hanno questo programma installato a loro
insaputa e ne ho trovate una ventina (procedendo casualmente con
l'inserimento dell'indirizzo IP). Per controllare se anche voi siete
stati "infettati" dal server, guardate nella cartella "Run" o
"RunServices" del registro di sistema (sta sotto
"Hkey_local_machine/Software/Microsoft/Windows/CurrentVersion") se
vengono lanciati dei programmi all'avvio del pc che non conoscete.
Questo e' l'unico modo di localizzare questi programmi. Se volete
maggiori chiarimenti mandatemi pure una mail a 
F2.il...@usa.net
.
Scusate ancora per il disturbo.
Salvadori "F2" Danilo






Salvadori "F2" Danilo
P.s.: scusate anche se questo messaggio lo vedrete due volte. Dopo la
prima spedizione mi era stata mandata una mail di avviso che mi
avvertiva che il messaggio era stato cancellato.
Newsgroup: it.comp.lang.pascal
Titolo: Generare calendari

Salve, ho enorme bisogno di un consiglio.
Devo generare un calendario di alcuni incontri di calcio e ho pensato di
generalizzare facendo in pascal...
Il problema, perņ č che devo anche simulare TUTTI i risultati possibili  e
per ognuno di questi generare la classifica finale.
Da dove comincio ? Come imposto il prog ?
Cosa mi consigliate di fare ? ( oltre a "lascia perdere" )
                                                                Kosby

 Il problema, però è che devo anche simulare TUTTI i risultati possibili 

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO DATA BASE

1) Nei data base come si costruisce una tabella usando i comandi SQL
(create table; select; create wiew; etc. ....)
2) Riguardo ai dati, nei data base, che cosa significa integrità
semantica,
integrità di contesa, integrità referenziale.
Vi ringrazio anticipatamente del vostro aiuto.
Rocco.



Newsgroup: it.comp.lang.pascal
Titolo: T.P. 5.5

Ho installato la versione DOS di TP 5.5 ma per alcuni comandi (clrscr,
delay, ecc.) mi dà errore in fase di compilazione. Credo che sia un problema
di mancanza di TPU.
Ma dove le le posso trovare?
Grazie
          Wally
--------------------------------
Inviato via 
http://usenet.libero.it


prova ad inserire nella clausola uses crt
altrimenti scaricati la versione 7 dal sito in firma, ok?
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

 delay, ecc.) mi dą errore in fase di compilazione. Credo che sia un


Newsgroup: it.comp.lang.pascal
Titolo: [expert?] Lettura di una funzione

Dato che devo leggere una funzione in input, senza che questa sia fissata
(in teoria dovrei leggere TUTTE le funzioni), pensavo di filtrare l'input,
in modo che mi trasformi da x^2 => Elev(x,2) (con elev funzione custom) e
che metta la funzione in output all'interno di un file esterno, memorizzato
tale e quale ad una funzione, inclusa con la direttiva $I all'interno del
listato.
Il problema č che il file lo compilo una volta per tutte, e non posso quindi
cambiare a mio piacimento la funzione.
Avete qualche idea da consigliarmi?
Se volete vi mando i listati.
Grazie.

 Avete qualche idea da consigliarmi?
Spiegati meglio
Salute e prosperita'!
Newsgroup: it.comp.lang.pascal
Titolo: AIUTOOOO

ragà ho problemi con la ricorsione chi me la spiega in 2 parole magari
con qualche esempio??? grazie a tutti bye bye!!

 con qualche esempio??? grazie a tutti bye bye!!
La ricorsione in due parole? Una Funzione/Procedure richiama se stessa/o
Esempio?
Function Fattoriale(N:Integer):Longint
Begin
   If N=1
     Then Fattoriale:=1                  {Condizione di chiusura}
     Else Fattoriale:=N*Fattoriale(N-1); {Ricorsione}
End;
-- 
IL RAZZIATORE,
The Only good Windows is an Unistalled Windows
-----------------------------------------------------
EMAIL: 
razzi...@usa.net
WEB:   
razziatore.dsx.org
 sito in aggiornameto/alestimento
ICQ:   67552596

 ha scritto nel messaggio
news:3A69F574...@usa.net...


 con qualche esempio??? grazie a tutti bye bye!!
Dal momento che l'algoritmo proposto (Fibonacci) potrebbe essere implementato
anche iterativamente, ti faccio vedere un algoritmo intrinsecamente ricorsivo
(nel senso che non c'è cazzi se non farlo ricorsivo): la stampa ordinata delle
chiave di un albero binario di ricerca:
Btree : ^node     ** non sono sicuro che questa def sia sintatticamente corretta
node : record
         key: integer;
         left, right: ^node;
       end;
procedure stampa(t: btree);
begin
  if t<>nil then
  begin
    stampa(t^.left);
    writeln(t^.key);
    stampa(t^.right);
  end;
end;

> (nel senso che non c'è cazzi se non farlo ricorsivo)
si puo' si puo'... algo. di visita alberi (binari e non) iterativi si
possono
fare, pero' bisogna tenere uno stack (o una pila a seconda che la visita
sia in profondita' o in ampiezza) dei nodi figli (o fratelli) rimasti da
visitare.
E' abbastanza comodo quando devi visualizzare dei risultati parziali...
ciao,
Dreadnaut

 E' abbastanza comodo quando devi visualizzare dei risultati parziali...
Ma č anche molto piů complesso!! Anche il quick sort lo puoi fare iterativo, ma
rispetto alla versione ricorsiva devi tenerti una pila degli estremi e non č di
facile implementazione!!
Ciao

 facile implementazione!!
Il QS iterativo e' pero' piu' veloce di brutto... (almeno quelo che ho visto
io...)
Cmq se lo stack/pila non lo fai tu se lo deve fare il sistema per mantenere
le info delle tue chiamate ricorsive... e il tempo e' di certo superiore
(sposta sp/fp
scambia reg/nuove var per nuova chiamata... etc etc)
Poi a livello di algoritmo quelli ricorsivi sono di certo piu' facili da
implementare
in molti casi... cmq tutto quello che si puo' fare ricorsivamente si puo'
fare anche
in modo iterativo :-)
ciao,
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 fare anche in modo iterativo :-)
Non ci giurerei!! O almeno non con la stessa struttura dati con cui risolvevi il
problema in modo ricorsivo
Ciao

 problema in modo ricorsivo
mmmh mi sembra sia stato dimostrato... avevano tentato di farmi imparare
anche da chi... ma c'e' stato un Segmentation Fault :-)
ciao,
Dreadnaut

 anche da chi... ma c'e' stato un Segmentation Fault :-)
Caro vecchio windows ce, te lo sei istallato, eh!!

 Caro vecchio windows ce, te lo sei istallato, eh!!
mmmh CE per parlmari ? no, io pensavo Linux ;-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
Newsgroup: it.comp.lang.pascal
Titolo: [OT] Vendo libro

Autori: Stephen K. O'Brien
Titolo: Turbo Pascal 7 - La Guida Completa
Editore: Mcgraw-Hill
Prezzo: 30 Euro
Contattatemi via email a 
igiul....@email.it
--
Luigi

 Prezzo: 30 Euro
Sacrileeeeeegio!!!
MAI (e sottolineo MAI) vendere libri di informatica e matematica!!!

MAI (e sottolineo MAI) vendere libri di informatica e matematica!!!
- Matematica
Dipende, se quei soldi sono destinati a testi migliori. Come faccio io :D
-Informatica
Idem, e se si parla di linguaggi specifici, perchè tenere un libro che non
userò mai, quando con i suoi soldi posso comprarne uno su un linguaggio che
mi interessa? Inoltre, la libreria non va mica a fuoco, quindi posso
ricomprarlo (e magari è uscita la nuova edizione...)
Non conosci nessuno disposto ad acquistarlo?
Ciao
--
Luigi

 MAI (e sottolineo MAI) vendere libri di informatica e matematica!!!
perche'?
forse perche' possono tornare utili?
--
Ciao
Gianfranco Marchese
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

 forse perche' possono tornare utili?
Perchè matematica e informatica (quella seria) vanno a braccetto. E nella
vita di un programmatore credo bisogni conservare tutti i testi originali su
cui si studia... per una questione SENTIMENTALE :°(
Poi fra molti anni rivedrai il libretto delle sup su cui hai studiato il
caro vecchio Pascal.... e sarà come rivedere un vecchio oscar.

caro vecchio Pascal.... e sarà come rivedere un vecchio oscar.
ROTFL!
Luigi

 ROTFL!
Mah.... i giovani di oggi... non ci tengono più al loro passato :)

>Mah.... i giovani di oggi... non ci tengono più al loro passato :)
Guarda che sono dell'82 :)


io comprerei quello sul delphi, ma il prezzo...


>io comprerei quello sul delphi, ma il prezzo...
Tu quanto sei disposto a pagare? Considera che ci sono quasi 10 euro di
spese di spedizione, che, credo, dovremmo pagare metà per uno.
Fammi sapere
--
Luigi

> Guarda che sono dell'82 :)
sigh.. i giovani d'oggi...  :-)
--
Dreadnaut
(Life would be easier if I had the source code)

 sigh.. i giovani d'oggi...  :-)
Così vecchio sei? :))
-- 
Luigi

> Così vecchio sei? :))
quelli della tua eta' all'univ li chiamiamo "i bambini" :-)
no cmq non sono cosi' vecchio, anzi :-)



nn dite cosi' che mi fate sentire una merda :-)))))))))))))))
sono dell'85...



10 euro? pensavo di meno, cmq si puo' fare per 25 euro al max (comprese le
s.p.) devi sempre tenere conto che e' un libro usato e anche nn piu'
recente, ai 35 euro basrta aggiungere poco per avere la nuova versione, no?
cmq fammi sapere, ok?

Newsgroup: it.comp.lang.pascal
Titolo: nomi lunghi

Salve,
vorrei sapere se esiste una unit o qualke metodo per gestire i nomi lunghi
(senza il limite di 8 caratteri) cosě da poter agire su files o cartelle
senza dover ricorrere a  "~1" . grazie
_D A r K _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
ThE DArKNeSS Is JuST DArK
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

google mi ha dato questo :-)
http://www.bookcase.com/library/software/msdos.devel.apps.turbo-pascal.html
alla voce dos70
--
Dreadnaut
(Life would be easier if I had the source code)

Thanks a lot!!


leggendo e scherzando la unit permette anche di cambiare
il titolo della finestra in cui gira il prog, aprire e chiudere
cassetti dei cd (chi e' che lo aveva chiesto ? :-) ), SUBSTing
e soprattutto _sapere quando si vuole chiudere la finestra_
cioe' viene notificata la pressione della X della fin. !!


Usa il freepascal, risolvi anche altri problemi(passi a 32 bit, hai
estensioni sul linguaggio, costrutti come eccezioni e le class di
Delphi(molto + potenti))
Ciao!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

le class di Delphi(molto + potenti))
la potenza e' nulla senza controllo.
:-)))


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

C'è qualcuno che sa se è possibile scrivere dei programmini Pascal per far
eseguire dei
comandi ad un pc (con Windows), come ad esempio eseguire lo ShutDown,
lanciare una connessione di accesso remoto, far eseguire un operazione ad
una determinata ora etc...
Grazie a chi vorrà rispondere.

 una determinata ora etc...
Ti serve un compilatore che ti metta a disposizione l'accesso alle API di
Win32...
Esempio: Borland Delphi (a pagamento), FreePascal (freeware ma molto meno
"comodo"...)
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.pascal
Titolo: Dominio??

Sapete indicarmi qualche sito italiano dove poter prendere un dominio
gratuitamente.
Mille grazie.

 Mille grazie.
Prima di tutto di crei uno spazio web gratuito con tripod o simili. Poi vai su
www.3000.it
 che ti offre gratuitamente un servizio di redirect al tuo sito,
dandoti il nome di dominio che vuoi, per es 
www.nomedominio.3000.it
 o simili.
    ciao
       Marco
-- 
Posted from  [212.171.80.80] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

ho windows xp
che tipo di pascal mi consigliate?
dove posso trovarlo
grazie

 ha scritto nel messaggio
news:4VFU9.1474$YG2....@twister1.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Problema If Then

end.
non ci ho capito + nulla, mi aiutate x favore? Grazie.
Domande: Readln è case sensitive?
gli AND possono essere multipli? ossia possono soddisfare + di due
condizioni?
In che modo potrei legare delle Label con If Then ?
Ri-Grazie.

 In che modo potrei legare delle Label con If Then ?
Readln è case sensitive quindi devi cosiderare tutte le eventualità come
MaRIo roSSi
la cosa migliore da fare è trasformare le stringe lette portando i caratteri
in minuscolo o in maiuscolo
Si AND OR NOT e tutti gli operatori possono essere multipli
Label.... ossia quel goto tu ad estranei.... la programmazione con salti
incondizionati è altamente sconsigliata
cosiderta che il blocco condizionato IF è strutturale e può essere espanso
all'infinito
if condizione then
    blocco codice
else if condizione then
    blocco codice
.....
.....
else
     blocco codice
Consiglio spassionato se sei il JoeBlack che conosco io e quindi sei
inscritto alla Federico II elimina dal tuo bagaglio culturale i goto, break,
exit e tutto ciò che può interrompere il flusso di codice bruscamente,
altrimenti ti linciano
Ciao
ReDiCuori
-- 
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
 sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: assembler a 32bit

salve a tutti
come posso inserire codice assembler a 32bit (usando i vari registri eax,
ebx, ecx, edx ecc. ecc.) in un codice di Turbo Pascal?
si puň fare?
grazie, ciao

si può fare?
Non ne sono sicuro ma l'unico modo per farlo credo sia quello di
costruire un file .OBJ con un assemblater a 32 bit e linkarlo al
codice con la direttiva {$L}, pero' non so se devi anche attivare le
istruzioni estese per sviluppare codice 286/386 con la direttiva
{$G+}.
Puoi sempre provare.
Andrea Laforgia
========================================================================
<Spock>"Capitano, guardare tutto il giorno Goldrake non le fara' male ?"
<Kirk> "Ma cosa dice Spock ! piuttosto si assicuri che i pugni rotanti
        e l'alabarda spaziale siano pronti al lancio".
========================================================================

 Puoi sempre provare.
Esiste anche un altro metodo. Se il codice a 32 bit che devi produrre e'
relativamente corto (funziona anche se e' lungo ma poi il debug sono affari
tuoi) puoi inserirlo direttamente tra le normali righe assembler con
l'istruzione db.  Lo avevo fatto io un volta che avevo bisogno di usare
l'istruzione FSIN o FCOS che mi pare non siano contemplate nell'asm del tp.
Allora ho preso il debug del dos e ho guardato qual era il codice della FSIN
e della FCOS. Il risultato fu una cosa tipo:
...
asm
  push ax
  <varie altre istruzioni assembler>
  db <codice corrispondente a FSIN>
  <altre istruzioni asm>
end;
...
Se pero' il codice che vuoi inserire e' un po' lunghetto credo che fare l'OBJ
sia la cosa piu' saggia.
Ciao
  Roberto.

e della FCOS. Il risultato fu una cosa tipo:
Un'alternativa e' quella del costrutto "inline".
Andrea Laforgia

Newsgroup: it.comp.lang.pascal
Titolo: Guida Turbo Pascal 7.0

Potreste inviarmi una guida con tutti i programmi del Turbo Pascal 7.0,
magari con la spiegazione?
Grazie .
Ciao!

Cerco anch'io una guida con tutti i programmi del Turbo Pascal 7.0, magari
con la spiegazione. Potete inviarmela?
Grazie .
Ciao!

Ciao a tutti ; sono nuovo in questo ng .
Ho intenzione di inparare ad programmare con TP .
Non so' come iniziare , chi mi da una mano?
Grazie mille

 wrote in message
838ko9$r8b$1...@serv1.iunet.it...



wrote:


Newsgroup: it.comp.lang.pascal
Titolo: how can i get this video?

how can I get this video?
--
Posted from 
emout01.mx.aol.com
 [198.81.11.92] via Mailgate Server - 
http://www.mailgate.org

how can I get this video?
if your using Win95 just press ALT+PrntScrn and then open Paint and
press SHIFT+INS

Newsgroup: it.comp.lang.pascal
Titolo: Cifratura a chiave

Questa è la traccia del progetto assegnatomi all'università
Dato l'alfabeto inglese di 26 lettere si fanno corrispondere alle singole
lettere dell'alfabeto in chiaro le stesse lettere ma in ordine diverso.Con
il metodo della sostituzione per chiave si scelgono una o due parole, si
eliminano gli spazi e le letter ripetute e si usa la sequenza di caratteri
così ottenuta facendo seguire all'ultima lettera quelle che nell'alfabeto in
chiaro la seguono ordinatamente escludendo naturalmente quelle già usate.
Es. parola chiave = giulio cesare
a b c d e f g h i j k l m n o p q r s t u v w x y z
g i u l o c e s a r t v w x y z b d f h i j k m n p q
quindi
la frase CRITTOGRAFARE DIVERTE
diventa UDAHHYEGDCGDO LAKODO
Realizzare un sistema di crittografia e decifrazione a chiave
1) si assegni una frase chiave a piacere e si costruisca l'alfabeto secondo
lo schema precedente
2) si legga un testo da un file.txt e lo si codifichi secondo la chiave
prevista, scrivendo il testo cifrato in un file
esterno
3)si mostri il file cifrato
4) assegnato un testo cifrato e la chiave di cifra si decodifichi il testo
scrivendolo in un file esterno e lo si mostri in chiaro
Si scriva un programma che verifichi la correttezza delle procedure
implementate. Il programma data una chiave di cifra ed un testo in chiaro
contenuto in un file.txt produce un testo cifrato lo decodifica e confronta
il testo originale con il testo decodificato e ne verifichi la correttezza.
Finito finalmente!!
Qualcuno petrebbe darmi qualche dritta visto che non riesco a fare niente?Ho
capito come inserire la parola chiave adoperandola come stringa ma poi non
so andare avanti
Grazie
KAIOWASS



 ha scritto nel messaggio
news:ZAm56.248477$hk4.12...@news.infostrada.it...


Guagliù, ma qui c'è tutta l'aula A8 al completo, o sbaglio?! Incredibile, il
proggetto di Burattini perseguita anche i newsgroup, noooooooooo!!!!!!!!!
"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:Gbo56.249698$hk4.12...@news.infostrada.it...


Perche' la mia esercitazione di labo non e' cosi' facile ??
Io devo modificare lo scheduler di un sistema unix in modo che supporti
tre code con priorita' differenti, per processi i/o-bound vs processi
cpu-bound.
boh..
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 ha scritto nel messaggio
news:wqr66.35$i9....@twister2.tin.it...


 wrote in message
ZAm56.248477$hk4.12...@news.infostrada.it...


Io stņ nella A7, con Criscuolo,
Il Proggetto l'ho fatto da un pezzo:
Ti dico solo una cosa:
Array Monodimensionale con indici letterali of char,
fai tu il resto!
ps, se hai problemi su cose specifiche 
ric...@freemail.it
Newsgroup: it.comp.lang.pascal
Titolo: Logaritmo

Ciao a tutti.
Come faccio a immettere un logaritmo in un calcolo con il compilatore?
Cioč devo visualizzare il grafico della funzione 1/(1-log(x-2)), ma tra i
comandi del pascal c'č solo "ln"!!!
E poi: c'č un modo per studiare il modulo?
Ma forse č meglio che imparo ad utilizzare mathematica, vero? :-)
Grazie a tutti,
Daniele.

 usa la funzione ln x disegnarla basta che  alla x gli dai una passo
d'incremento ad es . 0.01 facendola partire da 2+incremento
....
....
x=2.01
for inc=0.01 to N do
begin
      y=1/(1-log(x-2));
      putpixel((y/640)*10,(y/480)*10);
      x=x+inc;
end;
dovrebbe essere sufficiente provala
bye bye

Grazie della risposta, ora provo e vedo!!!


Hai risolto il problema?
Daniele <qwe...@NOSPAMMMMtiscalinet.it> wrote in message
97bi6f$tm4$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Comandi AT su una COM.

Salve, ho un piccolo problema:
devo inviare dei comandi AT ad un modem Robotics collegato sulla COM2; ho
provato inviando degli ECHO reindirizzati sulla porta ma non mi sgancia l'
&D0.
Credo che ciò avvenga perchè in realtà non apro la porta COM con un semplice
ECHO e quindi il modem mi blinda...........
C'e' un modo più ortodosso per mandare dei comandi AT su una COM ??
Grazie.
Alex.


Io ho sempre usato ECHO ma non è che io abbia poi fatto cosi tanto :D
io lo resetavo solo
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: Info lazarus

Cerco informazioni tutorials sul progetto lazarus in ITALIANO .
grazie

 grazie
Vedi un po' qua se c'è
qualcosa che può
interessarti. 
http://linux.bankhacker.com/it/software/Lazarus/
Ciao


E che significa? Leggo sul sito:
Linux  -  Programmandosi  - Lazarus 0,9,0,6
URL: 	
http://www.lazarus.freepascal.org/
Trasferimento dal sistema centrale verso i satelliti: 	mb 23.4: 
http://prdownloads.sourceforge.net/lazarus/lazarus-0.9.0.6-fpc_1.0.11_031022.i386.rpm
Trasferimento dal sistema centrale verso i satelliti: 	mb 5.0: 
http://prdownloads.sourceforge.net/lazarus/lazarus-0.9.0.6-fpc_1.0.11_031022.src.rpm
Autorizzazione: 	Gpl
Dintorni: 	XWindow, GTK, GNOME
Descrizione: 	Il progetto Lazarus, è un insieme dei librerias di codice 
categoria per FreePascal, che emula a Delfi. Un'altra funzione che è 
interessante, è quella sieri Lazarus Api-Independiente, ragione per la 
quale potremo usare 'l'api Widget regolato 'quel voi preferiamo (giunto 
dei bellboys e della funzione), dal momento che questo che è usato per 
il difetto GTK (corredo di attrezzi dell'andatura claudicante), ma 
potete collegarli a altro come lo Gnome-gnome-compliant; avendo Lazarus 
contributo a Gnome ed a KDE.
Ricordiamosi di che singolo il progetto Kylix ha disponibile una 
versione che possiamo verificarsi liberamente, in quanto non possiamo 
vedere la I cosay (fonte aperta), ma Lazarus viene dare un'altra 
alternativa per sviluppare i progetti compatibili noi con Delfi ed il 
filosofia entrante di GNU/Linux. Podra di Lazarus per capire I cosay di 
un progetto con il VCL standard.
È possibile accennare che questo progetto ha luogo nella fase di 
sviluppo, per ottenere un ido funzionale, ragione per la quale non 
possiamo godere ancora programmarsi dentro, anche se quelli che non 
hanno programmato in freepascal, possono cominciare a fare i relativi 
pininos (se capite la sintassi di Pascal, già dei programmi in 
FreePascal) ed il asi per potere sviluppare i nostri progetti per altre 
piattaforme, senza bordi.
Le più informazioni e commenti su Lazarus in 
http://barrapunto.com/article.pl?sid=04/01/05/1210223
Lazarus
 
Dei problemi tecnici, la tribuna non è nel favore disponibile al 
momento. Stiamo lavorando per risolvere questa incidenza. Abbiamo 
deplorato i disturbi, ma presto rinvierà per avere questo servizio, i 
messaggi accumulati non saranno persi e potranno proporre i nuovi 
messaggi. Rinvii per provarlo dentro per un po'. Grazie.
Francesco
Newsgroup: it.comp.lang.pascal
Titolo: Operazioni su matrici.

Sono un semplice studente che si dedica anima e corpo alla programmazione
pascal.... Avrei 2 domande da porre:
1. Qual è l'algoritmop per la trasposizione di una matrice?
2.  Qual è l'algoritmop per il prodotto di due matrici?
Sarei immensamente grato a chiunque fosse in grado di aiutarmi.
Nel caso abbiate già l'algoritmo o il programma fatto non esitate ad
inviarmeli all'indirizzo 
rap...@freemail.it
10^3 grazie!

 Sarei immensamente grato a chiunque fosse in grado di aiutarmi.
Tutte queste cose le trovi su un testo di geometria per l'università.
In ogni caso non esiste un unico algoritmo nè per la 1 nè per la 2 per
il semplice motivo che dipende da come tratti le matrici.
Se le tratti come array o con puntatori o solo celle di memoria ecc...
Nel caso 2) il prodotto si fa righexcolonne : Quindi in una matrice tieni
fissa la posiz. della riga a fai avanzare la colonna e nella seconda tieni
fissa la colonna e fai avanzare la riga.
Nota bene che la moltiplicazione non si può fare sempre ( pensa perchè
... ). Disegnati le matrici e vedrai che non è complicato. Ciao !

Grazie per l'aiuto! Sono riusci a trovare una soluzione abbastanza efficente
per la mia situazione...
Tutto il problema si è generato a causa di una professoressa che ha provato
a spiegare un argomento che non conosceva nemmeno lei. In fin dei conti chi
ci va di mezzo è sempre lo studente...

Newsgroup: it.comp.lang.pascal
Titolo: turbo pascal 5.5 e 6

Cerco turbo pascal 5.5 e 6.

www.borland.com
Mi pare che lo regalano addirittura...
-=Azathoth=-

 wrote in message
hiEs4.5165$IY.4...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Runtime Error 200 e TP 5.5

Qualcuno cortesemente sa dirmi se la versione 5.5 del Turbo Pascal, ossia
quella liberamente scaricabile dal sito Borland, è affetta dallo stesso baco
citato in oggetto che affligge il TP 7?
Altra domanda: a costo di suonare ridicolo, visto che il DOS pare ormai cosa
veramente da museo (anche se il progetto FreeDOS sembrerebbe indicare il
contrario!) il TP 5.5 è utilizzabile per realizzare applicazioni
commerciali?
Grazie a chiunque saprà darmi utili indicazioni. Bye.
Alex
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 commerciali?
Certamente con tutte le limitazioni che il TP5 impone
Ps. a livello industriale il Dos è utilizzatissimo
--
Ciao,
David

 David
Ti ringrazio molto per la disponibilità, ciao!


Certamente. L'errore si verifica con processori pentium e, se non ricordo male, l'unica patch disponibile è per TP7
A me sembrava che il TP55 non avesse il bug, anche se l'uso della
Delay su processori veloci dava temporizzazioni inaffidabili, in
sostanza l'inizializzazione dell'unita' base di tempo dava un overflow
anziche' una divisione per zero come nel TP7.
Tra l'altro ci sono fondamentalmente due patch per il TP7:
- tppatch, consigliata dalla Borland, da applicarsi direttamente
sull'eseguibile del compilato e utile se non si dispone dei sorgenti,
ma anche in questo caso la Delay sballa, quindi e' consigliabile se e'
inclusa la unit Crt ma non si usa la Delay;
- t7tplfix, che si applica sulla turbo.tpl, va bene anche sulla
versione 7.01, da' una Delay precisa, ma necessita dei sorgenti per
poter ricompilare il programma.
-- 
Omega e' omega e basta

>E' quello che temevo... :(
IIRC esistono anche delle patch per le versioni precedenti TP/BP 7. Se 
funzionino però con i processori odierni non lo so, dipende come hanno 
modificato il codice per il calcolo del ritardo.
Puoi cercarle su Google o altri motori di ricerca.
Il codice che genera l'errore è nella unit CRT, se non la usi l'errore 
non dovrebbe apparire, e scrivere una unit con le stesse funzioni non è 
difficile (ce n'erano anche di alternative in giro).
Se usi una CRT alternativa può essere comodo eliminare la CRT da 
TURBO.TPL usando TPUMOVER.EXE.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.pascal
Titolo: [OT] mooolto OT (il mio sito)

Ciao vi segnalo il mio sito .
So che è una carognata ma ci tengo molto.
http://www.programmare.vai.li

 
http://www.programmare.vai.li
Fortunatamente il tuo sito tratta anche il Pascal.
Io faccio parte del team che lavora per il sito.
sono molto severo e pignolo a dare i voti ai siti!
Il tuo sito,essendo una pagina personale,rientra nelle valutazioni di tipo
"oggettivo" quindi il primo voto è per il sito in generale:
- generale: 6/7
Ora veniamo alle dolenti note;facciamo il rapporto tra il tuo sito e l'idea
che abbiamo noi del sito ufficiale del newsgroup:
usando termini di Pascal verrebbe una specie di "division by zero" quindi
eccoti il secondo voto:
- come sito del newgroup: 5 1/2
Comunque ci serve gente che aiuti nella parte "contenutistica"
ci vediamo in #TurboPascal in IRC!
byezZzZ



Ok grazie mille per il tuo giudizio , appena posso ci vediamo in IRC .
Cmq se avete bisogno scrivetemi pure.
Ciao carmageddon1.
carmag...@iol.it

Newsgroup: it.comp.lang.pascal
Titolo: devo convertire un progr. da Pascal a VBA

Come si procede???
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:212Z171Z216Z21Y...@usenet.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Cerco Manuale Tp 7

Salve a tutti sto cercando un  su Manuale Tp 7 qualcuno sa dirmi dove posso
trovarlo?
Grazie

 qualcuno sa dirmi dove posso trovarlo?
 
 Quando ho comprato il tp6 mi hanno dato 6 libri
 insieme al compilatore...
Newsgroup: it.comp.lang.pascal
Titolo: Cerco gentilmente qualcuno che sappia risolvere questo esercizio

Grazie comunque.
program Somma_Per_Livelli ;
type PNodoAlbero = ^TNodoAlbero ;
     TNodoAlbero = record
                     Num          : integer ;
                     NodoSinistro : PNodoAlbero ;
                     NodoDestro   : PNodoAlbero ;
                   end ;
var MioAlbero : PNodoAlbero ;
     procedure InserisciInAlbero( var Radice : PNodoAlbero ; 
                                      N : integer) ;
     begin
       if ( Radice = NIL ) then
       begin
         new( Radice ) ;
         Radice^.NodoSinistro := NIL ;
         Radice^.NodoDestro := NIL ;
         Radice^.Num := N ;
       end
       else
       if ( N < Radice^.Num ) then
          InserisciInAlbero( Radice^.NodoSinistro, N )
       else
          InserisciInAlbero( Radice^.NodoDestro, N ) ;
     end ;
     function Pesata( T : PNodoAlbero ; L : integer ) : integer ;
     begin
       if ( T <> NIL ) then
         Pesata := T^.Num * L + Pesata( T^.NodoSinistro, L+1 ) +
                                Pesata( T^.NodoDestro, L+1 )
       else
         Pesata := 0 ;
     end ;
     function SommaPesataNodi( T : PNodoAlbero ) : integer ;
     begin
       SommaPesataNodi := Pesata( T, 0 ) ;
     end ;
begin
  MioAlbero := NIL ;
  InserisciInAlbero( MioAlbero, 10 ) ;
  InserisciInAlbero( MioAlbero, 5 ) ;
  InserisciInAlbero( MioAlbero, 15 ) ;
  InserisciInAlbero( MioAlbero, 2 ) ;
  InserisciInAlbero( MioAlbero, 1 ) ;
  InserisciInAlbero( MioAlbero, 3 ) ;
  writeln( SommaPesataNodi( MioAlbero ) ) ;
end.

Function PesoNodi( Var Nodo : tipoalbero;
                                            Var Livello : Integer ) :
Integer;
Begin
  If Nodo <> Nil
        Then Begin
            Inc ( Livello );
            PesoNodi := Nodo^.Dato * Livello +
                                    PesoNodi ( Nodo^.Sx ) * Livello +
                                    PesoNodi ( Nodo^.Dx ) * Livello;
            Dec ( Livello );
        End;
End;
PS : Livello devi passarglielo inizializzalizzato a -1

Correzione
Function PesoNodi( Var Nodo : tipoalbero;
                                            Var Livello : Integer ) :
Integer;
Begin
  If Nodo <> Nil
        Then Begin
            Inc ( Livello );
            PesoNodi := Nodo^.Dato * Livello +
                                    PesoNodi ( Nodo^.Sx, Livello ) * Livello
+
                                    PesoNodi ( Nodo^.Dx, Livello ) *
Livello;
            Dec ( Livello );
        End;
End;
PS : Livello devi passarglielo inizializzalizzato a -1
Mi ero scordato di passare alla funzione Livello
Bye