mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: <no subject>

Complimenti a fabio che nel suo sito internet su Xoom ha reso 
disponibile un' utility per leggere immagini .bmp attraverso un 
programma in pascal!
Volevo chiedere a chiunque se avessero per le mani simili UNIT.TPU 
includibili in sorgente .PAS per creare un file di immagine con quello 
che si č appena visualizzato sullo schermo.
Grazie di tutto!  
  Luigi.   
Noda...@promo.it
______________________________________________________
Get Your Private, Free Email at 
http://www.hotmail.com
--
Posted from [149.132.224.94] by way of 
f45.hotmail.com
 [207.82.250.56]
via Mailgate.ORG Server - 
http://www.mailgate.org

Un bel di' "Luigi Nodari" scrisse:
LN> Complimenti a fabio che nel suo sito internet su Xoom ha reso 
LN> disponibile un' utility per leggere immagini .bmp attraverso un 
LN> programma in pascal!
LN> Volevo chiedere a chiunque se avessero per le mani simili UNIT.TPU 
LN> includibili in sorgente .PAS per creare un file di immagine con quello 
LN> che si č appena visualizzato sullo schermo.
si potrebbe far qualcosa se lavori in 320x200x256 e salvi in qualcosa
di semplice, tipo appunto BMP (senno' ti tocca studiarti il
formato del file... il BMP invece l'hai gia' pronto) :-)
Ciao!
-- 
"In un'organizzazione gerarchica, piu' alto e' il livello, maggiore e' la
confusione", legge di Dow
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

  Luigi.   
Noda...@promo.it
Se lavori in grafica a 16 colori allora quello che cerchi io
CE L'HO!!!!!!!!!!!!!!!!!!!!!!!!!
altrimenti se vai a 256 colori non so. In questo caso il problema e'
ricavare le palette dei 256 colori dal turbopscal: non sono capace.
ciao,   fabio
fabi...@rocketmail.com

ricavare le palette dei 256 colori dal turbopscal: non sono capace.
Il procedimento funziona con la VGA 320x200x256.
Non so con le altre modalita' video a 256 colori anche se credo vada
bene per tutte.
Type PltCol=Record
             RVal,GVal,BVal:byte;
            End;
