mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: record (TP 7)

ciao.
ho dichiarato in Turbo Pascal 7 quanto segue:
type v3 = array[1..3] of real;
     v2 = array[1..3] of real;
      quot = record
      case nel : char of
       'a' : (e2 : v2);
       'b' : (e3 : v3);
     end;
La mia domanda concerne il record: come posso dare a nel il valore, ad
esempio, di 'a', in modo che possa utilizzare e2 ma *non* e3?
ho provato con
var namerec : quot;
begin
namerec.nel := 'a';
namerec.e2[1] := 2;
namerec.e3[1] := 1;
end.
ciò che mi sembra strano è che funzioni anche l'ultimo comando.
Se ho dichiarato il campo 'nel' come uguale ad 'a', dovrebbe caricare in
memoria solo il campo e2, e namerec.e3 non dovrebbe essere disponibile, ma
sicuramente non ho capito bene.
Ringrazio anticipatamente chi vorrà aiutarmi.
-gabri

Ciao,
    in realtà una struttura dati di quel tipo non serve per caricare in
memoria un tipo piuttosto che un altro. In realtà i due campi 'e2' ed 'e3'
condividono la stessa area di memoria e tutte le strutture dati presenti
nella 'case' sono SEMPRE disponibili.
Il record ha la dimensione della struttura di grandezza maggiore, ad
esempio:
type
    Tp3d = record x,y,z : real; end;
    Tp2d = record x,y : real; end;
    Tpunto = record
        case dimensione : byte of
            2 : (p2 : p2d);
            3 : (p3 : p3d);
        end;
La dimensione della struttura sarà SizeOf (p3d) + 1 (il byte per il
controllo).
Il campo 'dimensione' mi serve per costruire la struttura tramite il
costrutto 'case' e ad esempio mi potrebbe servire per interpretare il metodo
di lettura (quale struttura leggere) dei dati.
procedure faiqualcosa (P : Tpunto);
begin
    case p.dimensione of
        2 : { elaborazione 2D }
        3 : { elaborazione 3D }
        else errore
    end;
end;
Condividendo la stessa area di memoria però i valori di p2.x e p2.y saranno
gli stessi di p3.x e p3.y con la differenza che potrai passare Tpunto.p2
come parametro ad una funzione o una procedura che agisce sul tipo p2d.
Altro esempio:
type
    Tmiastringa = record
        case lunghezza : boolean of
            false : (s : string);
            true  : (l : byte);
        end;
Indipendentemente dal valore di Tmiastringa.lunghezza il campo 'l' conterrà
la lunghezza della stringa 's' perchè condivide con lei l'elemento '0'
dell'array di caratteri che la forma.
Spero di essere stato chiaro,
    Michele

Sei stato chiarissimo, grazie:)
-gabri

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal in Linux

Qualcuno conosce un buon compilatore Pascal che giri senze troppi
problemi sotto Linux (Mandrake 8.0) e che sia il piu' possibile
compatibile con Borland TP7?
Grazie, ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:9a6e000c9461e0b5494...@mygate.mailgate.org...

Newsgroup: it.comp.lang.pascal
Titolo: procedure parametriche

salve a tutti
avrei bisogno di una spigazione magari accompagnata da un sorgente che 
con delle procedure parametriche, passaggio parametri ecc.
se c'è qualcuno che se ne intende e mi risponde lo ringrazio in anticipo
ciao ciao


Non capisco bene cosa intendi con "procedure parametriche"; se ti riferisci al passaggio dei parametri è abbastanza
semplice:
- passaggio parametro non modificabile in uscita (ovvero dentro la procedura ci puoi fare quello che ti pare ma
all'uscita della stessa non verrà cambiato) -
Procedure Pippo(B : Byte)
- passaggio parametro modificabile in uscita -
Procedure Pippo(Var B : Byte)                            // Nota la dichiarazione VAR
- passaggio di piu' parametri non modificabili -
Procedure Pippo(B : Byte; C : String; V : MioRecord)
- passaggio di piu' parametri alcuni modificabili in uscita -
Procedure Pippo(Var B : Byte; C : String; Var V : MioRec);   // B e V sono modificabili
- passaggio di un array di qualsiasi lunghezza (di byte in questo caso) -
Procedure Pippo(V : Array of Byte)
--- per accedere ai valori usa V[low(V)+Indice] oppure V[Hight(V)-Indice ----
Nota che puoi passare anche procedure in questo modo:
Type
  TProc : Procedure(A, B : Integer);
e la dichiarazione della procedura che prende un parametro di tipo TProc sarà
Procedure Pippo(A : TProc)
-- ti chiederai a cosa serve?!? Be se hai piu' procedure uguali (come in un parser ad esempio) è utilissimo
Se poi andiamo in delphi abbiamo parametri costanti
Procedure Pippi(Const V : String)                            // non modificabile ed utilizzata per un risparmio di
memoria
parametri di default
Procedure Pippo(A : Byte; B : Boolean = True)
-- B puo' essere o non essere passata, nel caso non sia passata il valore sarà True
parametri qualsiasi
Procedure Pippo(A : Variant)
senza contare le procedure Overload, ovvero piu' procedure con lo stesso nome che vengono chiamate in funzione del
parametro
Procedure Pippo(A : Byte); Overload;
Procdeure Pippo(A : Real); Overload;
-- in questo caso se A è un byte viene chiamata la prima e viceversa se A è un real
Dimentico qualcosa? Bo! Per ora non mi viene in mente altro.. Comunque sii piu' specifico con la richiesta
--
Ciao,
David (
www.utilityweb.net
)


grazie ti ho inviato un e-mail in privato
cmq grazie ancora
Newsgroup: it.comp.lang.pascal
Titolo: Numeri primi

'ccidenti mi sento così scemina... :/
Devo scrivere un programmino (per esercizio) che dato in input un valore 
restituisca il numero primo più vicino e se poi ci sono due numeri 
equidistanti li fornisce entrambi. Non voglio assolutamente il programma 
'bello e pronto' anche perchè mi interessa capire e non copiare...Però mi 
piacerebbe se qualcuno di voi, anima pia e caritatevole ^___- mi desse 
qualche dritta per cominciare...Almeno qualche dritta su come risalire al 
numero primo più vicino ad un numero qualunque...
TIA
-- 
#___o(^.-)o____Valefatina©___________________________________________#
  [cit] Ama il tuo prossimo, non questo, il prossimo! [/cit]
 
  # Per rispondere in mail leva una 'b' a caso dall'indirizzo.
  # ICQ: 105400693
  # INVIAMI UN SMS [e già che ci sei firmati :)]
  # 
http://www.smsatme.com/sma/sms.php?auth=:A6:19:E6:DE:A0:87:EB:1E
#____________________________________________________________________#

Senza ricorrere ai metodi efficienti tipo crivello di Eratostene e
miriade di altri potresti usare una funzione come  questa
  function NumPrimo(n : integer) : boolean;
  var i : integer;
  begin
  i:=2;
  while (i<abs(n)) and ((n mod i)<>0) do i:=i+1;
  if (i=abs(n)) or (abs(n)=1) then NumPrimo:=true
  else NumPrimo:=false;
  end;
e poi chiamarla alternativamente per numeri n+1, n-1, ecc. finche'
ottieni un valore vero.
Omega e' omega e basta.

 qualche dritta per cominciare...
Ehila, ciao :-)
Suggerimento: Usa la definizione di numero primo, ovvero: un numero è primo
se è solo se è DIVISIBILE per 1 e per se stesso.
In particolare, un numero è DIVISIBILE per K se e solo se è MULTIPLO di K.
In bocca al lupo :-)
Per maggiori info puoi contattarmi via ICQ:  146 781 935
A presto, Cooper.


