mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Esiste ?!?

Esiste un sito in cui sono spiegati o enunciati gli ALGORITMI
in Pascal (in C ne ho trovati un paio)
In particolare sto' cercando gli algoritmi di Dijkastra (penso si scriva
cosi') e Bellman-Ford-Moore
Grazie Luca

...


Newsgroup: it.comp.lang.pascal
Titolo: Problema Turbo Pascal a schermo intero...

Salve, ho WinXp e quando avvio il TP7 a finestra normale mi funziona bene,
ma quando lo mando a schermo intero (alt+invio) non si vede più niente, solo
lo schermo nero, e a dire che prima funzionava bene anche a schermo intero,
ho anche provato varie versioni di TP7 ma il problema rimane, come posso
fare per risolverlo? Cosa devo configurare?
Aiutatemi vi prego, per me TP è indispensabile perchè l'ho sto studiando
all'università

[ot] innanzitutto inizia a studiare un po di italiano...perche "...l'ho sto 
studiando..." non si sopporta!!
VAI A STUDIAREEEEE!!!!!! 


7 inviti Gmail disponibili (ma non li vuole proprio nessuno?)

in "un po" non ci va l'apostrofo, al limite l'accento sulla "o"......io ho 
scritto cosi per sbrigarmi!! 

 "o"......io ho scritto cosi per sbrigarmi!! 
non so' da quale passato remoto esca questo messaggio, ma in "un po'"
l'apostrofo e' -necessario- in quanto contrazione di "un poco"...
apostrofi e accenti cmq si confondono un poco su usenet, dove per problemi 
di charset e per scomodita' di raggiungere quel "`" lassu' si mette un 
unico segno per entrambi :)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Free Pascal 2.0

Un po' stento a crederci, ma una notizia sul pascal ha raggiunto slashdot 
nel 2005 :)  Signori e singore, e' uscito Free Pascal 2.0 !
http://www.freepascal.org/
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
http://www.freepascal.org/
E c'è anche un bell'articolo su OSNews:
http://www.osnews.com/story.php?news_id=10607
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG Public Key 
http://xoomer.virgilio.it/greedyfly/michele.asc
Newsgroup: it.comp.lang.pascal
Titolo: mi aiutate x favore??

Mi servirebbe un aiutino........premetto che la mia conoscenza del Pascal č 
solamente scolastika..............perņ devo  assolutamente scrivermi un 
programmino che semplicemente mi scriva su un file di testo .........non penso 
sia eccessivamente difficile.....solamente io ne so poko..:)))
Tnx  
B[a]T^MaN

B[a]T^MaN
scusa se sono ultra rapido e conciso, ma ho ultrapoco tempo:
var f:text;
begin
 assign(f,'c:\io.txt');
 rewrite(f);
 writeln(f,'Ciao a tutti!');
end.
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
http://www.geocities.com/SiliconValley/Grid/8879
"Il proiettile in arrivo ha diritto di precedenza"

Ti aiuterei anche ma non ho capito una cosa: devi scrivere su un file di
testo esistente o lo devi creare ex novo?


Già esistente..........tnx


Ho provato ....
var f:text;
begin
 assign(f,'c:\io.txt');
 rewrite(f);                       ****Io devo aggiungere delle stringhe ad un 
                                           file già esistente.......devo usare 
                                           Append al posto di Rewrite o 
                                           sbaglio?????
 writeln(f,'Ciao a tutti!');
end.
ma mi crea solamente il file........sul quale poi non scrive 
nulla........xchè???
B[a]T^MaN

Già esistente..........tnx
Allora: guarda sull'help le seguenti procedure:
assign
reset
rewrite
append
writeln
readln
dopodiché pupoi fare tutto di tutti con i files (o quasi) :-)



Beh... è strano: comunque ricorda di chiudere il file:
close(f);
forse ti si risolve il problema, anche se, come ripeto, è strano :-)


>>programmino che semplicemente mi scriva su un file di testo
Se mi spieghi meglio... te lo invio giá pronto in TP6.
Byez


Perche' il file alla fine va chiuso:   Close(f)
Se tu vuoi semplicemente scrivere sul file aggiungendo delle stringhe
alla fine lo devi aprire utilizzando Append(f), se in vece lo vuoi
riscrivere lo devi aprire utilizzando Rewrite(f). Ma sempre alla fine
lo devi chiudere utilizzando la Close.
Guarda e prova questo semplice programmino:
program  aggiungi_a_file;
var	f:text;
	s:string;
begin
	Assign(f,'io.txt');
***Assegnazione del file
	reset(f);
***Apertura del file per la lettura
	 while not eof(f) do begin
		readln(f,s);
		 writeln(s)
	end;
*** Stampa del suo contenuto.
	writeln;
	write(' Nome da aggiungere: ');
	readln(s);
*** Richesta input da tastiera del nome da aggiungere al file
	Append(f);
** Apertura del file per accondare
	writeln(f,s);    *** Scrittura
	close(f)         *** Chiusura file
end.
CIAO,   Fabio
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Ma questo NG è morto?

Come mai non vedo + nuovi messagi in questo NG?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

eeeh.... tempi duri per il pascal... sai anche lui e' appena
tornato dalle vacanze :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 Come mai non vedo + nuovi messagi in questo NG?
Perchè le scuole sono schiuse?
--
BlackDemon - 
bde...@dominio.it
per mandarmi un'e-mail scrivi 'iol' invece di 'dominio'

 wrote in message
3b954281.50116623@apache...


Newsgroup: it.comp.lang.pascal
Titolo: Come riconoscere i tasti non comuni?

Salve a tutti! Vorrei farvi una domanda...
Come posso fare per fare riconosce ad un programma dei tasti tipo i tasti
funzione (F1 F2 ecc.), oppure ALT + F1 ecc.?
Grazie un saluto
--
----------------------------------------------
ICQ NUMBER: 147421455
http://www.posieidon.3000.it
http://posieidon.supereva.it

 funzione (F1 F2 ecc.), oppure ALT + F1 ecc.?
www.pascallike.too.it
 oppure 
utenti.lycos.it/pascallike
sezione sorgenti
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

Ok grazie! scaricato, letto, capito :-))
ReDiCuori <redicu...@NOSPAMinwind.it> wrote in message
grV79.230104$Jj7.5...@news1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Cosa c'e' che non va in'sto programma? - dma6.pas (0/1)

