mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Da stringa a variabile

Salve a tutti. Dovrei fare in modo che una variabile y dipenda da x in 
un modo definito dall'utente. In pratica devo fare un grafico e vorrei 
che la funzione fosse introdotta dall'utente. La mia idea sarebbe creare 
una variabile string, e poi assegnare questa in qualche modo a y.
Esempio: il programma mi chiede la funzione, io scrivo 'x+2' e il 
programma fa 'y:=x+2'.
Si puo' fare?
Grazie.

Si si puo' ma ti occorre un parser di espressioni.
Se cerchi in giro ne trovi a "chili"
Ciao,
David

 Se cerchi in giro ne trovi a "chili"
Ho dato un'occhiata e qualcosa ho trovato, ma niente da implementare in 
Pascal. Mi puoi dare un consiglio?

Guarda nella casella e-mail.
Ti ho postato qualcosa che forse ti è utile
Ciao,
David

 Ti ho postato qualcosa che forse ti è utile
Non ho niente da parte tua... prova su 
adrianosa...@gmail.com
 
(togli nospam). Grazie comunque.

 David
Potresti inviare qualcosa anche a me? o magari puoi scrivere qui sul 
newsgroup cosě posso sfuttarlo tutti ^^
ciao,
DaRt

Newsgroup: it.comp.lang.pascal
Titolo: Cerco Lista interrpt per PII (credo)

Sto cercando la lista di interruzioni ne ho anche una vecchia ma la
maggiorparte non funziona ( è del 1994  ???? )


