mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Funzioni data,ora

Salve,
 potete dirmi le funzioni per conoscere la data e l'ora dell'orologio
interno del computer ?  Grazie in anticipo.
Ciao.

 ha scritto nel messaggio
news:129.831T2887T5...@inwind.it...


 interno del computer ?  Grazie in anticipo.
GetTime & GetDate
(se vuoi ci sono anche le corrispondenti Set- )
--
Dreadnaut
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:129.831T2887T5...@inwind.it...


 wrote in message
129.831T2887T5...@inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: freepascal for linux, aiuto

non rieso ad installartlo dalla shall, mi da errori del tipo file o
directory non trovati e non completa l'installazione, ho provato anche da
root. ho la linux mandrake 8.2. come devo fare? dove devo scampattare il
file tar? grazie a tutti coloro che mi aiuteranno
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

file tar? grazie a tutti coloro che mi aiuteranno
Non conosco le procedure di installazione usate da mandrake, ma visto che
nessuno ti risponde provo a darti una mano.
Se quello che hai sottomano e' un file tar o tar.gz o tgz o similari e'
ovvio che lo devi scompattare con il comando tar. 
Tra i files che ottieni ci sara' il compilatore vero e proprio denominato
ppc386 o fpc o similari. Installalo in /usr/bin o in altra directory
adeguata. 
IMHO FreePascal per molti usi va benone, si tratta comunque di un
compilatore a linea di comando (tipo tpc.exe), meno user-friendly del Turbo
Pascal usato in versione IDE.
Se non l'hai gia' fatto, consulta 
http://www.frepascal.org
 
-- 
 Elio Proietti        
Debian GNU/Linux

 Se non l'hai gia' fatto, consulta 
http://www.frepascal.org
grazie mille, spero solo che abbia scaricato quello con l'interfaccia
grafica, 12 mb sono 12 mb, con la 56 k...


sul sito della freepascal in qualche posto c'era scritto di fare cosi'
sh install (forse + .estensione)
http:///
web.tiscalinet.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: Perche funziona in Pascal ma non in Delphi?

Perche questo programma funge sensa problemi in Pascal ma non in
delphi?
Type
  A = Record
    Index   : Byte;
    Command : Word;
    Msg     : String[255-SizeOf(Byte)-SizeOf(Word)];
    End;
Var
  X: String;
  B: A;
Begin
  B.Index:= 255;
  B.Msg:= 'Ciao';
  X:= String(B);
  WriteLn(A(X).Msg);
  ReadLn;
End.
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 delphi?
ehm... ma tu mi leggi nella testa a km di distanza ??
stanotte non riuscivo a dormire e cercavo di costruire una struttura
simile sdraiato a testa in giu' sul letto... cmq...
stesso identico mio problema: sotto Delphi (win in generale) byte e
word hanno le stesse dimensioni che sotto dos, MA sono allineati in
memoria come longint !!!
quindi la tua struttura diventa:
Index: byte
-- 3 byte vuoti --
Command: word
-- 1 byte vuoto --
Msg: etc etc...
e tutto si incasina...
ciao,
e basta entrarmi nella testa di notte che voglio dormire
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

e tutto si incasina...
cmq teoricamente dovrebbe risolvere il prolema con: 
String[255-SizeOf(Byte)-SizeOf(Word)]
o neache le string sono + 255?


 o neache le string sono + 255?
no no le stringhe sono ancora 1+255 char.. mannagg mi
tocca infilare PChar ovunque... grrrr
quello che non fa funzionare il codice penso sia il casting
sulla struttura [ in effetti e 'metodologicamente' osceno :-) ]
ma funzionerebbe con strutture non allineate... cosi' invece
scrivendo 'ciao' nella struttura 'casted' come string
a) modifichi il campo Index mettendoci un 4 [e questo va bene]
b) scrivi 'Cia' nei 3 char inutilizzati dopo Index
c) scrivi 'o' nel primo byte Command
[ b) e c) sono ovviam cose non belle ]

Newsgroup: it.comp.lang.pascal
Titolo: NEVE

Ragazzi.. chi vuole vedere il mio programma sulla NEVE CHE CADE? L'ho fatto
in modalità grafica (ovviamente ^___^) però il punto è che sfido chiunque a
rifarlo come l'ho fatto io... Ovviamente voglio un segno che l'abbiate fatto
voi e non che abbiate modificato il mio EXE.
Fatemi sapere!

 wrote in message
DMjO5.18474$BF.6...@news.infostrada.it...


 wrote in message
8ucisc$9f3$1...@sun250.unimi.it...


Manda manda :-)
un Dreadnaut che se lo faccio meglio del tuo vinco qualcosa ? ;-)

mi interessa, potresti mandarmelo?
Vegeta ha scritto nel messaggio ...


lo mandresti anche a me? o magari se lo metti su un sito web anche
temporaneo.....


mi farebbe piacere vederlo...
scusa se ti rispondo solo adesso :-)
poi se mi scrivi ti posso fare vedere un programma che non funziona come
dovrebbe? graziez

> un Dreadnaut che se lo faccio meglio del tuo vinco qualcosa ? ;-)
Mmmmmm mi sa tanto di alt.hackers questa chisura...........

Siete capaci di rispondere in privato oppure no?????????????

mmmmmhm forse.... :-)
un Dreadnaut che trovare una sig fissa e'f troppo faticoso
meglio inventarsela al momento

Hey non e' che se non hai voglia di spedirlo a tutti lo metti sul tuo sito ?
Piu' semplice e meno faticoso :-)
un Dreadnaut che attende il mitico Neve :-) mmmmhmh cocaia ?

 meglio inventarsela al momento
Certo.....
Un Morpheus che ti tiene d'occhio :PP

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

qual'č il migliore compilatore per Pascal?