Ciao.
Ho scritto un programma (in TP 6) che usi il controller DMA per
trasferire campioni di suono dalla SB16 alla memoria,ma non funzione.
Se mi dite qualcosa ve ne sono grato.
            _
           / )
           |/
           |
Rhye      /|_    
vis...@iperbole.bologna.it
         (/_>\ 
          \|_/
           |
          </         



Newsgroup: it.comp.lang.pascal
Titolo: Consiglio per un principiante

Per interesse personale ho da poco iniziato a studiare programmazione e
il linguaggio che mi è stato suggerito è il Pascal. Mi è
stato consigliato di documentarmi attraverso tutorial elettronici prelevati
da Internet. Purtroppo la vasta presenza di terminologia specifica in questi
tutorial unita ad una mia non perfetta conoscenza dell'inglese si sono
rivelati un difficile ostacolo da superare. Per questo volevo sapere se
esiste qualche sito che distribuisce tutorial in lingua italiana o se qualcuno
mi può consigliare un buon testo in formato cartaceo per iniziare,
tenendo conto che non so praticamente nulla dell'argomento programmazione.
Un grazie in anticipo, Chiavix

 wrote in message 377664CB...@tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Esecuzione programma Dos

Ciao ragazzi,
qualcuno saprebbe dirmi come eseguire, mandare un input (e riceverne
l'output) un programma figlio in pascal?
Cioe' eseguire per esempio il prg "c:\windows\command\nc.exe", con argomenti
"
www.microsoft.com
 80" e, una volta eseguito, dargli il comando "GET
index.html", ed infine riceverne l'output per poterlo elaborare.
Grazie anticipatamente.
Klayman NeverHood
_
klay...@libero.it
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

L'unico modo che io conosca e avviare il programma con EXEC e poi
ridirigere l'output in un file di testo...
per elaborare il file di testo si apre e si usano read e write
per ridirigere l'output si usa
NOME.EXE > NOME.TXT
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Forse puoi usare la funzione SetTextBuf...
nel TP7 c'e' il GREP2MSG nella directory bin che puo' essere d'esempio
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Problema con TSR

CRSOFT (
crs...@freenet.hut.fi
) wrote:
: Ho il seguente problema con un tsr che sto facendo:
: devo intercettare i tasti premuti per poi salvarli su di un file. Ho
: letto da qualche parte che per scrivere sui files dovevo agganciarmi
: all'int 28 (credo) ed utilizzare quello per scrivere. Ora il programma
: funziona abbastanza bene ma c'e' ancora un piccolo problema: Quando
: carico un qualunque altro programma (ad es. l'Edit, il Pascal, un gioco)
: il suddetto int smette di scattare. Come posso fare per aggirare questo
: ostacolo? In poche parole, come fanno i cattura schermo a non avere
: problemi?
: Grazie in anticipo
:   Roberto
Dipende, ci sono diversi metodi per fare un screen capture.
Alcuni prog. e  giochi bloccano l'interrupt 09 ,quello che
controlla la tastiera, senza richiamarsi il vecchio handler, 
per ripristinarlo una volta terminati. Se il tuo TSR utilizza questo
metodo risultara' inattivo durante l'esecuzione di tali prog.
Cosa importante e' inserire l'istruzione di clear interrupt quando  si entra 
in un  handler e ripristinare con set interrupt quando si esce, questo per 
non permettere l'interruzione della tua routine da parte di un altro evento,
potrebbe essere questo il tuo problema. 
 asm cli
 .
 .
 .
 asm sti
mailto: 
dar...@zoo.diaedu.unisa.it
 
jer...@mbox.starnet.it

 
fammi sapere se e' davvero questo.
Io ho avuto il tuo stesso problema tempo fa.
Mi e' bastato incrementare la memoria con le solite istruzioni al
compilatore $M .... , per poter scrivere su disco.
-- 
Demis Magoga
de...@mall.it
dma...@merlot.dtv.unive.it
http://www.geocities.com/SiliconValley/Horizon/3639
 
[Internet: Chi cerca trova]

 utilizzando il blockwrite.
Adesso ho capito tutto!!! Grazie per la risposta. 
Davvero illuminante, ma come ho fatto a non capirlo da solo? ;-y
Roberto
Newsgroup: it.comp.lang.pascal
Titolo: Vendo BORLAND Pascal

Ciao,
vendo il seguente programma, ORIGINALE, in inglese, completo di scatola,
manualistica e 4 Floppy Disk da 1.44Mb:
. BORLAND Turbo Pascal 7.0 x DOS
in perfette condizioni!
Per offerte, serie: ___
69...@freemail.it

manualistica e 4 Floppy Disk da 1.44Mb:
e che te ne fai di 4 Floppy se la confezione completa e di 7...

4 dovrebbe essere il Turbo Basic 7
--
Dreadnaut
(Life would be easier if I had the source code)

> e che te ne fai di 4 Floppy se la confezione completa e di 7...
il Turbo Pascal sono 4, il BP sono 7 :-)


maledetto outlook...


La versione completa del borland pascal with oject 7.0 originale conta 11
dischetti (10 di istallazione + 1 di sorgente unit)
Con altrettanti volumi :p
Cooper.

io ho una triste versione scolastica (with object) in soli
4 dischetti zippati a paletta... quella in 11 magari erano
da 720 :-p... no scherzo :-)



wrote:

Io mi riferivo proprio a quella versione... mi mancano beh 4 disk... e
"11" mi interesserebe vederlo....
beh a scuola avreanno fatto qualche mascello...
cmq sei sicuro che la tua non è la fantomatica 7.1?

La versione completa del borland pascal with oject 7.0 originale conta 11

Io mi riferivo proprio a quella versione... mi mancano beh 4 disk... e


 ha scritto nel messaggio
news:3c88e046....@razziatore.d2g.com...


 4 dischetti zippati a paletta...
e non sei l'unico.. e si trova dappertutto da scaricare in rete,
sempre in 4 dischetti.
Turbo C++ in 3 dischetti super zippati!

Newsgroup: it.comp.lang.pascal
Titolo: Cerco Pascal+Istruzioni in Italiano

Spero qualcuno possa aiutarmi, cerco un sito dove scaricare il Pascal o al
massimo se me lo possiate mandare via e-mail (
alem...@libero.it
).
Cerco anche istruzioni in italiano (non complicate dato che sono all'inizio
pensate ho appena imparato a fare addizione, sottrazione e moltiplicazione).
Forse perchč ho solo 13 anni???
Vabbč,
un grazie anticipato a tutti quelli che mi risponderanno.
Grazie
Ciao
Alessandro.
P.S.: Cerco anche istruzioni per il Tp7.

 Vabbè,

Newsgroup: it.comp.lang.pascal
Titolo: nomi di file lunghi in TP

Ho il vecchio Turbo Pascal 7.0 e mi diverto a fare brevi programmini. C'è un
modo per gestire i nomi di file lunghi di Windows?

modo per gestire i nomi di file lunghi di Windows?
Si, esiste, o meglio, esistono le routine dell'interrupt 21h (funzione 71h).
Ma devi rivoluzionare mezzo mondo ! :)
Skyscraper (
andrea_...@bigfoot.com
)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 modo per gestire i nomi di file lunghi di Windows?
Non credo. Infatti quando esegui un prog. in tp sei in modalita` dos e
quindi windows ti fornisce i servizi di sistema del dos. Credo che la
cosa non sia bypassabile nemmeno fognando con gli interrupt. Sicuramente
il 21 rimane tale e quale per compatibilita` verso il basso e cosi`
anche per il 13. Credo che i nomi lunghi vengano gestiti con altri
interrupt o al limite con gli stessi ma solo in ambiente windows puro.
Ma siccome i programmi a 16 bit funzionano ancora sotto win95 posso
ipotizzare che si usino gli stessi interrupt inviandogli pero` dei
codici particolari in modo che questi si "trasformino" nei nuovi. O
qualcosa di simile.
Ciao
  Roberto.