Sostituisci un colore della palette con il tuo...
Procedure InsColor(NumColor:byte;RGB:PltCol);
  Begin
   Port[$3C8]:=NumColor; {Numero colore 0..255}
   Port[$3C9]:=RGB.RVal; {Red intensity 0..63}
   Port[$3C9]:=RGB.GVal; {Green   "     0..63}   
   Port[$3C9]:=RGB.BVal; {Blue    "     0..63}
  End;
Recupera un colore della palette...
Procedure GetPlt(Var RGB:PltCol;NumColor:byte);
 Begin
  Port[$3C7]:=NumColor; {Numero colore 0..255}
  RGB.RVal:=Port[$3C9]; {Red intensity 0..63}
  RGB.GVal:=Port[$3C9]; {Green   "     0..63}
  RGB.BVal:=Port[$3C9]; {Blue    "     0..63}
 End;
-- 
Seve
e-mail: 
se...@NO.tin.it
togli NO per risposte in mail



Ottimo.
Ti confermo anche che funziona anche con le altre risoluzioni.
Grazie 1000,  ciao
 fabio
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Mem e Port?

Qualcuno può gentilmente spiegarmi a che servono e come si usano i
comandi Mem e Port?
Geazie in anticipo! :-)
***---***
Fabio Feuli
E-Mail 
fe...@libero.it
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)

 wrote in message
38340F3D...@libero.it...


 
per scrivere/leggere dati direttamente in memoria o su porte.
Si utilizzano come dei normali array:
a := Mem [indirizzo]; (* legge *)
Mem [indirizzo] := a; (* scrive *)
l'indirizzo e' passato solitamente nella forma 
	segmento:offset
(spero di non dire stupidaggini, non sono molto ferrato...)
E' generalmente sconsigliabile scrivere direttamente in memoria
o su porte, a meno che tu non sappia bene cosa stai facendo :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
3000 a.C.: i Sumeri scoprono che soffiando ripetutamente in un corno
bucato si producono litri di saliva.
		-- Daniele Luttazzi, "C.R.A.M.P.O. - storia della musica"

Geazie in anticipo! :-)
Con MEM si possono indirizzare, byte, word (a seconda della necessita`) a degli indirizzi di
memoria.
Ad esempio se volessi accendere i led della tastiera dovresti assegnare dei valori all'indirizzo di
memoria $40:$17
PORT invece ti restituisce il valore della porta richiesta.
$60, ad esempio, e' il valore della porta della tastiera.
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Creare e decodificare PDF

Ciao a tutti, sto cercando una libreria con licenza GPL o comunque
"free" che mi consenta di estrarre testo da documenti PDF o di produrre
questi ultimi a partire dal contenuto. Vorrei usarla con FreePascal. Ho
cercato su Google ma ho trovato solo materiale commerciale o shareware
(tipo iSEDQuickPDF).
Qualcuno ha già affrontato e risolto il problema?
Grazie mille.


Io non so se esiste la libreria che cerchi; cmq esistono diversi lettori 
di pdf sotto gpl, primo tra tutti xpdf a cui si appoggiano anche altri 
lettori, quindi forse puoi partire da xpdf e vedere se usa una libreria 
particolare o magari una creata ad hoc propio per lui.
-- 
Mariano Bono
http://marianobono.altervista.org
http://marianobono.altervista.org/pascal
 -- materiale sul pascal
http://marianobono.altervista.org/pascal/tutorial
  -- tutorial sul pascal
Newsgroup: it.comp.lang.pascal
Titolo: Conversione numeri da lettere a cifre

Sempre io...  sono nuova e gia' sto scrivendo tanto... poi mi
tranquillizzo pero'....  :)
Devo scrivere un programma che, introdotto da tastiera a parole un
numero intero < 10.000, lo interpreti stampandone in uscita la
versione numerica. 
Ad esempio avendo digitato in ingresso "novemilatrecentoquarantasette"
deve essere restituito in uscita "9347".
Il programma prevede che il numero in ingresso possa essere scritto
sia facendo uso di spazi, sia non facendone uso; in altri termini, con
riferimento all'esempio fatto, il numero potrŕessere scritto
indifferentemente "nove mila trecento quaranta sette" o
"novemilatrecentoquarantasette" o "novemila trecento quarantasette" o
in altro modo.
Avete idee / suggerimenti?
Arianna Microchip
ari...@softhome.net
Web: 
http://arianna.cjb.net
http://consolicarmen.cjb.net

 in altro modo.
Aiutoooo! Un'idea più complicata non l'avevi?
Eppure... vedi un po' che concidenza: proprio in questi giorni io
avevo pensato di postare una "richiesta di aiuto" perché volevo
fare un programma che facesse esattamente l'opposto del tuo,
cioè, inserendo un numero (anche > 10.000) in cifre lo trasformi
in lettere.
Qualcuno sa dirmi se è possibile? avevo pensato di utilizzare
vettori, o magari matrici a più dimensioni, una per ogni cifra,
ad es. una matrice a tre dimensioni per rappresentare i numeri
fino a 999, una per le unità, una per le decine, una per le centinaia,
ogni matrice contiene delle stringhe ("uno", "due", "tre"... "venti",
"trenta"...)
che concatenate riescano a ricreare il numero, il problema sta
nei numeri da 11 a 19 e per vent-uno, vent-otto, trent-uno, trent-otto, ecc,
in quest'ultimo caso, quando la matrice delle unità è uguale ad 1 o 8
quella delle decine va troncata all'ultimo carattere, deve scrivere
"vent" e non "venti"...
Un altro problema sta nel fatto che ancora non sono molto pratico
con le matrici :-(
Qua la mano, Arianna.

beh prima elimini tutti gli spazi cosi ti togli il problema...
poi per i cento e i mille e' relativamente facile:
leggi (e riconosci) un numero, poi guardi la parola dopo
se e' cento/mille e moltiplichi il numero che hai trovato.
Poi per decine/unita' potresti controllare le prime lettere
dic/ven/tren/quaran/cinquan/sessan/settan/ottan/novan
+ i casi particolari da 10 a 16
se trovi la desinenza -t'/-ti/-ta cerchi di leggere il numero dopo
che sono le unita', se non ci sono e' un multiplo di 10
molto +/-
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

ciao
Arianna Microchip


riferimento all'esempio fatto, il numero potrąessere scritto


CE LA SO! Sigh!)

Newsgroup: it.comp.lang.pascal
Titolo: data e salvare

Cosa devo fare per gestire una data:
mi spiego i vorrei fare in modo che la data si aggioni automaticamente e
riuscire a fare un controllo con tra la data di quel giorno e quella di una
data presente in un vettore di record
Inoltre vorrei sapere come fare salvare quando esco da un programma fatto in
pascal.

 pascal.
Crea una procedura che ti salva quello che devi salvare e richiamala
immediatamente prima dell'uscita dal programma.
Program Pippo;
..
..
..
Begin
..
..
SalvoTuttoQuelloCheDevoSalvare;
end.

Come č codificata la data nei record?


 >end.
Non posso essere piu' preciso: che devi salvare?

N.B. 4 byte come un longint: il meno significativo č giorno; vengono dopo


 >Non posso essere piu' preciso: che devi salvare?

Newsgroup: it.comp.lang.pascal
Titolo: info su compilatori

Esiste una versione del think pascal del Mac per Windows o dos?
--
San Vegeta from Hell
http://www.geocities.com/Area51/Dungeon/8436
(da visualizzare col browser della Netscape)


Newsgroup: it.comp.lang.pascal
Titolo: code, liste e file

ciao a tutti!
ho un problemino, dovrei cancellare un elemento (numero reale) dalla
struttura FIFO ma non ne sono capace! mi servirebbe la codifica in pascal e
anche la dichiarazione dei dati.
ringrazio anticipatamente chiunque riesca a darmi la risposta e chiunque
legga la mia richiesta.

Allora la dichiarazione per la fifo dovrebbe essere:
Type
   PFifo = ^TFifo
   TFifo = Record
                    Valore       : Real;
                    Precedente : PFifo;
               End;
Var
   Last = PFifo;
Quindi l'inserimento sarà?
Procedure Inserisci(Valore : Real);
Var
   P = PFifo;
Begin
    New(P);
    P^.Valore := Valore;
    P^.Precedente := Nil;
    If Last <> Nil Then P.Precedente := Last;
   Last := P;
End;
Ed il prelevamento (controllato ovviamente) sarà:
Function Preleva(Var Valore : Real) : Boolean;
Var
   P : PFifo;
Begin
    If Last = Nil Then
       Begin
           Preleva := False;
       End
          Else
       Begin
           valore := Last^.Valore;
           P := Last;
           Last := Last^.Precedente;
           Dispose(P);
           Result := True;
       End;
End;
Non sei stato molto chiaro con la domanda in quanto (in teoria) non si dovrebbe mai cancellare un elemento dal mezzo
della FIFO ma solamente l'ultimo (in questo caso vedi la funzione di prelevamento) in quanto FIFO = First IN First Out
ovvero il primo che entra è il primo che esce.
--
Ciao,
David (
www.utilityweb.net
)

Scusa ti avevo mandato la codifica di una lifo... rifaccio;
Type
 Type
    PFifo = ^TFifo
    TFifo = Record
                     Valore       : Real;
                     Successivo : PFifo;
                End;
 Var
    Primo = PFifo;
 Procedure Inserisci(Valore : Real);
 Var
    P, P1 : PFifo;
 Begin
     New(P);
     P^.Valore := Valore;
     P^.Successivo := Nil;
     If Last <> Nil Then
        Begin
           P1 := Primo;
           While P1^.Successivo <> Nil Do P1 := P1^.Successivo;
           P1^.Successivo := P;
        End
           Else
              Primo := P;
 End;
 Function Preleva(Var Valore : Real) : Boolean;
 Var
    P : PFifo;
 Begin
     If Primo = Nil Then
        Begin
            Preleva := False;
        End
           Else
        Begin
            valore := Primo^.Valore;
            P := Primo;
            Primo := Primo^.Successivo;
            Dispose(P);
            Result := True;
        End;
 End;
--
Ciao,
David (
www.utilityweb.net
)
Newsgroup: it.comp.lang.pascal
Titolo: Compito Fondamenti.

Problema:
Crea una matrice M 20x4 contenete i dati presi da input (numero matricola,
numero presenze, numero assenze, media voti) di 20 studenti.
Crea una lista L contenente il numero di matricola, media voti di coloro che
hanno una  % assenze <20%, leggendoli dalla matrice M.
Stampare la lista L.
Grazie per l'aiuto.


wrote:

ma se avessi postato una parte del tuo codice e dire.. oibò non mi
funziona.. qualcuno riesce a capirne il xchè? si poteva tentare di
ragionare.. ma così... MI DAI IL PROBLEMA E TE LO DEVO RISOLVERE? mika
è mio l'esame di fondamenti

Newsgroup: it.comp.lang.pascal
Titolo: Dimensione eseguibili in Delphi?

Ciao a tutti,
sono un programmatore VB e mi sto avvicinando a Delphi poichè ho la
necessità di creare un piccolo eseguibile che non abbia 2 Mb di files di
runtime come in VB. Però credevo di riuscire a creare con Delphi
eseguibili molto piccoli, ma non riesco a scendere sotto i 200 Kb!
Subito dopo che Delphi carica e mostra un progetto predefinito, provo a
compilare e ottengo un exe di 200 Kb, solo per mostrare una form.
E' corretto oppure sbaglio qualcosa io? Non si possono creare eseguibili
di 10 o 20 Kb?
Grazie,
Paolo Mugnaini
Ps. Mi rispondete in mail: 
smar...@tin.it
? Grazie!

 Ps. Mi rispondete in mail: 
smar...@tin.it
? Grazie!
 
 A richieste pubbliche seguono risposte pubbliche, e
 inoltre la cosa puo' interessare ad altre persone
 che seguono il newsgroup.

Newsgroup: it.comp.lang.pascal
Titolo: Win ME & Tp7

Avete problemi di compatibilitą?
a me non funziona bene la tastiera in DOS, non so come configurarla, se
metto il keyb it nell'autoexec mel o cancella al primo boot =(
čččlp!
Olivier.


che c'entra col pasquale???
credo cmq che microsoft abbia impedito di editare l'autoexec per non
par fare qualche stronzata agli utenti inesperti...
cmq puoi utilizzare "Utilità di configurazione di sistema" (hooooo)
di cui ora non ricordo il nome dell'eseguibile (merd)
ma che puoi trovare nel menu Start > Programmi > Accessori > Utilità
di sistema > Microsoft system information (non è ancora finita)
dopo aver aperto il prog vai alla voce Strumenti > Utilità di
configurazione di sistema e finalmente sei arrivato =)
P.S. nella linguetta ambiente trovi le variabili di sistema (quelle
che si settano con l'autoexec)



ups dimenticavo la prox volta puoi postare su it.comp.os.dos o
it.comp.os.windows (sicuramente lì troverai molta + gente disposta ad
aiutarti)

si chiama nsconfig, ho già provato =(
postavo qui, anche se ero mezzo OT perchè sto diventando scemo a cercare
ogni volta le () gli ' o i ; tanto da arrivare al punto di scrivere il
sorgente col notepad e compilarlo col tpc...
cmq grazie lo stesso...
"neon" <b...@nonloso.nop> ha scritto nel messaggio
news:3a5d7216...@news.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Visitate la mia nuova home page

Scusate per l'interruzione pubblicitaria nel NG,
Visitate la mia home page in 
www.geocities.com/SiliconValley/Horizon/3696
ci troverete programmi in Assembly, Pascal, in futuro anche C, musica, e
links.
Ciao a tutti Michele









Correzione: l'email dei msg era errata;



Newsgroup: it.comp.lang.pascal
Titolo: Come passo da .pas e .exe?

Qualcuno mi sa dire come posso rendere eseguibile (.exe) un file .pas ?


TurboPascal: Setare il compilatore su "Destination: Disk" (Compile ->
"Destination: Memory"
BoranlPascal: Lo fa sempre nella direcotry selezionata (File -> Change
Dir)
FreePascal: Lo fa sempre ma non so dove
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: Cos'e' la direttiva FORWARD ?





chi mi spiega cos'e' la direttiva FORWARD..grazie e 
ciao...



 wrote in message 
000a01c1062c$448b6bc0$6deb1d97@luigi
...


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

Non ho voglia di andare a leggermi tutto un ng (it.comp.delphi) per trovare
un semplice comando, almeno per ora.
Spero non vi arrabiate se domando se qualcuno consce il comando in Delphi
che corrisponde al DELAY del Pascal !
:-)))))
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://members.xoom.it/renato_ep
_________________________________________________________
René
:-)

un semplice comando, almeno per ora.
Ma scusami che problema c'e' nel rivolgere questa domanda nel ng
dedicato a Delphi ?
Non credo che i frequentatori di it.comp.delphi si arrabbierebbero se
rivolgessi a loro la tua domanda, mentre qui dentro altre persone
(vedi me) scaricano un messaggio in piu' che non e' adeguato al topic.

Non sarebbere corretto, cmunque solo per questa volta, e non me ne vogliano
gli altri.
Sleep ( millisecondi )
Bye

 René
Sleep(ms);
:-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

Scusate ....
è che tutti mi dicono sleep ma da me non funziona.
Cmq .... non vi chiedere più niente sul Delphi (promesso)  :-)
Ora mi vado a leggere un 300 mex su it.comp.delphi.

Newsgroup: it.comp.lang.pascal
Titolo: Come creare un programma su file

Vorrei creare un prog con TPascal che, dato un file di testo, cerchi tutte
le occorrenze di una certa parola, a mia scelta, e le sostituisca con
un'altra sempre a mia scelta.
Come fare?
Piero
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

Piero
Uhm... non è semplicissimo...
ci sono vari metodi { anche estremi }
ma prima le basi
per leggere un file devi fare essatamente come fai per leggere una
stringa dalla tastiera { in effetti la tastiera è un file chiamato
Standard input } legendo una riga alla volta dal file
ReadLn ( MioFileIn, Riga );
poi fai tutte le modifiche del caso sulla stringa poi le riscivi
WriteLn ( MioFileOut, Riga );
per quando riguarda Riga è una classica string:
var Riga : String;
invece MioFileIn e MioFileOut sono due file di tipo testo:
var MioFileIn, MioFileOut : Text;
per aprirli in lettura devi fare
Assing ( MioFileIn, "EventualePercorso\File.estenzione" );
Reset ( MioFileIn );
invece per aprioli in scrittura:
Assing ( MioFileOut, "EventualePercorso\File.estenzione" );
ReWrite ( MioFileOut );
Io ti consiglio di usare 2 file e poi alla fine fare un rename...
e la cosa + semplice
ovviamente visto che ho scritto da cani puoi fare domande
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

 
un metodo estremo è tipo un batch che come output produce il sorgente 
pascal modificando le costanti e lo ricompila ogni volta? :)))

 ha scritto nel messaggio
news:blukt6$gf76s$1...@ID-132562.news.uni-berlin.de...


 
si, è fattibile entro certe dimensioni.
Ma il modo più efficiente (da prove fatte a suo tempo) è quello di 
aprirlo in accesso diretto (dichiarandolo FILE e usando blockread), 
caricarne porzioni successive in un buffer di memoria statica (i 
risultati ottimali sono stati ottenuti con buffer della grandezza dei 
cluster del disco), eseguire l'elaborazione in memoria e salvare il 
buffer rielaborato in un secondo file con nome casuale, questo si ripete 
finché non è finito il file di partenza. Poi alla fine del processo si 
cancella l'originale e si rinomina il file d'uscita con il nome 
dell'originale.
Il tutto ha un'efficienza circa doppia rispetto ad aprirlo come text e 
ad elaborarlo riga per riga.
Ma questo è un metodo estremo estremo :))

Newsgroup: it.comp.lang.pascal
Titolo: Calendario perpetuo

Come posso costruire un calendario perpetuo? chi puņ aiutarmi?
--
Posted from [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Come posso costruire un calendario perpetuo? chi può aiutarmi?
Cio che sono e' cio'
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :-)
Newsgroup: it.comp.lang.pascal
Titolo: Formato MP3

Ho visto nel readme di Winamp, che esiste un audio decoder che e'
stato rielaborato su diverse piattaforme. Il tizio che lo ha fatto si
chiama Tomislav Uzelac, e il sito principale e'
ftp://ftp.rasip.fer.hr/pub/mpeg/
Se no prova anche 
http://www.mpeg2.de
, pero' e' partialmente in
tedesco.
Esiste una mailing list, all'indirizzo
mpeg_audio...@rasip.fer.hr
Ciao,
	Jan


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

salve,
spesso c s lamenta del fatto che poca gente scriva da queste parti...
effettivamente e' ovvio...
Si e' preferito chiamare il pascal giunto alla versione 8, come
delphi 1, piuttosto che come pascal 1 Second Edition.
A questo punto quansi nessuno usa pascal...dato che si e' fermato alla 7
(oggi delphi e' alla 9, quindi sarebbe 9+7, pascal 16...)
se pero' s prendesse d peso d nn far + riferimanto al vecchio pascal...
e d invogliare almeno al FreePascal... credo c sarebbe + movimento
Cioe' aggiungere alla parola pascal... il suffisso Free....
a voi un commento, spero ben accetto.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 movimento Cioe' aggiungere alla parola pascal... il suffisso Free....
In Google, se cerchi "pascal", il primo link fa riferimento a
freepascal.org
. E' vero anche questo ng si chiama icl.pascal, lasciando
di fatto una neutralità di fondo che non fa certo male. In generale,
comunque, sono d'accordo con te, il pascal ha un nuovo punto di
riferimento.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG Public Key 
http://greedyfly.linkspirit.org/michele.asc

Penso di non aver ben capito il tuo pensiero.
Io sono un programmatore Delphi presso una grande multinazionale nella
provincia di Bergamo, ho sempre considerato il pascal il miglior
linguaggio, permettimi solo di dire che il vecchio turbo pascal è
andato in pensione per un prodotto molto più valido come Delphi.
Penso che se qui poche persone scrivono sia dovuto al fatto che ci
sono due ng molto simili (Pascal e Delphi), forse si poteva farne solo
uno.
Per quanto riguarda freepascal, lo considero un prodotto molto valido,
se usato insieme a lazarus, penso che oggi non abbia gran senso
svilappare applicazione console, se non ambiti particolari...
Altro motivo per quale poca gente scrive qui sia dovuta al fatto che
(con grande rammarico) il pascal/delphi è usato da una forte minoranza
di programmatori, una statistica di 2 anni fa diceva che solo lo 0,5%
del mercato cercava programmatori di Delphi/pascal, è molto piu usato
il c ed ancora più VB.....
Ciao
Berghem
Newsgroup: it.comp.lang.pascal
Titolo: aggiornamenti borland pascal

ciao, nessuno sa dove reperire l'aggiornamento per il borland pascal 7.0 e
il turbo pascal 7.0
alle versioni 7.01? del tp7 ho la versione originale, ma la procedura per
l'upgrade mi sembra un poco laboriosa...
come riferimento questa pagina:
http://www.merlyn.demon.co.uk/pas-bptp.htm


ue', non rispondete tutti insieme, che si intasa il server!

 ue', non rispondete tutti insieme, che si intasa il server!
Frate', č evidente che a noi poco ce ne frega del TP7.01, la pagina
che hai indicato č molto interessante ma altrettanto lunga. Cmq, ho
letto che la patch č (era??) disponibile sul sito Borland ma che
rimediava solo a *piccoli* bug.
La regola generale per upgrade&patch dice che se una cosa va bene č
meglio lasciarla stare cosě com'č (a tal proposito, conosci la Legge
di Murphy?), quindi lascia perdere, potrebbe essere inutile se non
dannoso.
--
And the main in the rain picked up his bag of secrets, and journeyed
up the mountainside, far above the clouds, and nothing was ever heard
from him again, except for the sound of tubular bells.
BlackDemon - 
bde...@dominio.it
per mandarmi un'e-mail scrivi 'iol' invece di 'dominio'

Newsgroup: it.comp.lang.pascal
Titolo: URGENTE!!! Input in grafica

Ciao, volevo avere qualche dritta sull'inserimento dei dati in grafica.
Se devo acquisire numeri reali come posso fare?
Vi prgo aiutatemi che ne ho urgente bisogno!
Ciao e cmq grazie.

 ha scritto nel messaggio
news:91DA6.140288$lj4.4...@news6.giganews.com...

Newsgroup: it.comp.lang.pascal
Titolo: elevamento a potenza

ciao a tutti.
vi scrivo perchè ho un problema:
come faccio ad elevare un numero a una potenza che voglio io?
se faccio a:=b^c; mi da errore, e dal monemto che c sarebbe un real non
posso neanche farlo 'manualmente' con un ciclo...
ciao e grazie x l'attenzione,
Olivier.
--
Icq#: 47308980
Per rispondermi, togli LE-DITA-DAL-NASO !!

Prova in questo modo (correggi eventuali errori)
Procedure eleva(base,esp : integer) : integer;
Var a : integer;
Begin
  For a := 1 to esp do
 begin
   eleva := base * base;
 end;
End.
Non credo sia corretta (forse ci sono errori), ma dovrebbe essere una cosa
simile
Olivier <oliv...@LE-DITA-DAL-NASOlibero.it> wrote in message
2hqE4.37010$pn3.4...@news.infostrada.it...


 Per rispondermi, togli LE-DITA-DAL-NASO !!
Sicuramente o quasi ci saranno altre soluzioni, ma io conosco solo questa:
USA LE BUON VECCHIE REGOLE DI MATEMATICA!!!
Es.:(per rinfrescare la memoria)
3^0.5 = 3^(1/2) = "radice quadrata di"3 = 1.732050808
Spero di esserti stato utile!
Ciao MaTTeO.

Questa è un afunction che ho scritto un po' di tempo fa e che dovrebbe fare
al caso tuo
Function Power(Base, Exponent: extended): extended; export;
begin
  if Base > 0 then
    Result := exp( Exponent * ln( Base ) )
  else if Base = 0.0 then
    Result := 1.0
  else If Exponent=Trunc(Exponent) Then
    Result := (-2*(Trunc(Exponent) Mod 2)+1) * Exp(Exponent * Ln( -Base ) )
  Else
    Result := 0
end;


Puoi considerare l'equivalenza:
a^b = e^(b*ln(a)), a>0
quindi
base^esponente=e^(esponente*ln(base)), base>0
da cui derivi la funzione:
function eleva(base, esponente: real): real;
begin
    eleva := exp(esponente*ln(base))
end;
La funzione e' definita per base>0 mentre restituisce errore quando
base<=0.(con un paio di IF risolvi il problema...)
Ciao!
Simone.
P.S.: trovi un esempio analogo sull'help online del Borland/Turbo Pascal
7.0.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

...


si possa elevare un numero a un altro???
Che vuoi dire con "solo per numeri piccoli" ?

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

Salve a tutti
Qualcono potrebbe spedirmi il sorgente di un analizzatore lessicale o di un
interprete
di un qualsiasi linguaggio (ovviamente PASCAL sarebbe meglio)
oppure potrebbe indicarmi un buon sito dove si parla e si realizza un
analizzatore sintattico?
Salve a tutti
Daniele
Daniel...@libero.it

 analizzatore sintattico?
cerca TPLex e TPYacc
Newsgroup: it.comp.lang.pascal
Titolo: clear screen?

Ho appena scaricato Turbo Pascal e ho scritto un programma di prova, ma non
so come ripulire lo schermo ad ogni avvio del programma. So che il comando
è clrscr, ma non lo identifica. Come fare? Grazie a chi mi risponde.


devi inserire la clausola:
uses crt;
che e` la unit dove e` memorizzata la procedura ClrScr.
es:
Program Topolino; {tanto per non chiamarlo pippo}
uses crt;
var
  i:integer;
begin
  ClrScr;
  For i:=1 to 10 do WriteLn('Topolino');
end.
Ciao
  Roberto.
-- 
-------------------------------------------------------------------
 Vabbe`  ma  mica posso fare tutto io! Te lo sai a che ora mi sono
 alzato  questa  mattina? Alle sette meno un quarto! La bambina mi
 ha vomitato tutta  l'anguria  nelle scarpe!  Stamattina e` venuto
 l'idraulico e sai  quanto mi ha chiesto? Centocinquantamila lire!
 E dopo mezz'ora  il  rubinetto ha ricominciato a buttare l'acqua!
 Quela poi e` andata al corso di chitarra alle tre del pomeriggio,
 lo sai a che ora e` tornata? alle  quattro del mattino! Con tutto
 il rossetto  spostato  sulla  faccia. Ma che la chitarra la suoni
 con la bocca? Hai capito?
-------------------------------------------------------------------
 Attenzione:  i  dati  nell'header  sono modificati per difendermi
 dagli spammer. L'indirizzo  esatto  e`:  
crs...@xxxfreenet.hut.fi
                                   senza le tre x^^^

è clrscr, ma non lo identifica. Come fare? Grazie a chi mi risponde.
Il compilatore da' l'errore : "Error 3, Unknown Identifier". In questo
caso basta aggiungere la direttiva
uses Crt;
dopo la riga contenente l'identificatore "Program".
Un suggerimento: ogni qualvolta il compilatore ti da' un errore, premi
immediatamente il tasto F1 per capire il tipo di errore che ti ha
appena dato. Nel caso suddetto il compilatore ti dovrebbe dare il
seguente messaggio di aiuto: "This identifier has not been declared,
or it might not be visible within the current scope.". Non che dica
molto a dir il vero. Dopo aver fatto sparire la finestra di aiuto,
premi CTRL+F1. Ti apparira' l'aiuto in linea del comando ClrScr (ti ha
dato l'aiuto di questo comando poiche' il compilatore mette il cursore
nel punto in cui si e' verificato l'errore, e nel suddetto caso, e'
proprio sul comando ClrScr). Nell'aiuto in linea vedi la prima riga:
"ClrScr (procedure)     (Crt unit and WinCrt unit)". Cio' significa
che l'identificatore ClrScr e' una procedura e fa parte della unit
Crt. Non essendo la unit Crt una unit di sistema (come la unit System,
per default l'unica ad essere gia' presente), va aggiunta manualmente
proprio tramite la clausola "uses crt" di cui sopra. Spero di non
essermi dimenticato nulla.
Bye.
Jo Parrello - OWL/C++ Programmer
http://www.geocities.com/SiliconValley/Hills/8145
(
jopar...@geocities.com
)
Newsgroup: it.comp.lang.pascal
Titolo: FLE and Huffman coding in Pascal

Hi.
I need to write a simple file compression/decompression program using
FLE (Fixed-Length-Encoding) and Huffman encoding in Pascal.
Can anyone help? I'm not very familiar with any of these techniques yet
(or any other compression/decompression techniques for that matter).
Source code would be very appreciated, but pseudocode or other help
would also be useful to me.
Thanks beforehand for your help and patience.
Regards,
Clyde.
Sent via Deja.com 
http://www.deja.com/
Before you buy.


F'up,
 - Sebastian

 (or any other compression/decompression techniques for that matter).


Newsgroup: it.comp.lang.pascal
Titolo: Domandina su un algoritmo(???)

Mi sapreste dire perchè questo listato non funziona
(principiante in azione):
 PROGRAM    Prova(  output  );
CONST    MAX  =  3;
                 SIZE  =  5;
VAR         mat  :  array[  1..MAX,  1..SIZE  ] of  byte;
                 i,  j  :  byte;
BEGIN
randomize;
for  i  :=  1 to SIZE do
  for  j  :=  1 to MAX do
    if ( j <> 3 ) then
      mat[  i,  j  ]  :=  random(  10  )  +  1
    else
      mat[  i,  j  ]  :=  mat[  i,  1  ]  +  mat[  i,  2  ];
for  i  :=  1 to SIZE do
  BEGIN
  writeln;
    for  j  :=  1 to MAX do
      if ( j <> 3 ) then
        write(  mat[ i, j ]  :  4  )
      else
        write(  '  = ',  mat[ i, j ]  :  3  )
  END;
readln;
END.
Questo è l'output:
 6   6  =  12
 2   3  =   5
 6   7  =  13
 4   2  =   0    //ERRORE!!!! in tutti gli output il 4° valore è sempre
sbagliato
10   7  =  17
Grazie per una eventuale risposta.........

VAR         mat  :  array[  1..SIZE,  1..MAX ] of  byte;
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

Io non ho capito invece da dove spunta la necessità di andarci a mettere:
     if ( j <> 3 ) then
nel listato... nel momento in cui il programma si occupa di generare dei
numeri random e memorizzare questi in una matrice per poi effettuare la
somma....
Cooper.


wrote:

in effeti potrebbe generare le prime 2 colonne con un ciclo e poi con
un altro effetura la somma... ma credo che l'abbia fatto per non avere
troppi clicli.. boh
cmq è un aproccio strano...
io genererei un intera riga  cioè qualcosa del tipo:
Procedure GeneraRiga(Index : Byte);
Begin
   Mat[Index, 1] := random(  10  )  +  1;
   Mat[Index, 2] := random(  10  )  +  1;
   Mat[Index, 3] := Mat[Index, 1] +  Mat[Index, 2];
End;


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto problema con programma su PII

Aiuto!!!
Ho un problema con un programma scritto in pascal
che con un pentium 200 MMX ha sempre funzionato
( funziona anche sui 286-386-486 senza problemi)
ma da quando l'ho istallato su  un PII, mi da l' errore:
Runtime Error 200  AT 0002 : 0498.
Vi prego datemi un aiuto se potete su 
mab...@tin.it
.
Ringrazio anticipatamente potesse aiutarmi.

 wrote in message
80bg2d$ffk$1...@nslave2.tin.it...


 wrote in message
80cmh8$q6r$1...@draco.tiscalinet.it...

Potresti mandarla anche a me ? Grazie. Bye Alex.
Newsgroup: it.comp.lang.pascal
Titolo: Caricatore blu

Salve, č da un pň di tempo che non mi faccio vedere sul ng e penso che siate
stati tutti piů tranquilli, ma ora sono tornato :-))).
Scherzi a parte, vorrei chiedere se č possibile e come creare un mini
caricatore come quelli delle installazioni sotto Win.
Qcn mi risponda!!!
Grazie
Kosby