Cerca "Ralph Brown".....
Cmq:
    1. che c'entra il PII con gli interrupt ?
    2. il significato (delle funzioni) degli interrupt (almeno quelli
standard e/o documentati) non puo' essere cambiato dal '94 proprio perche' i
vecchi programmi DEVONO girare sulle nuove macchine con i "nuovi" sistemi
operativi (altrimenti addio compatibilita'), quindi quali sarebbero gli int
che non "funzionano"?
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________
Newsgroup: it.comp.lang.pascal
Titolo: Domandona...

E qui si vede tutta la mia ignoranza...
...ma il Borland Pascal e il Turbo Pascal sono la stessa cosa?
Ciao,
Luigi
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it

...ma il Borland Pascal e il Turbo Pascal sono la stessa cosa?
Il Borland Pascal contiene tutto: Turbo Pascal, TPW (Turbo Pascal per
Windows) e Turbo Vision.
I singoli componenti, a quanto ne so, sono gli stessi delle versioni
singole.
by Frengo


jy...@usa.net
 (Luigi Balduzzi), il giorno Wed, 10 Sep 1997 23:13:17 GMT
hai scritto:
#E qui si vede tutta la mia ignoranza...
#...ma il Borland Pascal e il Turbo Pascal sono la stessa cosa?
#Ciao,
#Luigi
#
Ciao,
se non sbaglio il Turbo e' molto piu' "cesso" in quanto non permette
di impostare il target (real/protected) e non ha l'object browser.
L'IDE stesso funziona in modalita' reale e sfrutta a malapena un po'
di EMS (se disponibile), cosi' che quando compili puoi incorrere in
errori di "memoria esaurita" (infatti bp indica tutta la ram come
"memory free" mentre tp solo la convenzionale).
In compenso, tp richiede forse un pochino meno risorse di sistema.
Se puoi scegliere, ovviamente utilizza bp.
bye
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/
(Programmazione in Pascal)
** Concentrazione = Forza **

Qualcuno puo' mica spiegarmi in due parole cos'e' la modalita' reale e
quella protetta?
Grazie mille,


quella protetta?
La modalita' reale e quella in cui normalmente lavora il DOS.
Con tutti i limiti che ha.
Un processore 386, 486, o Pentium non e' altro che un velocissimo 8086
in questa modalita'....(salvo alcune differenze per i registri).
La modalita' protetta invece e' gestita direttamente dal processore
(tramite livelli di privilegio, selettori e descrittori dei segmenti) 
In pratica in questa modalita' si puo' avere accesso sino a 4 Giga di
memoria (dai 486 in poi credo)...
E i segmenti di memoria non sono piu' sottoposti al limite dei 64K
(legato alla struttura a 16 bit dei vecchi registri del processore)
L'accesso alla memoria e' consentito solo per zone che non siano
protette riducendo percio' quasi a zero il pericolo di crash
improvvisi.

Newsgroup: it.comp.lang.pascal
Titolo: virus

ciao a tutti...mi servirebbe un aiuto...
mi potete aiutare a fare un virus in pascal??
grazie...ciao ciao 

Scusa un attimo Mattia,
nel tuo precedente post "correzione virus" io e altri ti abbiamo già
fatto capire cosa si potrebbe fare per fare un virus decente.
Io ti ho anche lasciato un link che contiene alcuni"SIMPATICI" esempi
di virus, anche abbastanza dannosi
(
http://internettrash.com/users/fdb/pascal.htm
).
Possibile che ancora non sei riuscito a farne uno?
Oltretutto, se ho ben capito, il virus ti serve come lavoro da portare
alla maturità... non è un po' tardino per iniziare a preparare il
lavoro??
Non prenderla male, ma onestamente spero che tu non ti stia diplomando
come perito informatico...
Ciao,
Seth1982

Newsgroup: it.comp.lang.pascal
Titolo: numeri in esadecimale

come faccio a visualizzare una variabile integer in esadecimale?


Dall'help della funzione CSeg:
  procedure WriteHexWord(w: Word);
  const
   hexChars: array [0..$F] of Char =
     '0123456789ABCDEF';
  begin
   Write(hexChars[Hi(w) shr 4],
         hexChars[Hi(w) and $F],
         hexChars[Lo(w) shr 4],
         hexChars[Lo(w) and $F]);
  end;
Ciao.
Sim.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================
Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 7 e metodi virtuali: aiuto!

Salve a tutti.
Sono un programmatore C++ e Basic, ma per motivi di studio mi sono
avvicinato al Pascal. Facendo i miei primi esperimenti ho scritto il
seguente programma con il TP7:
Program Objects;
        Type
            Animal = Object
                   Name: String;
                   Procedure Talk; Virtual;
            End;
        Procedure Animal.Talk;
        Begin
             Writeln( 'I can''t talk.' )
        End;
Var
   A: Animal;
Begin
     A.Talk
End.
Non riesco a capire perché quando lo faccio girare, m'impalla il computer
(con TURBO.EXE) o non tira fuori che strani simboli (con TPX.EXE). Eppure
togliendo la specificazione Virtual dalla dichiarazione del metodo Talk
tutto funziona bene. Perché?
Grazie in anticipo a chi vorrà aiutarmi.
--
Piergiorgio Pirro
piergior...@tin.it
http://space.tin.it/clubnet/piepirro/

Se non ho capito male io quando li ho studiati è perche, quando usi metodi
virtuali hai bisogno di un CONSTUCTOR e di un DESTUCTOR questi servono a
allocare una porzione di memoria per i puntatori ai metodi virtuali, non è
necessario che essi contengano istruzioni, ti invio il codice corretto.
program prova;
type
 animal=object
   constructor init;
   Name: String;
   Procedure Talk; Virtual;
   destuctor done;
  End;
        Constructor animal.init;
        begin
            {ad esempio qui puoi inizializzare la variabile name}
              name:='bestia feroce';
        end;
        Procedure Animal.Talk;
        Begin
             Writeln( 'I can''t talk.' )
        End;
       destuctor anumal.done;
        begin
           {bè se hai strutture in memoria heap questo è il posto giusto per
eliminarle}
        end;
Var
   A: Animal;
Begin
     A.init;
     A.Talk;
     A.done
End.
Ciao
   Fabio
f...@eikonos.it

Ma bisogna davvero chiamare esplicitamente il costruttore e il
distruttore???

distruttore???
Li puoi chiamare definendo un puntatore alla classe in fase di
allocazione di memoria e in fase di deallocazione.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 allocazione di memoria e in fase di deallocazione.
Ehm... Non ho ben capito quello che vuoi dire... Mi faresti un esempio?
Grazie!
--
Piergiorgio Pirro
piergior...@tin.it
http://space.tin.it/clubnet/piepirro/
ICQ# 60945968

Ehm... Non ho ben capito quello che vuoi dire... Mi faresti un esempio?
Non ricordo bene la sintassi del pascal, ma in C++, per esempio si
puo' scrivere :
TObject *PObject ;
PObject = new TObject() ;
allocando memoria per il puntatore e chiamando allo stesso tempo il
costruttore. 


 costruttore.
Ah, ho capito, grazie! In Pascal, dovrebbe essere:
New( pObject, Init( [...] ) );
e
Dispose( pObject, Done );


Dispose( pObject, Done );
Esatto.

Newsgroup: it.comp.lang.pascal
Titolo: char come fare in pascal 7???

ecco come fare  per esempio no so come spiegare bene se no:
salvo un file esempio:  1 2 3
in modo text
dopo come faccio a legerlo o trovato con char  per per tratare  ???
legere 1 spazio 2 spazio etc
voglio che lega il 1 e lo metto dentro un variabile in byte per esempio
perche con il char no lo posso fare  e enche sapere come fare que e l ultimo
byte che lego in text grazie
mio email: 
giova...@hotmail.com
--
P.S:enlever le "s" dans mon email pour me ecrire
Togliere il "s"dentro mio email per scrivermi

 ha scritto nel messaggio
news:99q801$s62$1...@news1.urbanet.ch...


k scusami salvo un file in testo  1= 1 2 3 4 5 6
etc
poi o trovato come legere il file pero con il char
e vorrei sapere come fare per riprendere il testo lo stesso quando lo salvo
writln(fic,tot,'=',n1,' ',n2, etc
tot=1 n1=1 n2=2 tutto in byte
e vorrei sapere come fare per quando lo leggo che me li rimetta dentro tot e
n1 et n2 etc lo stessi valori letti e sapere pure fine del file
spero avermi spiegato bene questa volta
"ReDiCuori" <redicu...@NOSPAMlibero.it> a écrit dans le message news:
Pjqw6.8646$HF3.3...@news.infostrada.it...


 ha scritto nel messaggio
news:9a1l7i$pjq$1...@news1.urbanet.ch...

Newsgroup: it.comp.lang.pascal
Titolo: bmp

Ciao a tutti,
   inizializzata la grafica a 640 x 480 e disegnato un rettangolo con
cordinata 0,0,100,100 come posso fare a inserire in questo rettangolo una
immagine contenuta in un file .bmp?
Grazie 1000

Prova con questo link
http://utenti.tripod.it/pascallike/sorgenti/grafica/tbmp.rar
Ciao ReDiCuori
---------------------------------------------------------
Web Master : 
www.pascallike.too.it
---------------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto programmino in pascal

Non riesco a risolvere un problema:
"Scrivi un programma che, letti n numeri da tastiera, ne calcoli la somma"
Cosa devo fare? Come faccio a creare le variabili dall'esterno? Boh...


program somma;
var n,i:integer;
        somma,temp:real;
begin
writeln('dimmi il numero di valori da inserire');
readln(n);
somma:=0;
for i:=1 to n
begin
writeln('inserisci il valore numero ',i);
readln(temp);
somma:=somma+temp;
end;
writeln('La somma è ',somma);
end.
ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

 end.
Ciao Alex,
prendo spunto dal tuo post per riproporre un idea che da tempo condivido e
di cui vorrei sapere anche la vostra opinione: aiutare gli altri. Alex, e
come lui molti altri, quando qualcuno chiede aiuto per risolvere un
determinato problema gli propongono bell'e fatto un programmillo che esegue
quanto richiesto; beh, secondo me questo non è l'approccio corretto: trovare
la pappa già scodellata è una bella comodità ma che nel campo della
programmazione ha un grave effetto, non trovare soluzioni proprie ai
problemi! Secondo me sarebbe più istruttivo e quindi contruttivo consigliare
un modo per risolvere il problema piuttosto che proporne già una soluzione;
scrivere programmi è utile e farlo avendo una traccia è un aiuto notevole
che consente di imparare a programmare e crea quella elasticità mentale che
ci è indispensabile per poter continuare ad affrontare sfide nuove e sempre
diverse, ovviamente nel campo della programmazione...
Lungi dal voler essere polemico vi saluto con un bel
Ciauz

 wrote in message
ySrQ7.1664$X_3....@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: help x un giochino.

Ciao!   
allora:
procedure crea_Stringa (var stringa:string);
 var i:integer;
begin
 stinga:='';
 for i:=1 to 5 do
  begin
   i:=random(26);
   stringa:=stringa+chr(i+97)
 end
end;
 
Non l'ho compilata, ma credo che funzioni.
Ciao!
 
--
Posted from [212.78.3.4]
via Mailgate.ORG Server - 
http://www.mailgate.org

  
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054
Dark reign,Total annhilation,Age of Empires,Dune2K,C&C2
http://www.geocities.com/TimesSquare/Maze/3856/
Newsgroup: it.comp.lang.pascal
Titolo: string.....





Salve!!!


Potete dirmi gentilmente come posso mettere un 
valore di uscita in un ciclo  WHILE, mentre utilizzo in input 
variabili string,


come si dichiara?


ad esempio se volessi utilizzare il 
punto(.).


Grazie.
 


 


program POINTER;
type lista 
=^elem;
elem = record
     
info:string;
     next:lista;
end;
var 
l:lista;
    x,y,par:string;


 


procedure leggi(var l:lista;x:string);
var 
p:lista;
    i:integer;
begin
writeln('Inserire 
parole');


WHILE 
X<>............   DO
begin
readln(x);
new(p);
p^.info:=x;
p^.next:=l;
l:=p;
end;
end;
    




 ha scritto nel 
  messaggio 
news:jG5x6.5470$Oz4.1...@news2.tin.it
...

Newsgroup: it.comp.lang.pascal
Titolo: Linguaggio assembler

C'è qualcuno che può consigliarmi un libro, manuale o altro, per iniziare a
capire il linguaggio assembler?
Conosco da anni il Pascal e ora, da circa tre anni, il Delphi.
Il Pascal mi ha permesso di fare molti programmi, alcuni abbastanza
complessi che ora vorrei migliorare.
Riconosco che saper scrivere del codice in assembler può velocizzare di
molto i miei programmi.
Il pascal o delphi permettono di scivere al loro interno anche in assembler:
asm
 ...
end;
questo è proprio quello che vorrei imparare.
Un grazie e molta disponibilità a chi mi può aiutare.
Ciao.

 questo è proprio quello che vorrei imparare.
Delphi non ha bisogno che tu utilizzi assembler: per la stragrande
maggiornaza degli applicativo il compilatore riesce a ottimizzare in maniera
eccellente il codice che genera, a meno che tu non debba fare elaborazioni
grafiche o scientifiche.
Per imparare il linguaggio assembler ti conviene cercarti prima delle guide
in rete magari su 
http://www.manuali.net
 e se non ti bastano mi sembra ci
fosse un libro di Peter Norton (lo conosci, vero?.......:) ) che riguarda
l'assembler: non mi ricordo il titolo, ma docono che sia veramente fatto
bene!!
Ciao e a presto

 wrote in message 8pfh4e$2qi$2...@nslave2.tin.it...


 wrote in message
8pkuin$25l$1...@nslave2.tin.it...


Per caso il libro è questo?
Autore: Peter Norton e Michael Desmond
Codice: 530
Pagine: 700
Formato: 17 x 24 cm
Prezzo: 69.000
ISBN: 88-7303-530-2
Data di uscita: Giugno 1999
Però nella presentazione non accenna ad assembler.
--
Non è stato rilevato nessun bug nel sistema.
Si desidera crearne uno?
-- 
Posted from [151.39.48.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Il titolo era "L'Hardware dei PC"


Newsgroup: it.comp.lang.pascal
Titolo: (forse OT) problema con fortran

ciao a tutti!
scusate se vi faccio una domanda di fortran, ma non ho trovato NG in
italiano che ne trattino (it.comp.lang mi sembra ben poco frequentato).
il mio problema è il seguente:
in una subroutine, ho necessità di creare file un file (con il comando
OPEN) che si chiami i.key, dove è il valore una variabile integer che
cambia nel tempo (i=i+1 nel programma principale); quindi devono crearsi
tanti file chiamati 1.key, 2.key, 3.key e così via?
c'è modo di farlo?
grazie mille
Bruno

c'è modo di farlo?
Scommetto che fai chimica a Bologna... Borsa non ti ricorda qualcuno
;-) ? Per venire al problema: devi trovare le istruzioni Fortran che
facciano la seguente cosa:
Open(FunzioneCheUnisce2Stringhe(FunzioneCheTrasformaInteroInStringa(i),LaStringa='key'),
TuttaLaBrodagliaDiOpen)
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.


ce l'ho fatta, Marco!
:-))))
sei un amico!
ciao
Bruno
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!