-- 
-------------------------------------------------------------------
 Vabbe`  ma  mica posso fare tutto io! Te lo sai a che ora mi sono
 alzato  questa  mattina? Alle sette meno un quarto! La bambina mi
 ha vomitato tutta  l'anguria  nelle scarpe!  Stamattina e` venuto
 l'idraulico e sai  quanto mi ha chiesto? Centocinquantamila lire!
 E dopo mezz'ora  il  rubinetto ha ricominciato a buttare l'acqua!
 Quela poi e` andata al corso di chitarra alle tre del pomeriggio,
 lo sai a che ora e` tornata? alle  quattro del mattino! Con tutto
 il rossetto  spostato  sulla  faccia. Ma che la chitarra la suoni
 con la bocca? Hai capito?
-------------------------------------------------------------------
 Attenzione:  i  dati  nell'header  sono modificati per difendermi
 dagli spammer. L'indirizzo  esatto  e`:  
crs...@xxxfreenet.hut.fi
                                   senza le tre x^^^

qualcosa di simile.
Assolutamente no.


qualcosa di simile.
Ne abbiamo gia' parlato in un altro thread. La gestione dei nomi
lunghi si appoggia all'INT 21, niente trucchetti vari. Certo il Turbo
Pascal va usato con le stringhe terminanti con il byte nullo poiche'
la gestione dei nomi lunghi di file implica nei file completi di
percorso una dimensione di 260 byte. Quindi non tanto per la
dimensione massima delle stringhe, ma proprio perche' le funzioni
dell'INT 21 vogliono come parametri di ingresso stringhe del tipo
"null-terminated". In C vi sono gia' librerie che supportano i nomi
lunghi di file (e in C e' piu' semplice visto che le stringhe sono
gia' terminanti con il byte nullo), in Pascal che sappia io non ho
ancora visto nulla.
Bye.
Jo Parrello - OWL/C++ Programmer
http://www.geocities.com/SiliconValley/Hills/8145
(
jopar...@geocities.com
)
Newsgroup: it.comp.lang.pascal
Titolo: Registro di Windows

 qualcuno ha il source code per leggere
 i file del registro di windows (user.dat
 e system.dat) ?
 non devo fare grandi cose, solo leggere
 il nome del computer
 ringrazio quanti mi risponderanno
 saluti
 
s...@col.it
-- 
Posted from [213.26.111.12] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  e system.dat) ?
Yesss. Ecco la descrizione del formato:
http://home.eunet.no/~pnordahl/ntpasswd/WinReg.txt
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato

  e system.dat) ?
Potresti usare le api di windows regopenkey e regclosekey della libreria
advapi32.dll.
Sul sito 
http://utenti.tripod.it/Redicuori_77/
 mi sembra ci siaun esempio su
come usare le funzioni in dll..
Bisogna che usi un compilatore perņ che faccia exe in modalitą protetta perņ
(il tp non va bene).
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

(il tp non va bene).
 non ho mai fatto niente in modalita' protetta, il
 compilatore relativo e' il delphi ?
 o c'e' qualcos'altro di share/free ?
 grazie per l'attenzione



 grazie



Lui (credo) che si riferisce al mio Tutorial... e devo dire che io mi
riferivo al Borland Pascal. MA! le DLL di win9x non le puoi legere
perche il BP legge le DLL a 16Bit mentre le api di windows percui
anche advapi32.dll) sono a 32 bit
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Il Razziatore,
 per cui come se ne esce ?
 temo che non se esca :-(
 ciao
 
s...@col.it
-


  per cui come se ne esce ?
Se ne esce, se ne esce..
Il turbo pascal for windows (ho scritto l'indirizzo in questi giorni) può
usare dll a 32bit.
Le unit per farlo non so perchè ma non sono presenti nel file da scaricare
che ho citato :)))).
Cmq sull'help trovi tutta la documentazione.
Anche il free pascal può gestire dll a 32bit (guarda sull'help)


Anche il free pascal può gestire dll a 32bit (guarda sull'help)
Ci credo è un compilatore per Win32


Ci credo è un compilatore per Win32
nope. E' un compilatore a 32 bit, anche sotto DOS (usando voodoo e altra 
magia nera che non sto a spiegarti)


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

Sto cercando di costruire, per la scuola, un programma in Pascal, che,
lanciato, consenta di eseguire certi comandi Dos, tra cui: copiare un file;
eliminare un file; formattare il disco C: ; formattare il disco A: .
E' possibile inoltre costruire un programma client/server che consenta a
due, tre, quattro utenti di collegarsi al Pc che fa da server ?
Enrico
enri...@tin.it

due, tre, quattro utenti di collegarsi al Pc che fa da server ?
Meglio procedere con un linguaggio simile al Pascal ma che consente di
sfruttare codice già scritto per questo scopo : vedi Delphi.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)
Newsgroup: it.comp.lang.pascal
Titolo: istruzioni sql

