mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: patch per tp7

mi hanno detto che ci vuole 'sta pezza per farlo funzionare
sul pentium2, dove la trovo?

ciao
la puoi trovare sul mio sito 
http://utenti.tripod.it/Colo/
 nella sezione
dedicata al Turbo Pascal

Newsgroup: it.comp.lang.pascal
Titolo: ERROR DIVISION BY 0...

Ho letto il messaggio in inglese postato tempo fa a cui però non c'è
risposta...Sinceramente ho capito poco di quanto detto, non per l'inglese
che capisco bene, ma per i contenuti...Cmq ho lo stesso identico problema,
solo che mi si presenta solamente compilando programmi tramite Turbo Pascal
7, mentre per quanto riguarda Turbo Pascal 5.5 non mi da alcun
problema...Con il 7 invece mi si bloccano tutti i programmi che compilo o
debuggo e che utilizzano le CRT....
mi spiegate per favore cosa devo fare ?
Grazie
Daniele

 wrote in message 81hrba$pk1$1...@nslave2.tin.it...


Daniele
prego, Giova.

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

Salve,
sapete dirmi che unit devo fare vedere al programma seguente per farlo
funzionare? In che directory devo metterli? Lo dimentico sempre! Uso Turbo
Pascal 7.0.
uses Graph;
var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,' ');  { Qui che path va messa?}
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { Do graphics }
   Line(0, 0, GetMaxX, GetMaxY);
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
Grazie

>  InitGraph(grDriver, grMode,' ');  { Qui che path va messa?}
Nessuna ci pensa il Compilatore ma devi avere nella stessa directory del programma i/il file .BGI necessario alla tua
scheda grafica (normalmente EGAVGA.BGI)
Comunque hai mai pensato di forsare una modalità grafica (con le nuove schede a volte va in tilt l'auto detect):
Var
   Gr, Gd : Integer;
 Begin
     Gr := VGA;
     GD := VGAHI;
     InitGraph(Gr, Gd, '');
Ovvero imposto la scheda VGA alla massima risoluzione possibile del Pascal
--
Ciao,
David

 scheda grafica (normalmente EGAVGA.BGI)
Gia' provato ma non funziona.

Allora prova a forzare la scheda e la modalitą (senza passare per l'autodetect).
Se anche questo non funziona l'unica cosa che mi viene in mente č che la tua scheda non č compatibile VGA
--
Ciao,
David
Newsgroup: it.comp.lang.pascal
Titolo: Pressione di un tasto



Come posso rivelare la pressione di un tasto in Pascal ?
uses crt;
var c : char;
    i, j : integer;
begin
  writeln('in attesa di una pressione...');
  i := 0;
  c := readkey;
  if c = #0 then
  begin
    write('tasto speciale #0'); 
    c := readkey;
  end
  else write('tasto semplice ');
  writeln('#',ord(c));
end.
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Un bel di' Enrico \"Rictor\" Teotti scrisse:
ERT> con keypressed
ERT> 
ERT> Repeat
ERT> Until Keypressed
ERT> 
non dimentichiamosci dopo un sano:
	while keypressed do readkey;
bye!
-- 
"Cambiare le cose e' l'essenza del comando; cambiarle prima di chiunque
altro e' creativita'", prima legge di Jay sul Comando
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

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

No, è solo una curiosità. Io l'anno scorso sono arrivato solo alla regionale
e per poco non l'ho passata. Il fatto è che ora sto studiando Visual Basic e
il Pascal l'ho un po' abbandonato..... A te tutto ok?
Per caso hai a disposizione il testo della selezione scolastica dell'anno
scorso... vorrei usarla per prepararmi un po'. Io ho trovato una parte di
quella di due anni fa.

 ha scritto nel
messaggio news:VnVjb.43751$vO5.1...@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: File of TipoRecord

 -- 
http://www.mascanc.net/~masi
... They say jump, you say how high ... 

 append chiaramente non funziona. ...
Che senso ha salvare in un file un albero? I valori in "left" e "right" che
collegano i vari rami cambiamo ogni volta che il programma viene mandato in
esecuzione e quindi, anche andando a rileggere quei valori in un file, non
riusciresti mai a ripristinare l'albero iniziale.
Non penso di aver detto vaccate ma vi prego di correggermi nel caso non
fosse stato così: non sono ancora ferrato sugli alberi :-P
Ciao ciao
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

Da principiante che sono, volevo una chiarificazione: cos'è e a cosa serve
un'albero? 10Q                        TORBO

 un'albero? 10Q                        TORBO
un albero è una struttura dati dinamica formata ricorsivamente da una radice
e da due (se binario) o più (se generico) figli. semplice semplice...

 ha scritto nel messaggio
news:9v0ijm$ah$1...@shamt.mascanc.net...

Newsgroup: it.comp.lang.pascal
Titolo: Unità TPU

Buongiorno it.comp.lang.pascal!!!!!!
Ho una domanda per tutti (quelli che mi sanno rispondere)
Dove posso trovare delle unità TPU aggintive a quelle che già ci sono in
Pascal?
E come posso farle da me? Devo compilarle con estensione TPU invece che
EXE?
Ringrazio anticipatamente tutti coloro che mi daranno una risposta e
quelli che vorrebbero darmela ma non la conoscono, insomma... TUTTI!
Andrea Zwirner

 Dove posso trovare delle unitą TPU aggintive a quelle che gią ci sono in


 Andrea Zwirner
--
------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
http://www.geocities.com/il_razziatore/
ICQ:   67552596
--------------------------------------------------

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

Non sono molto esperto di pascal, ma leggendo il newsgroup ho capito come
scrivere e leggere un file di testo. scrivendo però ho riscontrato il
seguente problema: se per esempio assigno un file, lo rewrito egli faccio
writelnare i numeri da 1 a 100 con un for, me ne scrive 98 e mezzo. oppure
se apro un file e gli faccio scrivere un solo numero, non me lo scrive.
è un bug conosciuto di tp7 o sono io che dimentico qcs?
ps: in lettura invece tutto ok.
Olivier.
--
Icq#: 47308980
Per rispondermi, togli LE-DITA-DAL-NASO !!

devi chiudere il file... eheh :))
ciao

 ha scritto nel messaggio ...


Close (nome_file) !!!!!!!!!!!!!
Olivier <oliv...@LE-DITA-DAL-NASOlibero.it> wrote in message
sCKG4.78819$pn3.9...@news.infostrada.it...


               Attenzione all'anti-spam XXX