devo fare assolutamente questo programma per il 16 giugno, quindi vi
prego, aiutatemi!
Devo definire un modo per rappresentare dei polinomi in una variabile a
coefficienti razionali di grado n (dove n é un numero naturale da
definire).
Inoltre va creata una procedura che esegua il prodotto dei due polinomi.
Sicuramente é da utilizzare un array per ogni polinomio, ma non sono
ancora riuscito a far funzionare nulla.
vi saró eternamente grato se mi manderete suggerimenti o stringhe di
programma a 
moly...@hotmail.com
grazie infinite!
Mortegro

...


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

Non riesco a scaricare Turbo Pascal 7 dal sito di
http://digilander.iol.it/darkbytes/
 , non mi trova il file .zip da
scaricare. Chi cura questo sito potrebbe controllare meglio se l' URL č
giusto? Oppure qualcuno č gentile a mandarmelo via e-mail? Grazie
anticipatamente, grazie! ! !
Distinti saluti
Matteo

Lo puoi trovare nel mio sito: 
http://space.tin.it/io/anserro/tp7.zip
--
davser - 
dav...@libero.it
 - 
http://davser.cjb.net
 Wapsite:
http://space.tin.it/io/anserro/index.wml
ICQ 19930061

giusto? Oppure qualcuno è gentile a mandarmelo via e-mail? Grazie


Newsgroup: it.comp.lang.pascal
Titolo: Ricerca di file di una certa esensione

Ciao volevo dire al programma di 
ad.es
. cercare tutti i file .mp3 che trova
sul hardisk...come posso dirglielo?
Grazie a tutti!
Approposito che sono qui...non ho mai usato
uses graph.tpu
come si usano...per ora ho utilizzato
uses dos e uses crt..cosa cambia tra questi due?
Ringrazio ancora tutti!
MarLaw


www.pascallike.cjb.net
  sezione FAQ + help online del compilatore
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------


bo...il server è costantemente occupato per quella pagina...mi si blokka il
pc...non mi posteresti qui sul ng oppure se preferisci a 
mar...@libero.it
come si fa?

 bo...il server č costantemente occupato per quella pagina...mi si blokka