ciao, c'e' una maniera di inserire istruzioni sql utilizzando tp7?
la fonte dati dovrebbe essere odbc oppure gestita attraverso mysql oppure
non ne ho la piu' pallida idea.
l'intento sarebbe di creare un piccolo compilatore sql a menu' che giri
sotto finestra dos ad uso didattico, dato che non mi e' stato possibile
reperirne uno. grazie.

mmmh se non puoi aprire una connessione tcp non puoi
comunicare con un db, pero' se e' tutto estremamente in
locale puoi lanciare mysql con un file di comandi
mysql < comandi.txt
che contenga i comandi e le query che vuoi eseguire...
pero' non so' se e' quello che vuoi fare..
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Come scrivere dove voglio io, in modalita' grafica

Salve, vorrei chiedervi un consiglio:
In modalita' testo per far scrivere qualcosa in un determinato punto
dello schermo si usa la funzione Gotoxy e funziona anche per le cose che
scrive l'utente; invece in modalita' grafica usando Moveto sposta il
cursore ma se l'utente preme qualche tasto la lettera corrispondente
viene scritta in alto a destra come posso risolvere questo problema????
Ho guardato nel manuale di TP 7.0 ma non ho ricavato nulla.
Grazie.

 wrote in message
385926FC...@dada.it...


 ciao
Non mi e' arriavato nulla.

viene scritta in alto a destra come posso risolvere questo problema????
Puoi provare a "disabilitare l'echo dell'input":
--------------------------------
StrVar:='';
X:=0;
Repeat
  CharVar:=Readkey;
  OutTextXY(x0+X,y0,'CharVar');
  StrVar:=StrVar+CharVar;
  X:=X+costLunghezzaFont;
Until Ord(CharVar) in [13,27];
--------------------------------
o piu' semplicemente:
--------------------------------
DirectVideo:=False;
GotoXY(x0,y0);
ReadLn(StringVar);
--------------------------------
Ciao
Andrea C

 wrote in message
385C89F6...@dada.it...


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

http://euronet.globalredirect.com
F5
432DE
EWR
FV
ERW
34
235
5
34
5GVV5VG235V23D
EDRS
SDR
FSR

http://euro-net.da.ru
ER
6
34BE
F
G54
V7
RWEFV
SWFYWEGDRRTHGGHTRE
BHITR875Y
76Y
765Y7
65
Y7654
645
U76

Newsgroup: it.comp.lang.pascal
Titolo: Re: Programma Pascal conversione decimale-binario

 Potete aiutarmi??????
potresti implementare il normale procedimento che usi in aritmetica, con 
le divisioni, i resti, eccetera. dovrebbe essere semplice
-- 
"Non ci sono uomini come me.
Ci sono io e basta."
robiweb90 at gmail dot com

Function IntToBin(Numero : Integer) : String;
Var
   S : String;
Begin
   S := '';
   While Numero > 0 Do
	Begin
           If (Numero Mod 2) <> 0 Then S := '1'+S
                                  Else S := '0'+S;
           Numero := Numero Div 2;
         End;
   If S = '' Then S := '0';
   IntToBin := S;
End;
Buttata giů in 30 secondi... Va bene cosi' semplice?
Ciao,
David


ma cosě non impara niente :-) !



i professori si trovano a scuola... ;-)
-- 
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: Carattere di inizio riga

C'è un modo per evitare di scrivere il carattere di inizio riga nei file
scritti con TP7 (con assign e tutto il resto)?

scritti con TP7 (con assign e tutto il resto)?
E quale sarebbe il carattere di "inizio" riga ? ;)
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 >C'è un modo per evitare di scrivere il carattere di inizio riga nei file


rettangolino nero.
Il carattere con valore ASCII 32 e' lo spazio.
Cmq non esiste un carattere di "inizio riga".
Il TP non scrive alcun carattere del genere quando si accede ad un
file.


scritti con TP7 (con assign e tutto il resto)?
Veramente non ho capito cosa ti interessa ... :-)
-=> NeGuS <=-
www.infinito.it/utenti/negus80

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

Salve, vorrei ke qualcuno mi spiegasse gentilmente ognuno dei seguenti
metodi per porre un'immagine dicendomi cosa si ottiene:
Constant     |   Value   |   Meaning
_____________________
 CopyPut    |     0        |    MOV
 XORPut    |     1        |    XOR
 OrPut        |     2        |    OR
 AndPut      |     3        |   AND
--
ThE DArkNeSS iS JuST DaRK

provare ? :-)
i 4 metodi corrispondono alle 4 operazioni che puoi fare sui pixel:
Copy: ne sostituisci il valore con quello dell'immagine
Xor: colore-schermo XOR colore-immagine, ad es con un bitmap tutto
bianco invertirai tutti i colori dove lo sovrapponi, con uno tutto nero
non otterrai alcun effetti
And e Or compiono alo stesso modo le altre due op. booleane...
l'or e' comodo se devi disegnare ad es un cursore del mouse senza
sbatterti con le trasparenze, l'and non mi e' mai capitato di usarlo, ma
boh... lascia colore solo dove c'e' colore (sia sulle schermo che nella
immagine) :-)
forse non sono frasi sensate, ma penso che tentare i vari casi sia l'unico
modo per avere veramente idea di quello che succede :-)
--
Dreadnaut
(Life would be easier if I had the source code)

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

*** post for FREE via your newsreader at 
post.newsfeed.com
 ***
 
questa è una prova
 -----= Posted via Newsfeed.Com, Uncensored Usenet News =-----
http://www.newsfeed.com
 - The #1 Newsgroup Service in the World!
-----== 100,000 Groups! - 19 Servers! - Unlimited Download! =-----
 

*** post for FREE via your newsreader at 
post.newsfeed.com
 ***
allora funziona!






prova
Newsgroup: it.comp.lang.pascal
Titolo: Function Random(Longint):Longint

Salve mi trovo a dover risolvere il seguente problema: devo implementare una
function che mi
generi dei numeri casuali X di tipo longint
   0<=X<MaxLongint    (Longint!!!!!!!!)