Newsgroup: it.comp.lang.pascal
Titolo: urgente!! domani ho verifica!!!

ciao a tutti!
vi prego, aiutatemi, domani ho verifica e cere cose nn so
cosa siano!!
allora, sono un po, spero nn vi spaventino...
allora:
1-
cosa sono le valvole termoiodiche? dove si trovano?
2- che differenza c'č
tra funzione e procedura?
3- il round arrotonda i decimali alla prima
cifra dopo la virgola o quando voglio io? se č qnd voglio io, come glielo
spiego al programma?
4- i sottoprogrammi devono sempre essere scritti nel
programma corrente o posso richiamarli anche se sono di un'altro programma?
cioč, se io ho salvato un programma (conversione) posso scrivere nel
programma euro di andare a prendere il programma conversione e usarlo senza
ricopiarlo?
grazie mille!!!
kiakim[nat]
--------------------------------
Inviato via 
http://usenet.iol.it

 kiakim[nat]
Cooper

4- i sottoprogrammi devono sempre essere scritti nel...
se per sottoprog intendi procedure/funzioni, allora possono essere
raccolte in moduli (per il pascal 'unit') e richiamate da piu' programmi
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: output su file text (TP 7)

salve.
provando a scrivere su un file text, il Turbo Pascal 7 mi da 'Error 105:
file not open for output'. Come si fa ad aprire un file text per l'output?
grazie x l'attenzione.
-gabri


wrote:



non mi funziona
program prova;
var f : text;
    nomefile : string[20];
