mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: alberi binari casuali

sapete indicarmi un buon generatori di alberi binari
casuali(alberi binari di ricerca).
deve essere efficiente perche' genero alberi fino
a 10000000 di nodi(si, 10 milioni)
grazie. :)

 wrote in message
a0knto$4f0$2...@shamt.mascanc.net...


 wrote in message
a0knto$4f0$2...@shamt.mascanc.net...


Newsgroup: it.comp.lang.pascal
Titolo: file TLE per la localizzazione dei satelliti

Salve ragazzi, sono alle prese con un problemino molto simpatico:
sto sviluppando un programma che ha a che fare con i satelliti
artificiali...
1 16609U 86017A   98268.43873511 +.00040896 +00000-0 +36161-3 0  8131
2 16609  51.6633 257.9107 0007618 124.6013 235.6042 15.68193285719779
Queste sono due linee di un file TLE (Two-Line Element) che viene
comunemente usato come input per la localizzazione dei satelliti
artificiali...(queste in particolare sono relative alla stazione MIR)
Vorrei sapere se qualcuno sa a che cosa si riferiscono tutti questi dati
(devono in qualche modo dare informazioni sull'orbita del satellite) e quale
sia l'algoritmo che calcola i 'flares' ...Chiedo troppo???
Ciao
Ulisse


 1 16609U 86017A   98268.43873511 +.00040896 +00000-0 +36161-3 0  8131
1 numero riga
16609U numero satellite nel catalogo nasa
86017A anno di lancio(86), numero progressivo nel lancio (17) e del carico (A)
98268.43873511  epoca= anno(98) e frazione del giorno dell'anno degli elementi
orbitali
+.00040896 resistenza dell'atmosfera (drag)
+00000-0 derivata seconda del moto medio diviso 6
+36161-3 coefficiente della pressione della radiazione
0  tipo di effemeride
8131 numero dell'effemeride e check sum
2 16609  51.6633 257.9107 0007618 124.6013 235.6042 15.68193285719779
2 numero di riga
16609  numero del satellite nel catalogo Nasa
51.6633 inclinazione in gradi
257.9107 ascensione retta del nodo ascendente in gradi
0007618 eccentricità (punto decimale sottinteso)
124.6013 argomento del perigeo in gradi
235.6042 anomalia media in gradi
15.68193285 moto medio (orbite al giorno)
71977 orbita dell'epoca
9 check sum
Per i flare degli iridium prova a partire da
http://www.satellite.eu.org/sat/vsohp/iridium.html
e cerca......
--
A presto,
    Alessandro
*****************************************************************
Alessandro Gambaro
20022 Castano Primo (MI)
ITALY   45.55N 8.78 E
agam...@betanet.it
http://www.geocities.com/CapeCanaveral/Hangar/7192/

Newsgroup: it.comp.lang.pascal
Titolo: Dove posso trovare la patch per il Pascal?

ho un Athlon 500 e con il freepascal non riesco a far funzionare i file( i
prog. vengono compilati ma poi non partono dandomi sempre ERRORE 102).
Sapete aiutarmi?
ciao e grazie
Fly

 ha scritto nel messaggio
news:lcQZFXrk$GA....@news-02.uni.net...

Newsgroup: it.comp.lang.pascal
Titolo: $$$Come guadagnare soldi in modo facile ed onesto$$$

 Ricordate: SIATE ONESTI!
ONESTA', eh? E gli ultimi della catena, che non riusciranno a recuperare i
soldi spesi
e che avranno finanziato le BBS e le nuove automobili di quelli che sono
arrivati prima,
perché non ci sarà più nessuno che non ha partecipato o che vorrà
partecipare alla
catena? Certo, avranno buttato via al massimo 15.000 (meno di una pizza con
birra),
però ugualmente non mi pare molto onesto...
A proposito, scusate per l'O.T.! Non lo faccio più...    :-(
Mario

Newsgroup: it.comp.lang.pascal
Titolo: come posso creare un array di record variabile????

Come da oggetto!
Ho bisogno di creare un grosso array di record, le cui dimensioni
dipendono da quelle di un file di stesso tipo di record.....
Quando defnisco un array la grandezza è costante...
definire questo array mi serve per maneggiare i dati velocemente
in ram e non sull'hd...
Qualcuno mi può aiutare??
PS:
non centra nulla, ma a che punto sta il PasOS ?

 in ram e non sull'hd...
allora utilizza le liste...

Newsgroup: it.comp.lang.pascal
Titolo: Lista tutte directory

Vi sarei grato se riusciste a risolvere questo mio problema.
Devo inizializzare la grafica, e desiderando fare una procedura comune che
deve funzionare in vari casi ho trovato dei problemi. Il mio obiettivo č far
si che chi desidera utilizzare il mio programma, possa copiare la directory
BGI in qualunque punto dell'HD a suo piacere.
 Io ho pensato di utilizzare il FileSearch, in modo da trovare il path di
dove la directory si trova (cercando ad esempio il file Egavga.bgi);
nell'esempio perņ ho visto che bisogna dargli un elenco predefinito di
directory in cui cercare (l'esempio va a prendere le directory definite nel
PATH dell'AUTOEXEC.BAT). Io desidererei non obbligare l'utente ad inserire
nel Path il percorso della BGI e vi chiedo perciņ una soluzione. Esiste
qualche funzione per ottenere la lista di tutte le directory dell'HD (non
solo C, ma anche altri drive tipo D ecc... e in tal caso anche per avere
l'elenco di tutti i drive)? Avete una soluzione migliore della mia?
Vi ringrazio infinitamente.
Ciao

nel Path il percorso della BGI e vi chiedo perciò una soluzione. Esiste





Io risolvo copiando tutti i files insieme al prog.
Quando inizializzi la grafica fai così:
initgraph(i,j,'');
il tutto in fase di compilazione probabilmente non ti funzionerà (perché
devi modificare la directory in cui ti trovi).
Ma una volta fatto l'exe, non credo che nessuno sfrutti il tuo prog. da una
directory differente :-)
Facci sapere
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth
Newsgroup: it.comp.lang.pascal
Titolo: unit graph

Ciao a tutti. Quando provo ad inizializzare la grafica (ho il TP 7.0), in
fase di esecuzione restituisce un errore per cui la grafica non è
inizializzata "BGI Error: Graphics not initialized (use InitGraph) ". Ho
provato anche ad usare gli esempi della guida in linea x vedere se sbagliavo
io qualcosa ma l'errore è sempre lo stesso.
Dove sta la fregatura? ;)
Ciao e grazie
Cristian

 io qualcosa ma l'errore č sempre lo stesso.