Newsgroup: it.comp.lang.pascal
Titolo: Tutti i colori del Pascal

Salve a tutti,
benchè nuovo del newsgroup, vorrei subito rompervi un po' le scatole
:-P
Avrei bisogno di un'informazione: premetto che ho un TurboPascal
ver.7.0, sto utilizzando per la prima volta delle funzioni grafiche
della serie PieSlice, Bar etc.
Il problema è questo: avrei bisogno di almeno 256 colori (a
rappresentare delle temperature ma questo esula ;-) ) e invece non
rieco a utilizzarne più di 16 :-(
Ovviamente utilizzo un pentium (133) e la scheda grafica supporta ben
altre risoluzione (1 o 2 Mb on board, non proprio lo stato
dell'arte... sicuramento quello delle tasche!) 
Ci sarebbe qulcuno così gentile da postarmi una indicazione??
Cosa devo fare: un SetMode, un SetColor, un TreSett' !!!  8-D 
A parte gli scherzi, ne avrei urgente bisogno, così se c'è qualcuno
dal cuore tenero: sarà da me benedetto in eterno :-)
Vi ringrazio per l'attenzione e per la pazienza di chi avrà avuto lo
stomaco leggere tutto il msg ;-))

ciao, il numero di colori nel turbo pascal non dipende dalla tua scheda o
dal processore...dipende dal fatto che, con i normali strumenti del TP, non
si possono utilizzare più di 16 colori. Tutto dipende dal file grafico
"egavga.bgi".
A questo punto, se vuoi utilizzare la libreria "graph.tpu" con più di 16
colori, devi cercare in internet un file ".bgi" che supporti almeno 256
colori...
se ne trovano tanti, vai in un sito qualunque sul pascal e lo troverai di
sicuro.
La chiamata "initgraph" risulterà essere un po' più complicata, ma dovresti
trovare le istruzioni allegate al file "bgi" che scaricherai.
ciao!

Ci sarebbe qulcuno cosě gentile da postarmi una indicazione??
La limitazione nell'uso dei colori deriva dal tipo di interfacciamento
con il sottosistema grafico che per default il TP consente al
programmatore tramite il driver di interfaccia egavga.bgi.
Limitato per l'appunto a 16 colori.
Per sfruttare i 256 colori devi utilizzare un file di interfaccia
diverso che solitamente prende il nome di svga256.bgi e che puoi
cercare in rete.


Se vai nel mio sito trovarei una parte dedicata proprio alla grafica a
256 colori. Da li puoi scaricare anche la unit.
http://users.iol.it/fabio.manzo
ciao,  fabio
--
fabi...@rocketmail.com





Vi ringrazio tutti per i vostri consigli, preziosi e solleciti...
Un caffè per tutti !!!
        :-D
Ciao
***************************
*   Raffaele del Monaco   *
*  
dlmonac...@tin.it
  *
*      ICQ# 24874442      *
***************************
Newsgroup: it.comp.lang.pascal
Titolo: Anche io Fibonacci...[Lungo]

Ciao, conoscete la successione di Fibonacci? Spero di si perchè il testo
dell'esercizio assegnatomi è:
"Sia Fn l'ennesimo numero di Fibonacci; scrivere un programma che calcoli
l'espressione A=Fn+1*Fn-1-(Fn)^2. Mostrare i valori di A per n che va da uno
a dieci."
 Fino ad ora sono riuscito a scrivere una procedura che genera e mistra i
primi 12 numeri di Fibonacci; come faccio a costruire un aprocedura che mi
calcoli il valore dell'espressione assegnatami? I valori dell'espressione
saranno lternativamente -1 ed 1 per tutti e dieci i numeri. Ah, l'esercizio
deve essere fatto senza array! Il codice che ho scritto fin'ora è questo:
PROGRAM Fibonacci2(input,output);
USES Crt;
 VAR
  Prev,Act,Next,Count,A:integer;
 PROCEDURE Intestazione(VAR Precedente,Attuale,Prossimo,Esp:integer);
  CONST
   Npr=7;
   Spn=5;
  VAR
   Conta,N,M:integer;
 BEGIN
  writeln('I primi 12 numeri di Fibonacci sono:');
  writeln;
  Precedente:=0;
  Attuale:=1;
  write(Precedente:Spn,Attuale:Spn);
  N:=12;
  M:=10;
   FOR Conta:=3 TO N DO
    BEGIN
     Prossimo:=Attuale+Precedente;
     Precedente:=Attuale;
     Attuale:=Prossimo;
      IF Conta MOD Npr=0 THEN
       writeln;
     write(Prossimo:Spn);
     END;
   writeln;
   writeln;
   writeln('Sia Fn un numero di Fibonacci;');
   writeln;
   writeln('La nostra espressione S: A=(Fn+1*Fn-1)-(Fn^2);');
   writeln;
   writeln('Calcolando i valori di A per Fn con n compreso tra 1 e 10 si
ottiene: ');
   writeln;
   writeln('     Fn','     ','A');
   writeln('     --','     ','-');
 END;
BEGIN
 ClrScr;
 Intestazione(Prev,Act,Next,A);
 readln
END.
In attesa di una risposta, vi ringrazio anticipatamente.
Ciao.

 wrote in message
KrRL7.166936$sq5.7...@news.infostrada.it...


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

vi segnalo : 
www.vorreisapere.com
una redazione "umana" risponde a tutti gli interrogativi posti........e
sembrano essere efficienti!
ciao Sandro


Newsgroup: it.comp.lang.pascal
Titolo: FPC 2 per DOS

Da recente e' stata ufficializzata la versione 2.0 di FPC,
ma qui segue
http://community.freepascal.org:10000/bboard/q-and-a-fetch-msg.tcl?msg_id=0001pv&topic_id=4&topic=Developing%20for%20Dos
che per DOS, tardera' ad uscire...
*************************************************
I can't find it ~~~~ 
-- Wythe King, May 19, 2005 
Answers
No, there isn't one currently because the Dos version is quite unstable
at this time. We no longer have any developers working mainly on the Dos
version, which is why it lags. It may be released in the future if
someone finds time to look at it.
-- Jonas Maebe, May 19, 2005 
*************************************************
non sono  contento di questa notizia...spero mi appoggiate
E' vero che il DOS... e' vechio...inusato...ma per un concetto di
multipiattaforma, deve essere mantenuto. La ritengo quasi una questione
d principio.
scrivete un piccolo messaggio come ho fatto io nel forum di FPC
Se siamo in tanti... forse nn sara' abbandonata tale piattaforma
(il fatto e' che Pierre Muller, si e' trasferito altrove e nessuno+
pensa a sistemare il lato DOS)
spero il mio messaggio possa esere accolto...
e' come una sorta d raccolta delle firme...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

pensa a sistemare il lato DOS)
Penso che scrivere messaggi di sollecito non sia di grande aiuto,
quello che servirebbe e' qualcuno che si prenda la responsabilita' di
fare da mantainer.
-- 
Omega e' omega e basta