qual'č il migliore compilatore per Pascal?
Che io conosca ne esisto di decenti solo 3
Turbo Pascal (della borland), FreePascal (non so di chi sia), Borland
Pascal (della borland l'aversi mai detto?)
Tra Turbo Pascal e Borland Pascal vince sicuramente il secondo esendo
una espazione...
ora il dilemma Free o Bornald...
io uso da anni il Bornald (ho usato il 5.5, poi il 6.0 e ora il 7.0) e
sinceramente mi ci trovo bene... si puo' fare tutto e poi con i flag
di compilazione (se uno li sa utilizare) si fa cosa bestiali
il free ero riuscito ad instalarlo ma dopo 2 secondi lo disintalato...
IDE č netamente inferiore a quello del BP. La compilazione mi sembrava
machinosa (bisogna specificare la piataforma ed andare in giro con le
librerie della piataforma)
in pratica io ti consigli il BP 7.0 con la sua Patch...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 IDE è netamente inferiore a quello del BP. La compilazione mi sembrava


errore:"Error 14:Invalid filename(c:\tp7\bin\FILE.EXE)". Perchèè?
SI mi ricordo che lo faceva che a me... se mi ricordo bene era qualche
inpiccio con le directory... ma non ne sono sicuro....
qualcun altro a ulteriori news?

Newsgroup: it.comp.lang.pascal
Titolo: Infame Funzione...

Ho un problema immane:
ho scritto una funzione di questo tipo:
function F(j:word):word;
var xxx
begin
...
end;
tale funzione non funziona (contro la definizione!! :-)))) )
se prendo tutto il corpo (begin end; compresi o esclusi, a scelta) e lo
copio/incollo tra un begin end., tutto misteriosamente va.
Why??
Cercherò di essere un po' più preciso:
begin
 j:=F(j);
end.
così non va
begin
 corpo della funzione;
end.
allora va
Tale funzione non fa nulla di particolare: fa scorrere una matrice
(dichiarata globale) e ne costruisce un'altra (anch'essa globale) usando
come supporto una matrice interna alla funzione (non visibile al resto del
prog.)
Qualcuno ha idee?? :-)
Ciao e grazie
--
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth


Ho notato che il tutto è risolvibile modificando la posizione nella
dichiarazione delle matrici:
var a:array[1..90]of byte;
b:array[1..90]of boolean;
c:array[1..60000]of byte;
queste sono le 3 matrici... quella infame è 1..90 of boolean:
se la dichiaro subito dopo alla 1..90 of byte, tutto salta.
Se la dichiaro all'interno di F, tutto salta.
Il problema è: come faccio a sapere se i valori che credo siano giusti
sarannop poi giusti in eterno??
Qualcuno ha idea di cosa possa succedere??
Lavoro sotto Win98 con il compilatore Borland TP7.0, in modod che non riveli
Win, con 560kb di mem base protetta... anche riavviando in DOS è uguale...
boh??
Grazie di nuovo!!
Ciao


c:array[1..60000]of byte;
E' normalissimo invece. Sai cos'è lo stack delle chiamate? ogni volta che
apri una funzione le variabili vengono allocate nello stack delle chiamate
che, per default, è dichiarato di 16Kb estendibili a 64Kb e tu il limite dei
16 l'hai superato.
La cosa non succede quando gli array sono esterni perchè il limite dell'area
dati Globale è generalmente fissa a 64Kb e ti avvertirebbe in compilazione
di un eventuale eccesso.
Ciao, Matteo
e-mail: 
rma...@geocities.com
home-page: 
http://rossini.home.ml.org
 (2 chat e qualche poesia)


Ok... ho superato i 16k... ma l'errore rimane anche mettendo
c:array[1..10000]of byte;
così dovrei rimanere nei 16kb... no?? :-)
Inltre...  come spieghi che se definisco prima c, poi a e poi b, si falla,
se definisco a, c, b no, ecc. ecc.??
Altri commenti sono ultragraditi... anche perché il prog. era solo
all'inizio... e non vorrei trovare altre p_ _ _ e del genere :-))
Ciao e grazie


 
Sei sicuro di aver utilizzato bene le strutture dati? In genere i 
problemi sono li'.

problemi sono li'.
Nessuna struttura...:
dim r:array[1..90]of byte;
      f:array[1..90]of word;
      r:array[1..5000]of byte;
boh??


Newsgroup: it.comp.lang.pascal
Titolo: Elevamento a potenza

Salve a tutti. Come posso eseguire questa potenza  " 2^1/n " in Pascal ?
Grazie.
Stefano

Salve a tutti. Come posso eseguire questa potenza  " 2^1/n " in Pascal ?
potenza := 1 / ( 2 shl (n-1)) ;
--
Andrea Laforgia
andrea_...@bigfoot.com

Grazie
Newsgroup: it.comp.lang.pascal
Titolo: un pò di cose.....

eccovi un pò di domande :-)
a) è possibil usare la funzione random per ottenere una qualsiasi delle
lettere dell'alfabeto ?
   ho provato a crearea fare così ma non funza :
 
type uperrcase = 'A'..'Z'
var case : uppercase;
case:=random(case);
b) ho notato che se uso la unit CRT non  posso cancellare i valori che
digito da tastiera.
E' possibile usare tale unit mantenendo però la facoltà di cancellare.
c) esiste qualcuno sulla faccia dellta terra che conosca la unit SOCKET
?? Quello che devo fare è instaurare una connessione ad un pc ad una
determinata porta e passargli una serie di istruzioni contenute in un
file. Il fatto che non sono riuscito nessun doc sulla rete.
d) qual'è la funione dos per richiamare la shell ??
e)  grazie a quanti mi risponderanno.

d) qual'è la funione dos per richiamare la shell ??
Cosa? sucsa di che shell parli di quella di Linux??? 

E' possibile usare tale unit mantenendo però la facoltà di cancellare.
Forse devi controllare meglio quello che fai, non hai il controllo della situazione.
Riprova, sarai piu' fortunato.
extrabug @ 
iname.com

 e)  grazie a quanti mi risponderanno.
ammesso che ti serva, grazie
Newsgroup: it.comp.lang.pascal
Titolo: Proposta indecente

Anche se PasOs č per dimostrare le potenzialitą del Borland Pascal, non si
potrebbe includere il Delphi , soprattutto per quanto riguarda la GUI e in
particolare la creazione del drag and drop ?
                                                                 Kosby
--
http://members.xoom.it/kosby
Per risposte/richieste urgenti contattami via SMS
http://www.smsatme.com/sma/sms.php?auth=:DD:B5:9Bj:EF:F6:FB:C5

 particolare la creazione del drag and drop ?
e in che modo visto che i suoi eseguibili sono compatibili SOLO con win32???

: 

emulazione win32?

> emulazione win32?
e quante cose devono fare??? :)

Newsgroup: it.comp.lang.pascal
Titolo: Indirizzo per parallela? (da inserire nella funzione port)

Ciao volevo sapere qual è l'indirizzo della parallela da inserire nella
funzione port. E' se qualcuno potrebbe darmi la sintassi esatta per
utilizzare port o portw.
Grazie in anticipo!!
--
Raistlin Majere
"Il Fato guida i liberi."