Hai messo il path giusto per i .bgi ?
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Già risolto il problema: ho reinstallato il TP7 da una copia che avevo fatto
da cd e funge la initgraph. Alla versione che avevo scaricato dopo aver
riformattato mancavano proprio i bgi. Grazie comunque!
Ciao
Dreadnaut <drea...@liberoDALLASPAM.it> wrote in message
4zdK7.130611$sq5.6...@news.infostrada.it...


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

Un mega CIAO o tutto il NG!!!
Utilizzo DEV-PASCAL 1.9 in ambiente Win98 S.E. per esercitarmi nella
programmazione in Pascal per scopi didattici (esame di informatica...).
Sono alle prime armi e vorrei chiedere se e come posso fare per aprire alla
partenza dell'eseguibile creato una finestra in ambiente Windows anzichč
Dos.
Grazie mille in anticipo a quanti vorranno rispondere!


wrote:

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Object? Pascal:dove?

Salve a tutti , sapete dirmi dove posso trovare un
compilatore Object? Pascal? e materiale
possibilmente in italiano?Tutto free si intende :-)
Non so se si chiama in questo modo
comunque e OOP/Pascal?
Grazie a tutti
Ciao Roberto

beh un qualunque compilatore TP-compatibile (che non _sarebbe_ free)
dovrebbe fornire l'object-pascal, quindi prova freepascal, tmt e boh..
altri te ne suggeriranno altri :-)
--
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: DJGPP, GNU-PASCAL compilato