Il governo e' un'illusione che i governati non dovrebbero incoraggiare.
		-- John Updike, "Couples"

...


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

Qualcuno mi può spedire la unit drivers, magari spiegandomi le cose
esenziali;
Sto cercando di fare un programma per risorvere matrice quadrate fino a 3X3
se qualcuno ha qualche idea...
cost...@tin.it

function CStrLen(const S: String): Integer;
buffer per video (in modo testo ovviam).. collegati a TDrawBuffer e TView...
molto IMHO, la unit drivers se non fai applicazioni TVision e' quasi
inutile...
io l'ho usata all'inizio per il mouse, poi preso dalla disperazione (in
grafica
il mouse ha una sensibilita' di 1 pixel ogni 8 !?!?) mi sono fatto una unit
io
in semi-asm e adesso vivo felice con quella...
Per le procedure di input da tastiera boh... molti tasti astrusi possono
essere
riconosciuti cmq in altri modi ( a.e. Mem[0:1047] contiene le info sullo
stato
dei tasti Ctrl, Alt etc etc )... le modalita' video le cambi anche con la
Crt,
l'unica cosa sensata sarebbe la FormatStr... ma se ne hai bisogno non e'
cosi' complessa, piuttosto che caricarti tutta la unit puoi rifarla tu...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 Qualcuno mi puň spedire la unit drivers, magari spiegandomi le cose

Ma secondo me non č difficile, se lo fai solo con le 3x3. Dovresti magari 
provare a calcolare determinati di matrici quadrate nxn.
Ma cosa ti serve la drivers.tpu per questo prog ?
Non dirlo alla Del Mari.
Newsgroup: it.comp.lang.pascal
Titolo: parabola

ciao a tutti. Ho un problema relativamente piccolo, ma al quale nn riesco a
venire a capo: il seguente progz funziona perfettamente quasi sempre, tranne
nel caso (l'unico ke ho trovato) nel quale i valori inseriti siano,
nell'ordine 1,2,3. qualcuno sa darmi una spiegazione a questo strano
fatto??? ciao e grazie
(*************************************************)
Program parabola;
uses crt;
var xf,xv,yf,yv,dirr,asse:array[1..2] of integer;
    a,b,c:integer;
function esp(base,esponente:longint):integer;
var ris,x:integer;
begin
ris:=1;
if esponente=0 then esp:=1 ;
if esponente>0 then begin
for x:=1 to esponente do
begin
    ris:=ris*base;
end;
esp:=ris;
end;
end;
function MCD(p:integer; q:integer):integer;
begin
  if(p>q)
  then MCD:=MCD(p-q,q)
  else if(p<q) then
         MCD:=MCD(p,q-p)
        else MCD:=p;
end;
function componi(p,q:longint):string;
var c,kp,kq:integer;
    stra,strb:string;
begin
kp:=0;kq:=0;
if p<0 then begin p:=-1*p;kp:=1;end;
if q<0 then begin q:=-1*q;kq:=1;end;
c:=MCD(p,q);
p:=round(p/c);
q:=round(q/c);
if kp=1 then p:=-1*p;
if kq=1 then q:=-1*q;
str(p,stra);
str(q,strb);
if (q=1) or (q=(-1)) then begin
if q=(-1) then begin
   if stra[1]='-' then delete(stra,1,1);
   if stra[1]<>'-' then insert('-',stra,1);
end;
componi:=stra;
end
else begin
if strb[1]='-' then begin
if stra[1]='-' then begin delete(stra,1,1); delete(strb,1,1); end;
if stra[1]<>'-' then begin delete(strb,1,1); insert('-',stra,1); end;
end;
componi:=stra+'/'+strb;
end;
end;
function asc_fuoco:string;
begin
xf[1]:=-1*b;
xf[2]:=2*a;
asc_fuoco:=componi(xf[1],xf[2]);
end;
function ord_fuoco:string;
begin
yf[1]:=1-1*(esp(b,2)-4*a*c);
yf[2]:=4*a;
ord_fuoco:=componi(yf[1],yf[2]);
end;
function asc_vertice:string;
begin
xv[1]:=-1*b;
xv[2]:=2*a;
asc_vertice:=componi(xv[1],xv[2]);
end;
function ord_vertice:string;
begin
yv[1]:=-1*(esp(b,2)-4*a*c);
yv[2]:=4*a;
ord_vertice:=componi(yv[1],yv[2]);
end;
function diret:string;
begin
dirr[1]:=-1-1*(esp(b,2)-4*a*c);
dirr[2]:=4*a;
diret:=componi(dirr[1],dirr[2]);
end;
function ax:string;
begin
asse[1]:=-1*b;
asse[2]:=2*a;
ax:=componi(asse[1],asse[2]);
end;
begin
textcolor(4);
write('a> ');textcolor(8);
readln(a);
textcolor(4);
write('b> ');textcolor(8);
readln(b);
textcolor(4);
write('c> ');textcolor(8);
readln(c);
writeln('F( ',asc_fuoco,' , ',ord_fuoco,' ) ');
writeln('V( ',asc_vertice,' , ',ord_vertice,' ) ');
writeln('d:y= ',diret);
writeln('asse:y = ',ax);
readln;
end.
(*********************************************)

 ha scritto nel messaggio
news:VmEo8.30783$pT1.8...@news1.tin.it...


 ha scritto nel messaggio
news:CpEo8.30791$pT1.8...@news1.tin.it...


 --
CUT
Newsgroup: it.comp.lang.pascal
Titolo: Dubbio banale

Premetto che non ho esperienza in progremmazione ma mi è venuto un
dubbio. In una Unit ho visto che nell'interfaccia c'era la seguente 
dichiarazione di funzione: function max(a,b: integer): integer;  e
nell'implementazione la seguente    function max(a,b: integer): integer;
  begin     if a>=b then max:=a else max:=b   end;  Il quesito che mi
sono posto è il seguente: max è una variable? Se lo è come faccio a
porre max:=a se non è stata mai dichiarata? Il compilatore come fa a
sapere che si tratta di una variabile se non glielo dico? Vi prego
fatemi capire se si tratta di un errore e quindi la variabile max deve
per forza essere dichiarata nell'implementazione. Grazie anticipato per
l'aiuto

 ha scritto nel messaggio
news:a3tos3$efg$1...@gossip.excite.it...


Grazie Carletto, Sei stato chiarissimo, siccome ho letto qualche
Tutorial di Pascal mi rendo conto che chi scrive non ti fa capire dei
concetti che sono basilari per poter apprendere dei linguaggi di
programmazione.

 ha scritto nel messaggio
news:a3uc2o$k7r$1...@gossip.excite.it...


 ha scritto nel messaggio
news:a3uc2o$k7r$1...@gossip.excite.it...


 vecchiotti.. spiegano così così..


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

Ciao a tutti
chi mi saprebbe dire come posso rinominare un file in turbo pascal usando la
lib. dos????

hai almeno provato a cercare nella guida in linea?
NM


 ha scritto nel messaggio
news:3cc753c...@news.tiscalinet.it...


allora, direttamente dalla guida:
[GUIDA]
  Rename (procedure)
  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
 Renames an external file.
  Declaration:
  procedure Rename(var F; Newname);
  Target:
 Windows, Real, Protected
  Remarks:
 F is a variable of any file type. Newname is a string-type expression
or an
 expression of type PChar if the extended syntax is enabled. The
external
 file associated with F is renamed to Newname. Further operations on F
 operates on the external file with the new name.
[/GUIDA]
Mi sembra abbastanza chiaro....  eccoti un programmino d'esempio:
[CODE]
PROGRAM rinominafile;
var miofile:file;
 
BEGIN
assign(miofile,'vecchionomefile');
rename(miofile,'nuovonomefile');
END.
[/CODE]
Il comando assign serve per indicare al compilatore qual'è il file
fisico sul disco puntato dalla variabile logica.
E con rename lo rinomini.


 Il comando assign serve per indicare al compilatore qual'č il file


Non credo di aver capito.....
var f:file;
BEGIN
assign(f,'autoexec.bat');
rename(f,'mammolo.kio');
END.

Newsgroup: it.comp.lang.pascal
Titolo: Memoria

Salve,
sto facendo un piccolo programma di grafica col Borland Turbo Pascal 7.
Fino ad ora non avevo avuto alcun problema di memoria, ma ora, dopo aver
aggiunto una variabile (un vettore) il programma mi dice di non avere +
memoria (non ricordo il messaggio preciso) allora io creo un puntatore che
punta alla variabile incriminata e l'errore è sparito, ma ora (sono sotto
win2000) ogni volta che lancio il programma, se da dentro il TP funziona
regolarmente ma si pianta (con un errore di win) non appena esco dal
programma, se lo compilo e lo lancio da win (anche da DOS ) mi apre una
prima schermata e poi mi da il solito errore di win cerco di riportarlo: La
CPU NTVDM ha incontrato un'istruzione non valida. CS:00006 IP:0015 OP:f0 00
f0 37 05 Scegliere "Chiudi" per terminare l'applicazione.
E sotto ci sono i pulsanti Chiudi ed Ignora..........
Aiuto!!! Che posso fare??????
Ciao e grazie.

 ......................
aggiungo un altra cosa se dichiaro il vettore e lo utilizzo tramite un
puntatore devo allocargli memoria col comando
GetMem(nomepuntatore,numeroblocchi);
io loho fatto, dando un numero di blocchi a caso...... e quando vado a
prelevare durante ip rpogramma i dati dal vettore mi vengono fuori una serie
di caratteri ASCII incomprensibili, il puntatore punta ad un vettore di 16
posizioni, 16 stringhe.
grazie ancora!!!! ciao!

 posizioni, 16 stringhe.
Perche' non usi new e dispose che allocano e deallocano automaticamente lo
spazio giusto?
Nell'esempio seguente definiamo il tipo TMioArray come un array di 16
stringhe (da 255 caratteri ciascuna) e la variabile puntatore MioArray che
dovra' puntare a un'area di memoria grande quanto basta per contenere il
tipo TMioArray. Con new allochiamo lo spazio nello heap per contenere
l'array e assegnamo l'indirizzo alla variabile MioArray. Alle diverse
stringhe si accede come se si trattasse di un comune array aggiungendo
l'accento circonflesso ^. Al termine dell'utilizzo dell'array si libera la
memoria con dispose (e il valore della variabile MioArray diventa nil,
indefinito).
type TMioArray = array [1..16] of string;
var MioArray:^TMioArray;
new(MioArray);
MioArray^[1]:='pippo';
Writeln(MioArray^[1]);
dispose(MioArray);
ciao
Claudio

 indefinito).