Ciao!
Simone.
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________

 Grazie in anticipo!!

 wrote in message 840dvm$c1v$1...@nslave2.tin.it...


utilizzare port o portw.
Const
  LPT1 : Word = $378;
  LPT2 : Word = $278;
....
(* per ricevere: *)
VarByte:=Port[LPTx];
VarWord:=PortW[LPTx];
(* per trasmettere: *)
Port[LPTx]:=VarByte;
PortW[LPTx]:=VarWord;
Ciao
Andrea C

Newsgroup: it.comp.lang.pascal
Titolo: piccolo problema

Ciao a tutti, devo fare un programma per la scuola per il codice fiscale.
Non so' come fare a "dire" di prendere le prime lettere non vocali.........
SRIVETE A 
angelo...@softhome.net

 wrote in message
_Td54.27928$Bg7.2...@typhoon.libero.it...


Crei un insieme che contiene le vocali.
Controlli le lettere inserite dall'utente.
Se la lettera è nell'insieme salti altrimenti aggiungi al codice fiscale.

Non so' come fare a "dire" di prendere le prime lettere non vocali.........
const  VOCALI : set of char = ['A','E','I','O','U'] ;
var n : string ;
    i, cc, cv : integer ;
begin
  writeln( 'scrivi qui sotto il tuo nome in maiuscolo' ) ;
  readln( n ) ;
  cc := 0 ;
  cv := 0 ;
  for i := 1 to length( n ) do
  begin
    if n[i] in VOCALI then cv := cv+1 else cc := cc+1 ;
  end ;
  writeln('nel tuo nome ci sono ',cv,' vocali e ',cc,' consonanti.') ;
end.
--
Andrea Laforgia
andrea_...@bigfoot.com

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

Gradirei unit grafica e caratteri speciali.
Mandatele a : mailto:
a.men...@tin.it
Grazie

 ha scritto nel messaggio
news:8g3dgd$dfa$1...@nslave1.tin.it...


 > >


Spedisci a 
mym...@supereva.it

Newsgroup: it.comp.lang.pascal
Titolo: Pascal grafica





Salve ragazzi,


volevo chiederVi un aiuto per quanto riguarda 
l'esecuzione di programmi Pascal che utilizzano la unit Graph. 


Q
uando cerco di 
eseguirli mi compare il seguente messaggio di errore:   BGI Error: 
Graphics not initialized (use InitGraph)


Che devo fare per evitare questo 
problema?


Grazie in anticipo.



Ogni comando grafico necessita che la scheda grafica sia inizializzata.
Scrivi initgraph(, posiziona il cursore sopra tale comando e premi ctrl+F1
ti apparirą l'help. Nell'Help c'č un esempio, copialo e fallo funzionare, il
tutto dovrebbe funzionare.
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
-- 
Posted from [62.10.206.191] by way of 
oe34.law10.hotmail.com
 [64.4.14.91] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Come si porta un numero che si ha in array come real in una stringa e
successivamente su di esso si svolgono delle operazioni per poi riportarlo
sottoforma di numero?
Aiutatemi

 ha scritto nel messaggio
news:mFY08.1307$Qu1....@news2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: AIUTO URGENTE CON IL VC++ 5.0!!!

Aiuto con il VC++ 5.0!!!
Avviando il Developer Studio mi da questo messaggio:
"DEVBLD
This required file cannot be loaded.
Please re-install Microsoft Developer Studio"
Perchč?
Aiuto!!
Grazie!
PS Ho provato a disinstallare il VSTUDIO (ma proprio tutto!!!!!) e a
reinstallarlo, niente da fare!
Per favore rispondete ad 
alessio...@technologist.com

Non puoi postare *SOLO* su it.comp.lang.c++???
Byezz Frankj!
Newsgroup: it.comp.lang.pascal
Titolo: Domanda pascal-hacking

ciao ragazzi,
stavo postando su un newsgroup hacker( so poco a riguardo), quando una
domanda mi attanagliò la mente.
Si parla spesso di C,C++, python,ecc...
Tanto per sapere, ma il pascal può essere associato all'hacking e
quest'ultimo può considerarsi una rampa di lancio per lo studio del C??

...


 wrote in message
Ft0h9.15180$eG6.3...@twister1.libero.it...

Non posso darti un granchè di consigli, perchè di hacking non ci capisco
niente, ma proprio niente.
Però ho iniziato la mia carriera(ahahahaahah) di programmatore proprio
iniziando a studiare per diventare hacker.
Ti consiglio d'iniziare col basic o col pascal, poi, quando avrai preso
confidenza, studia il C(bene, perchè ti servirà).
Poi studia le reti e la gestione dei socket(e per questo, come per lo studio
della programmazione, ad eccezione del basic, ti consiglio di non usare
winzozz, ma un sistema unix, tipo unix bsd, linux etc...).
Poi non posso dirti altro, perchè sono arrivato quì, e quì ho deciso di
fermarmi, ora stò rivolgendo i miei sforzi a qualcosa di più utile
dell'hacking(e anche più facile), cioè la programmazione(per fare programmi
per la matematica, virus(in assembler), antivirus etc...).
Ti posso certamente dire che C e Pascal sono linguaggi piuttosto affini, per
struttura, tipi di dati(anche se il C ha i puntatori, che sono delle
variabili per gestire direttamente la memoria, che in pascal viene gestita
in modo un po' diverso), sintassi e anche potenza, se uno ci sa programmare
veramente bene, in pascal.
Per approfondire ancora di più la conoscenza del pascal, e fare anche
programmi molto più veloci, e in grado di gestire direttamente l'hardware
della macchina, ti consiglio di studiacchiare anche un po' d'assembler(anche
se è difficile, ne vale la pena e dà un sacco di soddisfazioni).
Ciao, e buona fortuna!!
                                                                Alessandro
Newsgroup: it.comp.lang.pascal
Titolo: Posso richiamare una libreria C da Pascal??

Ciao a tutti,
il mio problema è questo: ho una semplice funzione scritta in C e
compilata con Visual Studio, che mi calcola il fattoriale di un numero
intero. Vorrei richiamare questa funzione da una procedura scritta in
Pascal, come si fa?
Piu in generale, è possibile richiamare un programma in C(o una
libreria) da un programma scritto in Pascal?? Come si fa??
Grazie a tutti, saluti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

libreria) da un programma scritto in Pascal?? Come si fa??
Allora il Pascal puo' linkare con se dei file Obj (molti compilatori
possono generare sia EXE che Obj, sia che siano ASM che C)
per linkare questi file basta fare:
{$L FileObj.obj}
poi basta fare
Procedura NomeProcedura(Parametri): External;
Tutto qui...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 The Only Good Windows is an uninstalled Windows
In questo caso, se hai il sorgente, basta usare un compilatore adatto: DJGPP
x DosFREePascal, devo capire quale tra CYgwin e Mingw x Windows(ma i file
del Mingw hanno estensione .o, quelli del FreePascal .ow, quindi prova con
CYgwin). Se devi usare stdcall, col gcc serve una sintassi del tipo
__attribute__((stdcall)), vedi nei file info, o con uno per windows usa la
macro di Windows PASCAL(es. int PASCAL funzione). Ciao
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