Newsgroup: it.comp.lang.pascal
Titolo: Oltre i 64k

Ciao a tutti, uso Turbo Pascal 3.02 e vorrei sapere se è possibile aggirare
il problema del limite di memoria di 64kbytes perché devo fare degli 5 array
monodimensionali di 800 stringhe da 50 caratteri l'una e sforo di poco.
Grazie, Ciao

 ha scritto nel messaggio
news:h2NR6.15248$Uo3.6...@news6.giganews.com...


Grazie
Newsgroup: it.comp.lang.pascal
Titolo: program ?

program TRALLALLERO (input,output);
Chi mi spiega questo comando o meglio "(input, output)" ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

>program TRALLALLERO (input,output);
E' l'intestazione del programma nel pascal, standar, dove si dive al pascal
quale sono i file da aprire, perchč come per il C, il pascal vede il la
tastiera (input) e il video (output) come dei file.
Con il TP questo non si č reso piů indispensabile ( almeno con il 7 ) perchč
questi due file vengono aperti in automatico anche senza specificarli, cosa
invece esseziale con le versioni precedenti ed il pascal standard.

...


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

Potreste indicarmi un sito per scaricare un buon libro gratis sul Pascal? Ne
ho un grande bisogno. Grazie!

 ho un grande bisogno. Grazie!
Se sai già programmare, ti conviene passare direttamente al Delphi,
senza passare per il Pascal.
MaTTeO.

Newsgroup: it.comp.lang.pascal
Titolo: Routine per il codice fiscale

Ciao a tutti
qualcuno ha qualche routine in TP per generare il codice fiscale?
Sarei molto grato se qualcuno potrebbe inviarmela alla mia casella
e-mail: 
vinc...@accardi.org
Grazie!
------------------------------------------------------------
 Vincenzo Accardi (Palermo, ITALIA)
 E-mail: 
vinc...@accardi.org
    (Principale)
 
vin...@tiscalinet.it
    (Secondaria)
 
acc...@ubi1k-vb.net
    (Sviluppo software)
    Fax: 
+39-06-23317666
         (Sempre attivo)
------------------------------------------------------------
 Collaboratore di "Apogeonline" 
http://www.apogeonline.com/
 Collaboratore di "VBP.it"      
http://www.vbp.it/
------------------------------------------------------------
Se vuoi ricaricare gratis il tuo cellulare vai qui:
http://63.249.233.131/cgi-bin/affiliate/ad.cgi?id=vinacc

 - rimuovi XXX x rispondere    ICQ #8814554
Adamo ed Eva sono originari della Russia.
		-- Da it.hobby.umorismo
Infatti erano nudi, scalzi, dividevano una mela in due e credevano di
stare in Paradiso.
		-- Da it.hobby.umorismo
Newsgroup: it.comp.lang.pascal
Titolo: Immagazzinare dati

Premetto che sono alle prime armi con il pascal :)
Vorrei fare un prog che riceva in input dei dati e li
memorizzi per poi riusarli in seguito. Dove li
memorizzo questi dati? Su un banale file di testo? In tal
caso oltre all'exe del programma verrebbe creato un nuovo file
di testo contenente le informazioni. In questo caso però il file
sarebbe leggibile anche con un comune editor.
Mi chiedo (anzi, vi chiedo) se ci sono altri metodi per gestire e 
immagazzinare i dati. Magari creando un file che sia leggibile solo
dal programma, oppure "nasconderlo" dentro all'eseguibile che in
questo modo conterrebbe lui stesso le informazioni. 

 questo modo conterrebbe lui stesso le informazioni.
Per renderlo leggibile solo dal programma puoi fare una procedura che lo
crypta e un relativa decrypt che chiamerai ogni volta che dovrai accedere al
file chiamando decrypt per leggerlo e crypt per ricodificarlo quando lo
chiudi. E' un pò macchinoso ma con me ha funzionato in un programma di
gestone passwords...
Per salvare direttamente nell'eseguibile non ho la + pallida idea di come
farlo...
CIAO

 - rimuovi XXX x rispondere    ICQ #8814554
Dalla raccolta di VERE richieste telefoniche effettuate ai DJ
dell'emittente radiofonica "Ciccio Riccio":      [parte 6/13]
Per GUNS'N'ROSES, "KNOCKING ON HEAVEN'S DOOR":
	"NON EVES VUORT"
Per R.E.M., "LOSING MY RELIGION":
	"DIS BIGGHER"
Per DR. ALBAN, "IT'S MY LIFE":
	"IF MAI LAIVV"
Per TWENTY FOUR SEVEN, "I CAN'T STAND IT":
	"HAI ACHESTEND NONO'"
Per TRETRITI, "E' VIVO L'UOMO RAGNO":
	"E' TORNATO L'UOMO RAGNO"	"HANNO RITROVATO L'UOMO RAGNO"
	"NON E' MORTO L'UOMO RAGNO"	"E' RISORTO L'UOMO RAGNO"
	"Vorrei la canzone dei TRICHECHI"
Per MARCO FERRADINI, "TEOREMA":
	"Vorrei la canzone di Pitagora"

questo modo conterrebbe lui stesso le informazioni. 
Non complicarti troppo la vita, invece di utilizzare un file
di testo (in modo che l'editor lo legga ma la persona umana non lo
capisca), crea un file binario.
In pratica devi dichiarare una var  del tipo della struttura dati
(record..penso?!) che vuoi utilizzare.

Newsgroup: it.comp.lang.pascal
Titolo: alcune domandine... :)

1) Come faccio a usare un file .wav in TP 7.0?
2) Esiste un editor (possibilmente freeware) per la grafica in Tp?
3) Dove posso trovare sorgenti?
Grazie a chi mi risponde :)
Saluti
Guido Revello

...

Newsgroup: it.comp.lang.pascal
Titolo: Algoritmo per stabilire se un numero è primo