L'applicazione era un po diversa ed ho risolto allocando una quantità di
memoria ben stabilita....... ho fatto il conto della memoria disponibile, er
ora funziona , grazie!!!!
Newsgroup: it.comp.lang.pascal
Titolo: [?] Avviare altri programmi

É possibile avviare da un programma in pascal altri programmi???
Ad es. fare un programma che avvii l'edit?
Se si, come si fa?
Ciao e grazie
                Diego

Se si, come si fa?
Se utilizzi il TP devi scrivere qualcosa del genere :
{$M 8192, 0, 0}
uses dos ;
begin
  SwapVectors;
  Exec ( NomeProgramma, Parametri ) ;
  SwapVectors;
end.
 

                 Diego
Con questo sistema puoi eseguire qualsiasi comando valido in MS Dos
(dir, copy, del, cd.. ecc); quindi puoi usarlo anche per far partire
altri programmi.
{$M 8192, 0, 0}
uses dos ;
begin
  SwapVectors;
  Exec ( Getenv('comspec') , '/c ' + ' Istruzioni in Dos') ;
  SwapVectors;
end.

>  Exec ( Getenv('comspec') , '/c ' + ' Istruzioni in Dos') ;
Non vorrei sbagliarmi, ma credo che "comspec" vada scritto in
maiuscolo.

end.
Me la spiegate la sintassi di queste 3 righe.In particolar modo la
seconda.
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

seconda.
Il programmi prodotti con il Turbo Pascal hanno una gestione
particolare dei vettori di interrupt, per cui essi vengono modificati
alla partenza.
La funzione SwapVectors fa si' che essi vengano rimessi a posto prima
di caricare un programma esterno che li possa utilizzare.
Exec() e' la procedura utilizzata per lanciare programmi esterni.
Accetta due stringhe : il nome del programma e i suoi parametri.
In questo caso cio' che si vuole fare e' lanciare l'interprete dei
comandi DOS con una sintassi del tipo :
command.com
 /c dir  
che indica all'interprete dei comandi di eseguire il comando "dir".
Ora, non si conosce quale sia la posizione dell'interprete dei comandi
sul disco e si sfrutta il valore della variabile d'ambiente
predefinita COMSPEC (COMmand SPECification) che contiene il percorso
completo del programma.
Ad esempio sul mio sistema COMSPEC='C:\WINDOWS\
COMMAND.COM
' 
La funzione GetEnv() restituisce per l'appunto questo valore.
Quindi, ad esempio, una sintassi del tipo :
Exec( GetEnv('COMSPEC'), '/C dir' ) ;
equivale ad eseguire il programma :
C:\WINDOWS\
COMMAND.COM
 /C dir 