solo
uhm buona domanda, davvero buona domanda... in delphi ci sono diverse
diretive (register, pascal, cdecl, stdcall e safecall) ma qui non si
parla di Delphi ma di TP... avevo un codice C che fungeva in TP se
vuoi lo cerco...
Il Razziatore,
The Only Good Windows is an uninstalled Windows

Newsgroup: it.comp.lang.pascal
Titolo: [niubbo] Implementazione somma di Peano

So che sto chiedendo qualcosa di scandaloso, ma non riesco veramente a 
capire come fa a funzionare questa funzione:
Function Somma (A,B:integer):integer;
Begin
 if B=0 then Somma:=A else Somma:=Succ(Somma(A,Pred(B)));
end;
la funzione somma verifica se il valore B è uguale a zero, in tal caso 
restituisce il valore A, sennò dà il successivo della nuova chiamata di 
Somma con il precedente di B, e così via fino a quando B non raggiunge il 
valore 0 e il programma restituisce il valore di A.
Giusto?
Ma se a B dò valore negativo come fa il programma a darmi lo stesso il 
risultato corretto? Non dovrebbe inchiodarsi cercando tra i precedenti di 
un numero negativo lo 0? Non capisco...
Grazie a tutti coloro risponderanno a questa banale domanda!

 un numero negativo lo 0? Non capisco...
Senza provare mi sa proprio di si, per eliminare ogni problema puoi usare
if abs(B)=0 then ...
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

 precedenti di un numero negativo lo 0? Non capisco...
l'aritmetica dei computer non e' perfetta: gli integer sono
rappresentati
con 16bit, di cui uno per il segno, quindi il numero che precede -2^15
non e' -2^15-1 ma +2^15-1 (*): si ha un overflow.
Cosi' ti ritrovi un numero > 0 e prima o poi la funzione ritorna...
dubito
con un risultato corretto :-)   [ ma come e' def la somma di Peano per
numeri negativi ? ]
(*)
   Shortint   -128..127                 Signed 8-bit
   Integer    -32768..32767             Signed 16-bit
   Longint    -
2147483648
..
2147483647
   Signed 32-bit
   Byte       0..255                    Unsigned 8-bit
   Word       0..65535                  Unsigned 16-bit
-- 
Dreadnaut
(Life would be easier if I had the source code)

 numeri negativi ? ]
Grazie della risposta, non avevo tenuto conto del fatto (non lo sapevo!) che 
per il pascal il precedente di -35000 è +37Ketc ... così come il successivo 
di +35000 è -37Ketc ... così si spiega tutto!
grazie delle risposte, e scusate la mia ignoranza (forse dovevo postare ad 
un'altro gruppo, ma non sapevo quale...)

 ma non sapevo quale...
free.it.allevamento.ovini.caprini.su.terreni.argillosi ?
secondo me qua era perfettamente in topic :-)

Newsgroup: it.comp.lang.pascal
Titolo: Tris

Per divertirmi un po', ho tirato giů questo programmino del gioco
del tris (č solo per due giocatori) . Si puň fare in mille modi
diversi, naturalmente.
[...]
PROGRAM Tris;
uses crt;
type vet=array [1..2] of string;
type mat=array [1..3, 1..3] of string;
var m: mat;
    sim: vet;
    i,j,c,d,win,mano: integer;
procedure stampa(var matrix:mat);
var ii,jj: integer;
begin
    clrscr;
    writeln;
    writeln('     1   2   3');
    for ii:=1 to 3 do
    begin
        writeln('   +---+---+---+');
        write(' ',ii);
        for jj:=1 to 3 do
        begin
            write(' | ',matrix[ii,jj]);
        end;
        writeln(' |');
    end;
    writeln('   +---+---+---+');
end;
BEGIN
for i:=1 to 3 do
begin
    for j:=1 to 3 do
    begin
        m[i,j]:='.';
    end;
end;
sim[1]:='x';
sim[2]:='o';
c:=2;
mano:=0;
win:=0;
clrscr;
stampa(m);
repeat
    d:=0;
    c:=3-c;
    mano:=mano+1;
    repeat
        writeln;
        writeln('Giocatore : ',c);
        write('Inserisci coordinate (x <-> y): ');
        readln(j,i);
        if m[i,j]='.' then
        begin
            m[i,j]:=sim[c];
            d:=1;
        end
        else
        begin
            writeln;
            writeln('*Casella occupata oppure non valida!*');
            readln;
        end;
        clrscr;
        stampa(m);
    until d=1;
    for i:=1 to 2 do
    begin
        for j:=1 to 3 do
        begin
            if (m[j,1]=sim[i]) and (m[j,2]=sim[i]) and (m[j,3]=sim[i]) then
win:=i;
        end;
        for j:=1 to 3 do
        begin
            if (m[1,j]=sim[i]) and (m[2,j]=sim[i]) and (m[3,j]=sim[i]) then
win:=i;
        end;
        if (m[1,1]=sim[i]) and (m[2,2]=sim[i]) and (m[3,3]=sim[i]) then
win:=i;
        if (m[3,1]=sim[i]) and (m[2,2]=sim[i]) and (m[1,3]=sim[i]) then
win:=i;
    end;
    if mano=9 then win:=3;
until win<>0;
writeln;
case win of
1:writeln('Il giocatore 1 ha vinto!');
2:writeln('Il giocatore 2 ha vinto!');
3:writeln('...pareggio...');
end;
readln;
END.
[...]
Saluti.
--
    _
 Fa/_)io         A1200 PowerTower, WB 3.9, 060@60, 64MB, FireBall 13GB,
  /__)enedetti   Voodoo3, Digicom-10/100, Philips PCRW1208 - TFT-140/S.
/...era solo, con una galassia a cui badare/

> /...era solo, con una galassia a cui badare/
aspe... no mi e' nuova 'sta frase... che libro e' ?
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Sistemi