Scherzi a parte, vorrei chiedere se è possibile e come creare un mini


 wrote in message
ue9pns0o0ecpsmk5q...@4ax.com...


 wrote in message
Xudf5.44368$sE5.4...@news.infostrada.it...

Beh non capisco a che serva cmq... . Per creare lo sfondo blu a gradiente
devi "spazzare" tutte le righe dello schermo e colorarle di un colore blu
abbassando di volta in volta il valore tanto quanto ti interessa. Esempio se
in cima vuoi il blu scuro fai RGB(0, 0, 255) poi la seconda riga RGB(0, 0,
245) la terza RGB(0, 0, 235) e via discorrendo. Poi crei al suo interno una
finestra come tutte le altre. In TP6 - 7 puoi usare le sue finestre ma se
proprio vuoi emulare quelle di Windows... buona fortuna, io ci ho fatto un
programma in DOS con le finestre Windows e ho tribolato come un cane a
creare le classi Button, CheckBox, Form per TP7 e la beffa è che le ho
salvate su un CD che è finito chissa dove.
Ciao
--
Davide Carrara
cci...@libero.it

 wrote in message
news:cEmf5.47844$sE5.4...@news.infostrada.it...


 scusa ma usare TP per win è troppo?
Questa volta non dico di usare il DIV... anche se... ma perchè non usare il
delphi?
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

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