Lo SwapVectors finale serve a rimettere a posto i vettori di
interrupt, al ritorno dall'esecuzione esterna.

Newsgroup: it.comp.lang.pascal
Titolo: ho trovato un sito per Scaricare TP5 e TP7

ho trovato questo sito dove è possibile scaricare TP5 e TP7
http://members.xoom.it/_XOOM/lollo_1/turbopascal.htm
il sito è in italiano
--
Grazie e ciao
by P64
E-Mail P...@Iname.com

Si ma il TP7, come già molti hanno detto lo trovi sul sito
www.crackstore.com
\tools\ e il tuo mi sembra un post piuttosto inutile...
Ciao!!
P64 <NOSp...@Iname.com> wrote in message 8b079t$d1b$1...@nslave2.tin.it...


...


 wrote in message
L9PA4.15245$C24.1...@news.infostrada.it...


 Ciao
figurati
cmq questo si trova in italia mentrea cracksotre no :-)
capito dove stava il vantaggio.
anche perchè per chi non conosce l'inglese è meglio
:-)


Hai ragione...
Chiedo ancora scusa...
Ciao!
P64 <NOSp...@Iname.com> wrote in message 8b19fu$skt$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: exec

Qualcuno mi può spiegare con precisione il comando exec e i suoi
parametri??? Grazie

 parametri??? Grazie
Certo: il signor help sarà in grado di dirti tutto quello che vuoi :)
A parte gli scherzi, hai dato un'occhiata a cosa dice l'help riguardo
quell'istruzione?
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

Newsgroup: it.comp.lang.pascal
Titolo: Aiutate, per favore, un piccolo ignorante!!!!

Premetto che non ho mai programmato in vita mia e conosco il pascal da poco.
Ho scaricato il TurboPascal per windows 1.5 da internet.
Ho un piccolo problema:
1.Che comandi posso usare per fare aprire al programma (che sto creando) un
immagine in una finestra a parte rispetto a quella del programma e
leggermente più piccola?
2.E per farla chiudere?
3.Non riesco a capire perchè non riesco ad usare graph.tpu (uses graph.tpu);
   mi dice che non esiste...
   Vi è per caso una limitazione nel compilatore che ho scaricato?
     -Se si dove posso trovare una versione di TP che posso usare per
conseguire lo scopo sopracitato?
     -Se no come faccio a farlo andare??
Vi ringrazio infinitamente per anche il più misero aiuto vogliate darmi
--
GoDDamneD
p.s. Se potete aiutarmi cercate di usare un linguaggio non troppo specifico
in quanto sono ancora abbastanza ignorante....

 ha scritto nel messaggio
news:ya2m8.46231$%g7.14...@twister2.libero.it...


 ha scritto nel messaggio
news:ya2m8.46231$%g7.14...@twister2.libero.it...

il tuo problema e' molto semplice. il fatto e' che il compilatore che usi
compila sorgenti per windows. altre unit, ad esempio crt (anche se molte
delle sue funzioni e procedure sono inglobate nella wincrt) , graph, ecc,
sono scritte per girare in programmi dos, e quindi non per la modalita'
windows. hai due opzioni, o scaricarti il turbo pascal 7 (nel sito in firma,
anke se per ora nn e' disponibile, azz...), e quindi programmare scegliendo
come target il dos, usando sempre l'interfaccia windows, pero' accollandoti
la solita finestra dos, oppure impari l'objetwindow, che e' abbastanza
difficile (almeno per me), che ti permette di fare molte cose, tra cui
quelle da te richieste. la scelta dipende comunque da quello che devi fare
con il pascal: se lo utilizzi per divertirti un po', allora vai pure con il
dos, se pero' vorresti farci anche qualche cosa di serio passa
all'objectwindows.
per capire se una unit e' scritta per dos o windows, basta guardare la sua
est.:
.tpw unit scritta per windows
.tpu unit scritta per dos
.tpp unit scritta per la modalita' reale
Ciao
Marchese Gianfranco
e-mail: 
dgr...@tin.it
    UIN ICQ 117743990
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul Turbo Pascal
1.5
Newsgroup: it.comp.lang.pascal
Titolo: Giochi di carte

Ho provato a realizzare vari giochi di carte in pascal (scopa, briscola,
tresette).
I giochi funzionano, il problema è che l' avversario computer ha una bassa
intelligenza artificiale, quindi è impossibile perdere una partita.
Qualcuno ha qualche programma simile da potermi postare?
cg...@srcnet.it

Programmi simili no... un consiglio, forse :-)
Metti un random... se si verifica una condizione il computer sbaglia...
potrebbe essere un modo per forzare l'AI a non essere invincibile :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth

 
A dire il vero credo che il suo problema sia proprio il contrario: l'AI e' 
troppo bassa e il computer perde sempre :)
Bye, Mobius

Mobius ha scritto nel messaggio ...

Secondo me no: se l'AI è troppo bassa, vuol dire che il prog. sa le regole e
non fa altro che eseguirle, quindi vince sempre... :-)
Boh??
Speriamo che ci faccia sapere :-)
Poi ci facciamo una briscola in 5 via internet :-)))



Andrea Laforgia
----------------------------------------------------------------------
Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)

Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)
Ancora!?? :-))
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

Ancora!?? :-))
Shhh.... sto servendo la patria ! il nemico ci ascolta !

Newsgroup: it.comp.lang.pascal
Titolo: info su PROCEDURE

Ragazzi, io frequento un ITI spec. INFORMATICA !! Il professone ci fa usare
nelle procedure, lui chiama, PARAMETRI DI IMPUT/OUTPUT praticamente tipo
questo
Procedure acquisisci (var a:integer, b:integer)
pero'
guardando su libri, sullo stesso NG, noto che quei PARAMETRI non vengono
utilizzati; e ho notato anche che se li inserisco o non li inserisco non
cambia niente !!
Qualcuno sa spiegarmi perchè ?? e a cosa servono(se
servono) ???
--------------------------------
Inviato via 
http://usenet.iol.it

I parametri per procedure/funzioni realizzate dagli utenti sono opzionali,
nel senso che possono esserci se ne fai uso all'interno della tua procedura
Esempio
pricedure leggi_array(var a : vet; elementi : integer);
var i  : integer;
begin
   for i:=1 to elementi do
      readln(a[i]);