begin
nomefile := 'c:\prova.txt'; (*file gia' esistente*)
assign(f, nomefile);
reset(f);
write(f, 'ciao');
close(f);
readln;
end.
mi da Error 105 in linea 8 (write) :( succede anche se il file esiste, ma è
vuoto. come faccio??

 reset(f);
prova rewrite (f); per riscriverlo oppure
append (f); per continuarlo dopo la fine (appenderlo).
reset serve solo per leggerlo.


grazie mille! funziona.
ciao,
-gabri

 -gabri
figurati...
Olivier.

Newsgroup: it.comp.lang.pascal
Titolo: Programmazione avanzata con Tpascal DOS

Da quale sito posso trovare e prelevare la documentazione contenente
la maggior parte degli interrupt utilizzabili con alcuni linguaggi di
programmazione (tra cui lo stesso TurboPascal per DOS)?
Ciao!
Vi ringrazio in anticipo.

 ha scritto nel messaggio
news:3b113750...@News.CIS.DFN.DE...


Newsgroup: it.comp.lang.pascal
Titolo: Come iniziare a capire il Pascal ?

Salve, mi sto avvicinando adesso al Pascal, (Borland Turbo Pascal 7.0)
e non ho nessuna esperienza di programmazione, ma ho la necessità di
crearmi qualke programmino che giri in dos, quindi ho passato al
vaglio questo linguaggio, il C++ 3.0 (un vero puttanaio x gli
ignoranti come me, non ci ho capito nulla) ed il QBasic che trovo
carino.
Alla fine credo di trovarmi meglio con il Pascal, cosi mi chedevo se
potreste consigliarmi un buon libro che spieghi tutto ed in
particolare i vari comandi, in modo semplice e chiaro, mi fate qualke
nome?
Mi consigliate anche qualke sito dove trovare tutorial e sorgenti
siano essi italiani che esteri? 
Grazie.

"JoeBlack®" <
joe_...@tiscali.it
^> ha scritto nel messaggio
news:bbfu00t8lq6rnu52b...@4ax.com...

Puoi provare a cercare qualcosa di Wirth, assieme a dei vecchi manuali di
turbo pascal di McGraw-Hill , sempre che riesci a trovarli.
On line non so...
Ciao
 Max


per un sito vai a vedere quello mio (in firma)
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990
Newsgroup: it.comp.lang.pascal
Titolo: Pascal Collection Framework

Alcuni di voi sapevano. Altri sospetavano. Bene ora è venuto il momento 
di rivelarlo a tutti.
Sto scrivendo un insieme di classi per gestire gli iniziemi { listi, 
meppa, stack, alberi ecc } inizialmente avevo inizato a scriverlo in 
Borland Pascal 7.0 with Object { come si vede dal mio messagio 
43d55...@x-privat.org
 } ma poi sono passato a qualcosa di più "moderno".
Al momento ho ofro solo un implementazione parziale { datemi il tempo di 
finirlo no } ma se volete potete comunque inizare a darci un occhiata. 
Dato che occupa circa 65KB non mi è sembrato il caso di postare tutto 
qui come facevo prima, ma vi do i link.
rispetto all'ultima versione ho riscritto la classe TStack usando la 
parola chiave "class" al posto di "object" oltre ad aggiungere le 
eccezzioni e le interfacce. Ho introdotto tre interfacce { TIterable, 
TIterator e TListIterator }. Ho introdotto una nuova classe TLinkedList. 
Ho introdotto due nuove eccezioni { IllegalStateException e 
NoSuchElementException }. In più per uso privato ho introdotto due 
classi { TOneWayIterator e TTwoWayIterator }.
Ecco i link all'ultima versione, do sia il link al file RAR e al file 
Zip { che occupa ben il 25% in più ovvero 10 KB contro 8 KB! }
http://razziatore.no-ip.com/PascalCollectionFramework-20060308.rar
http://razziatore.no-ip.com/PascalCollectionFramework-20060308.zip
Bene ora sono a vostra disposizione per qualcunque chiarimento del 
codice anche se spero che sia abbastanza chiaro dato la presenza quasi 
"maniacale" dei comenti. Spero che il codice possa servire come spunto 
per riflessioni per molti.
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 come spunto per riflessioni per molti.
A me sicuramente :P ehehehe
-- 
______________________________
: Omega aka Ohm
: 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.pascal
Titolo: Programmazione di smartphone

Ciao. Sapete se esistono delle librerie o delle estensioni di Lazarus 
che consentano di scrivere piccole applicazioni per smartphone (per 
interderci sonyericsson p900 e simili)?
MT


Io conosco Midlet-pascal versione trial, la puoi trovare qui
http://www.midletpascal.com/
Se qualcuno conosce qualcos'altro magari free...
Ciao

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO PER TURBO PASCAL 7.0 FOR WINDOWS (Maelgun)

come posso settare la modalità passo passo nel turbo pascal 7.0 for
windows?
Rispondetemi possibilmente via e-mail:
mae...@sail.it
Grazie in anticipo!!
 
Maelgun

 windows?
Ma non basta premere F7 ?!?
by Frengo

Newsgroup: it.comp.lang.pascal
Titolo: cerco compilatore

scusate ma si puo trovare il turbo pascal 7.0 sul web, o almeno qualcosa di
che gli assomigli? Prima avevo il suddetto compilatore sul vecchio 286 che
ho venduto, ora ho un PII è mi è tornata la nostalgia di quei tempi in qui i
programmi te li facevi da te, aiutatemi vi prego!!!!

...

ciao, prova a vedere se quello che trovi all'indirizzo :
http://www.brain.uni-freiburg.de/~klaus/fpc/download.html
fa per te.
ciao da Giò

Newsgroup: it.comp.lang.pascal
Titolo: VI PREGO: AIUTATEMI!!!!!!!!

Scusate se continuo a rompervi le balle, ma sono disperato!!!!!
Ho bisogno di aiuto nel più breve tempo possibile
e non so proprio più a chi rivolgermi!!!!!!!
AIUTATEMI!!!!!!!!!!!!!!!!
Nessuno è in grado di dirmi perchè il seguente codice
non restituisce output in esecuzione???
Che cosa c'è che non va?!?
PROGRAM p (input,output);
VAR x,somma: integer;
BEGIN
     somma := 0;
     WHILE NOT eof DO
        BEGIN
           WHILE NOT eoln DO
              BEGIN
                 read(x);
                 somma := somma + x
              END; {eoln}
           readln
        END; {eof}
     writeln(somma)
END.

cyberfox ha scritto:

Se per OutPut intendi la stampa a video del risultato, basta aggiungere
un readln dopo writeln(somma);
Se non sono stato chiaro ho non ho capito il tuo problema fammi sapere!
Ciao
MaTTeO.

 END.
Ecco il codice corretto :
PROGRAM p (input,output); <--- puoi omettere il compilatore non si arrabia
VAR x,somma: integer;
    ifile : file of integer; <---  file di interi
BEGIN
     assign(ifile,'nome del file comprensivo di percorso');
     reset(ifile);
     somma := 0;
     WHILE NOT eof(ifile) DO
        BEGIN
          read(ifile,x);
          somma := somma + x
        END;
     writeln(somma);
     readln;
END.
Bye Bye
Re di Cuori

program leggi_file;
var
  x, somma : integer;
  f : text;
begin
  somma := 0;
  assign (f, 'percorso del file di tipo txt');
  reset (f);
  while not eof (f) do
    begin
      read (f, x);
      somma := somma + x;
    end;
  close (f);
  writeln(somma);
  readln;
end.
Non so se per te andrà bene, io lo provato e con un file di testo funziona,
comunque se mi dici di che tipo è il file che devi leggere forse ti posso
aiutare meglio.
Ciao

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

Sto realizzando un gioco stupido, l'utente per raggiungere il risultato
finale deve provare e riprovare.
Come faccio a scrivere alla fine quanti tentativi lui ha effettuato?

 wrote in message
news:r3D38.685$vh.1...@twister1.libero.it...


 wrote in message
news:sbF38.1908$Mj4....@twister2.libero.it...


 Come faccio a scrivere alla fine quanti tentativi lui ha effettuato?
Basta usare una variabile, e il suo valore viene incrementato di 1
all'interno del ciclo ogni volta che l'utente ha provato ad eseguire il
gioco.
Esempio
....
var     i : byte;
....
....
repeat
    .....
    i := i+1;
    ....
writeln ('Il numero dei tentativi realizzati dall''utente sono: ',i);
Chiaro?
Newsgroup: it.comp.lang.pascal
Titolo: help su compilazione

Scusate la domanda stupida ma....
ogni volta che faccio un programmino in pascal mi si compila da solo
andando a creare un .exe in HD.
Come faccio ad evitarlo?
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

 wrote in message
3774629...@news.flashnet.it...

Sul borland pascal c'e un opzione mi sembra nel menu compiler che permette
di scegliere tra destinatio disk ( la tua configurazione ) e destination
memory, prova a scegliere destination memory.
Se hai altri compilatori non ho idea.
Ciao


se però usi TPX allora si compila solo sul disco
--------------------------------------------------
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
 
For Free Software go to: 
http://come.to/kiryssoft

Ciao
Nella directory bin del mio pascal ci sono due file  turbo.exe  e
bp.exe
Se carico il programma con il file turbo.exe allora nel menu' compile
mi da l'opzione destination memory-disc........mentre se lo carico con
bp.exe  questa opzione non compare.
Perchč?


 
bah... dipende da che compilatore usi...
Se usi il TP7, lo puoi evitare andando in "Compile -> Destination Disk"
Ritornando su Compile, noterai che Destination Disk e' diventato
Destination Memory...
Options -> Save ecc. per salvare la configurazione :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Il potere logora chi non ce l'ha", teorema di Andreotti sugli Equilibri
Politici

Newsgroup: it.comp.lang.pascal
Titolo: Cos'è uno stack ?

come da oggetto..
Phones

 Phones
Lo stack non è altro che un area di memoria in cui vengono memorizzati
dei dati quando viene eseguita una call.
Ciao MaTTeO.


Lo stack è una struttura di memorizzazione datta anche L.I.F.O. ossia last
input first output (l'ultimo che entra è il primo ad uscire),
digito a, b, c, d    vengono memorizzati sullo stack  nel seguente modo...
d <--- TESTA DELLO STACK
c
b
a
... e prelevati nell'ordine d,c,b,a
A cosa può servire : controllare se un espressione è ben parentesizzata ed
altro ancora. Il compilatore lo usa nelle call, o per tenere traccia delle
chiamate ricorsive.
Operatori fondamentali :  inserimento push(n), eliminazione della testa
pop(n), valore della testa testa(n)
Ciao Re di Cuori

Newsgroup: it.comp.lang.pascal
Titolo: urgente!! operare su file

Prova cosě:
program Why;
var 
  Elenco : file of Real;
  a : Real;
begin 
  Assign(Elenco,'a:elenco');
  Reset (Elenco);
  while not Eof (Elenco) do 
    begin 
      Read (Elenco,a); 
      Writeln (a)
    end;
   Readln
end.
Non l'ho testato, ma cosě dovrebbe essere a posto!
Ciao,
-- 
Mauro Molinari
Internet e-mail: 
maur...@mbox.vol.it
 / 
maur...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!!!

Devo scrivere un programma in fortran per la mia tesi. C'è mica qualcuno che
mi sa dire dove posso trovare un compilatore Fortran?
Vi prego è questione di laurea o non laurea!!
Grazie
Teo

Vi prego è questione di laurea o non laurea!!
Nel pacchetto del GNU C Compiler della Free Software Foundation c'e'
il compilatore g77 (credo si chiami cosi').
Trovi informazioni alla pagina 
www.delorie.com
 se ti interessa per
MS-DOS.

Newsgroup: it.comp.lang.pascal
Titolo: Passaggio da integer a string

Ciao,
non so se quello ke sto dicendo sia corretto , ma è possibile inserire dei
valori integer in una variabile string??
vi spiego meglio:
ho una variabile string e 3 variabili integer...
l'utente (che poi è il prof di università) inserisce 3 numeri , 1 x ogni
variabile integer.
dopo di che il programma decide che queste variabili vengano inserite
dentro una variabile stringa:
var
a,b,c:integer;
d:string;
begin
 [...]
      d:=(a,'/',b,'/',c);
 [...]
end.
è possibile eseguire una simile operazione???
il mio compilatore pascal (DEV-Pascal) dice che vi è un errore nella riga
prima del carattere ";" , dunque cosa c'è di sbagliato??
Addicted to that rush
--- posted by geoForum on 
http://www.delphiedintorni.it

Per inserire un integer in una variabile stringa lo devi convertire.
Ora non conosco il DevPascal ma in Borland Pascal devi fare:
Function IntToStr(V : Integer) : String;
Var
   S : String;
Begin
   Str(V, S);
   IntToStr := S;
End;
Per cui se scrivi:
d := IntToStr(a) + '/' + IntToStr(b) + '/' + IntToStr(c);
e hai (per esempio):
a=10, b=20, c=30
la tua variabile d conterrà:
'10/20/30'
Nota: in Delphi la funzione IntToStr è già dichiarata nelle librerie interne
Ciao,
David

Newsgroup: it.comp.lang.pascal
Titolo: spazio in memoria

Ho scritto un programmino che utilizza array e record. Se utilizzo
strutture troppo grandi, durante la compilazione viene segnalato un
errore.
Quanti byte vengono allocati in memoria per record e array?
Grazie a tutti
Angelo
--
 Angelo Bertocchi
angy...@libero.it

 Quanti byte vengono allocati in memoria per record e array?
Devi fare la somma delle lunghezze dei dati elementari. Ad esempio un array
di 1000 integer occupa 2000 bytes (1 integer = 2 bytes) ecc... Per i record
la stessa cosa, un record con un real e un char occupa 6+1 bytes, un array
di 1000 record come il precedente occupa 7000 bytes.
Se usi il TP hai a disposizione 64Kbytes di spazio per i dati statici del
programma (quelli globali dichiarati nella procedura principale), e fino ad
altri 64K per le variabili locali delle altre procedure (che in questo caso
vengono allocati nello stack).
Se serve ancora spazio si usano i puntatori a strutture dati dinamiche che
possono occupare l'intera memoria disponibile (640K in emulazione DOS). In
altre parole in questo modo puoi allocare tranquillamente piu' array lunghi
fino a 64K l'uno... se poi serve un' unica struttura ancora piu' grande di
64K obbligatoriamente devi creare una lista.
ciao
Claudio
Newsgroup: it.comp.lang.pascal
Titolo: Tutorial object pascal

Ciao a tutti, è da un pezzo che cerco in rete un tutorial che non sia il 
"solito" documento sul Pascal in generale ma tratti invece l'Object 
Pascal per come è implementato nel Free Pascal. Possibilmente con una 
pletora di esempi, che non guastano mai! :)
Sarò grato a chiunque possa fornirmi link o suggerimenti (eventualmente 
anche relativi a materiale cartaceo). Saluti.

ch1v32 wrote:

da quello che so { ma potrei anche sbagliarmi } il freepascal dovrebbe 
essere compatibile con il Dephi quindi qualuqnue tutorial per il dephi 
dovrebbe andare bene... e il dephi è più diffuso quindi il materiale 
dovrebbe essere di più facile repiribilità
Spero di non aver detto qualche <beeep>
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Newsgroup: it.comp.lang.pascal
Titolo: Lunghezza massima di un albero

Ciao Come State?
Ragazzi datemi una mano urgentemente!!!!!!!
Devo fare un programma che calcoli la lunghezza massima di un albero che
abbia diversi nodi con piu' rami!
Non importa quale metodo usiate!!............
In effetti non si tratterebbe proprio di un albero ma per farmi capire
va bene!!!!
SALUTONI Andrea CCS

Non importa quale metodo usiate!!............
supponendo che l'albero sia definito in questo modo :
type ptr_nodo = ^nodo ;
type nodo = record
              dato : integer ;
              pss  : ptr_nodo ;
              ps   : ptr_nodo ;
              pd   : ptr_nodo ;
              pdd  : ptr_nodo ;
            end ;
Puoi usare la ricorsione, sfruttando una variabile globale chiamata
MaxLen ;
var MaxLen : integer ;
    Radice : ptr_nodo ;
function Terminale ( p : ptr_nodo ) : boolean ;
begin
  Terminale := (p^.pss = nil) and
               (p^.ps  = nil) and
               (p^.pd  = nil) and
               (p^.pdd = nil) ;
end ;
procedure CalcolaMaxLen ( p : ptr_nodo ; livello : integer ) 
begin
  if ( p <> nil ) then
  begin
     if (p^.pss <> nil) then CalcolaMaxLen ( p^.pss, livello + 1 ) ;
     if (p^.ps <> nil) then CalcolaMaxLen ( p^.ps, livello + 1 ) ;
     if (p^.pd <> nil) then CalcolaMaxLen ( p^.pd, livello + 1 ) ;
     if (p^.pdd <> nil) then CalcolaMaxLen ( p^.pdd, livello + 1 ) ;
     if Terminale ( p ) and ( livello >= MaxLen ) then 
        MaxLen := livello ;
  end ;
end ; 
begin
  MaxLen := 0 ;
  Radice := nil ;
  ...
  ...
  ...  (* costruzione di un albero in Radice *) 
  CalcolaMaxLen ( Radice, 1 ) ;
  writeln ( MaxLen ) ;
end.
Newsgroup: it.comp.lang.pascal
Titolo: Sistema di equazioni con TPascal

Devo risolvere un sistema di equazioni in TP e devo impostare la "parentesi
graffa" per il sistema di due equazioni. Come devo fare?
Grazie.
--
raffaele...@libero.it
r.rav...@tiscalinet.it

graffa" per il sistema di due equazioni. Come devo fare?
Ricorri al metodo di Cramer.
Costruisci la matrice dei coefficienti e calcolane il determinante.
Poi sostituisci ogni colonna della matrice dei coefficienti con la
colonna dei termini noti e calcoli i singoli determinanti, poi calcoli
il valore delle variabili dividendo ogni determinante singolo per
quello iniziale.
--
Andrea Laforgia
andrea_...@bigfoot.com

 Ricorri al metodo di Cramer.
Ok, se il sistema e' lineare funziona cosi', ma se non lo
e', conosci qualche algoritmo..?
es:
/ (a+2b+3c) * (3d+b-2a) = a+2b
\ (2b+d)    * (3a+c+d)  = b+c
Hai qualche link, per caso?
...Non metterti a scrivere codice, non voglio farti lavorare
come uno schiavo, se hai qualcosa gia' pronto, bene, senno' pazienza... ;-)
Mi toglieresti una curiosita'? Sei un programmatore professionista
o un ragazzo smanettone? Sono veramente impressionato dalla quantita'
e qualita' di codice che mandi sui newsgroup iclp e iclc!!!
Complimenti !!! ;-)

Complimenti !!! ;-)
Grazie ;)
--
Andrea Laforgia
andrea_...@bigfoot.com