come faccio a sapere (+ o -) quanta memoria (ram) ha bisogno il mio
programma?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:c262722112db8cb1418...@mygate.mailgate.org...

In prima approssimazione considera la grandezza dele tue strutture dati in
bytes ( il rapporto tipo - bytes lo trovi sui manuali del compilatore ) e
moltiplicalo per la loro cardinalita'. se la tua cardinalita' tende
all'infinito ti consiglio di tenerne un tot prefissato in memoria e il resto
archiviarlo su disco secondo una politica conveniente.
In seconda approssimazione fai dei test del software sotto stress e
controlla sul monitor di sistema quanta memoria stai effettivamente usando:
chiediti perche' e estrapola una quantita' limite ragionevole
ciao,
Nids

 programma?
mmmmh in che ambiente ?  [ cosi' e' un po' generico :-) ]
-- 
Dreadnaut
(Life would be easier if I had the source code)

 mmmmh in che ambiente ?  [ cosi' e' un po' generico :-) ]
facciamo ... target Go32v2 e win32
Se provo a vedere quanta memoria c'e' utilizzata prima e mentre
l'applicativo
 e' in uso (con win2000) , mi sembra che sia troppa rispetto alla 
struttura dati usata! (meno di 1 mega ne ho calcolata)


 rispetto alla struttura dati usata! (meno di 1 mega ne ho calcolata)
non saprei... librerie ? apri file voluminosi (caching ?)  il programma
potrebbe essere corretto ma il sistema si carica con altri pesi...
Deallochi quando devi ? ;-)

Newsgroup: it.comp.lang.pascal
Titolo: Rilevare la lunghezza di una stringa

Allora: non so se esistano comandi per sapere quant'è la parte scritta 
di una stringa, ho pensato probabilmente alla soluzione più artificiosa, 
se ne avete altre suggeritemele per favore.
Questo è un pezzo di un programma che sto scrivendo, ma mi conta 
_esattamente_ e _sempre_ 2 caratteri in più. Vorrei capire il perchè
(Array of char equivale a string, ma la string arriva massimo a 255 e 
questa variabile deve essere di minimo 1000 caratteri.
Se metto array of char ne conta due in più, se cambio solo la variabile 
con string (a 255) ne conta uno in più)
Questo con freepascal, in TP non si può neanche fare "readln" con 
l'array di char, chissà perchè. Cmq evidentemente esiste un tipo di 
variabile più adatta, ma ancora ci devo arrivare a quella pagina del mio 
libro :)
---------------------------------
program pezzo_di_un_programma;
var f: array[1..512000] of char;
reset, lunghezza: longint;
begin
{Resetta la RAM in modo che il prog non trova valori che non c'entrano}
reset:=0;
repeat
reset:=reset+1;
f[reset]:='§'
until reset>=512000;
readln(f);
{Vede dove finisce l'espressione}
reset:=0;
repeat
reset:=reset+1;
until f[reset]='§';
lunghezza:=reset;
writeln(lunghezza);
readln;
end.
---------------------------------

 di una stringa...[CUT]...
http://dreadnaut.altervista.org/pascal/tp7ita/0490.html
-- 
________________________________
.: Omega
.: 
http://gnammo.altervista.org

 libro :)
usa lo switch {$H+}
---------------------------------
{$H+}
program pezzo_di_un_programma;
var f: string;
begin
   readln(f);
   writeln(length(f));
end.
---------------------------------
oppure
---------------------------------
program pezzo_di_un_programma;
var f: ansistring;
begin
readln(f);
writeln(length(f));
end.
---------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: codici freccette

ciao a tutto il newsgroup.
la mia domanda potrebbe trovare risposta in manuali di Pascal o libri di
scuola ma la faccio lo stesso.
come sono identificati i tasti direzionali della tastiera (le freccette) in
Pascal
ad esempio nel readkey che istruzione,codice,lettera,numero hanno?
grazie
I'm here for you and you are here for me.
Salvo

I tasti estesi restituiscono 2 numeri invece di uno come lettere numeri
etc..
la prima volta restituiscono 0, la seconda il codice del tasto...
diciamo che te li puoi tovare anche tu con un programma del tipo
var
 c : char;
begin
  repeat
    c := readkey;
    if ord(c) = 0 then writeln ('carattere esteso: ',ord(readkey))
     else writeln ('carattere normale: ', c ,' = ', ord(c));
  until c = 'q';
end.
cosi' ti puoi trovare un po' tutti i codici che vuoi...
sarebbe bella la pappa pronta, ne' ?
sbattiti un filo, dai :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
Newsgroup: it.comp.lang.pascal
Titolo: Chiudere la stampa

con questo programma riesco a stampare:
var t : text; s : string;
begin
s:='stringa di prova';
assign(t,'lpt1');
rewrite(t);
writeln(t,s);
close(t);
end.
ma la stampante stampata la riga si ferma come se aspettasse altri dati (o
il segnale di chiusura), che naturalmente non ci sono.
Allora lampeggia il led della stampante e premendo il tasto di espulsione
carta il foglio esce e la stampante entra in stand-by normalmente.
Come posso fare per far completare la stampa automaticamente?
grazie
Pigi

> Come posso fare per far completare la stampa automaticamente?
prova a stampare un numero di stringhe vuote, in modo da fare scorrere il
foglio
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

Anche con il carattere #12 (uscita foglio) mi esce il foglio, ma non entra
in stand-by.
Grazie
Pigi


prova a stampare in questo modo: dichiari nella sezione uses la unit
Printer, ti riporto cio' che e' scritto nella guida:
 Printer Unit
The Printer unit (PRINTER.TPU) declares a text file called Lst and
associates it with the LPT1 device.
var   Lst : text;
When you use the Printer unit, you don't need to declare, assign, open, and
close a text file yourself when you use your printer from within a program.
il che' vuol dire che qualsiasi cosa scrivi su lst in realta' lo stampa. non
c'e' bisogno di chiudere, aprire, ecc. quindi scrivere cio:
writeln(Lst,'xyz'); dovrebbe stampare su foglio la scritta xyz. non so se si
ripropone il tuo problema, cmq prova, ok?

Newsgroup: it.comp.lang.pascal
Titolo: external

Nell'help del pascal 7 della Borland, e' riportato il seguente esempio
relativo ad external
function globalalloc (flags:word;bytes:longint):thandle; far; external
'KERNEL' index 15;
thandle -> word
La stessa definizione l'ho trovata nella unit winapi.pas
Il problema e' che viene riportato un errore in fase di compilazione (vuole
; dopo external)
Qualcuno sa se bisogna impostare un settaggio particolare nelle opzioni di
compilazione?
Ciao
  Carlo

 ; dopo external)