Mi chiedevo se fosse possibile fare un programma che risolva dei sistemi
lineari a due o più equazioni utilizzando il metodo di Cramer.
Se qualcuno l'ha già fatto / ha trovato su un sito questo programma potrebbe
gentilmente inviarmelo ?
Ciao
Enrico


In ogni caso devi comunque inserire il numero massimo di variabili.
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Cursore lampeggiante

Ciao a tutti,
Ho un problema che mi attanaglia da
parecchio tempo: come fare sparire
quell'onnipresente cursore lampeggiante
dallo schermo? Esistera' pur un modo no?
Grazie anticipatamente,
Carmelo.

 dallo schermo? Esistera' pur un modo no?
Definisci 2 variabili di tipo byte dal nome mych e mycl.
procedure cancellacursore;
begin
 asm
    mov  ah,03h      { salva gli attributi del cursore }
    mov  bh,00h
    int 10h
    mov  mych,ch
    mov  mycl,cl
    mov  ah,01h      { cancella il cursore dallo schermo }
    mov  ch,20h
    int  10h
   end;
end;
procedure visualizzacursore; assembler;
asm
  mov  ah,01h   { visualizza il cursore con gli attributi salvati }
  mov  ch,mych  { inizio scansione linea }
  mov  cl,mycl  { fine scansione linea   }
  int  10h
end;
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 [...]
Grazie mille.
L'ho provato e funziona alla perfezione. :-)))
Ciao. Carmelo.

Di nulla :)
Trovi una guida completa agli interrupt su
http://www.cs.cmu.edu/afs/cs.cmu.edu/user/ralf/pub/WWW/


Newsgroup: it.comp.lang.pascal
Titolo: pascal to delphi

in una vecchia tw ho trrovato il compilatore delphi 3. avendo usato sino ad
oggi il pascal 7, ho provato a "migrare", pensando di non avere grossi
problemi. purtroppo questi li ho trovati, per questo vi chiedo se esiste
nella rete una guida (anche piccola) in italiano sul passaggio da pascal a
delphi, oppure che spieghi le nozioni base del delphi. poi vi volevo
chiedere se conoscevate dei siti dove scaricare la versione per windows del
pascal, oppure se qualcuono si voi l'ha, puo' gentilmente spedirmela via
e-mail,  sempre se non vi chiedo troppo...
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

 e-mail,  sempre se non vi chiedo troppo...
sono 10 dischetti.... ma su crackstore non c'era tutto???
Newsgroup: it.comp.lang.pascal
Titolo: Pascal per Windows

Ciao a tutti,
Io ho il Turbo Pascal 7 della Borland che funziona sotto MS-DOS e vorrei
provare il Pascal per Windows, mi potete dire dove lo posso trovare ?
(gratis sarebbe meglio)
Per caso esiste ua implementazione del Pascal per Linux ?
Se si dove la posso trovare ?
Grazie

ORPE in un momento di lucidità (?) scrisse:

Cerca su 
www.freepascal.org
c'è sia per Windows che per Linux.
Ciao
giulio

 ORPE in un momento di lucidità (?) scrisse:
Perche' in un momento di lucidita' ?
Ciao

ORPE scrisse:

Non essere "permaloso" :-) E' solo un'intestazione std che uso... se è così 
fastidiosa la levo.
Ciao
Giulio

 ha scritto nel messaggio
news:a4r6jp$mjf$1...@pegasus.tiscalinet.it...

quello per win lo trovi all'indirizzo in firma
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5
per il reply togliere NOSPAZZATURA

Newsgroup: it.comp.lang.pascal
Titolo: problema con WRITE (f,s)

uso un codice del genere:
var f : text;
  c : char;
assign(f,'c:\miofile.txt');
rewrite(f);
for i:=1 to 100 do
begin
   write(f,c);
   writeln( i ,':  ' , c);
end;
ma mentre su video mi stampa tutti e 100 i caratteri
sul file me ne scrive solo 48 !
ho provato anche codici un po' diversi, ad esempio
con delle stringhe e magari si ferma a 60 ma non
arriva mai a 100!
dove sbaglio?
ps. sto usando Free Pascal (FPC), che ne pensate?
  secondo voi è affidabile?

 ha scritto nel messaggio
news:qIvV6.37750$Vk3.3...@news2.tin.it...



il codice l'ho scritto lì per lì, in realtà devo scrivere degli interi e
uso:
for i:=1 to j-1 do
   begin
    writeln(' ',i,':        ',posizione[i]);
    write(fo,i);
    write(fo,':  ');
    write(fo,posizione[i]);
    write(fo,chr(13));
  end;
cmq ho postato anche un'altra mail sempre su sto programma
Ciao

 ha scritto nel messaggio
news:WUHV6.596$ET5....@news2.tin.it...


ok, funziona, scusate x queste mail, ma dovevo fą i compiti di un mia
amica.....

 sul file me ne scrive solo 48 !
Hai provato a chiudere il file alla fine del programma?
E' banale, ma forse puo' servire.
Ciauz.

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

Ciao a tutti!!!!!
Ho un programma che che richiede l'uso del graph.tpu.
Quando lo lancio mi dice che questo file non lo trova.
In una cartella del pascal ho trovato questo file.Perchè non parte?
Forse chi ha scritto il programma aveva una versione diversa di questo
file??

 ha scritto nel messaggio
news:VwCL9.23242$TC5.7...@twister1.libero.it...

o forse in un'altra cartella!

 ha scritto nel messaggio
news:AFEL9.28510$ab2.9...@news1.tin.it...


Nel tp7 puoi impostare la cartella dalla quale devono essere pescate le unit
(ora non ricordo in quale sezione del menu).
Anche se la unit c'č, ma non č nella cartella giusta, non te la rileva...
chiaro? cerca un po' nei menu e poi vedrai

nella funz initGraph devi specificare il path dove i file .BGI
si trovano, se non sono nell dir corrente, altrim non li trova
-- 
Dreadnaut
(Life would be easier if I had the source code)

lascia perdere avevo letto un'altra cosa... :-)

Newsgroup: it.comp.lang.pascal
Titolo: Scrivere output su file

Ciao a tutti, sapete dirmi il comando per scrivere quest'output
"writeln(t.tipo,' ',t.val)" invece che su schermo su file?
ho messo un comando rewrite(fout), dove fout è il file di uscita, ma quando
scrivo "writeln(fout, qualsiasi_cosa, qualsiasi_altra_cosa) mi dice "invalid
file type"
Grazie, Daniele.