Esiste un algoritmo più veloce del provare i numeri da 2 a (n-1) per
stabilire se un numero integer è primo?
Grazie

stabilire se un numero integer è primo?
Se hai il numero n, ti basta provare da 2 a int(sqrt(n)).
Se non trovi un dividendo in questo range, allora il numero e' primo.
(Ci sono comunque molti algoritmi che consentono la determinazione dei
numeri primi).
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 numeri primi).
Potresti spiegarli, sarei interessato
Grazie

Program numprimo;
Var i,n:integer;
    prime:boolean;
Begin
    prime:=true;
    for i:=2 to sqrt(n) do begin
        if (n mod i)=0 then prime:=false;
    if prime then writeln(' Prime!!!') else writeln(' Composite');
end;
Ciao!!


Se poi:
- cio' che interessa e' trovare i numeri primi compresi in un intervallo
compreso fra 1 ed n
- si possono/devono conservare i numeri primi in una lista
si puo' ridurre ulteriormente ridurre il carico controllando solo i numeri
primi compresi fra 3 e sqrt(i) con i uguale al numero che si sta verificando
e con il ciclo principale che parte dal numero inferiore.
Ciao,
Stefano

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

Essendo le applet delle vere e proprie apllicazioni all' interno di un
documento HTML, è possibile crearne in  Pascal? Come'
Kosby

documento HTML, č possibile crearne in  Pascal? Come'
Puoi creare dei CGI.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
#exclude <windows.h>

>documento HTML, è possibile crearne in  Pascal? Come'


 - rimuovi XXX x rispondere    ICQ #8814554
Perche' tutti vorrebbero essere chiamati "Piu' Tardi"?
Newsgroup: it.comp.lang.pascal
Titolo: LISTE_DI_LISTE

qualcuno sà indicarmi uun sito o un libro dove spieghi i puntatori a liste
di liste iullustrandone le procedure fondamentali?





Una lista di lista è una lista dinamica al cui 
interno c'è un puntatore significatico di un'altra lista.


Una possibile struttura è la seguente 
:


 


TYPE 


        
PListaCartella = ^TListaCartella;


        
TListaCartella = RECORD


        
                
    Cartella : Integer;


        
                
    Ordine : Integer;


        
                
    Next : PLIstaCartella;


       
END;


       PGiocatore = 
^TGiocatore;


       TGiocatore = 
Record


                        ListaCartella 
: PListaCartella;


        
                Nome 
: String;


        
                Next 
:PGiocatore;


END;


il resto è facile. Scrivi sehai 
problemi


 









Credo che quello che cerchi di implementare tu 
sia un grafo....


informati su questa 
struttura



Sicuramente un grafo può essere rappresentato da una lista di liste.
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
-- 
Posted from [62.10.206.191] by way of 
oe44.law10.hotmail.com
 [64.4.14.16] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: 3 Piccoli grandi quesiti!!! HELP ME !!!!

Ecco l miei problem1 :
1)
Ho un file di testo di n (n<50) righe, io devo fare un programma che mi
elimini solo la prima riga, come devo fare?
Avevo pensato questo: ricopiarmi tutte le righe in un vettore, e poi
copiarmi tutte le righe tranne la prima nello stesso file :
Procedure Leggi;
Begin
Assign(f,'C:\ciao.txt);
reset(f);
i:=1;
while not eof(f) do
Begin
readln(f,v[i]);
end;
close(f);
end;
Procedure scrivi;
Begin
Assign(f,'C:\ciao.txt);
rewrite(f);
for y:=1 to i do
Begin
writeln(f,v[i]);
end;
close(f);
end;
Begin {PRINCIPALE}
leggi;
scrivi;
end.
L'ho dovuto fare con le procedure perché il programma che sto creando è
molto lungo e questa operazione mi serve più volte, quindi lo sto facendo
con le procedure;
Mi dite dov'è l'errore?
Logicamente ho dichiarato tutto quello che c'era da dichiarare!!!
2)
Un 'altro quesito che vi porgo è :
Se io devo leggere un file che non esiste il progamma si blocca, si potrebbe
fare un qualche cosa che vede se il file esiste e nel caso non ci fosse me
lo creasse vuoto?
3)
Quando creo un file, come faccio a nasconderlo? Nel senso lo posso creare
con la proprietà nascosta?
Aspetto le vostre risposte, perfavore è urgente!!!
Grazie.
Ciao Juan
--
        \\\|///
        ( oo ) By Juan
--oOO--(__)--OOo--

 con la proprietà nascosta?
vedi l'help su setFAttr e getfattr
ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------


Mò vuoi sapere troppo... mi scaxxa aprire il pascal e leggere la guida...
comunque guarda bene nella sezione della gestione dei file. E' una cosa che
si può fare... l'ho fatta anke io...

Newsgroup: it.comp.lang.pascal
Titolo: Libreria per accedere a file zippati

--
Bye bye....
 
ne...@tvol.it
 
szn...@usa.net
***************************
* Team Os/2 Italia member *
***************************
My Dream ? PROTECTONLY=YES !
HOMEPage : 
http://delenda.biella.alpcom.it/zamprogno/
ICQ UIN  : 4708891
HAL-9000: "What are you doing with those Windo$e disks Dave? Dave?
DAVE!!!!!
S.E.T.I Project supporter
Ciao.
Avrei bisogno di una libreria esterna per accedere a files zippati,
(lettura/scrittura) ad alto livello (add,del,comp/decomp ecc....).
Mi serve per os/2, al limite anche se e' in C (da Sibyl riesco ad 
usare 
funzioni esterne anche scritte in altri linguaggi).
Grazie a tutti.

 Grazie a tutti.
La release OS/2 di INFO-ZIP (lo ZIP pubblico dominio) viene fornito con
una DLL (sviluppata tra l'altro dall'IBM e utilizzata nell'installatore
del TCP/IP per OS/2-Warp).
E` gratis e con i sorgenti. Prova a darci una occhiata.
Massimo Santin
--
Massimo A. Santin
msa...@ibm.net
IBM Certified:
  OS/2 WARP Engineer, OS/2 LAN Server Engineer,
  OS/2 WARP Server Engineer, DB2 Administrator,
  DB2 Application Developer, WARP Developer,
  VisualAge C++ Associate Developer,
  VisualAge Smalltalk Associate Developer,
  Network Communications Engineer, AIX User
-------------------------------------------------------
SANTIN E ASSOCIATI S.R.L. - software e sistemi distribuiti
IBM Business Partner - BESTeam Premier Software Member
Lotus Business Partner - Consultant
via Roma, 27 - 33087 Pasiano di Pordenone (PN) - ITALY

 E` gratis e con i sorgenti. Prova a darci una occhiata.