This is used for DLL access. It is supported by Borland Pascal 7, Borland
Pascal for Windows (7) and Turbo Pascal for Windows 1.x. It is not supported
by Turbo Pascal 7. Note: Borland Pascal is a professional package, but it
is no longer sold and supported.
Franz Glaser

Franz Glaser
Se ho capito bene, c'e' differenza tra Borland Pascal 7 e Borland Turbo
Pascal 7?
Sai dove si puo' trovare il Borland Pascal 7?
Ciao
  Carlo


Again, please allow me to answer in English, my Italian is too poor, sorry.
Borland Pascal 7 is no longer supported and sold by Borland/Inprise.
You can look at the TP-links in chapters FAQ and compilers for possible
sources or ask your computer dealer. The problem for Borland is: the people
who made BP 7 are no longer employed with Borland, so the company cannot
support the customers any longer.
Borland Pascal 7 was a "professional" package, including the source of
most units in ASM (RTC = run time code).
Additionally BP 7 was delivered with a Windows version, similar to TPW 1.x
including a Resource editor and several useful tools for debugging.
It was possible to use a Windows IDE for creation of Windows and/or DOS 
executables, and vice versa, the DOS - IDE could create DOS and Windows
programs.
For DOS programs BP 7 allowed the creation of protected mode executables,
but for 16-bit DPMI only.
The package was much more expensive than the "poor man's" version TP 7.
Do not try to obtain BP 7 seriously, better purchase Delphi. You can
write DOS and Windows programs with Delphi much easyer! Look for
PasW32 in the compiler chapter of the TP-links, it is a package to
compile BP 7 programs with Delphi 3, it is created by Dottore Pasquale
Morvillo from Napoli.
:-) Franz Glaser