begin
  assign ( tipoFile, nomeFile );
  rewrite ( tipoFile );
  write ( ( NON writeLn ) tipoFile, var_qualcosa ):
  close ( tipoFile );
end;
dovrebbe funzionare... se ci fosse qualcosa di sbagliato sono sicuro ke
altri del NG ti aiuteranno.
Ciao!
--
el rasune'
-----
Ca custa chiel ca custa...
    Viva la val d'Austa!
"Daniele" <qwe...@NOSPAMMMMtiscalinet.it> ha scritto nel messaggio
news:9d1699$up7$1...@pegasus.tiscalinet.it...


fout dev'essere dichiarato come file di tipo 'text', mi pare
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 ho messo un comando rewrite(fout), dove fout č il file di uscita, ma


Ho risolto grazie anche alla faq di redicuori sul sito!
Grazie mille a tutti!
Daniele.

Newsgroup: it.comp.lang.pascal
Titolo: Cerco compilatore Pascal

Ciao a tutti!
Dovrei dare l'esame di fondamenti di informatica ma mi serve un compilatore
per il Pascal.
Sapete dove posso scaricarmelo?
Rispondetemi all' E-mail 
mdes...@tin.it
Grazie!


wrote:

Prova qui :
http://mathax.truman.edu/computer_science/pascal_page.html
Ciao.



Prova qui :
http://mathax.truman.edu/computer_science/pascal_page.html
Ciao :)

Newsgroup: it.comp.lang.pascal
Titolo: Tutorial in rete

Esiste un miglior tutorial per il pascal di questo?:
http://www.geocities.com/SiliconValley/Park/3230/
Se ne trovate di meglio ditemelo!:)
Byez³
~~~~~~~«««
http://web.tiscalinet.it/violator

SIIIII.
E uscirà prossimamente su 
www.manuali.net
                                                        Kosby

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

Scusate il secondo post di seguito...
Dopo ore di prove non riesco ancora a disegnare un quadrato in tp!
Non ho ben capito che parametri vanno messi sulla funzione"initgraph".
C'č qualcuno disposto a spiegarmelo chiaramente? Magari con un esempio...
Grazie
n.b.: non ditemi di guardare l'help, che l'ho gią fatto!


Initgraph vuole 3 parametri il primo č il driver grafico (help su detect),
il secondo č un parametro di ritorno che non devi inizializzare, il terzo č
il path del driver egavga.bgi per esempio
graphdriver:=detect;
initgraph(graphdriver,graphmode,"c:\turbo\bgi\egavga.bgi" );
if GraphResult <>grOK then
  writeln('impossibile inizializzare la grafica');
Ciao ReDiCuori

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

Dove scaricarlo ?
Grazie

appure all'indirizzo in firma trovi la versione 7 per win, con anche delle
lezioni sul pascal
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

Newsgroup: it.comp.lang.pascal
Titolo: Ci sarà un fenomeno che sà dove il tp si scarica

Sto sbroccando mi serve il Turbo Pascal 7 e nessuno č in grado di dirmi dove
lo posso scaricare!!Una cosa del genere č impossibile,eppure ci sarą
qualcuno all'altezza in questo sito.

 lo posso scaricare!!Una cosa del genere è impossibile,eppure ci sarà


Newsgroup: it.comp.lang.pascal
Titolo: Le variabili di una unit

Salve,
Vorrei proporvi un problema che si e' verificato a scuola.
Nelll'utilizzo di una Unit scritta anni prima da altri studenti ci si e'
resi conto che nella documentazione mancava la spiegazione di una
variabile infatti ne e' riportato l'identificatore ma il tipo e' errato.
Facendo passare i principali tipi di variabili del TP 7.0 non ne siamo
usciti.
Abbiamo solo il file .TPU e non il sorgente qualcuno sa' come ricavare
il tipo di una variabile di una unit avendo solo il TPU????
Grazie 
Diego.

you wrote :

Non e' un metodo troppo sicuro, pero' adottando sizeof() si puo'
conoscere l'occupazione in byte dell'oggetto e quindi dedurre il suo
tipo.
In un modo simile al seguente :
program tipi ;
var a : integer ;
    b : real ;
    function dimmi_tipo ( x : integer ) : string ;
    begin
      case x of
           2 : dimmi_tipo := 'integer' ;
           6 : dimmi_tipo := 'real' ;
      end ;
    end ;
begin
  writeln( dimmi_tipo( sizeof( a ) ) ) ;
  writeln( dimmi_tipo( sizeof( b ) ) ) ;
end.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
Windows98 is a trademark of Topo Gigio Corporation.
Newsgroup: it.comp.lang.pascal
Titolo: i file di testo..che ossessione!!!

Ok, pensavo di aver capito come gestire un file di testo...prendo il primo 
esercizio che dice di prendere un file con del testo su più righe e 
riportarlo a video con le righe numerate...beh io scritto questa cosa
PROGRAM NumRig (f,output);
 VAR
  f:text;
  c:char;
  conta: integer;
 BEGIN
  assign(f,'testo.txt');
  reset(f);
  WHILE (NOT eof(f)) DO
   BEGIN
    conta:=conta+1;
    writeln;
    write(conta,') ');
    REPEAT
    read(f,c);
    write(c);
    UNTIL eoln(f)
   END;
   readln;
  END.
ma non funziona e dopo 10mila tentativi ho deciso che forse è il caso di 
chiedere aiuto prima di tentare il suicidio...qualche anima pia mi dice dove 
sbaglio???
-- 
  ^  ^
 (  .y)-~~
 ----------Valefatina ©
 La coscienza non ti
 trattiene dal compiere
 un peccato, però ti
 impedisce di godertelo
 ----------------------
 
Rispondimi via SMS
http://www.smsatme.com/sma/sms.php?auth=:A6:19:E6:DE:A0:87:EB:1E

 wrote in message
Xns9185D8056F976...@193.70.192.102...


 che errore ti da?
Non mi dava errori (e dico dava perchè finalmente ho svelato l'arcano) ma 
semplicemente a video anzichè stampare
1)blablabla
2)blablabla
3)blabla
mi dava
1)blablabla
2)
blablabla
3)
blablabla
Un'amico poi mi ha risolto il tutto aggiungendo al codice un if, così:
PROGRAM NumRig (f,output);
 VAR
  f:text;
  c:char;
  conta: integer;
 BEGIN
  assign(f,'testo.txt');
  reset(f);
  WHILE (NOT eof(f)) DO
   BEGIN
    conta:=conta+1;
    writeln;
    write(conta:2,') ');
    REPEAT
      read(f,c);
      if ((c<>chr(13)) and (c<>chr(10))) then
         write(c);
    UNTIL eoln(f)
   END;
   readln;
  END.