il tutto in modo analogo a quanto avviene in Turbo Pascal!
Come posso risolvere il tutto senza ricorrere al Virtual Pascal o al Free
Pascal etc. dove tale function (restituisce un longint) č di "serie" ?
Grazie 1000 a chi vorrą aiutarmi.
Berny ;-)

 Pascal etc. dove tale function (restituisce un longint) è di "serie" ?
non so se ho capito quello che cerchi, ma ci provo lo stesso.
random genera un numero a caso tra 0 e 1, quindi basta moltiplicarlo per N
(longint) per avere un numero a caso tra 0 e N.
Olivier.

 > Pascal etc. dove tale function (restituisce un longint) č di "serie" ?


 x un tipo word!!!!
prova cosģ:
var
x,n:longint;
begin
n:=
2147483647
;
randomize;
x:=round(random*n);
writeln(x);
readln;
end.

> x un tipo word!!!!
Beh ?  sei a posto :-)
ne generi due e li moltiplichi, ottieni un numero casuale a 32bit
quanti problemi...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Cosě facendo PERO' otterrei una generazione sbilanciatissima!!!!
Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:rqej6.18872$7U4.3...@news.infostrada.it...


> Cosě facendo PERO' otterrei una generazione sbilanciatissima!!!!
???
il prodotto fra due numeri da  0 a 65535 ti da tutte le possibili
combinazioni
intermedie nei longint... oppure se non vuoi moltiplicare, puoi fare
n + m shl 16 e "affiancare" i due numeri.
o forse non ho capito cosa intendi per sbilanciato... :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Newsgroup: it.comp.lang.pascal
Titolo: Minimo di una lista Ricorsivo

Salve a tutti vorrei sapere come posso realizzare una funzione (o procedura)
ricorsiva che trovi il minimo di una lista. voi direte, perche' ricorsiva?
dato che iterativa e' molto piu' semplice. Beh perche sto studiando
la ricorsione, e non mi riesce sbloccarmi su questa cosa..
Ciao e grazie
Ale 



type ptr_nodo = ^nodo ;
     nodo = record
              dato : integer ;
              next : ptr_nodo ;
     end ;
procedure trova_minimo_ricorsivo ( testa : ptr_nodo ; 
                                   var m : integer )
begin
  if ( testa <> nil ) then
  begin
    if ( testa^.dato < min ) then min := testa^.dato ;
    trova_minimo_ricorsivo ( testa^.next , min ) ;
  end ;
end ;
var radice : ptr_nodo ;
    m : integer ;
begin
  m := maxint ;
  radice := nil ;
{ costruisci una lista avente come testa "radice" }
  trova_minimo_ricorsivo ( radice, m ) ;
end.
Newsgroup: it.comp.lang.pascal
Titolo: OFFRIAMO A TUTTI LA POSSIBILITA' DI GUADAGNI EXTRA !

Offriamo a tutti la possibilità di guadagni extra !
Non è richiesto NESSUN investimento (non dovete sborsare nulla)!
Non è richiesto NESSUN impegno specifico !
Non è richiesta NESSUNA disponibilità di tempo !
Non è richiesto NESSUN minimo di vendita !
Vi gestite in piena e totale autonomia e quando decidete di lasciare
perdere basta una semplice email.
Di che cosa si tratta ??  Di una semplice attività di promozione
da svolgere utilizzando internet e che per ogni vendita generata
vi farà guadagnare fino al 15% del venduto.
Che cosa dovete fare ??  Semplicissimo:
Iscrivitetevi al nostro programma di affiliazione:
http://www.webitaly.net/cgi-bin/affiliate/signup.cgi
Tutte le condizioni e il regolamento le trovate Quì:
http://www.webitaly.net/affiliate
A tutti i nuovi iscritti subito un BONUS di 10 Euro
che verranno liquidati assieme alle comissioni maturate
con il primo ordine.
Vi aspettiamo
Webitaly.net
Ufficio Promozioni

Ma queste cagate ancora girano?
NM

???
Ma te guarda 'sti pirla!
Già a sentire la parola pubblicità mi viene il voltastomaco, ma metterla
pure su un newsgroup.. 0_o?

Newsgroup: it.comp.lang.pascal
Titolo: errore di run-time 202

ciao, quando eseguo il programma che sto scrivendo (un primo un po'
complesso che scrivo) mi da errore di run-time 202 stack overflow error. Ho
provato ad aumentare la memoria dello stack con la direttiva del compilatore
ma niente da fare. Quest'errore si riscontra sia avviandolo sotto dos sia
sotto win. Cosa posso fare per risolvere il problema?
grazie mille
ciao

 wrote in message
8s9puk$2p3$1...@sun250.unimi.it...

Newsgroup: it.comp.lang.pascal
Titolo: Somma di Frazioni: Metodo?!?

Salve a tutti ragazzi sono Valerio da Roma, dopo un periodo (piuttosto
breve ) di lurking mi butto per chiedervi una cosa.
Allora: il mio problema è fare la somma di due frazioni partendo da due
numeratori e di due numeratori.
Ho distinto le fasi: Leggi,Mcm,Mcd,Scrivi.
Il problema sono proprio le due fasi intermedie: letti i dati in ingresso,
come posso fare il Mcm?
Io avevo pensato di moltiplicare a croce (ovvero num1*den2 e num2*den1) e la
professoressa dice che non va bene, che esiste un metodo migliore. Secondo
problema: per il MCD ? Con le classi resto no? Sono un pò a digiuno di
pascal a dire il vero...
Spero di essere stato il più chiaro possibile, grazie a tutti coloro che
avranno la pazienza di rispondermi :)
Cheers,
    Spud64
 
run.to/c64

pascal a dire il vero...
Il migliore algoritmo per trovare il MCD di due numeri x,y e' quello
classico di Euclide, che trovi su tutti i libri di aritmetica.
Per un noto teorema, il prodotto MCD*mcm e' poi uguale al prodotto x*y dei
due numeri: donde si trae il mcm.
In Pascal l'algoritmo di Euclide si puo' programmare elegantemente per
ricorsione:
Function MCD(x,y:longint):longint;
var z:longint;
begin 
z:= x mod y;
if z=0 then MCD:=y else MCD:=MCD(y,z) end;
Function mcm(x,y:longint):longint;
begin mcm:=x*y div MCD(x,y) end;
Ma usare quanto sopra per sommare due frazioni e' come sparare con un
cannone ai passerotti  ;-)
Elio Proietti

 cannone ai passerotti  ;-)