Mi sembra faccia il solo unzip pero'....



Oops! Vero!Allora potresti molto semplicemente dal tuo programma lanciare
zip e unzip come processi child. Combinando questa tecnica con delle pipe
dovrebbe funzionare bene. Il mio socio ha realizzato un tool che fa
vedere il contenuto dei file zip come una cartelletta WPS (e lo ha fatto
molto prima di Object Desktop) utilizzando appunto i compressori in
questo modo. E` una tecnica comunemente usata in molti casi.
Ciao
Massimo Santin
--
Massimo A. Santin
msa...@ibm.net
IBM Certified:
  OS/2 WARP Engineer, OS/2 LAN Server Engineer,
  OS/2 WARP Server Engineer, DB2 Administrator,
  DB2 Application Developer, WARP Developer,
  VisualAge C++ Associate Developer,
  VisualAge Smalltalk Associate Developer,
  Network Communications Engineer, AIX User
-------------------------------------------------------
SANTIN - Software e sistemi distribuiti


 questo modo. E` una tecnica comunemente usata in molti casi.
Azz... peccato.... dovro' studiarmi le pipe ;)
Volevo fare un componente per Sibyl....
Vedro' se sara' possibile cosi.
Newsgroup: it.comp.lang.pascal
Titolo: Complessita computazionale???

Mi potete spiegare facilmente che cos'è la complessità computazionale , come
si trovano le funzioni che esprimo il tempo di esecuzione di una procedura
ricorsiva?
es.
function F (integer n) :integer ;
begin
if n=0 then F:=1 else begin F:=F(n-1) +F(n-1) +1; F:=n end
end
quando c'è il while come mi devo comportare?
 grazie ciao dani

es.
function F (integer n) :integer ;
begin
      if n=0 
      then F:=1 
      else  begin 
                      F:=F(n-1) +F(n-1) +1;
                      F:=n
              end
end;
Chiedo a qualcuno piu' esperto del news-group di correggermi se
sbaglio:
comunque secondo me la complessità di quella funzione è costante se 
n=0 perchè la funzione viene chiamata 1 volta sola,mentre è lineare se
n>0 perche' la funzione viene chiamata n volte.Quindi dovendo prendere
sempre la piu' alta si puo' concludere che la sua complessità sia n.
....almeno penso.
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

sempre la piu' alta si puo' concludere che la sua complessità sia n.
Scusami, ma la funzione viene eseguita due volte, quindi la
complessita' dovrebbe essere, se non erro, O(2*n).


Perchè 2*n? Casomai sarà n*2.
Correggimi se sbaglio:
F(n-1) viene fatta n-1 volte quindi a meno di una costante la
complessità e' lineare cioè n
+ 
F(n-1)   .....stesso discorso.
Quindi sarebbe 2n che a meno di una costante è n .
CIAOoooo....


Quindi sarebbe 2n che a meno di una costante è n .
Dio, mio, il mio esame di Calcolo Numerico e' lontano ormai 3 anni, e
quindi potrei essere una mitragliatrice di cazzate... ma credo che
dipenda da che cosa intendi per complessita' computazionale.
Io indico il numero di operazioni eseguite per le quali non si puo'
calcolare a meno della costante.
Comunque, mi rendo conto che, probabilmente, stiamo dicendo la stessa
cosa.

cosa.
....mi sa di si.
Perchè nel post iniziale tu hai detto che è 2n mentre io ho detto che
è n.
E praticamente è la stessa cosa visto che 2n=n=comp. lineare

Newsgroup: it.comp.lang.pascal
Titolo: caratteri char

Come posso trattare i caratteri char o string[x]  come caratteri ascii, ad
esempio per fare un'operazione come a+1=b, che  vorrebbe dire fare una cosa
del tipo #38+1=#39??? grazie
                                SAVE

Torbo wrote:

c := ord('a') + 1;
-- 
.:neon:.

GRAZIE, ora dovrebbe funzionare...  CIAO CIAO

x' non funziona???
VAR A,c:char;
begin
write('Scrivi il carattere: ');
readln(a);
c := ord(a) + 1;
writeln('Il successore di ',a,' '#138' ',c);
readln;
end.

 wrote in message
EDIX7.4971$8D5.2...@news2.tin.it...


Grazie, il problema era proprio quello!!! :-))

c := chr (ord(a) + 1);
ord : char -> byte
chr : byte -> char
in realta' in ord al posto dei char potresti usare un qualsiasi
insieme ordinato:
type
  sughi = (pesto, carbonara, aglio_olio_peperoncino);
...
var a,b : byte;
...
a := ord(pesto);  { restituisce 0 }
b := ord(carbonara);  { restituisce 1 }
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Array...

E' possibile definire un array dove alcune celle siano integer e altre
string ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

string ?
Si', nel modo seguente :
type    tipo_base = (STRINGA, INTERO) ;
type    tipo_cella = record
                       case tipo : tipo_base of
                         STRINGA : (s : string) ;
                         INTERO  : (i : integer) ;
                       end ;
var a : array [1..10] of tipo_cella ;

In questo modo capisce da solo se l'input č una stringa o un numero intero ?
A me farebbe piů comodo standardizzarlo, ovvero la cella 1 integer, la 2
string, la 3 char ... etc...


string, la 3 char ... etc...
Lo spazio allocato per i due elementi (string/integer) e' lo stesso.
(viene riservato spazio per l'elemento piu' grande).
Quindi modificando la stringa si modifica anche l'intero e viceversa.
Standardizzare come dici tu non si puo' fare.

... ). Devono essere tutti uguali.
Non e' proprio cosi'.
L'omogeneita' dei dati si riferisce alla *dimensione* dei dati.
Cioe' la dimensione di tutti gli elementi deve essere la stessa, ma e'
consentito che nella stessa porzione di memoria si acceda a dati di
tipo differente.
Questo vale in diversi linguaggi, vedi il C e il pascal.
E' il caso delle union del C o dei record sottoposti a "case" del
pascal.
Se io definisco :
var a : array [1..10] of record
                           case Tipo : byte of
                              0 : (s : real) ;
                              1 : (n : integer) ;
                              2 : (c : char) ;
                         end ;