Newsgroup: it.comp.lang.pascal
Titolo: [pascal] numeri primi

Scrivere un programma che verifichi se due numeri A e B sono primi fra
loro (cioč quando non hanno divisori in comune eccetto i lnuemro 1).
Aiutatemi please :(

 loro (cioč quando non hanno divisori in comune eccetto i lnuemro 1).
Puoi calcolare il MCD tra i due numeri e vedere se e' uguale a uno. Per il
calcolo del MCD puoi usare l'algoritmo di Euclide:
dati due numeri interi a,b > 0
MCD (a,b) = a = b    se a=b
MCD (a,b) = MCD (a-b,b)    se a > b
MCD (a,b) = MCD (a,b-a)    se a < b
Applichi iterattivamente queste regole fino ad ottenere il MCD e vedi se e'
uguale a 1
Ciao
 Max

TESTO DEL PROBLEMA
Scrivere un programma che verifichi se due numeri A e B sono primi fra
loro (cioč quando non hanno divisori in comune eccetto il  numero 1).
aiutatemi :(

 loro (cioč quando non hanno divisori in comune eccetto il  numero 1).
E quale sarebbe la condizione necessaria???? Quella dell'MCD = 0 mi pare
opportuna quindi puoi usare l'algoritmo di euclide.

 opportuna quindi puoi usare l'algoritmo di euclide.
sara' mica =1??

 sara' mica =1??
Si intende oltre che MCD = 1.. :) Almeno cosě mi sembra di caprie dalle
richieste del programma..

 ha scritto nel messaggio
news:1pwWb.222475$VW.90...@news3.tin.it...

No, no, non oltre. SOLO MCD = 1. L'unica condizione che verifica la
primalita' tra i due interi.
Ciao
 Max
Newsgroup: it.comp.lang.pascal
Titolo: Bitmap

Come visualizzare dell immagini bitmap in in programma Pascal ?
Kosby


Non è molto facile... devi conoscere header del file e da li vedere il tipo
di bmp, cmq ho realizzato qualcosa in c++ se le vuoi ....
Redicu...@libero.it

 Kosby
C'e' una unit apposita anche per questo, non credo che sia tra quelle
standard, ma dovresti trovarla sulla rete senza troppi problemi.
--
Fabio Feuli
E-Mail 
fe...@libero.it
"O natura, o natura,
Perché non rendi poi
Quel che prometti allor? perché di tanto
Inganni i figli tuoi?"
(Leopardi: Dai Canti, A Silvia vv. 34-39)

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

... qualcuno sa dirmi qualcosa in + su questo argomento?? grazie raga

 ha scritto nel messaggio
news:As_R8.3510$vm5.1...@news2.tin.it...



In pascal si creano mediante l'utilizzo delle strutture dinamiche, in questo
caso se si tratta di un array monodimenzionale del tipo:
  X: Array [1..n] Of t
con n indefinito, basta ricorrere a una lista concatenata di n elementi (che
vengono creati durante l'esecuzione del programma e non impostati a priori.
Cooper.

 >
Se non sbaglio, col freepascal(che supera pure i 64k, niente male) si
possono usare(sono sicuro che c'è l'aritmetica dei puntatori, quindi penso
di sì). Ok, è così; ecco il codice(scarica Free Pascal Compiler da
www.freepascal.org
program pointerarray;
var
i:longint;
p:^longint;
pp:array[0..100] of longint;
begin
for i:=0 to 100 do pp[i]:=0;
p=@pp[0];
for i:=0 to 100 do
  if p[i]<>pp[i] then
       writeln('Questo non sarà mai stampato');
end.
è supportato anche inc(p) e dec(p);
Ciao
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

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

Ciao a tutti belli e brutti...
Mi scuso con ki riterrà la mia domanda banale, ma degnatela di uno sguardo
lo stesso :-)
-Dikiaro un nuovo tipo variabile " aaa  = set of byte"
-Dikiaro quindi una variabile del nuovo tipo "var xxx  : aaa"
Question n. 1 ----> allo stato attuale (ossia dopo averla dikiarata e prima
ke ci metta le mani),
                              cosa contiene xxx?
-xxx ora contiene alcuni valori.
Question n. 2  ----> c'è un modo per "pescare" i valori inseriti e mandarli
in output?
--
DArK
===============================
        ThE DArKneSS Is JuST DArK
===============================
per rispondermi togli le mutande


Non so se c'č un metodo migliore perň io facevo cosě...
for i:=0 to 255 do
if (i in xxx) then
write(i,'-');
Ciao

in output?
Usa l'operatore IN, ad esempio:
  if 1 (* Schumy in pole *) in xxx then writeln('1');
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.

 write(i,'-');
Ank'io avavo penstao di fare cosě, ma credevo ci fossero metodi piů
specifici. Cmq grazie per aver confermato
le mie idee!!

Newsgroup: it.comp.lang.pascal
Titolo: Re: [MANIFESTO] it.comp.lang.pascal

 
Un po' misero come manifesto direi O___O non vi pare... comunque perke 
non riscriviamo il manifesto mettendo ad esempio che il NG ha un canale IRC?
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 canale IRC? 
mmh... perche' noi passiamo e ce ne andremo, il canale sparira', mentre il 
newsgroup probabilmente restera' con altra gente :)

 mentre il newsgroup probabilmente restera' con altra gente :)
Madonna che brutto... dread!!!!
Però ora siam qui presenti... :)
--
________________________
· Omega
· 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯


ho quache dubio su di questo... il canale è sempre meno frequentato... 
non mi soprenderei se il topposter su base annuna non fosse prorpio 
"Gruppo Coordinamento NEWS-IT"... e comunque se non è lui sono quasi 
sicuro che sono io o te dread...

Newsgroup: it.comp.lang.pascal
Titolo: Problema "Run" con Freepascal

Salve a tutti!
Sono nuova di questo newsgroup!
Ho utilizzato il Pascal alle superiori per 5 anni e adesso che sono 
all'università avevo voglia di ricominciare ad andare anche un pochino 
oltre :).
Avevo trovato tempo fa una versione del Turbo Pascal 7 della Bordland 
però mi aveva dato dei problemi: infatti, dopo aver scritto qualche 
semplice riga di programma e andando a Run (Ctrl+F9) si apriva la 
finistra di MS-DOS (schermo nero), mi chiedeva gli input da tastiera ma 
se ad esempio doveva essere esguita una somma dei due numeri appena 
digitati la finestra nera si chiudeva prima di aver fornito il risultato 
:(.
Così ho deciso di abbandonare quella strada ed ho installato FreePascal 
(ultima versione). Mi sono messa subito all'opera ma con grande sorpresa 
scopro che ricevo lo stesso identico errore :O la finestra nera compare 
e scompare subito prima del fatidico risultato :(
Come sistema operativo ho Windows XP :| dovevo installare cygwin?? Avevo 
letto sul sito che non era strettamente necessario..Secondo voi ho 
qualche problema con DOS??
Grazie a chiunque saprà illuminarmi!!

Metti un Readkey prima della chiusura (dopo la stampa del risultato) e 
vedrai che tutto funziona alla perfezione.
Quando esegui il run viene aperta una sessione dos che si chiuderà alla 
fine del tuo programma e, se non attendi nulla prima del fatidico end. 
la sessione verrà chiusa automaticamente.
Se scrivo
Begin
   Writeln('Ciao');
End.
vedro' un flash della finestra, mentre se scrivo
Begin
   Writeln('Ciao');
   ReadLn;
End.
vedro' la finestra con la scritta Ciao che si chiuderà alla pressione di 
un tasto
Bye, bye
jennina ha scritto:


Microges ha scritto:

Adesso funziona :)
Grazie mille per l'aiuto!!

 :(...[CUT]...
Il BORLAND turbo pascal 7 è un ottimo ambiente di sviluppo non so perchè 
tu lo abbia sostituito comunque sia il tp7 che in freepascal bastava 
aggiungere un readln oppure un repeat until keypressed e la finestra 
magicamente rimane aperte fin quando non premi un tasto!
begin
writeln('Prova');
repeat until keypressed;
end.
Non voglio criticare ma forse prima di "avanzare" è meglio che tu ti 
faccia una bella ripassatina delle basi
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 una bella ripassatina delle basi
Come sei severo :( :P Non pretendo certo di "avanzare" senza ripassare 
le cose vecchie..tant'é che avevo provato un programmino semplicissimo 
(somma di due numeri input da tastiera)..Solamente mi era venuto il 
dubbio che fosse un problema mio, proprio perché era davvero molto 
tempo che non usavo il Pascal :) e non avevo trovato informazioni su 
questa cosa "strana".
Cmq ripasserò, prometto ;)!
Ciao!
Newsgroup: it.comp.lang.pascal
Titolo: Compilatore pascal su win 98

Per mio figlio, che frequenta la prima liceo scentifico, sto cercando
un compilatore in Pascal che giri sotto win98.
Qualche suggerimento?
Grazie per l'aiuto

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



Fetevelo dare a scuola... se li usano il TP e tu usi il FP sucede un
macello con unit ecc
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ha scritto nel messaggio
news:61k48.6722$6e5.2...@twister2.libero.it...


www.djerny.net
trovi TurboPascal 1.5 For Windows
Marchese Gianfranco ha scritto nel messaggio ...


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

Sapete dove č possibile trovare il manuale del Turbo Pascal ed eventualmente
del Derive(In Italiano)(Non rispondetemi in libreria , perchč non l'accetto)
Grazie per la risposta!!

 ha scritto nel messaggio
news:an57s2$d4r$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.pascal
Titolo: Inondatemi di siti sul PASCAL

Ciao a tutti.
Poichè vorrei mettere in rete un bel sito dedicato al pascal e ai concetti
di base dell'informatica, vorrei rendermi conto della **concorrenza** per
evitare di mettere in giro una cosa che c'è già o magari anche peggiore di
quello che c'è :)
Penso di aver avuto un'idea graziosa (come modo di realizzarla, non
ovviamente come idea) di cui vorrei anche rendere partecipi altri, ma prima
di dedicare altre risorse a questa cosa vorrei vedere se ne vale la pena...
Ho cercato sui motori di ricerca ma quello che viene fuori è poco e spesso
incompleto. Sono sicuro che ci sia qualcosa di meglio (magari di vostro :)).
Inondatemi di URL! Grazie, Gianfranco
P.S: Quando lo metto in linea ve lo faccio sapere :)
e-mail: defe...@NOSPAMextero.it
Rimuovere NOSPAM per rispondere