sto ancora cercando di capirne il motivo (visto che io non ci sarei mai 
arrivata) fatto sta che adesso funziona..
grassie mille cmq per l'interessamento! :)


 blablabla
l'if messo da tuo amico "salta" l'elaborazione di questi caratteri...
un altro metodo era usare la procedura readln passandogli come variabile
una stringa: come risultato ottieni l'intera riga senza il ritorno a capo
finale e il programma diventa:
PROGRAM NumRig (f,output);
 var
  f: text;
  s: string;
  conta: integer;
  BEGIN
   conta := 1;  { SEMPRE inizializzare le var !! }
   assign(f,'testo.txt');
   reset(f);
   WHILE not eof(f) do
    BEGIN
     readln(f,s);
     writeln(conta:2,') ',s);
     inc(conta); {equivale a conta:=conta+1; }
    END;
    readln;
   END.
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 wrote in message
Xns9185D8056F976...@193.70.192.102...


Newsgroup: it.comp.lang.pascal
Titolo: SALVE SONO NUOVO ..

Mi convien presentarmi ... Filippo , alias McAuriel
17 anni .. giocatore di Uo su Gameonline .. frequenta la classe 3
informatica .. appassionato di Pascal :)
AVE!

cia!

Ola McAuriel

Newsgroup: it.comp.lang.pascal
Titolo: Type Mismatch

Eccomi qui mentre riemergo dalla mia ignoranza per porvi un nuova domanda.
Quel GranFiglioDiBuonaDonna del mio prof di programmazione ha assegnato un 
esercizio (manco fossimo al liceo...vabbč!) che chiede di scrivere una 
procedura che calcoli le due radici di una disequazione di secondo grado 
dati i tre coefficienti e che contenga una variabile imm di tipo booleano 
che deve restituire false se i valori delle due radici sono reali e true se 
sono immaginari...Boh! Ho scritto cmq una cosa che potrebbe funzionare ma 
dico potrebbe perchč quando vado a richiamare la procedura nel main program 
e come parametri indico (a,b,c,x1,x2,delta,imm) quel maledettissimo 
compilatore si ferma su imm e mi indica un type mismatch di cui non riesco a 
venire a capo. Virgole, punti e virgola, due punti...ho provato con tutti i 
simbolini possibili e immaginabili avete idea di come possa fare a risolvere 
la cosa?? Il mio librone IoSonoAmericanoEparloInglese non da soluzioni...:(
TIA
-- 
------->>..::Vale::..<<-------
"Le imprese straordinarie
 possono sembrare impossibili
 a coloro che ne misurano le 
fatiche secondo il giudizio 
comune, pensando che ciň che
 č accaduto non possa
 piů accadere." 
------------------------------

Non è che potresti inviare anche il programma...
Thanks
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 Ciauz
Ehmmm...qui non posso postarlo...previa autorizzazione te lo sparo in mail 
:) Se mi risolvi 'il caso' c'hai una pizza e una birra pagate! ^_^


 
Tu invia, se riesco a risolvere il problema ti faccio sapere, altrimenti 
porgerň le mie scuse nel newsgroup, forse :-p


Type mismatch indica semplicemente "tipo non corrispondente".
Per es stai assegnando ad una variabile integer un valore real.
Capito?
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

 
Ehmmm...niente pizza ho sistemato tutto in balia di un lampo di intelligenza 
e adesso funziona...quindi niente pizza...per adesso :) Ma grassie 1000 
comunque


 Capito?
ehmmm avevo effettivmente pasticciato un po' ma con il mio cervellino fuzo 
non ci arrivavo...ma adesso ho risolto grassie! :)

Newsgroup: it.comp.lang.pascal
Titolo: Lazarus

Vorrei dei commenti su questo tool visuale di sviluppo. A me sembra molto
interessante, specialmente per software multipiattaforma.
Alex Ambro

 ha scritto nel messaggio
news:IJZKb.54644$VW.23...@news3.tin.it...


 compilazione o dovrò andare a modificare un bel po di codice ?
Esistono differenze. I componenti disponibili in Lazarus non sono 100%
compatibili con Delphi, inoltre, la realizzazione e l'installazione dei
componenti è anch'essa diversa.
Lazarus, una volta terminato, permetterà lo sviluppo di applicazioni in
modo molto simile a Delphi che siano cross-platform (ossia che possano
funzionare su diversi sistemi operativi... tutti quelli supportati da
FreePascal).
Tuttavia, Lazarus e Delphi, seppur simili, sono prodotti diversi e la
compatibilità fra i due non è per nulla garantita.
Ciao,
  Luca
-- 
Linux registered user #291568 (
http://counter.li.org/
)
Electronic Frontier Foundation Member (
http://www.eff.org/
)
Mandrake Club Member (
http://www.mandrakeclub.com/
)

Newsgroup: it.comp.lang.pascal
Titolo: Problema unit (morpheus aiutami!!!!!)

Salve a tutti, sto realizzando una piccola unit per supplire alle carenza
del tp nel settore matematico, in special modo non c'è una funzione per
elevare a potenza qualsiasi un numero (solo a^2 con sqr), ma sto incontrando
dei problemi. Quando vado a compilare la unit dal sorgente allegato ricevo
l'errore numero 88: "( expected nella riga contrassegnata con <====.
Come posso fare a risolvere il problema?
Grazie
Xan
unit potenza;
interface
function pot(base,esp:integer):longint;
var base,esp,ris,i:longint;
implementation
begin
     ris:=base;
     for i:=1 to (esp-1) do
         ris:=ris * base;
     if esp = 0 then
        ris:=1;
     pot:=ris     <=================================
end.

il punto e virgola a fine riga
manca.


ciao...

 ciao...

Riscrivo la unit
 unit potenza;
 interface
 function pot(base,esp:integer):longint;
 implementation
function pot(base,esp : integer) : logint;
var ris,i:longint;
 begin
      ris:=base;
      for i:=1 to (esp-1) do
          ris:=ris * base;
      if esp = 0 then
         ris:=1;
      pot:=ris
 end;
end.
Cosě dovrebbe andare
Ciao ReDiCuori