Ogni elemento avra' sempre dimensione 7 byte, ma posso accedere in 3
modi diversi al contenuto.


E' vero una mancaza da parte mia c'è stata, non ho detto che il vettore può
essere anche di record, ma ciò non toglie che il vettore sia una struttura
di dati omogenea.
Infatti il vettore, anche come l'hai dichiarato tu, è omogeneo ( tutti
record ), è il record che cambia il tipo di dati contenuto al suo interno
 o meglio come leggo i dati ), perchè appunto come dicevo all'interno del
record possono esserci tipi di dati differenti.
Quindi affermare, visto che il record cambia, cambia il tipo di dati del
vettore mi sembra esagerato, perchè comunque tu quel vattore lo chiameresti
vettore di record e non vettore di real, o integer o char.
Che poi come già detto il tipo all'interno cambi quello è un'altro discorso.
Che una scatola per alimenti possa contenere carne, dolci, pane, sempre una
scatola per alimenti rimane.( esempio assurdo però è l'unico che mi viene al
momento)
Bye
Newsgroup: it.comp.lang.pascal
Titolo: Freepascal e MySql

Salve, come usare freepascale mysql?
In Linux ho provato a compilare il programma testdb.pp ma mi restituisce
l'errore
-lmysqlclient non trovato
Che devo fare?
Ferank

 ha scritto nel messaggio 
news:pan.2005.08.06....@dario.it...


SI, ti ringrazio, anche se avevo gia' risolto il problema (il post e'
alquanto vecchio). Dovevo installare mysql versione development. Ora
funziona. Ora vorrei usare la grafica, ma non ci riesco. Richiede la
libreria svgalib, che  non riesco proprio a far funzionare.
Frank
-- 
      Teaching OnLine 
Corsi online di programmazione
Php, Asp, C, C++, Visual Basic, Delphi
Linux Shell Programming
------------------------------------
http://www.teachingonline.it

Newsgroup: it.comp.lang.pascal
Titolo: Record e subroutine

Salve a tutti.
Volevo solo sapere se e' possibile passare ad una procedura od a una
funzione un record come parametro. Si puo'?
Cordiali saluti.
Matteo.

funzione un record come parametro. Si puo'?
Certo, sia per riferimento che per copia.
Sia, cioč, con :
procedure p ( var r : mio_tipo_record ) ;
che
procedure p ( r : mio_tipo_record ) ;
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

 wrote in message 3812f5b...@news.tin.it...
| Salve a tutti.
| Volevo solo sapere se e' possibile passare ad una procedura od a una
| funzione un record come parametro. Si puo'?
|
| Cordiali saluti.
| Matteo.
Certo che sě... con le dovute precauzioni...
cioč: il record č un tipo strutturato e per i tipi strutt. ci sono due modi
di vedere l'equivalenza:
1. per struttura: NON USATA DAL PASCAL
    es.: TYPE T=record a:real; b:real end;
           VAR x:array[1..10] of T;
                    y:array[1..10] of record a:real; b:real end;
            .....
            x:=y   {lecita, se vale l'equivalenza per struttura}
2. per nome: per cui ogni costrutto che definisce un tipo, come il record, e
che non č un nome di tipo č considerato un tipo diverso.
    es.: nell'esempio di prima, x:=y sarebbe errore
          come sarebbe errore fare
            Procedure Complesso (x:record a:real; b:real end;)
            .....
Con l'equivalenza per nome, e quindi in Pascal standard, posso fare:
##################
Procedure SommaComplesso(x,y:T; Var z:T);
Begin
    z.a:=x.a+y.a;
    z.b:=x.b+y.b
End;
##################
P.S. Mi sembra che il ritorno di una Funz. NON puň essere un tipo
strutturato, per cui traine le conclusioni... e poi fai tutte le prove del
caso sul compilatore e vedi quello che ti dice: ti assicuro che cosě
imparerai molto.
--
Ciao da Pavelo, e che lo sforzo sia con te!
E-mail: 
pi....@bigfoot.com
        (se 'rispondi al mittente', togli NO_SPAM)
HomePage: 
http://web.tiscalinet.it/pavelo
ICQ UIN #37941259
Quella di venirci a trovare e' stata un ottima idea.
Pero' anche la nostra di non aprirvi non e' male.
      Romano Bertola
Newsgroup: it.comp.lang.pascal
Titolo: Prova

Prova

Qualcuno saprebbe suggerirmi un compilatore per Win9x decente e scaricabile
a gratis ?
grazie


wrote:
www.freepascal.org

Newsgroup: it.comp.lang.pascal
Titolo: Problema com Messaggi tra classi

Salve a tutti,
ho un problema tra messaggi tra classi:
dichiaro il mio bel messaggio:
const UM_MyMsg = WM_USER + 100;
nella classe priincipale  lo gestisco in questo modo
TMyCls = class
private
  FSaved: Boolean;
[...]
protected
  procedure UMMyMsg(var message: TMessage); message UM_MyMsg;
[...]
public
  property Saved: Boolean read FSaved;
[...]
procedure TMyCls.UMMyMsg(var message: TMessage);
begin
  FSaved := False;
end;
{***********************************************************}
Nella classe annidata
MyNestedCls = class(TPersistent)
private
  FModified: Boolean;
  FRemarks: String;
  [...]
protected
  procedure SetRemarks(const Value: String);
[...]
public
 property Modified: Boolean read FModified;
 property Remarks: String read FRemarks write SetRemarks;
[...]
procedure TMyNestedCls.SetRemarks(const Value: String);
begin
  if not SameText(Value, FRemarks) then
  begin
    PostMessage(Application.Handle { o 0}, UM_MyMsg, 0, 0);
    FModified := True; {default  False}
  end;
end;
adesso la domanda non capisco dove sbaglio: vedo che FModified è True ma
il messaggio non viene trappato dalla classe Principalee quindi non mi
notifica la necessità di salvare.
come devo fare???
Scusate e grazie!
Alfio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Fai cosi':
Includi la unit principale in quella contenente la classe secondaria sotto la direttiva implementation
Invece di utilizzare PostMessage(Application.Handle { o 0}, UM_MyMsg, 0, 0)
Usa PostMessage(MyCls.Handle, UM_MyMsg, 0, 0) o, meglio ancora:
MyCls.Perform(UM_MyMsg, 0, 0);
--
Ciao,
David (
www.utilityweb.net
)