Grazie lo provo immediatamente... ma scusa l'ignoranza, ma che tipo di
variabile č longint? Giusto per sapere :)
Scusa forse la domanda ovvia e grazie ancora per la riposta pronta ed
esaustiva :)
Ciao Valerio


Shortint da -128 a 127 8-bit
Integer da -32768 a 32767 16-bit
Longint da -
2147483648
 a 
2147483647
 32-bit
cambia solo la grandezza...
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net
Newsgroup: it.comp.lang.pascal
Titolo: Come funzionano gli array?

Non ho mai utilizzato gli array con il Pascal,
volevo fare una prova ed ho digitato:
var
   i : integer;
type
    v = array [1..10] of string;
begin
writeln ('inserisci le 10 variabili');
for i:=1 to 10 do
    begin
         write('inserici la variabile numero', i);
         readln (v[i]);
    end; {for}
writeln ('risultato:');
for i:=1 to 10 do
    begin
  write ('variabile numero',  i);
         writeln (v[i]);
    end; {for}
end.
E' normale che non mi funziona? Cosa c'è di sbagliato?
Aiutatemi per favore.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 E' normale che non mi funziona? Cosa c'č di sbagliato?


 Aiutatemi per favore.
Si. Dovevi fare cosě:
 type
     vet = array [1..10] of string;  { invece di chiamarlo v, il vettore 
lo chiami vet.}
var
    i : integer;
    v : vet;    {<-- aggiungi questo;}
-- 
Luigi
--
bug windows [5] = {"95", "98", "NT", "Me", "2000"};

     v : vet;    {<-- aggiungi questo;}
Giŕ che ne capisco poco....
vi mettete d'accordo? qual č il procedimento esatto? questo o quello
di ReDiCuori? Ho capito: me lo fate apposta per farmi confondere ;-)
"vet" fa parte del linguaggio Pascal o no? Sarebbe la stessa cosa
utilizzare "vit" o "vot" al posto di "vet"?


Vet vit vou e' lo stesso,
vet e' un "tipo", "a" o "v" sono variabili.
l'errore nella tua prima versione era che cercavi di assegnare
un valore ad un tipo (v[i] = etc etc) mentre dovevi
a) dichiararlo variabile (vedi risposta di RdC)
b) dichiarare una variabile di quel tipo (Luigi)
poi il funzionamento delle due versioni e' identico
P.S. per riconoscere una parola chiave se usi il TP basta
guardare il colore: le parole chiave sono bianche, gli
identificatori (e tutto il resto, ma se vuoi puoi cambiare)
sono gialli
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 vi mettete d'accordo? qual è il procedimento esatto? questo o quello


 poi il funzionamento delle due versioni e' identico
[cut]
Grazie tante a tutti voi, finalmente ho capito il funzionamento
di "array" e a cosa serve "type". Grazie della lezione.


 di "array" e a cosa serve "type". Grazie della lezione.
Nella "sezione type" tu dichiari dei tipi che prima non esistevano. Nel 
senso:
type
        vet = array [1..10] of string;
E' come se tu avessi creato un nuovo tipo di nome vet, che è un array di 10 
stringhe;
Nella "sezione var" tu dichiari le variabili. Ad es.:
var
        i : integer;
        r : real;
        v : vet;    <----- proprio perché vet è un nuovo tipo che tu hai appena 
creato nella sezione type;
Tutto chiaro?
Ciao 


 Tutto chiaro?
Sissi, grazie :-))
Simone.
Newsgroup: it.comp.lang.pascal
Titolo: aiuto : permutazioni

Devo risolvere questo problema ma non so da che parte cominciare.....
Permutazioni in ordine lessicografico(alfabetico) di n elementi....
Possibilmente in pascal!
Grazie in anticipo Gian!!!!
--
Posted from 
sfw.lib.disco.unimib.it
 [149.132.196.251]
via Mailgate.ORG Server - 
http://www.mailgate.org

Non e' difficile : dato il vettore di stringhe x(1) , .... , x(n) si
confrontano , mediante due cicli , tutte le coppie di stringhe ( x( i ) , x
( j ) ) e , se la prima stringa risulta maggiore della seconda , si
scambiano le due stringhe di posto mediante le tre istruzioni t = x ( i ) :
x ( i ) = x ( j ) : x ( j ) = t .
Giulio Simeone
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]


Newsgroup: it.comp.lang.pascal
Titolo: da string a array of char....

problema banale ma dopo anni di "inettidudine" non riesco ad andare avanti.
ho una string e voglio trasportarla in un array or char (per fare di una
parola una successione di caratteri distinti). ovviamente mi becco sempre
type mismatch.... come si fa un cosě semplice trasferimento?
grazie a tutti
ivan

Le stringhe sono già array di caratteri :-)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;


ti ringrazio per la "dritta".... ;-)
mi metto subito al lavoro.
ivan

program x;
uses crt,dos;
var i:byte;
    s:string;
    a: array [1..100] of char;
begin
clrscr;
write('inserisci la scritta: ');
readln(s);
for i:=1 to length(s) do
a[i]:=s[i];
writeln;
for i:=1 to length(s) do
write(a[i]);
readln;
end.
ciao
"Ivan Definitive Version" <iva...@CANCELLAILMAIUSCOLOinterfree.it> ha
scritto nel messaggio news:84Ob8.9472$8F6.4...@twister2.libero.it...


> Le stringhe sono già array di caratteri :-)
quasi... le puoi considerare tali per come te le fa'
vedere il pascal... poi in realta' c'e' quel piccolo
piccolo byte iniziale :-)
[quando lavori a livello piu' basso puo' dare fastidio]
--
Dreadnaut
(Life would be easier if I had the source code)