Un bel di' Gianfranco scrisse:
G> Ciao a tutti.
G> Poichè vorrei mettere in rete un bel sito dedicato al pascal e ai concetti
G> di base dell'informatica, vorrei rendermi conto della **concorrenza** per
G> evitare di mettere in giro una cosa che c'è già o magari anche peggiore di
G> quello che c'è :)
G> 
eh eh eh... io ho un sito, e c'e' una sezione sul Pascal... eh eh eh :-)
E' un po' scarsino... :-)))) (non attaccarti ad internet solo per
vedere il mio sito, senno' poi mi cerchi per darmi botte) :-)
Scherzacci a parte, c'e' il sito di Fabio M. :-)
-- 
"In un'organizzazione gerarchica, piu' alto e' il livello, maggiore e' la
confusione", legge di Dow
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879


Ti sto braccando....   >:-||
:-))
Scarsino è un eufemismo
Comunque, non è che mi puoi dare l'URL di cui parli?
Ciao, Gianfranco


Un bel di' Gianfranco scrisse:
G> Ti sto braccando....   >:-||
G> 
G> :-))
G> Scarsino è un eufemismo
eh eh eh... che numero eri?? :-)))))
G> Comunque, non è che mi puoi dare l'URL di cui parli?
G> 
eh... saperlo te lo davo da subito... non me lo ricordo :-(
-- 
"Fai un programma che anche un idiota puo' usare, e soltanto un idiota
vorra' usarlo", principio di Shaw


Newsgroup: it.comp.lang.pascal
Titolo: Come si fa con le potenze?

Salve a tutti questo e` il mio secondo post su questa newsgroup:
la domanda e` : come si fa a calcolare la potenza ennesima di un qualunque
numero?
grazie.

 numero?
la funzione non esiste, bisogna moltiplicare il numero per se stesso n volte
(basta usare un ciclo qualsiasi)
Ciao

 wrote in message
7s02s1$8d7$1...@news.flashnet.it...


you wrote :
#> la domanda e` : come si fa a calcolare la potenza ennesima di un qualunque
#> numero?
#la funzione non esiste, bisogna moltiplicare il numero per se stesso n volte
#(basta usare un ciclo qualsiasi)
Non e' vero, esiste la funzione exp().
D'altronde moltiplicare un numero per se stesso va bene quando
l'esponente e' intero, ma non e' universalmente vero.
In generale la funzione e' 
exp( esponente * ln( base ) )
Ad esempio 
2^3 = exp ( 3 * ln( 2 ) )
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Help Unit

Salve a tutti, avrei un problemuccio piccolo piccolo che sicuramente molti
di voi sapranno risolvere: come faccio a capire che comandi ci sono in una
unit? Cioč, io richiamo la unit con uses crt, graph, ecc... ma poi come
faccio a sapere quali comandi posso utilizzare? Grazie 1000 e scusate se sto
postando troppo, č solo che ho voglia di imparare questo bel linguaggio...
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
          ~         Michele /QueeN/ CoBrA        ~
          ~             ICQ: 95295519            ~
          ~         Tutto sui LITFIBA su         ~
          ~  
http://members.xoom.it/litfibatab/
  ~
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000501c075cc$9e4564e0$4bec1597@michy...


Newsgroup: it.comp.lang.pascal
Titolo: compilare flex e yacc con freepascal

Ciao a tutti,
qualcuno è riuscito nell'impresa?
ciao
Alessandro.

 wrote in message
8004ve$v5$1...@nslave1.tin.it...

Per quello che so, da me dopo 8 errori del tipo "Wrong parameters amount"
termina la compilazione. Ho dato uno sguardo (solo uno sguardo, giusto per
precisare) al codice nei punti in cui il compilatore indicava l'errore ma
non ho trovato nulla di particolarmente esotico.
Sarei interessato anch'io perché sono due Utilities da non sottovalutare.
Michele

> qualcuno è riuscito nell'impresa?
Certamente!!
Panso che tu ti riferisca a tplex e tpyacc,
comunque per prima cosa non devi utilizzare il makefiel o meglio lo puoi
utilizzare mattendo il flag -So,comunque io ho fatto così:
invece di scrivere ppc386 lex ho scritto ppc386 -So lex e questo flag serve
per mantenere una certa compatibilotà con il tp7.
II) Compilando così ti darà sempre dei problemi,devi modificare il codice:
ogniqualvolta che vedi la scritta # ifdef fpc
---- nome procedura ( parametri,parametri,@parametro, )
cancella la @ difronte al nome del parametro