Newsgroup: it.comp.lang.pascal
Titolo: Programmi in Pascal su Pentium II

Ho provato a risolvere il problema division by zero con una patch che perň,
disgraziatamente, funziona solo con i programmi scritti in TP7 e BP7. Ho
due eseguibili che non sono in questi due formati, qualcuno sa dove posso
trovare una patch che possa risolvere il mio problema?
la mia mail č 
bdm...@iol.it
Ringrazio anticipatamente.
UTT-2 (la vendetta)

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

Ho scritto un programmino random (seleziona un valore randome e esegue alcune 
operazioni di conseguenza) ma ogni volta che compilo il programma ottengo 
sempre risultati uguali, cioe' il valore random che seleziona e' sempre lo 
stesso... come mai? come si puo' fare in modo che il programma ogni volta che 
viene compilato fornisca un valore diverso???
grazie per l'aiuto
-- 
CreActive
http://www.enricogbotta.com
ICQ 17991120
togliere "MENOquesto" dalla mail per rispondere
==============================================================
 Posted with Hogwasher. Mac first, Mac only:
 
http://www.asar.com/cgi-bin/product.pl?58/hogwasher.html
 
==============================================================

 wrote in message
01HW.B8C1AF200...@powernews.libero.it...


 Scrivi all'inizio del tuo programma randomize.