Ciao,  definizioni del tipo:
S <--- String;
S <--- Array [0..255] of string [1]
sono omogenee, per cui puoi trattare il vettore e la stringa allo stesso
modo applicando le stesse operazioni indifferentemente.
S [0] contiene in particolare la lunghezza della stringa S espressa come
carattere.
In particolare le funzioni:   Length (S) = Ord (S [0] ) ;   di
conseguenza.... l'operazione:
Writeln (S)
equivarrebbe a:
For I := 1 to Ord ( S [ 0 ] ) Do Write ( S [ I ] );
Writeln;
con I di tipo byte.
Spero di averti reso meglio l'idea cmq se vuoi ulteriori chiarimenti chiedi
pure :)
Cordialmente, Cooper.
"Ivan Definitive Version" <iva...@CANCELLAILMAIUSCOLOinterfree.it> ha
scritto nel messaggio news:84Ob8.9472$8F6.4...@twister2.libero.it...


 Ciao,  definizioni del tipo:
CUT
ti ringrazio davvero la dettagliata e interessante spiegazione e ringrazio
pure tutti gli altri!
ivan

Di nulla, sempre a disposizione :-)
Cooper.
"Ivan Definitive Version" <iva...@CANCELLAILMAIUSCOLOinterfree.it> ha
scritto nel messaggio news:1PTb8.12798$eD3.5...@twister1.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: [SITO] Ma quale sito....

Sito? Ma quale sito... ormai la rete č intasata!!!! Per sto NG
esistino 3 SITI!!! E tutti e tre si spaciano per UFFICIALI
ecco gli url:
http://digilander.iol.it/genyo/turbo/index.html
,
http://www.pascalonline.f2s.com/
, 
http://www.argo-web.it/pascal
 -> Genyo
http://www.pascalonline.f2s.com/
 -> Re Di Cuori, Razziatore,  Saturno
http://www.argo-web.it/pascal
 -> Saturno
Viisto che il secondo mi piace di piů sotto tutti i punti di vista
(anche come estetica, ma soprattutto come url) io direi di prendere
come ufficiale questo... ma soprattutti Saturno decidi quale vuoi
seguire....
CMQ dobbiamo decidere cosa fare di questi 3 siti... io cmq (visto che
ho la password) iniziero a postare i miei articoli su pascalonline....
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

 - ICQ#91902715
http://www.matteomoro.com
 [.
cjb.net
]
"...i am immortal, i have inside me
blood of kings..." ©fm

Io preferisco, per la grafica,:
http://www.argo-web.it/pascal
Ciao, Daniele.

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

Vi spiego subito il mio problema.
ho creato un programma (in tp7) che apre un file di testo lo scandisce e
restituisce il numero di righe presenti in questo.
Con files.txt di media grandezza tutto va per il meglio, ma con quelli molto
grandi (avete presente quando aprite in windows un txt molto grande e Bill
vi avverte che per tale motivo questo sara' visualizzato non con il blocco
note, ma con wordpad..?.) il programma restituisce sempre:  >num righe =
"1"<  (come cazz....)
vi prego cortesemente di aiutarmi
P.S. la variabile contatore che si incremente ad ogni riga letta e che alla
fine viene stampata in output l'ho definita come longint:
  var
     k:longint;

     k:longint;