Newsgroup: it.comp.lang.pascal
Titolo: Cerco programmatore per realizzare piccoli lavori nel linguaggio delphi o visual basic o C.

Cerco programmatore per realizzare piccoli lavori nel linguaggio delphi o
visual basic o C.
Compenso da concordare.
Gianni

 ha scritto nel messaggio
news:bsowc.288914$hc5.12...@news3.tin.it...


 ha scritto nel messaggio
news:bsowc.288914$hc5.12...@news3.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Esercizio: ordinare pari e dispari

Sto studiando il Pascal per un esame universitario; mi sono imbattuto in un
esercizio che non riesco a risolvere:
Dato un SOLO vettore lungo n, riempito casualmente di numeri interi,
ordinarlo in modo che i dispari precedano i pari.
Ovviamente, non posso usare un vettore di comodo; inoltre, non posso
"allungare" il mio vettore per copiarci degli elementi da riutilizzare.
Come fareste?
Io, da novellino, non saprei da dove iniziare!
Grazie a tutti,
ALVISE

 Ovviamente, non posso usare un vettore di comodo; inoltre, non
Non so se ho bene capito:
inizi con un vettore con numeri random
metti prima i dispari e poi i pari
ordini i due sottovettori  es:---->>>  1;7;9;13;2;6;10;16    giusto?
Beh, se č cosě fai cosě:
riempi il vettore:
for i:=1 to n do
 x[i]:=random[1000];