Non fare troppo affidamento su di me, non sempre riesco a seguire il ng, di
solito due volte a settimana, quindi non mettete richieste di aiuto sul ng
rivolte a me, al massimo in privato!!! Anche perchè poi mica solo io so fare le
unit......
Ah, fra parentesi, quando avrò tempo mi rileggerò anche le FAQ così da
correggerle (ma spero non ce ne sia bisogno......) ed ampliarle!
Ciao
Newsgroup: it.comp.lang.pascal
Titolo: Scritte colorate

Si possono inserire le scritte colorate in un programma Pascal ? Se si ,
come?
Grazie
--
             Ciao.                                               Alex :-)
     --------------------------------------------------------------
                           "Alexandro 'Noel' G"
                 "
http://digilander.iol.it/gnorrolo
"
     --------------------------------------------------------------

              Ciao.                                               Alex :-)
Con la funzione "textcolor", e il colore tra parentesi tonde.
es.
textcolor(4); imposta, se non sbaglio, il colore rosso.
writeln('Ciao');
Il comando "normvideo", resetta tutte le impostazioni relative al colore. Se
ti interessa la funzione "backgroundcolor", che non comprende tutti i colori
disponibili per la precedente (16 circa), definisce lo sfondo del testo (del
testo, non dello schermo).
Spero di averti aiutato!
Ciao!
Filippo

 wrote in message
BfdP5.36342$BF.12...@news.infostrada.it...

Crado di aver capito come fare,,,,,,,,,,,,Grazie.

per cambiare il colore alle scritte
basta scrivere l'istruzione
textcolor con tra parentesi il nome del colore
in inglese oppure dei numeri tieni presente che oltre
il numero 13 le scritte diventano lampeggianti

0 nero
1 blu scuro
2 verde sc.
3 azzurro sc.
4 rosso sc.
5 viola sc.
6 giallo sc. ( = marrone )
7 bianco scuro (!? ok sarebbe grigio chiaro :-) )
+ 8 per ottenere i relativi colori chiari/luminosi che poi equivalgono a
8 nero chiaro ( !!! = grigio scuro )
9 blu chiaro
10 verde chiaro
11 azzurro ch.
12 rosso
13 viola
14 giallo
15 bianco
colore +16 per ottenere il lampeggiamento
ciao,
un Dreadnaut che perche' nessuno guarda mai l'help ;-)

 un Dreadnaut che perche' nessuno guarda mai l'help ;-)
Per ottenere il lampeggiamento, è sufficiente l'istruzione:
textcolor(num_colore + blink);
Ciao!
Filippo

E secondo te la costante "blink" quanto vale ? :-))
sarebbe ancora piu' veloce e performante un
textcolor (num_colore or $10);
:-)))) ma qui andiamo sul cattivo
ciao,
un Dreadnaut+blink che lampeggia ;-)

Newsgroup: it.comp.lang.pascal
Titolo: graph e driver inclusi

Un programma che usa la graph e il driver,
come faccio ad includerlo nell'eseguibile?
ho gia fatto l'oggetto egavga con il binobj, 
ma dopo non ho capito...
extrabug @ 
iname.com

 wrote in message
97bu66.3...@xtrlcl.local...


> 1) Utilizzare {$L EgaVga }
 procedure EgaVgaDriverProc; external; {$L \TP\BGI\EGAVGA.OBJ }
..
begin
...
 if RegisterBGIdriver(@EgaVgaDriverProc) < 0 then [c'e qualcosa che non va
errore]
...
end
idem per gli altri files

ah sorry... la parte piu' importante :-)
InitGraph(Gd,Gm,'');
senza niente come path :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

ed i font...
Tutto fatto, la seconda invece, non so a quale unit ti riferisci,
non ho nemmeno la wincrt, forse me ne manca qualcuna.
extrabug @ 
iname.com
Newsgroup: it.comp.lang.pascal
Titolo: IMPLEMENTAZIONE DEL GIOCO DEI CENTO NUMERI

NON RIESCO A RISOLVERE IL SEGUENTE PROBLEMA:
I DUE AMICI TIZIO E CAIO GIOCANO A <<CERCA E TROVO>> CON LE SEGUENTI REGOLE:
(A) TIZIO SCRIVE SOPRA UN FOGLIETTO UN NUMERO INTERO A SUO PIACERE, COMPRESO
FRA 1 E 100, CHE CHIAMA CERCA, E NASCONDE IL FOGLIETTO.
(B) CAIO DICE UN NUMERO INTERO, CHE CHIAMA TROVO, TENTANDO DI INDOVINARE. SE
CAIO HA INDOVINATO TIZIO GLI DICE <<BRAVO>>, ALTRIMENTI, SE TROVO E' PIU'
GRANDE DI CERCA TIZIO DICE <<TROPPO GRANDE>>, DIVERSAMENTE DICE <<TROPPO
PICCOLO>>.
(C) IL GIOCO PROSEGUE FINO A QUANDO CAIO NON HA INDOVINATO.
DESCRIVERE MEDIANTE UN DIAGRAMMA DI FLUSSO E UNA NOTAZIONE LINEARE IL GIOCO
E LE SUE REGOLE.
MODIFICARE IL DIAGRAMMA PRECEDENTE AGGIUNGENDO LA REGOLA
(D) ALLA FINE DEL GIOCO TIZIO DICE A CAIO QUANTI TENTATIVI HA FATTO PER
TROVARE IL NUMERO NASCOSTO.
MODIFICARE IL DIAGRAMMA PRECEDENTE AGGIUNGENDO ALLA REGOLA (D) LA SEGUENTE
(D) CAIO PUO' FARE 5 TENTATIVI. SE AL QUINTO TENTATIVO IL NUMERO NON E'
STATO TROVATO TIZIO DICE <<HAI PERDUTO. IL NUMERO NASCOSTO ERA...>> E MOSTRA
IL BIGLIETTINO.
alfredo...@tiscalinet.it

 wrote in message
85l3pk$san$1...@lacerta.tiscalinet.it...

procedure gioco
var f,cerca,trova:byte;
begin
cerca=randomize;
f:=0;
for f:=1 to 5 do begin
readln(trova);
if trova=cerca then begin
writeln('Bravo');
r:=5-f;
writeln('Hai fatto',f,'tentativi');
f:=f+r;
end else if trova<cerca then writeln('Troppo piccolo!') else if trova>cerca
then writeln('Troppo grande!');
end;


http://www.penguinpowered.com/~ecesena
"La condizione in base a cui Dio ha dato la liberta' all'uomo e' la
vigilanza eterna."
		-- John Philpot Curran