A prima vista non ci sono errori ... infatti il contatore e` in grado
di calcolare oltre 4 miliardi di righe, il che e` qualcosa di
inimmaginabile.
Prova questo programma, vedi se ti puo` essere d'aiuto:
Program Conta_righe;
Var f: text;
      k: longint;
     stringa: string;
Begin
Assign(f, 'file.txt');
Reset(f);
k:=0;
While not eof(f) do   { Attenzione! Solo file di testo!! }
Begin
Readln(f, stringa);
Inc(k);
End;
Close(f);
Writeln(' Righe = ',k);
End.
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

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

Salve, è il mio primo post su questo ng.
Chi mi saprebbe dire come far eseguire un comando dos a un programma in
Pascal (TP7) ? Grazie.

 Salve, č il mio primo post su questo ng.


 > Salve, è il mio primo post su questo ng.


   SwapVectors;
a che serve ?
Phones
Newsgroup: it.comp.lang.pascal
Titolo: prova powernews...

mmmmh chissa'...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> mmmmh chissa'...
a parte che ci sarebbe it.test, ma a te funzionava news.libero anche a
gennaio, vero? si vocifera che poi lo linkerano a powernews e funziona tutto
come prima; forse........

ma a te funzionava news.libero anche a gennaio, vero?
no ora cippa... in piu' ho dovuto riscaricarmi praticamente
meta ng perche' OE se gli cambi semplicemente il nome
del server si inalbera.. non so' che dati si tenga da parte
il pezzo *** * £$%"£$% .. ehm... ok sono calmo :-)


 il pezzo *** * £$%"£$% .. ehm... ok sono calmo :-)
il server da cui l'ha prelevato è contenuto nell'header del msg...

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

*************************************
*****         TESTO MESSAGGIO       ******
*************************************
Ciao a tutti,
avrei bisogno di un GROOOSSO favore!
Siccome, non so usare il pascal mi serve solo un gioco per fare una bella
figura, vi prometto che non dirņ che il gioco č stato creato da me.
Chi vuole collaborare (anzi farlo) risponda questo msg. E avrą maggiori
informzazioni sul gioco.
*******************************************
P.S. chi non vuole farlo non si mettesse a far ramanzine  per cio che ho
scritto
*******************************************
GRAZIE 100000000000000000000000000

 *******************************************
Nessuna ramanzina solo una cosa:
Su un qualsiasi motore di ricerca inserisci +source +games +pascal
--
Nicola Chinea
Newsgroup: it.comp.lang.pascal
Titolo: probots

ciao ragazzi,
qualcuno può dirmi dove trovare dei tutorial riguardanti probots?

Wow! Non credevo potesse accadere, qualcuno che chiede di P-Robots. Ho
messo un mini-tutorial in italiano e una versione corretta del
compilatore sul mio sito
 
www.lagrandezucca.cjb.net
Per qualsiasi commento scrivimi pure in e-mail.
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.

eh??
nn mi dite che è lo stesso di Crobots solo che in pascal!
dai!
Cereal
"Il mago delle comete" <bor...@NOSPAMlibero.it> ha scritto nel messaggio
news:3d766394...@powernews.libero.it...


Si, e' stato scritto "unendo" i sorgenti del Co-Pascal (derivante dal
Pascal-S di Wirth) per il compilatore e quelli di Crobots per le
funzioni di base dei robots. Inoltre sono state aggiunte un sacco di
possibilta' aggiuntive.


possibilta' aggiuntive.
Ma adesso funziona sotto windoz, magari anche con Delphi?
L'ultima volta che l'ho provato non voleva saperne di funzionare
neanche sotto emulazione dos.
A che punto siamo?
Byez.
-- 
Sostenete la lega per la soppressione dello sceriffo nano.

A che punto siamo?
Ho fatto la conversione a 32 bit con il FPC, mi sembra che funzioni in
modo compatibile con il precedente ma lo sto ancora testando e non
l'ho messo on-line, se vuoi ti spedisco il binario cosi' me lo testi.


l'ho messo on-line, se vuoi ti spedisco il binario cosi' me lo testi.
Magari :-)))
metal...@libero.it
Ps. Cos'è FPC ?


 l'ho messo on-line, se vuoi ti spedisco il binario cosi' me lo testi.
Me lo puoi mandare anche a me? L'indirizzo è 
ned...@interfree.it
ciao

Ps. Cos'è FPC ?
Cfr. nel post piu' sotto: Windows?? - Cristiano Ceglia
Nello stesso hai parlato tu del DevPascal, in effetti non e' altro che
una IDE che si basa sul FreePascal.


Ho appena on-line nel mio sito i sorgenti di P-Robots compatibile sia
con il Turbo Pascal che con il Free Pascal, l'eseguibile e' pero'
presente solo per il primo, per il secondo bisogna compilarselo da
soli.


Newsgroup: it.comp.lang.pascal
Titolo: dovrei fare un programma....

dovrei creare un problema che mi calcoli il valore di n incognite di n
equazioni  con il metodo di Gauss......qualcuno puo' aiutarmi perfavore?
grazie 1000



Per "metodo di Gauss" intendi la fattorizzazione di Gauss ?
Quella che si basa su pivot e matrice triangolare ?
Non ricordo bene l'algoritmo, ma ne implementai una versione in
Fortran diversi anni fa.
Se mi posti l'algoritmo vedo di implementarlo in pascal.
Andrea Laforgia
Newsgroup: it.comp.lang.pascal
Titolo: Tipo di file

Volevo sapere se č possibile salvare un file in formato differente dal text,
e se sě quali altri formati si possono sfruttare e come. Grazie
Pietro Ferrara

Volevo sapere se è possibile salvare un file in formato differente dal text,
E' suff. dichiarare una variabile F come: 
F: File of <qualcosa (= byte, record, ...)>;
oppure 
F: File; 
L'assegnazione e' la stessa: Assign(F,'file.qualsiasi')
Lo si apre in lettura con: Reset(F,MCM); 
(dove MCM sta per il minimo comune multiplo dei dati)
e in scrittura con: Rewrite(F,MCM); 
(utilizzandolo piu' di una volta, si sa cosa succede) 
o, dopo averlo aperto in lettura, con:
Seek(F,PosizioneInLongintMultiploDelMCM);
La scrittura e la lettura si fanno con:
BlockWrite(F,BufferArrayOfQualcosaDiAttinente,(MCM*)NumeroDiELem,ParamOpzionale);
dove ParamOpzionale controlla quanti elem siano stati effettivamente
scritti (cio' evita un eventuale errore I/O), e
BlockRead(F,BufferArrayOfQualcosaDiAttinente,(MCM*)NumeroDiELem,ParamOpzionale);
dove ParamOpzionale controlla quanti elem siano stati effettivamente
letti (non mettendolo in questo caso, non ci saranno gli eventuali
errori sopracitati)
 
Ciao
Andrea C

Seek(F,PosizioneInLongintMultiploDelMCM);
Seek() si puo' compiere anche in scrittura.
--
Andrea Laforgia
andrea_...@bigfoot.com

Newsgroup: it.comp.lang.pascal
Titolo: E' possibile trasformare i programmi in Pascal in file eseguibili?

Come da oggetto: č possibile trasformare i programmi in Pascal in file
eseguibili? Se sě come si fa?
-- 
Ciao,
        Spinus.
Per rispondere tramite e-mail sostituire mosca a ma nell'indirizzo.
 

eseguibili? Se sě come si fa?
Certo che si puo' ed aggiungerei che si deve !
Basta avere un compilatore.
Voglio dire : i linguaggi ad alto livello nascono proprio perche' il proprio
codice venga tradotto in linguaggio macchina.
Andrea Laforgia
---------------

 Per rispondere tramite e-mail sostituire mosca a ma nell'indirizzo.
Basta che compili con destinazione disk, anziche' memory

Grazie per la spiegazione.

Newsgroup: it.comp.lang.pascal
Titolo: uso memoria estesa

Sapete dirmi come si potrebbe usare la memoria estesa?
Mi spiego. Quando si usano le liste in turbo pascal 7.0 al massimo
si usano circa 500 kb.
Come si fa a usare tutta la memoria estesa?

 dal profondo del suo sub-cosciente ha
scritto :

Quella che usi infatti non e' memoria estesa ma memoria convenzionale
ed e' la memoria HEAP.
Per usare quella estesa deve essere installato innanzitutto il gestore
di memoria estesa il famoso EMM e si accede tramite l'interrupt 67h.
(remember to remove ANTISPAM from my address before reply)

 di memoria estesa il famoso EMM e si accede tramite l'interrupt 67h.
ok, avevo notato nella mia lista di interrupt che si poteva fare, vorrei
pero' sapere se esistono delle librerie, (con sorgenti ) da reperire in
rete in modo da studiarmi il codice.
grazie.

> Quella che usi infatti non e' memoria estesa ma memoria convenzionale

non so dirtelo mac, io tempo fa avevo scritto un programma che testa
la memoria XMS ma se leggi la lista delle funzioni dell'interrupt 67,
non dovrebbe essere difficile allocare memoria estesa e deallocarla
secondo gli usi che vuoi farne.
Mi spiace ma non conosco librerie a proposito.
Prova a visitare 
http://www.geocities.com/SiliconValley/Lakes/7668
Prova a vedere tra le librerie disponibili ed eventualmente le pagine
collegate tramite il link "HotLinks".
In ogni caso puoi cercarle con i motori di ricerca.
Ciao
Andrea
-----------------------
Un di' qualcuno disse :
"Chi beve birra campa cent'anni"
e Matusalemme disse : "E che e' veleno ?"
-----------------------
"Grattatio pallarum omnia mala fugit" (A.Laforgia)

grazie.