dividi i due sottovettori in disp-pari
k:=1;
for i:=2 to n do
 begin
   if (odd(x[i])=true)  and (odd(x[i])=false) then
     begin
        temp:=x[k];
        x[k]:=x[i];
        x[i]:=temp;
        k:=k+1;
     end;
 end;
ora che hai i due sottovettori [1..(k-1)]  e  [k..n]  ci puoi applicare un
qualsiasi algoritmo di ordinamento (il quickshort per es o altri).
Ciao
Alex
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

 Alex
Grazie,
ALVISE

> Non puoi ricorrere a vettori esterni, non puoi usare variabili di scambio.
Beh, se non puoi usare nessun'altra variabile a parte il vettore stesso è
praticamente impossibile scambiare i valori e quindi mettere prima i dispari
e poi i pari.
A meno che non si verifichi che in due "caselle" del vettore ci sia un
numero uguale e quindi usare una casella come variabile di appoggio.
Ma se non si verifica questo non mi sembra ci siano soluzioni...
Boh!
Alex

 wrote in message
news:9f0u6i$1lllh$1...@ID-83341.news.dfncis.de...


Credo che tu possa usare una variabile temporanea per metterci dento un
valore per lo scambio... quello ti è concesso... anche perché sennò la cosa
si fa dura.
Sono esercizi da cui sono passato anche io... fidati... la variabile
temporanea va benissimo. Tu puoi usare un Solo vettore, una variabile
temporanea per lo scambio e un paio di indici per le varie scansioni.
4 variabili in tutto.
--
Michele
    "Nessun luogo è lontano"