Ho installato DGJPP, GNU-PASCAL e RHIDE in ambiente DOS.
In fase di esecuzione  di semplici programmi come HELLO.PAS, allegato
al pacchetto,sia direttamente che nell'ambiente RHIDE si ha l'errore
`cannot open crt0.o: No such file or directory (ENOENT)'.
Chi mi sa fornire lumi?
Saluti, Salvo

A dire il vero non ricordo bene come funziona (e' da tanto che non lo uso,
visto che sono passato a Linux). C'e' una opzione in qualche menu' dove
devi settare le librerie da includere durante la compilazione. Penso che
sia questa la soluzione ma non sono sicuro: io l'ho usato solo con il
C/C++ (il pascal l'ho usato per un anno con Delphi).
Ciao, Marco.
--------------------------------------------------------
                 Marco Ronchini *linux user*
Studente del c.d.  d'Ingegneria Informatica e Automatica
              Universita' di Roma "La Sapienza"
       Sito:
http://www.tibur.dis.uniroma1.it/~d002795
--------------------------------------------------------


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

Sapreste consigliarmi un buon manuale sul TPascal 7.0 per uno che non ne sa
nulla ?
Grazie , Ciao 
frances...@usa.net


Io ho imparato il linguaggio a forza di tentativi, poi mi sono fregato dalla
libreria della scuola
Turbo Pascal 7 "Stephen K. O'Brien, Steve Nameroff" McGraw-Hill
800 pg.
č veramente completo.
sono passati 3 anni č c'č l'o ancora IO :-))
Newsgroup: it.comp.lang.pascal
Titolo: Complicato :-\

Ho bisogno di compilare ed eseguire correttamente questo sorgente:
program Batch;
{$M 10000, 0, 0}
uses Dos;
var
F :Text;
Ch : string;
begin
Assign(F,'cvd.bat');
Rewrite(F);
writeln(F, 'aaaaaaaaaaa');
writeln(F, 'aaaaaaaaaaa');
writeln(F, 'aaaaaaaaaaaaa');
writeln(F, 'aaaaaaaaaaaaa');
writeln(F, 'aaaaaaaaaaaaa');
writeln(F, 'aaaaaaaaaaaaa');
close(f);
exec('cvd.bat', '');
end.
Compilandolo con Tp7 il compilatore non segnala errori, ma eseguendolo si
blocca. Vorrei mettere in una cartella solo i file necessari alla
compilazione + il sorgente. Con tp7 includo: tpc.exe, 
dos.int
, turbo.tpl. Il
fatto è che ho il problema precedentemente mostrato, quindi vorrei provare
con Free Pascal, ma quali file dovrei includere nella mia cartella? Altra
cosa: qual è il comando in Tp per cancellare un file?
Preferirei una risposta per distribuire il file con Free Pascal perchè
dovrei eseguire il file batch senza far apparire la finestrella, quindi mi
servirebbe CreateProcess che è solo su Win32 :-\ Qualcuno può aiutarmi?
-=Azathoth=-

blocca.
Ovvio, perche' non ci metti 
SwapVectors ;
prima e dopo la riga che contiene la chiamata a Exec
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: TSR

Salveeeeee... ho spesso aiutato qualcuno di voi e ora mi servirebbe un serio
suggerimento.
Se qualcuno conosce come rendere residente un programma e l'uso
dell'assembler e ha pratica in tutto ciò mi dica come posso fare a
sostituirmi all'int 21h (quello del DOS) in modo da controllare le chiamate
alle funzioni di modifica della data/ora. Mi serve per fare in modo che
nuessuno possa cambiare la data e / o l'ora da DOS.
Gli interrupt che servono a impostare la data e l'ora sono:
INT 21h (sempre)
    AH = 2A => legge la data
    AH = 2B => imposta la data
    AH = 2C => legge l'ora
    AH = 2D => setta l'ora
Chi mi sa dire come sostituirmi all'int 21h e perchè non ci riesco?

Io ho fatto un paio di tsr in pascal, ma mai provato con l' int 21
Dovresti fare una proc dichiarata come interrupt e mi sembra anche far
(nell'help del tp7 c'era un esempio...) e poi concatenarla sull'int 21.
In pratica fai un GetIntVect (era questo il comando?) e prendi l'indirizzo
della procedura corrente che gestisce le richieste e la sostituisci con la
tua con SetIntVect. Poi nella tua procedura devi, all'inizio o alla fine,
richiamare quella originale e mi sembra anche mascherare ulteriori chiamate
all'interrupt per la durata della proc.
La parte principale deve solo modificare il vettore degli interr. e
terminare con
un Keep.
Ah se non metti qualche modo per terminarlo e scaricarlo dalla memoria ti
rimane li per sempre !! e non e' bello :-)
Se avevi bisogno in assebler puro.... beh le operazioni sono le stesse
(modifica vettori interrupt, insermento nella catena, keep) pero' non posso
aiutarti....
Se invece vuoi posso cercare uno dei vecchi prog che avevo fatto e
mandartelo,
saranno 3 o 4 kb di .pas, non di piu'...
saluti
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
--
Quarantaquattro Pentium,
in fila per 6 col resto di 1.9999458374...
--

 nuessuno possa cambiare la data e / o l'ora da DOS.
[cut...]
ciao, :-))))))))
se tu vai a uncinare l'int 21h, io ti vado a cambiare l'ora dall'int 1ah,
cioè dalle funzioni del bios. se poi ti sei messo pure in mezzo lì, ti
cambio la data direttamente dalla cmos. :-)
ma a cosa ti serve?
un tsr deve essere eseguito e chiunque può decidere di non lanciarlo. come
lo giustifichi poi quando fai "mem /c"? qualcuno con un tantino di
conoscenza te lo becca subito e ci mette un bel "rem" dove lo lanci.
oppure ti serve per fermare un programma in particolare?
in ogni caso come hai fatto a hookare l'int 21h? posta il codice e ti dò una
mano.
ciao!
Giuseppe
Newsgroup: it.comp.lang.pascal
Titolo: Pascal linux

Ragazzi qualcuno mi saprebbe indicare un compilatore Pascal, che giri sotto
linux?
--
Nano Nano caccia il grano!!!
ICQ # 84624356

 sotto linux?
Xilix della Borland
bye,
David (
www.utilityweb.net
)

 ha scritto nel messaggio
news:bihvl3$9st$1...@newsreader.mailgate.org...



Senza dubbio devi scegliere il freepascal: 
http://www.freepascal.org
Ciao by Mariano
http://programmare.altervista.org

> Senza dubbio devi scegliere il freepascal: 
http://www.freepascal.org
Quale č il link del download? Ci sono tanti link e fino ad ora non ne ho
trovato nessuno che vada bene :-((

 Ciao balin
e cmq e' delphi.
-- 
Qualsiasi
"We all know Linux is great...it does infinite loops in 5 seconds." Torvalds


http://www.freepascal.org/sdown.html
Segli da quale mirror scaricare e poi la piattaforma (dos,linux,win ..)
Ciao by Mariano
--
http://programmare.altervista.org


magari ce l'hai già nei CD della distribuzione linux che hai
devi solo installare il pacchetto relativo

ma voi siete riusciti a fare la registrazione di kylix ?
io non ci sono riuscito ne a kylix_open ne a kylix_trial
ciao
erik

Newsgroup: it.comp.lang.pascal
Titolo: Heap e memoria

Dunque ormai da tempo nella programmazione dei miei programmi arrivo ad un
limite di memoria che non riesco a superare..... stavolta non posso
aggirarlo altrimenti dovrei penalizzare un casino il programma.
in pratica ho un po' di dati che cambiano in continuazione
sono circa un centinaio di stringhe con esse ho saturato la memoria..... le
gestisco tramite puntatori e per aggiornare una lista creo una nuova var e
ne cancello l'ultima per liberare memoria, ma non ci riesco !!!!
col comando dispose mi dice errore perchč il puntatore punta sopra lo heap
!!!! come diavolo faccio ad utilizzar piů memoria?
avete una bella unti che mi restituisca il puntatore ad una area di memoria
superiore da lei allocata?
grazie 1kkkkkkkkkkkk non so piů che fare !!!!!!!!!!!!!!!

"Alessandro" ha scritto nel messaggio news:8bo4sg$n8s$2...@pinco.nettuno.it...
ragazzi ne ho davvero bisogno !!!!!
please !!! :)))))))
Ciao!!!


Ciao.
Simone.
==============================
...e Dio disse: "pkunzip universo.zip"
web: 
http://go.to/drfalken
e-mail: 
drfa...@tiscalinet.it
==============================

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

Ciao.
Ho un vettore di n elementi.
Come faccio a prelevare l'ultimo elemento cioe l'n-esimo.
Grazie.

> Come faccio a prelevare l'ultimo elemento cioe l'n-esimo.
intendi nomevettore[n] ?
oppure non sai quanto sia n ?
-- 
Dreadnaut
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:782N9.39186$Ou4.1...@twister2.libero.it...


 ha scritto nel messaggio
news:so4N9.38954$TC5.1...@twister1.libero.it...


Ciao a tutti!!
Sto cercando di scrivere un'equazione ma non ci riesco.
L'equazione è questa: F[i]=F[i-1] + L[i]
Il vettore L[i] è noto, per esempio 0,1,2,3
per cui
F[1]:=0
F[2]:=1
F[3]:=3
F[4]:=6
Grazie e Buone Feste.
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto, procedure.

Dear NG!
Non ricordo come si usano le procedure in Turbo Pascal, qualcuno potrebbe
mandarmi qualche semplice algoritmo esplicativo?
Aiutatemi, altrimenti all'uni non ci capirņ molto.
Pace e prosperitą!

 ha scritto nel messaggio
news:8t4dml$9c7$1...@nslave2.tin.it...


 news:8t4dml$9c7$1...@nslave2.tin.it...


ascolta vegeta, iding si sarà confuso con le function (che anche se
fosse,sarebbe cmq sabagliato) o che so io...

Grazie a tutti!
Ho capito!

Newsgroup: it.comp.lang.pascal
Titolo: URGENTE ERRORE 200

Chi sa dirmi dove scariare una patch
GRaZIie mi serrve per un esame

 wrote in message 8d7e2i$9ar$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: da variabili numeriche a string

ciao a tutti.
in modalità testo,si può fare un operazione come questa:
a:=1;
b:=3;
write('La somma dei numeri è ',a+b,' ecc.........');
e viene visualizzato:
La somma dei due numeri è 4 ecc..........
la domanda è la seguente:
in modalità grafica,come faccio a far visualizzare valori dati da tastiera o
assegnati in ambiente editor?
c'è un modo per fare una cosa di questo tipo:
var frase:string;
......
frase:='La somma è ',a+b,' ecc.....';
così ovviamente non funziona e devo sapere cosa devo fare.
grazie a tutti,ciao
Salvo

Ci sono le funzioni Str e Val che traformano un intero in stringa e
viceversa
ciao :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:_EK66.10570$eB2.1...@news.infostrada.it...

quindi se ho:
var a,b:integer;
      frase:string;
e voglio scrivere questa stringa nella var frase
(a,' è il doppio di ',b)
cosa devo fare?

str + Ctrl-F1
oppure
val + Ctrl-F1

Newsgroup: it.comp.lang.pascal
Titolo: delay e stampa in TpW

Ripeto (non voglio credere sia impossibile)
1) quale istruzione corrisponde in Turbo Pascal Window 1.5 al comando
"delay" in Tp x dos?
2) inoltre, in Tp per dirottare l'uscita da video a stampante serve:
    ....
    uses printer;
    ....
    writeln(lst,.....);
ed in TPW cosa corrisponde?
Grazie 1000
cr1948

 "delay" in Tp x dos?
per quanto riguarda delay, ti passo una procedura trovata su internet:
 Procedure Delay(ms : Word);
 Var       theend,marker  : Longint;
 Begin
{----Potenziale overflow se windows rimane acceso per 49 giorni consecutivi}
  marker:=GetTickCount;
{$R-}
  theend:=Longint(marker+ms);
{$R+}
{----First see if timer overrun will occur and wait for it. Then test as
usual}
  If (theend<marker)
   Then While (GetTickCount>=0) DO;
   While (theend>GettickCount) Do;
 End; {Di Delay}
-- 
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

 ed in TPW cosa corrisponde?
credo a niente.. in quanto la stampa sotto windows deve essere trattata come
una normale finestra.. dove tu puoi disegnare di tutto
con le stesse api che utilizzi per le finestre.. cambia solo il contesto sul
quale vengono eseguite le operazioni
antonio

"Antonio Mazzeo" <a[NULL]mazzeo@[AT]email[DOT].it> ha scritto nel messaggio
news:cqHAb.174173$e6.64...@twister2.libero.it...

Scusatemi per l'OT, ma permettetemi di precisare.
Come primi prg in TurboPascal x Dos da desktop Windows, nella 1ª classe di
un liceo scientifico (insegno matematica del PNI) illustro (li trascrivo per
utilità di qualcuno e per comprensione del discorso) e spiego i 2 prg
seguenti:
program orologio;
uses crt; {serve per il clrscr e per il delay}
var h,m,s:integer;
begin
write('dammi .........'); readln(h,m,s);
repeat
writeln(h,m,s);
delay(1000); {è trascorso circa 1 secondo, ma per tentativi, volendo, si può
precisare}
s:=s+1;
if s=60 then begin
                    ......{azzerare i secondi e aumentare i minuti}
                   end;
if m=60 then begin
                    ......{azzerare i minuti e aumentare le ore}
                   end;
clrscr; {cancella lo schermo e riscrive il nuovo orario fin quando si preme
un tasto per uscire}
until keypressed;
end.
program tavole_numeriche;
uses printer;
...
for ..... writeln(lst,n, sqr .........)
{con lst, l'uscita dal monitor è dirottata su stampante}
....
Avendo deciso di passare al TPW 1.5 (non volendo usare il Delphi che non
conosco e che esulerebbe dai programmi scolastici) come devo modificare?
So che "wincrt" è l'analogo di crt, e qual'è se esiste (ho spulciato tutti i
comandi, le parole riservate, le procedure e unit ..., mi è sfuggito?) il
corrispondente di printer?
Grazie, anche per l'attenzione.
 R.Colasuonno

 Ripeto (non voglio credere sia impossibile)

usa il freepascal per windows 
http://www.freepascal.org
non devi assolutamente cambiare codice
--------------
la mia pagina 
http://web.tiscali.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: Come si utilizzano le array?

Scusate la mia ignoranza, ma sono un novizio nel campo del TP, e ancora non
mi sono chiare le array.
Qualcuno potrebbe chiarirmi le idee sul loro utilizzo?
Grazie.

Grazie.
Gli array sono contenitori di varabili dello stesso tipo
type
 (* creo il tipo array *)
  Vettore = array [1..100] of Integer
var
  Vet : Vettore; (* creo la var del tipo *)
  I: Integer; (* var del ciclo *)
begin
   (* inizilalizzo il vettore *)
   for I := 1 to 100 do
      Vet[ I ] := I
  (* stampo gli elementi *)
   for I := 1 to 100 do
     Writeln(Vet [ I ])
end
Se non ho sbagliato qlc il programma li sopra
stampa tutti i valori da 1 a 100
Per iniziare dovrebbe essere qlc ^_^
Cmq pensa che puoi anche fare una cosa del
genere
array [1..5,1..5] of Integer
per definire una matrice quadrata di 5 elementi
rhymes
rhy...@insieme.net
"La realtà delle cose si nasconde dietro 
la loro reale apparenza (Maestro Hiamuri)"

Newsgroup: it.comp.lang.pascal
Titolo: Materiale per files

Dove posso trovare materiale sui files di testo?

 ha scritto nel messaggio
news:YOmaa.188028$YG2.5...@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: l'ennesimo principiante :)

cia' a tutti,
muoio dalla voglia di imparare il Pascal (bugia), dove mi mandereste
di bello?
giuro che non vi romperò i cosiddetti pregandovi di farmi i compiti o
cose del genere, e giuro che quando il prof di Programmazione I
passerà al C, toglierò il disturbo, a meno che non riusciate a
dimostrarmi che non posso fare a meno del Pascal :)
i compilatori a mia disposizione sono:
Turbo Pascal 5.5
Delphi 5 (ancora per 55 giorni >___<)
Free Pascal 1.0 (16 & 32 bit) - ma il programma d'installazione si
imputtana durante la copia dei file
per darvi un'idea della mia (im)preparazione, per ora conosco (wow!)
le seguenti keyword:
program
var
begin
end
if()then...else
for...do
writeln
readln
write
read
chr

 for...do
For..To..Do

Delphi 5 (ancora per 55 giorni >___<)
Perchč solo 55 giorni? vai su 
astalavista.box.sk
  e cercati un keygen o a
limite la crack..! (č illegale, perņ...;)

For..To..Do
vabbuò, mica potevo scrivere tutta la pappardella :)

 eppoi, cos'ha in più del 5.5?
non so precisamente cos'abbia in + del 5, forse è migliorata la GUI (non
prendetemi a parolacce ho detto forse) però se è 1 numero e mezzo di
versione + avanti qualcosa di meglio ce l'avrà...
Cmq lo trovi su 
www.crackstore.com/tools
 ((spero che l'url sia questo,  è un
po' che non ci vado))

 ma il VB mi ha stufato davvero
E te credo!!!!

Ciao Hype..., benvenuto nel mondo del Turbo Pasquale....   :-)))

>Ciao Hype..., benvenuto nel mondo del Turbo Pasquale....   :-)))
ciao bestia... dai, l'anno prossimo vieni a trovarmi :)

 wrote in message
39dbc7b0...@news.cis.dfn.de...

Newsgroup: it.comp.lang.pascal
Titolo: Problemi con la compilazione

ho appena iniziato a programmare in Pascal, ma come vado a mandare in
esecuzione un qualsiasi programa che ha uses crt mi da l'errore di runtime
200 (ed è una divisione per 0).
L'errore viene dato anche con questo programma:
program prova(input,output);
uses crt;
begin
    clrscr;
end.
che non commette alcun operazione!!
mi scuso per il disturbo arrecatovi e aspetto un aiuto ringraziandovi in
anticipo.
Roby



Riporto questo messaggio apparso poco tempo fa sul newsgroup:
Per risolvere il bug della unit Crt che impedisce di eseguire
programmi in
DOS su Pentium II 200 MHz e oltre si può agire:
- direttamente sui files eseguibili, con il comando "patch
nomefile.exe"; la
patch si può scaricare da 
http://www.merlyn.demon.co.uk/pas-time.htm
;
- sul file TURBO.TPL: in questo modo si possono ricompilare i vecchi
sorgenti ma anche compilare nuovi programmi; la patch si può scaricare
da
ftp://garbo.uwasa.fi/pc/turbspec/bp7patch.zip
.
Entrambi funzionano anche su Pentium II 400 MHz: ci sono alcune patch
che
invece risolvono il problema solo sui Pentium II inferiori a 300 MHz
per la
presenza di un ulteriore bug (di questo non ho la prova, l'ho letto su
uno
dei siti che mi hanno portato a questi due link)
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054
Dark reign,Total annhilation,Age of Empires,Dune2K,C&C2
http://www.geocities.com/TimesSquare/Maze/3856/

Un bel di' Roberto Di Battista scrisse:
RDB> ho appena iniziato a programmare in Pascal, ma come vado a mandare in
RDB> esecuzione un qualsiasi programa che ha uses crt mi da l'errore di runtime
RDB> 200 (ed è una divisione per 0).
RDB> 
E' un bug di TP sui processori molto veloci, tipo Pentium II.
So che ci sono patch, ma non ti so aiutare: non ho questo problema :-)
-- 
"Se qualcosa puo' andar male, lo fara'", legge di Murphy
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

Newsgroup: it.comp.lang.pascal
Titolo: cerco guida completa di Turbo Pascal 7

ciao a tutti, stavo cercando un guida per imparare a programmare in Turbo
Pascal 7 che non sia troppo difficile e che ma che nello stesso tempo
affronti in modo completo tutti gli argomenti partendo dall'inizio però.
Dite che riesco a trovare qualcosa su internet (in italiano ovviamente)
oppure che libro mi consigliate di acquistare?
Buona fortuna per il progetto del browser! Mi piacerebbe molto poter farne
parte...
grazie mille!
ciao

 affronti in modo completo tutti gli argomenti partendo dall'inizio perň.


 wrote in message
8lja5q$sk8$1...@news.mclink.it...

Newsgroup: it.comp.lang.pascal
Titolo: Dos + Graph

uses Crt, Dos, Graph;
var sc, mo: integer;
begin
sc:=detect;
mo:=detect;
InitGraph (sc, mo, 'c:\tp7\bgi');
line (20,40,245,32);
readln;
end.
Questo semplice programmino entra in modalitò grafica e disegna una linea.
Siccome vorrei partire un programma esterno con EXEC devo aggiungere la
linea
{$M $8192,0,0 } ... giusto ?
Ma se la inserisco mi dice Graphic not initialited o una cosa del genere...
come devo fare ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)


{$M 8192,0,0 } implica che la dimensione max (e min) dello heap sia uguale a
zero!!!! In poche parole: quando chiamando InitGraph, la routine DEVE
allocare una certa quantità di memoria per i caricare il driver video, il
font di default, ecc.......tale memoria viene poi rilasciata da CloseGraph
(se non sbaglio).
Dovrebbe andar bene {$M 8192,0,16384 }
---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------

Infatti funziona .... grazie !

...


...

Newsgroup: it.comp.lang.pascal
Titolo: Reboot?

Come si fa a far fare il reboot da un programma in pascal???

Come si fa a far fare il reboot da un programma in pascal???
Ci sono due tipi di reboot ... warm reboot e cold reboot.
La differenza tra i due sta semplicemente nel fatto che il warm reboot attiva il refresh della
memoria (il conteggio, diciamo...)...
Per fare un warm reboot devi inserire il valore 1234h (esadecimale!!!!) nell'indirizzo di memoria
0040h:0072h e spostarti infine nella locazione F000h:FFF0.
Per fare un cold reboot devi inserire il valore 0000h (esadecimale!!!!) nell'indirizzo di memoria
0040h:0072h e spostarti infine nella locazione F000h:FFF0.
Ti posto direttamente un programma pronto per l'uso ...
------------------
Program Warm_Reboot;
Var p: procedure;
Begin
Mem[$0040:$0072]:=$1234;	{ riga 1 }	
@p:=ptr($F000, $FFF0);		{ riga 2 }
p;				{ riga 3 }
End;
---------------------
La riga_1 assegna all'indirizzo di memoria $0040:$0072 il valore $1234 e quindi un warm_reboot.
Se avessi voluto un cold reboot avrei dovuto scrivere Mem[$0040:$0072]:=0;
La riga_2 assegna all'indirizzo della nostra variabile procedura l'indirizzo del reboot.
La riga_3, chiamando la procedura, non fa altro che spostare anche il "processore" sull'indirizzo
del reboot ... e il computer magicamente rebootta (quant'e' brutta la resa in italiano ...).
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....

nella riga 1 da constant out of range    =(
MemW[$0040:$0072]:=$1234;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 MemW[$0040:$0072]:=$1234;
wow!
ora si che funziona!
ho gia pensato di metterlo nell'autoexec di qualche mio
amico... =)
grazie 1000 (©1999 Max Pezzali, 883)

Questa proc effettua solo un bootstrap.

Newsgroup: it.comp.lang.pascal
Titolo: input dati gradevole!!!!

Salve agli amici del NG , il vostro supporto mi è sempre stato utile e sono
certo che anche stavolta lo sarà .
Il problema è quello dell' inserimento dei dati da parte dell'utente  in un
porgramma che risolve sistemi di equazioni lineari . I più matematici
sapranno che le costanti da inserire sono parecchie ( se ci sono 3 equazioni
mi servono 12 costanti !!!) . Per non creare un "casino" sull' output vorrei
che venisse visualizzata una schermata con le costanti da inserire :
a1 = xxxx       b1=xxxx      c1=xxxx ......
e vorrei fare in modo che il cursore si spostasse da a1 a b1 quindi c1
....... premendo l'invio .
Quali sono le istruzioni da utilizzare?
Ringrazio 1000 volte chi avrà voglia di perdere un poco del suo tempo x me
......

 ha scritto nel messaggio
news:900c8a$ijf$2...@nread2.inwind.it...

per favore rispondetemi......

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
"E' buio.  Pesto", come disse lo skinhead.
		-- Da it.hobby.umorismo
Newsgroup: it.comp.lang.pascal
Titolo: COMPILATORE

Come faccio a decompilare una unit?
Il mio prof ha detto che serve un programma che la decompili, ma dove lo
trovo?
=============================
          God's in his heaven,
        all's right with the world
=============================
NERV command center in Neo-Tokyo 3

trovo?
Decompilarla per quale scopo ?
Se vuoi leggerne il codice sorgente t'avverto che sei sulla cattiva
strada ! ;)
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 wrote in message
38bb8c86....@diesel.cu.mi.it...


Perchè sulla cattiva strada?
Perche' non e' possibile decompilare ed ottenere il sorgente.


 wrote in message
38bbdbe7....@diesel.cu.mi.it...


Non è possibile per onestà o proprio è tecnicamente impossibile?
La seconda che hai detto ;)


 wrote in message
38bbf5fd....@diesel.cu.mi.it...


Ehm in realta č possibile e ci sono tanti decompiler...
Ripeto che non puoi ottenere il codice sorgente da quello compilato.
Al massimo riesci ad ottenere il codice assembly.


 Al massimo riesci ad ottenere il codice assembly.
Ha ragione Andrea, al massimo ottieni il codice in linguaggio simbolico,
quindi assembly, perchč il compilatore esegue delle correzioni e
ottimizzazione al codice che quindi rendono inottenibile il sorgente dal
compilato.

 quindi assembly, perchè il compilatore esegue delle correzioni e


Newsgroup: it.comp.lang.pascal
Titolo: C'è da qualche parte 1 Manualetto su internet che..

...dia delle delucidazioni in merito alla costruzione e tutto quello che
riguarda file e puntatori..Porca miseria il libro welsh elder consigliato
dalla Sapienza fa schifo,č di serie C!
Grazie

 riguarda file e puntatori..Porca miseria il libro welsh elder consigliato
Chiedi pure!!
Avevo intenzione di scrivere una specie di tutorial sui puntatori, ma non ne ho
avunto anchora il tempo!!

Guarda io sto alla Sapienza al primo anno di informatica
Il libro di Pascal è mediocre..ti dico che non ho capito non solo i
puntatori (innanzitutto la sintassi e il loro significato) ma pure i
parametri x valore e x variabili nelle procedure.In soldoni che significato
hanno?Quando si usano?Xchè?
Scusa sono domande idiote ma sono un dilettante della programmazione e
purtroppo il testo non è all'altezza
Grazie

> parametri x valore e x variabili nelle procedure.In soldoni che significato
Per valore (senza var): e viene ricreata una variabile locale dello stesso nome
e tipo del parametro che contiene il valore passato; tutte le modifiche a questa
variabile rimangono interne alla procedura, e d una volta usciti non si vedranno
per indirizzo (con var): viene passata l'effettiva locazione di memoria che
contiene la variabile passata e tutte le modifiche avverranno effettivamente
sulla variabile passata ed avranno effetto anche fuori dalla procedura!
Newsgroup: it.comp.lang.pascal
Titolo: progr. NumeriPrimi , error200???

Salve NG!!
ho cominciato a studiare TP da qualche giorno, da sola, senza
insegnanti o compagni di corso a cui chiedere qcs, ma per fortuna ho
trovato voi! questo e' il mio primo esperimento, vorrebbe essere un
programmetto che scrive tutti i numeri primi da 3 a 253
var x,y,i :integer;
begin
for x:=3 to 253 do
                begin
                 y:=2;  (*controllo se e'dispari*)
                 if (x mod y)<>0 then begin
                                 for  y :=3 to round(sqrt(x))do
                                 while (x mod y)<>0 do
                                 y:=y+1; (* escludo i numeri pari *)
                                 end;
                if i<>0 then
                writeln (x, 'e''primo');
               end;
       readln;
       end.
perche' mi da' error 200 division by zero??
p.s. ho un pentium 166
grazie a chi mi rispondera' (anche in privato: 
penth...@hotmail.com
)
buon 2001 a tutti i Pascales!!
betsy

...


                 if i<>0 then
La variabile i è stata dichiarata ma mai inizializzata, per default il Turbo
Pascal iniziazza il valore a 0 quindi non stamperà mai il numero primo anche
se lo trova
Ho riscritto il programma, non è il massimo dell'ottimizzazione ma funziona
bene
program primi;
var x,y :integer;
    primo : boolean;
begin
   for x:=3 to 253 do
     begin
        if (x mod 2)<>0 then  (* controlla se è dispari *)
          begin
              primo:=true;        (* setta la flag primo a true in modo tale
che entri nel ciclo *)
               y:=x-1;
             (* divido il numero x per tutti i suoi precedenti finchè y non
è un   divisore o è uguale ad 1 *)
             while (y>1) and (primo) do
                 begin
                     primo:=(x mod y)<>0; (* primo = treu    se x non è
divisibile per y | false il contrario *)
                     y:=y-1;
                end;
         if primo then
          writeln (x, ' e''primo');
       end;
   end;
   readln;
end.
Ciao Re Di Cuori

                                  y:=y+1; (* escludo i numeri pari *)
Il problema è in questo ciclo while che incrementa la variabile intera y
fino a giungere a 32767, che è il numero massimo per gli integer, dopodiché
passa a -32768, +1 = -32767, +1= -327666, etc.... fino ad arrivare
a -3 -2 -1 0!!    ....ed ecco il tuo error 200 division by zero.
Ciao! Gianluca
[cut]


http://digilander.iol.it/darkbytes
Sai Vegeta, io ti capisco, so che è bello gestire un sito web con la 
risposta ad ogni problema, ma vedi... il problema di cui parli tu non è 
legato tanto alla frequenza di clock del processore quanto all'utilizzo del 
modulo Crt.
Lei, in questo programma NON UTILIZZA IL MODULO CRT, pertanto TUTTO può 
essere ciò che causa il malfunzionamento ma non il famoso problema per PC 
over 200 MHz!!!
Ciao!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

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

ho ancora il turbo pascal 5 dove posso scaricare una versione completa
un po + recente??

...

Newsgroup: it.comp.lang.pascal
Titolo: Accesso alla label del floppy

Esiste una procedura standard che permetta l'accesso alla label del
dischetto affinchè il programma possa rendersi conto se il dischetto è
quello giusto o no???
E se non esiste, qualcuno puo spiegarmi come fare per accedervi??
-- 
el rasune'
Ca' custa chiel ca' custa...
	Viva la val d'Austa!
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
39FE0DCF...@inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: Come ordinare record

Ciao,
volevo kiedervi una kosa,se ho un file contenente TOT record come faccio a
stamparli in maniera ordinata?
Le dichiarazioni sono qste:
Type
stringa20=stringa[20];
tipop=record
    nome:stringa20;
    luogo:stringa20;
   anni:integer
end;
filep=file of tipop;
I record devono essere stampati in ordine alfabetico in base al nome,se il
nome è uguale allora in base al luogo e se sono ancora uguali in base agli
anni.
Grazie anticipatamente!!!

 anni.
Crea una lista dinamica che contenga nome,posizione nel file
Type Indice=record
     nome : stringa20;
     pos : long;
     next : ^indice;
end;
(controlla questa definizione...)
La lista la crei fruttando inserimento in ordine, quando trovi i nodo con lo
stesso nome ti leggi il rispettivo record e controlli il campo luogo.
Una volta creata la lista puoi stamparla riferendoti al campo pos.
seek(f, index^.pos);
Se l'operazione è di fondamentale importanza nel tuo programma  ti conviene
salvare la lista in un file, file che apri all'inizio del programma e che
riscrivi alla fine con la nuova lista il modo tale da ricreare la lista
ordinata utilizzando un semplice accodamento.
Se il file contiene troppi record potresti costruire più liste seguendo es :
A-B C-D e così via un pò come una rubrica telefonica in modo da limitare la
memoria occupata e gli accessi al disco quando devi riscrivere il file
indice. Per questo tipo di operazione potresti utilizzare un array di liste
var ArrayIndex ['A'..'Z'] of lista;
Inoltre la lista la puoi utilizzare per effettuare ricerche nel file, in
questo caso ti consiglio di inserire un nuovo puntatore prec, in modo da
poter utilizzare una skip&search : ossia salti 3-5 nodi e controlli il campo
nome se è minore continui se è maggiore torni indietro fino al 3-5 nodo
precedente.
Ciao ReDiCuori
---------------------------------------------------------
Web Master : 
www.pascallike.too.it
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: hardware per pascal

Scusate la intromissione, ma ho un quesito da porgervi, il figlio di un mio
amico ha iniziato a scuola ( 1° media ) a studiare il Pascal su Pc della
scuola stessa , allora lui vorrebbe sperimentare i suoi listati su un
computer a casa sua.
Domanda = qual'è la necessità di hardware e software per fare tutto ciò?.
Scusatemi se la domanda può essere molto stupida,ma l'unica cosa che sapevo
del Pascal erà che era un linguaggio di programmazione usato qualche anno
fà.
Grazie per la collaborazione.
--
Alessandro Cattini
Via Labriola 25
42011 Bagnolo in piano (RE)
old...@tin.it

 Domanda = qual'è la necessità di hardware e software per fare tutto ciò?.
è sufficiente un 286 (ci gira tranquillamente il Turbo Pascal 7 della
Borland/Inprise che probabilmente è quello usato a scuola)
Saluti
Nicola Rossignoli
n.ross...@iname.com


Allora, anche io qualche anno fa a scuola programmavo in TP, tuttavia tu non
specifichi la versione dal ragazzo utilizzata a scuola. Nel mio istituto si
usava la versione 3.0 che gira che su un 286 con 1 mega di RAM, direi che
con 100.000 si potrebbe trovare in commercio ( meglio se con monitor ). Poi
ho anche a casa la versione 7.0 ( che potrebbe essere quella utilizzata dal
ragazzo ), qui non so, ma lo ho provato su un 486 con 4 mega di Ram e andava
una meraviglia. ( Con 200'000 e monitor credo che si potrebbe acquistare )
Poi mi sembra logico, più l'hardware è potente più le operazioni sono
veloci, comunque visto che il figlio del tuo amico sicuramente non creerà
 almeno per il momento ) l'hardware di prima dovrebbe andare benissimo ( si
possono creare anche programma robusti su quell' hardware )
Spero di esserti stato di aiuto,
Ciao

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

come si usano dei comandi dos dall'interno di un prog
pascal?..........................................................
dovrei realizzare un programma che in apertura legga l'ora (fin qui ci sono)
dopo di che resti in attesa per un determinato periodo di tempo e infine in
chiusura rilegga l'ora. come posso fare ? ................grazie

chiusura rilegga l'ora. come posso fare ? ................grazie
Per leggere l'ora usa il GetTime (e questo l'avevi capito, a quanto
pare).
Per restare in attesa usa il Delay (anche se il tempo di attesa è
strettamente dipendente dalla macchisa su cui stai facendo girare il
programma).
Per rileggere l'ora in chiusura, basta usare nuovamente il comando
GetTime.
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm
Newsgroup: it.comp.lang.pascal
Titolo: Come si fa a colorare lo sfondo?

Ciao a tutti,
vorrei sapere quale la funzione che mi fa colorare lo schermo. Conosco
Textbackground ma colora solo lo sfondo delle parole che si scrivono.
Esiste un modo per far diventare il cursore in esecuzione ins?
--
http://www.geocities.com/Colosseum/Stadium/2485/
Se vuoi giocare a scacchi per e-mail gratuitamente c'č
SIR che organizza tornei e anche match singoli ad honour
(senza l'uso del computer).
Pubblica anche un giornale scacchistico a cui tutti
possono collaborare.
http://www.geocities.com/Colosseum/Stadium/2485/
--
Automatic posted from root@[195.223.180.8]
via Mailgate Server - 
http://www.mailgate.org

Non ricordo bene come si chiama esattamente ma in grafica dovrebbe essere
setground.
diego
--
------------------------------------------------------------------
Per risposte togliere NOSPAM dall'indirizzo
For Reply remove NOSPAM from address
------------------------------------------------------------------
Luca Landucci ha scritto nel messaggio
+ADw-34E093A1.FB6F8B7E+
AEA-pontedera.pisoft.it
+AD4-...
+AD4-Ciao a tutti,
+AD4-vorrei sapere quale la funzione che mi fa colorare lo schermo. Conosco
+AD4-Textbackground ma colora solo lo sfondo delle parole che si scrivono.
+AD4-Esiste un modo per far diventare il cursore in esecuzione ins?
+AD4-
+AD4---
+AD4-
http://www.geocities.com/Colosseum/Stadium/2485/
+AD4-Se vuoi giocare a scacchi per e-mail gratuitamente c'+AOg-
+AD4-SIR che organizza tornei e anche match singoli ad honour
+AD4-(senza l'uso del computer).
+AD4-Pubblica anche un giornale scacchistico a cui tutti
+AD4-possono collaborare.
+AD4-
http://www.geocities.com/Colosseum/Stadium/2485/
+AD4-
+AD4-
+AD4-
+AD4---
+AD4-Automatic posted from root+AEAAWw-195.223.180.8+AF0-
+AD4-via Mailgate Server - 
http://www.mailgate.org

Textbackground ma colora solo lo sfondo delle parole che si scrivono.
Basta che dopo aver fatto TextBackGround(colore) tu faccia ClrScr.
CIAO,      fabio

Esiste un modo per far diventare il cursore in esecuzione ins?
Intendi che se scrivi ti si spostano tutte le lettere dopo?? No. Devi crearti
una matrice di caratteri che contenga tutto il testo e quando vuoi che
inserisca, sposti tutto.
Esiste però la funzione per inserire righe vuote (INSLINE).
Emanuele Cesena
d.a.m...@iol.it

Esiste un modo per far diventare il cursore in esecuzione ins?
In che senso ? cambiare le linee di lampeggio ?
Se e' questo che intendi si puo' fare.
--------------------------------------------------------
Andrea      
===========================================================================
Altro che sconti Telecom ! fatevi un bel panino con la Nutella...
---------------------------------------------------------------------------
Ti ho messo la maionese ! ti ho messo il chectch ? che vuoi di piu' ?
---------------------------------------------------------------------------
per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo
---------------------------------------------------------------------------
ICQ# 8143647
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Quanto occupa - dimensioni file - il TP 7.0 o versioni precedenti?

Come da oggetto...

Newsgroup: it.comp.lang.pascal
Titolo: IL TP7 NON HA PIU' SEGRETI PER TE?

SE SAI TUTTO SUL TURBO PASCAL 7 E ASM E VUOI SVILUPPARE UN BEL PROGRAMMA
SCRIVIMI SUBITO
CIAO FRANCESCO: 
SAMP...@SUNTO.ING.UNISI.IT

...


Newsgroup: it.comp.lang.pascal
Titolo: estrazione dati da file...

Vi spiefo il mio problema.
Ho 50 files di dati fatti in questo modo:
File1                    File2                    ... File50
101.4    1004        105.7    5348
102.7    3024        106.8    2365
105.3    4352        107.5    3265
1024 volte, nel senso che ogni file ha 2 colonne di 1024 righe l'una.
Io devo leggere questi valori e scriverli in un file di testo (un.csv (comma
separeted values) per poterlo importare facilemente in excel) rigorosamente
con il layout mostrato qui sopra (invece degli spazi ci sarebbe una
virgola).
Le soluzioni acui ho pensato sarebbero:
1) aprire tutti i 50 files contemporaneamente e leggere riga per riga i
dati, ma questo non si può fare perchè 50 files aperti sono troppi e il dos
dà errore (non c'era un parametro nell'autoexec che permetteva di impostare
il numero massimo di files aperti contemporaneamente? Ho WinME e guardando
l'autoexec, non ce n'è traccia);
2) aprire il primo, leggere i dati e scriverli nel file di output. Dopo
averlo chiuso aprire il secondo... e qui viene il problema! Come faccio a
dirgli di scrivere i dati incolonnandoli a destra di quelli già scritti?
3) aprire il primo, leggere la prima coppia di dati e scriverla nel file di
output. Chiuderlo, aprire il secondo, leggere la prima coppia di dati e
scriverla nel file di output (coppia che ora verrà scritta a destra di
quella precedente). Ecc per 50 volte... e ora viene il problema! Ora devo
ripetere questa cosa per la seconda riga... ma come faccio a dire al
programma di andare a leggere la seconda riga appunto, visto che la prima è
già a posto? Ecc per tutte le 1024 righe...
Possibile che non si possa puntare ad un punto preciso di un file text
(quali sono i file di origine dei dati) e proseguire da lì? In questo modo
potrei seguire la terza via...
Grazie a tutti.
Davide

 Davide
Di niente.
Emanuele

 > dirgli di scrivere i dati incolonnandoli a destra di quelli giŕ scritti?


 Intanto provo cosě.
Un controllo lo devi fare sempre e cred che quello sia il migliore, ma se
sei sicuro che i files sono di 1024 righe puoi sempre usare un contatore e
fare un:
I:=1;
While I <> 1024 do
Begin
....
....
....
I:=I+1;
end;
oppure la soluzione migliore:
For I := 1 to 1024 do
Begin
...
End;
--
By Ser Kill
"The life is in my code..."
"Basta una scintilla e zac, il cervello ti si fonde, mentre
 prima potevi avere una vita "normale" ora sarai solo nel tuo silenzio"