infatti ha funzionato.
grazie.

Newsgroup: it.comp.lang.pascal
Titolo: if o repeat o cosa???

salve a tutti..
dopo 4 giorni di vacanza scolastica ritorno qui per porvi un'altra
domanda..(losoloso, rompo, ma voglio imparare qlcs..)..
insomma, io non so come mettere in pascal un pezzo di problema..
mi spiego meglio..
devo far giocare un tot di utenti al tiro dei dadi facendogli raggiungere un
punteggio superiore a 60. Il punteggio lo ricavo dalla somma dei due dadi
(dado1+dado2). Se però il lancio è una coppia il punteggio vale doppio, MA
SOLO LA PRIMA VOLTA. Cioè, la prima volta che esce una coppia di 6 il
punteggio è di
punti:=punti+(dado1+dado2)*2;
se invece ritorna furi un'altra volta una coppia di 6 il punteggio sarà
punti:=punti+(dado1+dado2);
ecco il mio problema..
come lo scrivo?
con un if? con un repeat? while? o cosa????
help me!!!
grazie mille...
ps:ciao Carlo!
---
kiakim
--
kiakim

 punteggio è di
La prima volta per ogni giocatore o la prima volta durante  la partita ?
Solo con la coppia di 6 e tutte e sei le coppie ?
Re Di CUori

 ha scritto nel messaggio