ICQ# 64033158
http://digilander.iol.it/Larthal

 wrote in message
news:h7VQ6.9952$HK.5...@news.infostrada.it...


  -  rimuovi XXX x rispondere
Newsgroup: it.comp.lang.pascal
Titolo: Canale IRC e SITO con COMMUNITY su PASCAL

Messaggio a tutti i frequentanti questo newsgroup:
Rispondete a questa news (se siete interessati) inserendo le vostre e-mail,
potremo cosě organizzare bene questa idea!
Roberto!Contattami!
ciao a tutti.
Salvo (BS)

 )
 ( --->  
www.matteomoro.com
  <--- )
 ( --> 
www.matteomoro.cjb.net
 <-- )
 ( --->     ICQ#91902715     <--- )
 >*__/Ż\_/\__/Ż\_/\_/Ż\__/\_/Ż\__*<
     "i am immortal, i have
    inside me blood of kings" Šfm
  ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ

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

Basta trovare un giorno qualsiasi e ci organizziamo in IRC.
potremmo fare Domani: Domenica 11 febbraio in #turbopascal verso le 21.00 /
22.00
ok?
a presto!

 wrote in message
news:9645p9$30p$1...@nreadB.inwind.it...




Arrivo su IRC verso le 21.30/22.00 al massimo.
Il mio nick č MatteoM


Pentium3 č Salvo wrote:

okke soprattutto per irc

Newsgroup: it.comp.lang.pascal
Titolo: Sito sugli esercizi

Ciao a tutti! Qualche tempo fa, qualcuno aveva postato, rispondendo ad un
messaggio, l'url di un sito dove sono presenti i testi di esercizi in tp.
Non è che qualcuno di voi potrebbe darmi l'url?
Grazie
Saluti

www.dejanews.com
 (che fra parentesi adesso e' sotto google...)
dovresti trovare un archivio con tutti i vecchi post del ng
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

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

Non esiste un ng italiano sul delphi !
Ne possiamo parlare qui ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

 wrote in message
7jdq4o$luk$1...@nslave1.tin.it...


Ne possiamo parlare qui ?
it.comp.delphi
Ciao e 73-51 de Tartaruga .
.oO-=> TARTARUGA (* Gabriele *) <=-Oo.
     E-Mail: 
ru...@ita.flashnet.it
http://www.geocities.com/SiliconValley/Peaks/4731/

Ma se ne può parlare anche qui, penso .
Scusatemi, ma se esiste il ng apposta non vedo perche' se ne debba
parlare qui.

 wrote in message
375bee1...@diesel.cu.mi.it...


scusate ....
io avevo cercato it.compl.lang.delphi e non l'avevo trovato ...sorry
grazie dell'informazione ...


...


Vabbè, ma in fondo delphi è pur sempre pascal :)
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!
Ciappi <cia...@NOSPAMtiscalinet.it> wrote in message
7jji3a$130$2...@aquila.tiscalinet.it...


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

Se qualcuno può spiegarmi come creare una directory sull'hd dal pascal.
Grazie.!!!!

...
uses windos;
...
createdir ('c:\nuovadir');
...
ci sono sull'help tutte le funzioni della libreria windos, se ti interessa.
Ciao

Uses Dos;
.....
MkDir ('c:\nuova');
.....
--
Michele
    "Nessun luogo č lontano"
ICQ #64033158
Newsgroup: it.comp.lang.pascal
Titolo: Mi dite la patch per i file *.exe fatti col pascal 7.0 che non vanno se hai un P2 mendocino?

Come da soggetto.
Francesco L
i3...@GIGIO.shineline.it
 (togliere GIGIO. dall'indirizzo)
Firma per Emma Bonino su: 
www.emmaforpresident.com

...


Newsgroup: it.comp.lang.pascal
Titolo: Req:Turbo Pascal free?

Cerco Turbo Pascal, l'ultima versione, la mia mi dà dei piccoli problemi ed
errori, e non mi parte il mouse, anche se ho scaricato da internet il file
mouse.sys e messo in C:
come devo fare per iniziare a programmare?
AIUTO!
--
 ____________________
 ·§§§§·RicDisaster·§§§§·
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Home Page:
http://members.tripod.it/RicDisaster/home.html
E-Mail:
ric...@freemail.it

 AIUTO!
Uomo a mare!!!

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

Per motivi di massimo interesse mi servirebbe un programmino capace di
elencarmi tutte le possibili combinazioni di una password di otto caratteri
composto solo da cifre (0-9).
Sarò grato per tutta la vita a colui che vorrà aiutarmi, allegandomi il
prog. per email a: 
a.del...@isnet.it
Alessandro



...

e' semplice fai cosi :
dim a1 as integer, a2 as integer, a3 as integer, a4 as integer
dim a5 as integer, a6 as integer, a7 as integer, a8 as integer
dim sPsw as string
for a1 = 0 to 9
    for a2 = 0 to 9
        for a3 = 0 to 9
            for a4 = 0 to 9
                for a5 = 0 to 9
                    for a6 = 0 to 9
                        for a7 = 0 to 9
                            for a8 = 0 to 9
                                sPsw = cstr(a1) & cstr(a2) & cstr(a3) &
cstr(a4) & _
                                              cstr(a5) & cstr(a6) & cstr(a7)
& cstr(a8)
                                debug.print sPsw
                            next a8
                        next a7
                    next a6
                next a5
            next a4
        next a3
    next a2
next a1
ciao
Ven

 wrote in message
news:7ncn94$r...@dante.italia.com...


>Sarņ grato per tutta la vita a colui che vorrą aiutarmi, allegandomi il



GIUSTISSIMO !!!!!!!!
Ma con il codice da me suggerito ha lo spunto per capire come si puo' fare
in casi diversi.......
E' ovvio che per lo specifico caso basta un unico ciclo come da te proposto.
Ciao
Ven.