end;
Come puoi vedere in questa procedura i parametri sono utilizzati per dare
informazioni al codice elementi infatti dice alla procedura quanti elementi
bisogna leggere (parametro di input)
Il vettore a invece è un parametro di output, la dicitura var davanti al
parametro A dice che alla procedura è stato inviato indirizzo di memoria del
vettore, quindi ogni modifica su esso è effettiva anche all'uscita della
procedura, invece elementi viene passato per copia ed una modifica
all'interno della procedura non modifica il valore
procedure prova(var c : integer; l : integer);
begin
    l:=1;
    c:=2
end;
{main}
begin
   la:=2
  lc:=1
  prova(lc,la);
  {la non modifica il suo valore, lc viene modificato, inotre al posto di la
possiamo}
  prova(lc,2);
end.
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------
"Daviduccio" <a...@a.aa> ha scritto nel messaggio
news:217Z57Z87Z80Y9...@usenet.iol.it...


servono) ???
Servoo un casino... metti il caso ad esempio che vuoi fare una procedura in
cui, data una parola e la riga dello schermo, te la centra in quella riga:
Procedure Centra(Y: Byte; S: String);
Begin
            GotoXY( (80-Length(S)) div 2, Y);
            Writeln(S);
End;
e nel programma principale scrivi:
    Centra(5,'CIAO');
Capito a che servono???
Poi per i dettagli dell'utilizzo dei parametri fai riferimento a qualke
libro, o al mio sito presto ripubblicato (ora non esistente...).
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   \/   \_/

Newsgroup: it.comp.lang.pascal
Titolo: Gestione del mouse

Ciao a tutti..
Avendo un menů, si puň evidenziare ogni singola voce passandoci sopra col
mouse??
Newsgroup: it.comp.lang.pascal
Titolo: [OT, grosso OT] x dreadNaut

Ciao Dread
ho  un problemone che solo tu penso puoi risolvermi !
C++ Borland e SDK è una settimana che cerco di compilare gli esempi
riportati nel pacchetto SDK 8 della microsoft con l'unico risultato : una
tremenda frustrazione !
Ho ricompilato le librerie con cooff2... e trasformato i progretti da VC++ a
BC++ ma niente non riesco proprio a compilare.... mi dice sempre che non
riesce a trovare delle referenze in fase di link !
Puoi aiutarmi.... o per lo meno puoi consigliarmi un compilatore C++ (per
piattaforma Windows) che mi permetta di compilare queste benedette SDK (mi
servono per un esame) senza dover  perdere tutto questo tempo ! E magare sia
anche facile da utilizzare per quello che concerne la normale grafica...
come pulsanti, textbox, senza dover conoscere tutte le librerie di Win..
Grazie ReDiCuori
Scusate per OT
-- 
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
 sorgenti, tutorial ed utility
---------------------------------------------------------

come pulsanti, textbox, senza dover conoscere tutte le librerie di Win..
Uhm difficile puoi provare le MFC ma non so come sono...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

> [mega snip]
Mmmh BCC... malvagio... per l'sdk il metodo che comporta meno
sbattimento sarebbe quello di usare il VC++, ma ovviamente non
e' free, quindi o lo trovi in giro (universita', licenze costo
zero studenti etc etc) o niente. La via del BCC e' forse
lunga e sinuosa, ma e' decisamente piu' comodo che scriversi
tutta l'interfaccia a mano. Ovvio che qua siamo OT :-)
Prova a mandarmi un po' di messaggi di errore e simili, ne
parliamo via mail. L'indirizzo @
libero.it
 sta diventando pieno