news:acgll1$p1i$5...@newsreader.mailgate.org...

Concordo con le domande di redicuori.
In ogni caso se fosse come credo valido per tutte e 6 le coppie allora
dovresti crearti un'array di flag (boolean per intenderci) che ti indichino
se una coppia (6 e 6 o 3 e 3) e già uscita oppure no...
Cmq la prof un pò di programmi più seri non ce li ha da darvi?
Questi sono solo di creare un algoritmo di calcolo fare due controlli e
via...
Un algoritmo per criptare un testo non lo può dare?
Forse vorrai uccidermi ma almeno è divertente a differenza di questi
programmi inutili.
Ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

 Forse vorrai uccidermi ma ... 
(*CUT*)
(*MAIN*)
Io voglio ucciderti... 3 kb x un mex inutile... mai sentito parlare d quoting?? ò_ò

"ReDiCuori" <emiliog...@NOSPAMemail.it> wrote in message
news:LLSG8.73748$
CN3.2...@news2.tin.it

la coppia su tutte e sei...
e quindi il punteggio raddoppio per ogni giocatore una volta sola per
coppia..
---
kiakim
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao
ciao anche a te!


(*MEGACUT*)
Io voglio ucciderti... 3 kb x un mex inutile... mai sentito parlare d
quoting?? ò_ò
ROTFL
così la dimenzione x messaggi inutili diventa:
3Kb+1Kb+1Kb :-P

Newsgroup: it.comp.lang.pascal
Titolo: vegeta ci sei tu...

pls se sei collegato hai irc o icq?? se vuoi possiamo parlare anche on
line..è urgente!!

line..č urgente!!

Newsgroup: it.comp.lang.pascal
Titolo: diviose by zero

ciao! ho trovato una versione del borland pascl 7.0 sotto dos e volevo
cercare di compilare i programmi ma mi da' sempre un errore di divisione by
zero; ho letto che avendo un processore dal200 mhz in su' si ha questo
problema, non avendo trovato la libreria/patch da scaricare volevo chiedere
se qualcuno sa' dove poterla scaricare.........
grazie 100000000000

 ha scritto nel messaggio
news:Ofic7.1611$JY1....@news.infostrada.it...


asky wrote:

trovi la patch sul sito 
http://digilander.iol.it/carmageddon1
 alla 
sezione Strumenti.
Ciao Claudio
Newsgroup: it.comp.lang.pascal
Titolo: Problema unit crt con free pascal

Salve a tutti, ho programmato (a livello scolastico) per circa 5 anni in tp7 
ed ora dopo tre anni di stop (mi occupo di tutt'altro) vorrei tornare a
programmare usando il free pascal compiler perchè uso linux.
Ho problemi con la unit crt (con la graph non ho ancora provato), infatti 
qualsiasi programma che dichiari uses crt (anche uno che sia composto solo
da begin ed end) non viene compilato. Mi spiego meglio, il compilatore (a
cui passo l'opzione -Mtp) compila il mio programma e poi cerca di
compilare la unit crt (ma non sono precompilate Question ) ed a questo
punto viene generato un errore di sintassi. Avete qualche esperienza con
la unit crt in free pascal? Grazie
-- 
C'ho tutto di silicone io <cit.>


Guarda secondo me hai installato male il fp.
Io ho appena provato a inserire la crt è tutto funziona correttamente 
(uso freepascal sotto linux).
Per evitare problemi di installazione ti consiglio di scaricarti il 
pacchetto che contiene tutto (circa 20MB) e installarti quello.

 pacchetto che contiene tutto (circa 20MB) e installarti quello.
Ho capito dov'era il problema, fpc va in conflitto con gpc infatti appena
l'ho disinstallato ha funzionato a dovere.
Sai invece come funziona la unit graph?


purtroppo non so risponderti (cmq mi sa che con la graph non va infatti 
tempo fa avevo provato a compilare alcuni miei programmi scritti usando 
la graph e non andavano cmq ti conviene provare).