di spazzatura a furia di stare sui newsgroup, in piu' a fine
mese perdo l'accesso pop perche' sono in inghilterra
[tralascio commenti sull'operato della wind negli ultimi tempi,
-o stati polemici :-) ]  Per discussioni passatempo e allegati
sono passato su (at)
excite.co.jp
Purtroppo non sono rapidissimo in questi tempi a rispondere
per problemi di tempi, lezioni, spesa, lavare, feste, feste,
feste, feste.... :-)
-- 
Dreadnaut
(Life would be easier if I hadn't to type my sig. everytime)

 Che esame?
Programmazione ad Oggetti
Sto sklerando di brutto non riesco proprio a far partere nemmeno un esempio
!
Ciao ReDiCuori

Newsgroup: it.comp.lang.pascal
Titolo: scrittura su file

Sono uno studente di 3 superiore che si pone il seguente problema:ho scritto
un semplicissimo programma per la generazione di numeri casuali(con
contatore,verifica,if...then ecc ecc)
quello che vorrei sapere č:come posso scrivere il numero risultante in un
file(o meglio,come posso accodare il risultato in un file senza
sovrascrivere i dati precedenti(č indifferente il fatto che i dati siano
inseriti all'inizio o alla fine del file)).
Grazie per l'aiuto.
a7td

 inseriti all'inizio o alla fine del file)).
leggiti l'help per 'append'





Prima di tutto devi dichiarare unavariabile di 
testo :


 


var dati:text;


 


poi,nel corso del programma, devi inizializzare la 
variabile:


 


assign(dati,'nomefilesitesto.txt');


append(dati);


 


ed infine aggiungere i dati che desideri, 
aggiungendo, prima della procedura write/writeln il nome della tua 
variaile:


 


write(dati,numero); o 
writeln(dati,'Ciao');


 


Spero di essere stato abbastanza chiaro... Ciao 
ciao   Save
Newsgroup: it.comp.lang.pascal
Titolo: aiuto clrscr e gotoxy

salve a tutti sono Gmork
Sto studiando il pascal standard iso, questo linguaggio a differenza del
turbo pascal non ha il clrscr e il gotoxy, vorrei sapere se e' possibile
implementere queste due istruzioni e sarei grato se qualcuno mi invii anche
le procedure in pascal.
Un grazzie grande quanto internet a tutti coloro che si degneranno di
rispondermi e di aiutarmi.
e-mail:conf...@altanet.it

...


Newsgroup: it.comp.lang.pascal
Titolo: FreePascal (www.freepascal.org)

Che ne pensate ?
Č un compilatore senza IDE (per ora!), abbastanza potente
che puņ compilare per diversi sistemi operativi...
Non ha le stesse units del Borland Turbo Pascal, ma ha
delle sue units standard...
Sul sito ci sono anche utili units per vari scopi...
Chi mi da un parere ?
Phones

 wrote in message
8aq5ir$usm$3...@pegasus.tiscalinet.it...


 Il freepascal ha un suo editor di testi?
No, è senza IDE....
Non ancora, è in fase di creazione, sul sito trovi maggiori
informazioni a riguardo..
Phones

 ha scritto nel messaggio
news:8aq5ir$usm$3...@pegasus.tiscalinet.it...


 P.S. si l'ho scaricato, ma cosa ha di diverso dal pascal (turbo)?
Per es. è a 32 bit, ti permette di accedere alle API di Win32, è portabile
(se ben ricordo ne esiste una versione per Mac e per Unix ma forse mi
confondo con un altro tool), è ad oggetti...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 ha scritto nel messaggio
news:9533271...@melissa.energy.it...


 Come posso riuscire ad installarlo?
Io non ho incontrato problemi, segui le instruzioni contenute nello zip che
scarichi...


 confondo con un altro tool), è ad oggetti...
Lo porti su linux e su altri OS...
Phones

 Come posso riuscire ad installarlo?
Unzippi tutto il contenuto del file da scaricare in una cartella
Phones

 limitazione pesante...)...
Nella sezione Units ci dovrebbe essere un programmino adeguato:
Fpedit; c'è anche la sorgente...
Phones

               Attenzione all'anti-spam XXX
Il ginecologo ad una prostituta: "Lei ha molte perdite durante il
ciclo?".  "Beh, piu' di 2 milioni!".
		-- Da it.hobby.umorismo

Ciao !
Volevo sapere se esiste una versione di questo freepascal anche 
per Mac .
Grazie!!

 wrote in message 38F86301...@libero.it...


Si, mi pare proprio di si.
Cmq per ogni evenienza 
www.freepascal.org
 e trovi tutto, dai sorgenti ai
manuali fino alle news. La versione più recente è la 1beta4.
Larthal

Newsgroup: it.comp.lang.pascal
Titolo: file di record...

oggi a scuola abbiamo fatto i file di record, ma non è che ci ho capito
molto, come posso impostare un semplice programmetto che mi salvi su file
una tabella, vi spiego, vorrei farlo così:
{caricamento}
vuoi salvare?
se l'utente dice sì la tabella viene salvata altrimenti no. Inoltre quando
dice sì, se ci sono già record salvati nel file, me li devi accodare, questi
nuovi...come posso fare?
grazie
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

Andiamo per ordine....
Questa piccola parte di codice controlla che l'utente prema il tasto 'S' oppure il tasto
'N'
Var
 Ch : Char;
Begin
  Write('Vuoi salvare?');
  Repeat
     (* Aspetta la pressione di un tasto e converte il tasto in maiuscolo *)
     Ch := Upcase(ReadKey);
     (* Questo controllo è necessario per eliminare i tasti speciali *)
     If Ch = #00 Then
        Begin
            Ch := ReadKey;
            Ch := #00;
       End;
  Until (Ch = 'S') Or (Ch='N');
  (* L'utente ha premuto 'S' quindi salvo la tabella *)
  If Ch = 'S' Then SalvaTabella;
End;
Ora salviamo la tabella
Procedure SalvaTabella;
Var
   F : File of MioRecord;
   R : MioRecord;
Begin
    Assign(F, 'MioFile.Dat');
    (* Provo ad aprire un file esistente *)
    {$I-}
    Reset(F);
    {$I+}
    (* Se IORESULT è diverso da 0 il file non esiste quindi lo creo *)
    If IoResult <> 0 Then Rewrite(F);
    (* Mi pongo alla fine del file *)
    Seek(F, FileSize(F));
    ..... In questo punto dovrebbe esserci il tuo ciclo per il salvataggio della tabella
e, ogni record andrà scritto usando Write(F, R); .......
    ..... vabbè faccio un esempio .....
   For i := 1 to Numero_Dati_In_Tabella do
         Begin
             PreparaRecordDiUscita(I, R);
             Write(F, R);
         End;
    ..... dove la procedura PreparaRecordDiUscita ritorna in R il record giusto a seconda
dell'indice passato I........
   (* Chiudo il file e termino la procedura *)
   Close(F);
End;
Ciao,
David (
www.utilityweb.net
)
Newsgroup: it.comp.lang.pascal
Titolo: Da vettore a matrice

 
dipende in che ordine li vuoi mettere dentro la matrice, puoi riempire 
la matrice per righe o per colonne o per diagonali o casualmente ... 
dipende quanto è insensato l'esercizio che ti hanno assegnato :))

 Spero che sia riuscito a spiegarmi meglio ;-)
Ok, tu leggi il vettore e riempi ordinatamente la matrice per righe. 
Ammettiamo di avere un vettore V di N elementi, e M matrice XxY, cosě 
hai una soluzione che ti riempie una matrice qualsiasi.
....
i:=1;
j:=1;
c:=1;
While (c<=N) and (j<=Y) do {ripetiamo finché ci sono elementi nel 
vettore e la matrice non č ancora piena}
Begin
   M[i,j] := V[c];  {mettimo l'elemento in matrice}
   Inc(i);          {passiamo al successivo elemento della riga}
   if (i>X) then Begin      {se abbiamo finito la riga ...}
                    Inc(j); {... passiamo alla riga successiva ...}
                    i:=1;   {...alla posizione 1}
                 end;
   Inc(c);{passiamo all'elemento successivo del vettore}
end;
.....

io consiglio più semplicemente
c:=1
For a:= 1 to 4 do
  for b:=i to 3 do
    begin
       matrice[a,b]:=vettore[c]
       c:=c+1
    end

Dimenticavo;
questo è per una matrice 4 x 3
per una matrice 3 x 4 devi fare
matrice[b,a]
ovvero devi invertire la posizione in cui va a mettere i valori.... forse è
complicato come lo spiego quindi ti metto direttamente il pezzo di codice:
c:=1
For a:= 1 to 4 do
  for b:=i to 3 do
    begin
       matrice[b,a]:=vettore[c]    {qua si mette a,b per la matrice 4x3
mentre b,a per la matrice 3 x 4}
       c:=c+1
    end
Buon divertimento

La cosa più semplice è trasferire tutto in una matrice di interi di
lunghezza 12.
Poi la riempi come una 3 x 4
Procedure Passa_A_Un_Vettore_Di_10;
var a,b,c: byte;
      vettore: array[1..12] of integer;
Begin
  c:=0
  for a:=1 to 4 do
     for b:=1 to 3 do
       begin
         c:=c+1
         vettore[c]:=matrice[a,b]
       end
End;
Poi per passare alla matrice usi la procedura che ti ho indicato nel post
precedente.
:-)
Newsgroup: it.comp.lang.pascal
Titolo: Dritte per il MIPS





Salve a tutti. Avrei bisogno 
di qualche dritta per un progettino che il prof ci ha sottoposto da svolgere 
entro martedì prossimo. So che l'NG tratta solo pascal, mentre io vi chiedo una 
soluzione in assembler per MIPS, e me ne scuso, ma basterebbe solo qualche 
aiutino! Se qualcuno vuol rispondere ecco il seguente 
problema:


I 
numeri di Fibonacci
 
F
0
, F
1
, F
2
,...sono definiti induttivamente come 
segue: 




F
0
=0 
  
F
1
=1 
  
F
i
= F
i-1
 + F
i-2 
+1,  per


i   maggiore o uguale a 2. 


Scrivere un programma MIPS che legge in input un intero 
n
 maggiore 
o uguale a 0 e stampa l'intero F
n
. Usare l'istruzione 
syscall
 per gestire l'I/O del programma. 


Chiaro? Ringrazio chiunque sia disposto a rispondere, se poi mi fornisce 
tutto il codice completo meglio che mai!! Grazie a tutti per la 
disponibilità!!!


p.s. Ho provato l'NG del MIPS ,ma è tutto in inglese e c'era 
solo un messaggio di 2 settimane fa!!


 



    * Fi= Fi-1 + Fi-2 +1,  per i   maggiore o uguale a 2.
                      ^^^^^  
è sbagliato quello che ha scritto il Boreale:
F(i)=F(i-1) + F(i-2) e basta
Per il puro spirito di competizione che mi pervade il corpo non posso
aiutorati, mi spiace :((((

ok grazie lo stesso, W lol spirito di competition!
Newsgroup: it.comp.lang.pascal
Titolo: patch per PentiumII

    	Vorrei sapere dove è possibile trovare una patch per utilizzare la 
libreria  CRT con i Pentium II.
Grazie a tutti.

Se mi dai EMAIL te la spedisco...
--------------------------------------------------
 Just listen to teacher:
 "The only good Windows is an UnIstalled Windows"
--------------------------------------------------
 IL RAZZIATORE
 EMAIL: 
razzi...@usa.net
 WEB:   
http://www.geocities.com/il_razziatore/
 ICQ:   67552596
--------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Pascal Vs C++

Considerando che sono a digiuno completo di programmazione e che
vorrei imparare a creare qualke programmino per Dos ho provato il
QBasic il T.Pascal 7.0 ed il Turbo C++ 3.0
Fra questi riesco a capire qualkosina di pascal, e di Qbasic, ma il
C++ è mooolto + tosto per chi inizia (almeno a me da questa
impressione) però tutti elogiano il C++ per queto o quel otivo.
Ora vorrei comprare dei manuali e mi sorge il dubbio, rimango al
pascal (tra l'altro non + supportato da tempo) che sto iniziando a
studiare oppure passo direttamente al C++ che in un futuro mooolto
lontano potrebbe anche servirmi per facilitare il passaggio alle
ultime versioni Visual x Windows?
Voi che mi consigliate?
In termini pratici ci sono cose che il C++ permette e che il Pascal
non riesce a fare?
Non sò che direzione prendere....aiutatemi a scegliere.....
Grazie.

 Non sò che direzione prendere....aiutatemi a scegliere.....
Ribadisco: quello che piace più a te. Io con il Pascal non sento
l'esigenza di passare ad altro.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
GPG Public Key 
http://www.cucciolo.net/pub/michele/michele.asc


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 non riesce a fare?
Non esiste un linguaggio che riesca a fare cose che altri linguaggi non
possono fare, esistono linguaggi
con verticalizzazioni su determinati settori, es.: il vecchio Clipper ha
funzioni che facilitano accesso a database....
Quindi la scelta tra un linguaggio e l'altro deve essere effettuata
conoscendo prima il problema che si vuole risolvere... inoltre bisogna
aggiungere che devi decidere secondo il paradigma che vuoi utilizzare
Pascal, C, Clipper, Qbasic etc. usano un paradigma imperativo, C++, Java,
Delphi etc pardigma ad Oggetti, VB prevede una programmazione ad eventi.
Tutti questi linguaggi hanno la stessa "potenza" nel senso che ti permettono
di risolvere tutti i problemi, che ti puoi immaginare, e che sianno
ovviamente risolvibili !
La differenza è nella progettazione del programma, che segue filosofie
differenti.
Ciao ReDiCuori
-- 
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
 sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
---------------------------------------------------------
"JoeBlack®" <
joe_...@tiscali.it
^> ha scritto nel messaggio
news:41u410d8rr4fqr34r...@4ax.com...
Newsgroup: it.comp.lang.pascal
Titolo: posta elettronica

non riesco a finire un programmino di posta elettronica sto impazzendo mi
potete aiutare sono disperato non riesco a ricevere i messaggi dal server e
non riesco a metterli in una list box mi potete dare una mano con delgi
esempi dei siti oppure degli ocx gia fatti perche io sto facendo tutto
questo con winsock e sinceramente è un po una palla
cmq
sono veramente disperato piu informazione e link mi date e meglio è grazie
mille vi adoro

 grazie mille vi adoro
no vabbeh dai stai esagerando, cambia idea :-)
-- 
Dreadnaut - 
http://dreadnaut.serverbeer.com/
(Life would be easier if I had the source code)

uh scusa. temo sia la mia giornata annuale dell'antipatia :-)

Newsgroup: it.comp.lang.pascal
Titolo: Lavorare su + unit

Sto cercando di implementare una banalissima classe su una unit separata.
il testo è il seguente
unit pippo;
 {$mode objfpc}  {$H+}
interface
   type
   MyClass = class
   public
 
      constructor Create;
   end;
implementation
constructor Create;
var
   a : integer;
begin
  a := 5;
end;
initialization
finalization
end.
purtroppo mi segnala errore  "il construttore deve essere un metodo"
cosa sbaglio?


Devi indicare il nome della classe nell'implementazione del costruttore
nel tuo caso:
constructor MyClass.Create;
begin
...
end;
altre correzioni meno importanti ma significative:
Il nome delle classi per convenzione inizia con T
la tua variabile a nel costruttore la metterei come campo dell'oggetto 
TMyClass, è buona norma richiamare il costruttore ereditato anche se nel 
tuo caso non erediti niente, ma non si sa mai in futuro TObject potrebbe 
anche cambiare.
unit pippo;
   {$mode objfpc}  {$H+}
interface
type
     TMyClass = class
     private
       a: Integer;
     public
       constructor Create;
     end;
implementation
constructor TMyClass.Create;
begin
   inherited Create;
   a := 5;
end;
end.
Ciao, Dean

Grazie, e pensare che sviluppo in delphi da 4 anni......
ancora una cosa, non ho molta pratica con le direttive di
compilazione, ma perchč con il free pascal devo mettere questa
direttiva?
 {$mode objfpc}  {$H+}
Cosa significa?
Ancora un consiglio, sto sviluppando sotto linux e non riesco ad usare
lazzarus, come faccio a vedere dove sono i sorgenti del free pascal
(serve a lazarus)?
grazie ancora
Stefano

 (serve a lazarus)?
Se non ti ricordi dove hai installato le sorgenti del Free Pascal prova 
con una ricerca di questo file da root
find / -name compiler.pas
e vedi dove compare.
come directory free pascal in lazarus devi impostare la directory padre, 
che normalmente si chiama fpc
Ciao, Dean

Grazie, ho ancora una domanda, siccome vorrei utilizzare lazarus, non
so dove ho installato i sorgenti del free pascal.
come faccio a trovarli sotto linux?
Grazie


ma hai letto il mio post precedente per intero?
da terminale il comando seguente (devi eseguirlo come utente root)
find / -name compiler.pas
cosa ti restituisce?
Dean

...

si, ho letto, purtroppo quando scrivo un messaggio lo vedo nel group
solo il giorno dopo.... come mai ci mette tanto a essere pubblicato un
messaggio? (Scusa, ma sono nuovo, e immmagginavo che fosse
instantaneo)
Cmq il comando non mi restituisce nulla.
Grazie ancora

 Grazie ancora
Allora è il caso di installare i sorgenti del Free Pascal :-)
Proprio ieri è uscita la 1.9.8 (aka 2.0 release candidate 2).
ftp://ftp.freepascal.org/pub/fpc/beta/whatsnew.txt
Fai il download da
http://www.freepascal.org/down2-linux-i386.html
ti consiglio di installare dal file tar, rispondendo y su richiesta di 
installazione dei sorgenti, demo e documentazione.
Ciao, Dean
Newsgroup: it.comp.lang.pascal
Titolo: Andiamo insieme su mirc?

Salve a tutti, volevo sapere se esiste un canale su Mirc dedicato alla
programmazione in Turbo Pascal.
Se così non fosse, perchè non ne facciamo uno?
--
 ____________________
 ·§§§§·RicDisaster·§§§§·
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
E-Mail:
rick...@tin.it
ICQ: #48897454

Non so se ce ne sia uno, ma se non c'è, io ci sono.
CIAO

Newsgroup: it.comp.lang.pascal
Titolo: Ancora molto Urgente

Sono sempre io, Juan il ragazzo di 17 anni che per salvare il voto di
Informatica a scuola si rivolge ai grandi esperti del NG, ecco il problema
ora :
Come faccio a cercare una stringa contenuta in un file ?
Per essere più chiari vi spiego cosa mi è stato assegnato!!!
Esercizio : Creare una rubrica personale dove inserire nome, cognome, tel di
casa e cellulare, salvare i dati in un file, e in seguito cercare per
cognome la persona desiderata e far scrivere su schermo tutti i dati immessi
in precedenza.
Io ho creato il file, ho aggiunto il nome e tutto il resto, ma come faccio a
trovare il cognome e a far stampare tutti i dati richiesti?
Qualcuno gentilmente potrebbe vedere se riesce a fare un programma che
simuli quello che devo fare io?
Vi prego sono disperato!!!
Salve a tutti e un grazie in anticipo.

 ha scritto nel messaggio
news:A8zl6.6029$q97....@twister1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto Ritorno Procedura

Salve a tutti, vorrei fare una domanda! Posso?
Grazie!!!
Ecco la domanda:
Ho una procedura in cui mi calcolo un valore (fin qui tutto normale), ora,
come faccio a usare in un'altra procedure il valore ritornato da questa???
Forse sarà banale ma ora proprio non ci riesco!!!
Grazie per le risposte!!


wrote:

Ci sono vari modi:
1) Hai una procedura A ed una B. La procedura B necessita di un valore
della procedura A. Allora la procedura B va dichiarata all'interno
della procedura A. 
2) Dichiara quella variabile globale, allora non ti servira'
dichiarare le procedure una all'interno dell'altra.
3)Invece di fare una procedura, fai una funzione che restituisca come
valore il dato che ti serve per quell'altra procedura. Cosi' puoi
passare il valore alla procedura come parametro.
Es:
function A(x : integer):integer;
begin
...
end;
procedure B (y:integer);
begin
...
end;
Cordiali saluti.
Matteo.

come faccio a usare in un'altra procedure il valore ritornato da questa???
Ci sono due possibilita'.
1)Dichiarare la variabile come globale ( = prima delle due procedure).
Per Es.:
-----------------------
Program ABC;
...
var risultato : real;
...
Procedure Alfa;
Begin
...
Risultato:= ...
...
End;
Procedure Beta;
Begin
...
VarA:=Risultato+VarB;
...
End;
BEGIN ... END.
-----------------------
2) Utilizzare (se la var e' una sola) una function invece di una
procedura.
---------------------------
...
Fuction Risultato : Real;
Begin
...
Risultato:= ...
End;
Procedure Beta;
Begin
...
VarA:=Risultato+VarB;
...
End;
BEGIN ... END.
------------------------
Ciao
Andrea C

Forse sarà banale ma ora proprio non ci riesco!!!
Cominciamo col dire che le procedure non restituiscono alcun valore,
le funzioni lo fanno. Se ti stai riferendo ad una funzione, puoi
scrivere semplicemente :
function somma( a, b : integer ) : integer ;
begin
  somma := a + b ;
end ;
la funzione potrebbe essere chiamata in questo modo :
x := 3 ;
y := 5 ;
sum := somma( x, y ) ;
Nel caso, invece, ti stai riferendo proprio ad una procedura, il modo
per cui essa possa offrire un valore come risultato di un'operazione
e' quello di passare un parametro per riferimento.
Es.:
procedure somma( a, b : integer ; var s : integer ) ;
begin
  s := a + b ;
end ;
In questo modo, invece, potrebbe essere chiamata :
x := 3 ;
y := 5 ;
somma( x, y, sum ) ;
--
Andrea Laforgia
andrea_...@bigfoot.com