mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: alternativa a wherex e wherey

LO RIPOSTO PERCHÈ NON LO VEDO:
conoscete qualche altro sistema per avere la posizione del cursore?
O, in alternativa, switchare la sua visibilità? (tipo ora si vede ora
no!)
NM

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

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

Grazie!
Cmq non so se ne vale la pena,
considera che io di asm non ne capisco nulla!!!
NM



prova con cursor, unit wincrt, non se se cmq fa al caso tuo
--
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

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

Newsgroup: it.comp.lang.pascal
Titolo: chi mi sa dare una mano?





cerco qualcuno che mi dia una mano a studiare il 
linguaggio pascal, o meglio qualcuno che mi spieghi come si risolvono i problemi 
partendo dagli algoritmi arrivando alla programmazione efficiente.


 


grazie


 


lidi...@infinito.it


 



 ha scritto nel messaggio
news:004101c015b6$e98ae900$b900d5d5@lidiuccia...


 wrote in 
  message 004101c015b6$e98ae900$b900d5d5@lidiuccia...


Newsgroup: it.comp.lang.pascal
Titolo: Tipo record e file

Ho bisogno di trasportare una struttura dati di tipo record in un
file. Come posso fare?
Grazie.
Francesco.

 Ho bisogno di trasportare una struttura dati di tipo record in un > file.
Come posso fare? >  > Grazie.> Francesco
procedure esegui;
type
  Tdati = record
      a : integer;
      b : string;
      c : array [1..12] of real;
  end;
var
  pippo : file of Tdati;
  inout  : Tdati;
begin
  assign(pippo,'file.dat');
  rewrite(pippo);
  inout.a := 1200;
  inout.b := 'stringa';
  inout.c[1] := 3.141;
  write(pippo,inout);
  close(pippo);
end;
ciao
Claudio
Newsgroup: it.comp.lang.pascal
Titolo: problemi di PL

Salve, avrei bisogno per la mia tesi di risolvere problemi di Programmazione
Lineare, si tratta di ricerca di un massimo soggetto a condizioni più
precisamente
supponiamo di avere un numero n di disequazioni del tipo AjX+BjY<=Kj per
j=1,..,n, con Aj,Bj,Kj termini noti, (<= "minore o ugulae") trovare il Max
di X (positivo) che soddisfa il set di disequazioni (si ricava anche il
valore di Y in corrsipondenza al Max X.)
Se vi può essere d'aiuto le disequazioni sono sempre 4 nel mio caso, quello
di cui ho bisogno  è la traduzione in pascal dell'algoritmo per poi mettere
sotto funzione i coefficienti Aj,Bj,Kj in maniera tale da ottenere in una
sola volta circa 1000 (1000 gruppi di 4 disequazioni) di questi problemi e
salvare i 1000 valori di X sotto forma di file testo per poi elaborarli con
Excel.
Vorrei chiedervi la traduzione in Pascal di questo piccolo problema, perchè
devo risolverne migliaia di problemi PL
Uso TP5
Grazie a tutti coloro che mi aiuteranno !!!

 ha scritto nel messaggio
news:8v148n$r20$1...@nslave3.tin.it...

Purtroppo non tutti abbiamo passato Analisi 2, anzi sono appena alla 4 ITI,
ma ti potrei risolvere il problema (forse) se provi a spedirmi, anche in
privato con Word ed Equation Editor per esempio, un esempio risolto alla
maniera standard (a mano). Cosi riesco a capire il procedimento e a tradurlo
in un algoritmo pascal (almeno ci proverò :) );
Ciao
Davide Carrara

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto Informazioni su seriale..

Salve è possibile utilizzare la seriale , per ad esempio verificare un
interruttore,
cioè riusciree a gestire una fotocellula... ?
Grazie a tutti Ciao

...

"Parlare" con la seriale non è difficile: quelllo che devi sapere è cosa
dire e come dirlo... e per questo devi avere info sulla tua fotocellula :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth


SI.
E' possibile controllare lo stato logico di alcuni pin della porte
seriale verificando il contenuto degli indirizzi della porta.
In pratica devi estrappolare dal circuito della fotocellula un livello
logico tipo +12Volt aperta, 0Volt chiusa e poi collegare questo
segnale con un opportuno circuito di protezione alle seriale.
Se vuoi ti posso mandare per e-mail uno schemino del circuito da
utilizzare (si utilizza un foto-accoppiatore e una risistenza) e un
semplice programmino di due righe come demo.
Fammi sapere qualcosa.
Ciao,  Fabio.
fabi...@rocketmail.com

semplice programmino di due righe come demo.
Puoi mandarlo anche a me? sarei molto interessato!
Grazie
Gotta
gotta...@freemail.it
remove QWERTY <anti spam>
UIN icq: 11874835
_G_M_ on IrcNet on channels #tgm, #como & #cdrita
Newsgroup: it.comp.lang.pascal
Titolo: Cerco corso o manuale di Pascal + progrqmma

Salve, vorrei iniziare a programmare in Pascal. Perciņ cerco un corso in cd
o in Video-cassetta. Che sia estremamente semplice. Vą bene anche un libro
(che non sia un pacco) preferibilmente illustrato .
Cerco ovviamente anche il programma, mi pare che l' ultimo sia il
Turbo-Pascal.
        Aspetto eventuale offerte. Grazie
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

        Aspetto eventuale offerte. Grazie
Vai su '
http://www.altavista.com
' e scrivi 'pascal tutorial'
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" (Anonimo)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]


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

Ho installato turbo pascal 7.
Ogni volta che faccio girare un programma
con uses crt mi da errore 200.
Ho visto che manca crt.tpu
Perchč?
Qualcuno me la potrebbe spedire
a 
il...@libero.it

 Perchè?

Newsgroup: it.comp.lang.pascal
Titolo: tasti funzione

Come posso  programmare i tasti funzione ( F1,F2,F3,ecc.) in Pascal?
                                            Kosby

                                             Kosby
Ti riferisci a come leggerli?
MaTTeO.

               Attenzione all'anti-spam XXX
Un carabiniere, avendo ereditato un terreno, ha bisogno di disboscarne una
parte.  Casualmente il giorno stesso legge una pubblicita' sul giornale:
"VENDESI NUOVISSIMA MOTOSEGA TAGLIA 60 ALBERI L'ORA".  "E' proprio quello che
mi serve!".  Si reca quindi al negozio e si rivolge al commesso: "Senta, ho
letto di quella nuova motosega che taglia 60 alberi l'ora, ma e' vero?".
"Certo signore!  Pero' costa due milioni!".  "Va bene, la compro lo stesso".
Il giorno dopo si sveglia di buon ora e si reca sul suo terreno.  Taglia e
taglia, ma abbatte solo 10 alberi.  "Eppure mi hanno assicurato che tagliava 60
alberi l'ora...  Sara' l'emozione, riprovero' domani".  Il giorno dopo si
sveglia ancora prima, fa una bella colazione e va sul suo terreno; taglia e
taglia, ma riesce ad abbattere solo 15 alberi.  "Porca miseria, mi hanno
fregato!  Allora e' proprio la motosega che e' difettosa!  Gliela vado subito a
riportare".  Corre al negozio e dice al commesso: "Senta, a me proprio non va
di essere buggerato!  Questa motosega proprio non funziona!  Rivoglio subito i
miei soldi indietro!".  "Un attimo, signore, vediamo un po' che tipo di difetto
ha".  Allora il commesso mette la motosega sul bancone, tira la cordicella
dell'accensione e... VROOM, VROOOMMM!  Al che, il carabiniere: "Che strano!
A me 'sto rumore non me lo faceva...!".
		-- Da it.hobby.umorismo

               Attenzione all'anti-spam XXX
Ciao MaTTeO.
P.S.: Dimenticavo, per usare KBD, devi dichiarare nelle USES, la libreria TURBO3 e
naturalmente CRT.

               Attenzione all'anti-spam XXX
Se Dio avesse voluto che tu andassi in giro nudo, ti avrebbe dato mani
piu' grandi.

 are u sure?
Yes, I am!


               Attenzione all'anti-spam XXX
Ecco, cara.  Questi sono per te.  Sono fiori di campo.  Si', di campo santo...
		-- Il Gabibbo, "Striscia la Notizia"

ema ha scritto:

Se leggi con attenzione le note, capirai la differenza, comunque so benissimo che
funziona anche con 2 readkey!
Ciao MaTTeO.

 > ecc.
Nelle note c'č un errore, č possibile capire se sono stati premuti due
tasti contemporaneamente, solo se uno di questi č il tasto ALT.
Nelle note era segnato CTRL, probabilmente ho anche dimenticato un End!
Ciao MaTTeO.



               Attenzione all'anti-spam XXX
Per fortuna talvolta gli sviluppatori del kernel scrivono documentazione
per divagare dallo scrivere codice.
		-- Alessandro Rubini
Newsgroup: it.comp.lang.pascal
Titolo: PROPOSTA

mah un'idea carina per guadagnare su internet l'ho sentita...
però ti avverto che probabilmente non la potrai realizzare! forse
addirittura è una leggenda metropolitana...
si dice che una ditta inglese vendeva oggetti da pornoshop per internet, a
prezzi altissimi... roba per gente facoltosa insomma; in realtà questa ditta
(probabilmente 2-3 persone) non avevano in casa assolutamente niente da
vendere, nessun prodotto da inviare all'acquirente;
cosa succedeva? che il sig. X faceva un ordine, e a seguito la ditta inviava
al sig. X una lettera dicendo che la merce purtroppo non era disponibile; si
scusavano ed allegavano l'assegno per rimborsare il cliente... peccato che
l'assegno avesse in bella evidenza il logo della ditta che dichiarava
esplicitamente che si trattava di roba porno;
sembra che alcuni di questi acquirenti presi dall'imbarazzo non andassero a
scambiare l'assegno, e qui veniva il guadagno della ditta...
CHE IDEONA , EH?!?!
ciaooo


Newsgroup: it.comp.lang.pascal
Titolo: non capisco procedura assembler

Procedure HideCursor; Assembler;
  Asm
    mov   ax, 0100h
    mov   cx, 2607h
    int   10h
  end;
C'è qualcuno che sa spiegarmi riga per riga cosa fa questo programma?
(conosco il MIPS ,quindi non sono un principiante assoluto in materia)
grazie

...

ciao, ti metto la valida spiegazione presa pari pari dalla lista degli
interrupt di ralph brown.
INT 10 - VIDEO - SET TEXT-MODE CURSOR SHAPE
 AH = 01h
 CH = cursor start and options (see #0012)
 CL = bottom scan line containing cursor (bits 0-4)
Return: nothing
Desc: specify the starting and ending scan lines to be occupied by the
   hardware cursor in text modes
Notes: buggy on EGA systems--BIOS remaps cursor shape in 43 line
modes, but
   returns unmapped cursor shape
 UltraVision scales size to the current font height by assuming
14-line
   monochrome and 8-line color fonts; this call is not valid if cursor
   emulation has been disabled
 applications which wish to change the cursor by programming the
   hardware directly on EGA or above should call INT 10/AX=1130h or
   read 0040h:0085h first to determine the current font height
 on some adapters, setting the end line greater than the number of
lines
   in the font will result in the cursor extending to the top of the
   next character cell on the right
BUG: AMI 386 BIOS and AST Premier 386 BIOS will lock up the system if
AL
   is not equal to the current video mode
SeeAlso: AH=03h,AX=CD05h,AH=12h/BL=34h,#3737
Bitfields for cursor start and options:
Bit(s) Description (Table 0012)
 7 should be zero
 6,5 cursor blink
 (00=normal, 01=invisible, 10=erratic, 11=slow)
 (00=normal, other=invisible on EGA/VGA)
 4-0 topmost scan line containing cursor
spero ti sia stata utile.
se sviluppi programmi, ti prego di non lasciare il cursore immobile
sullo schermo; magari rendilo invisibile con questa procedura, ma
fallo muovere appresso alle funzioni del tuo programma, in modo tale
da renderlo accessibile anche a chi usa una sintesi vocale per
l'utilizzo del computer.
grazie.
Giuseppe
m...@viesse.it
Newsgroup: it.comp.lang.pascal
Titolo: CtrlAltCanc - come lo disattivo ?

Come da oggetto....

Credo che sia già stata data risposta alla tua domanda...
Vai su 
www.deja.com
 e cerca nei post vecchi [di massimo 3 o 4 mesi fa]...
Se mi dai tempo per ritrovarlo di posto il sorgente o te lo invio via mail
Ciao


 Come da oggetto....
Vai al sito 
web.tiscalinet.it/Airex
sul mio sito c'è quello che cerchi.
Newsgroup: it.comp.lang.pascal
Titolo: Ma quanto vi rompo??? :-)

Allora, ennesimo programma ennesimo errore.
Qui penso comunque che l'errore sia nella configurazione.
Allora, il TurboPascal mi risiede nell dir c:\TP , e il programma č in
c:\TP\Test\GRAF.PAS
Ecco l'incriminato:
Program Prova_istruzioni_grafiche;
uses
	crt, graph;
var
	graphdriver: integer;
	graphmode: integer;
	x: integer;
begin
	graphdriver:= CGA;
	graphmode:= CGACO;
	InitGraph (graphdriver, graphmode, '\tp\bgi');
	for x:= 10 to 200 do
		putpixel (x,40,15);
	line (10,160,300,20);
	(circle 160,100,50);
	repeat untile keypressed;
	cleardevice;
	closegraph;
end.
Io vado nella dir c:\tp\test\ e scrivo, per compilarlo, <TPC GRAF.PAS>
(il tpc.exe č nella path) e mi viene il seguente errore:
ERROR 3: UNKNOWN IDENTIFIER
GRAPHMODE:= CGACO;
            ^
Suggerimenti?
'zzie ancora e 'ao ancora!
Paolo Perini
pe...@freemail.it
 - attach to 
lau...@digibank.it
"Non ho bisogno delle riviste! La mia vista divina mi permette
di vedere chi fa la doccia e chi si cambia!" - il dio KaiohShin


Non conosce CGACO :-)
Sicuro che esista?? Se usi il 7.0 (il 6 non so, mai visto :-) ) anche se non
setti la grafica non gliene frega niente... graphdrive e graphmode hanno
valore 0, quindi inizializza la grafica più bella che può :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

             ^
Sei sicuro d'aver scritto CGAC0 con lo zero e non con la O ?
Bye, Mobius
PS: Ma perche' usi quello schifo di CGA ? :)
Newsgroup: it.comp.lang.pascal
Titolo: domanda da 1 milione di dollari!

Ha oramai circa 1 anno che smanetto con il pascal, ho solo una mia piccola
curiosità.
a ke serve specificare in un programma una cosa tipo:
program ciccio(archivio, input, output);
cioè nn capisko a ke kavolo serva specificare quelle 3 cose tra parentesi,
forse un fatto di compatibilità... toglietemi questa curiosità ^_^
_______________________
Evan Garofalo
evans...@katamail.com

forse un fatto di compatibilità... toglietemi questa curiosità ^_^
o forse x specificare eventuali parametri dalla riga di comando?
Antonio Mazzeo

 ha scritto nel messaggio
news:3ku23uogthqj7331o...@4ax.com...

Già... ma come si fa a far cambiare tipo di esecuzione al programma a
seconda dei parametri?
Mi spiego:
program ciccio(archivio, input, output);
Se uno langia iil programma così ciccio -input se nel sorgente è
specifaicato altro sarà uguale a scrivere ciccio, quindi come si fa a far
scegliere al programma starade diverse a seconda delle opzioni?
Ps fatti dare il milione di dollari :)

Ps fatti dare il milione di dollari :)
giusto dove sta il mio milione di dollari!
cmq .... prevede i casi in cui l'utente non immetto una sintassi
valida .....
Antonio

 o forse x specificare eventuali parametri dalla riga di comando?
io so ke per usare i parametri nella riga di comando si usano paramStr e
paramCount e infatti li ho sempre usati senza problemi, quindi nn penso ke
sia un altro modo per fare la stessa cosa!

program ciccio(archivio, input, output);
cosi' 'avverti' che il programma utilizzera' tre files:
<forse> un tempo specificare quali files venissero utilizzati serviva
al compilatore per preparare delle strutture in mem </forse>
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: chiedo aiuto anche io....

vorrei creare un ciclo, che poi mi servirą per vari
programmi, che ripete la domanda finchč l'utente non
inserisce un intero (o un altro tipo, che scelgo io)
es.
repeat
 write('Inserisci il numero');
 read(numero);
until .......
che ci metto dopo until? vorrei che se l'utente inserisse
qualcosa che non sia integer, non mi si pianti il programma,
ma rifaccia la domanda...nn so se mi spiego...
grazie :-)
--
L'importante della vita sono le scelte...
...c'č sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

 ma rifaccia la domanda...nn so se mi spiego...
Si chiama input controllato. Il trucco sta' nel leggere SEMPRE una stringa e
tentare poi la conversione a intero (o reale o quello che vuoi) con val().
Val restituisce un valore che ti dice se la conversione va a buon fine.
Nell'until ci va la condizione di successo nella conversione.
Ciao
 max

  max
ci avevo pensato anch'io ma se uno inserisce una lettera e
voglio solo numeri interi? come posso fare?
grazie


 voglio solo numeri interi? come posso fare?
Allora devi leggere carattere per carattere, verificando per ognuno se e' in
['0'..'9'] e concatenandoli nella stringa, e dando un beep o facendo nulla
altrimenti. La stringa alla fine passa sempre per il val. Il bello del val
e' che se gli passi una variabile intera e la stringa e' un numero con la
virgola se ne accorge e ti da l'errore.
Tempo fa (circa 12 anni fa) avevo sviluppato una unit per fare delle robe
del genere. Se ti interessa te la mando
Ciao
 Max

 ...c'è sempre un futuro alternativo


 >
Usa il comando VAL.......č il modo migliore per sapere se il dato inserito č
di tipo integer, real o string....
ESEMPIO
repeat
  write('vuoi continuare??');
  readln(n);
until (VAL(.....) AND (n = '...');
CIAO :-)

Newsgroup: it.comp.lang.pascal
Titolo: ma porca di quella unit...

Scusate l'intestazione del messaggio ma comincio ad incazzarmi §:-(
E' la prima volta che scrivo in questo N.G. e spero vivamente che mi
aiuterete:-)
Allora il problema e' questo:
faccio una unit, la linco ad un programma tramite 'uses', quando cerco di
compilare il prog.principale mi si apre il file della unit e mi viene
segnalata l'omissione di 'begin' appena dopo ' unit xxxx ; '
Il fatto e' che se infilo un begin prima dell' implementation mi segnala
errore, se lo infilo dopo altrettanto..
Imploro ogni gentil'uomo o gentil donna che abbia letto il mio messaggio di
aiutarmi, tenendo presente che sono un neofita della programmazione in Turbo
Pascal.
p.s.
uso il TP 7 su un penntium II 233 (ho pensato che forse questi dati
avrebbero potuto aiutarvi nella risoluzione del problema;-)

errore, se lo infilo dopo altrettanto..
le unit vanno scritte secondo lo schema :
unit MiaUnit ;
interface
.....
implementation
....
begin
  ....
end.
 
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal

Ho un problemino che annoia col compilatore pascal che ho a scuola:
ogni volta che cambio/salvo il file, quando faccio partire il programma mi
dice:
File XXXXXX.pas´s time/date has changed. Reload form disk ?
Yes No Cancel
Come fare a non fa visualizzare piů questo messaggio ?
Grazie,
-- 
TheRealSonGokuZ @ 
turkuamk.fi

Non Puoi a patto di chiudere la pagina
Ciao,
David (
www.utilityweb.net
)

 Non Puoi a patto di chiudere la pagina
Lo stesso compilatore a casa non me lo ha mai mostrato.
Perché ? Come mai ? È più bello ? =P
(Per la cronaca, qui ho un athlon500/win98, al politecnico invece un
p!!!900, o celeron, non ho controllato bene/win2000)
Saluti,
-- 
TheRealSonGokuZ @ home

Newsgroup: it.comp.lang.pascal
Titolo: dove scarico un compilatore??

COME DA OGGETTO
GRAZIE Junior!!!!!!!!

www.crackstore.com/tools


VAI SU 
http://www.crackstore.com/tools
 E SCARICA QUELLO CHE VUOI, PERO'
GUARDA CHE E' UN SITO ILLEGALE.
CIAO

 GRAZIE Junior!!!!!!!!
Prego.
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore aggratis

Dove trovarne uno? devo fare fondamenti di informatica per ingegneria.

 wrote in message
89eq0m$udb$1...@pegasus.tiscalinet.it...


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

ciao ragazzi ho un problema ;)
devo leggere un file di testo
e devo contare quanti caratteri
ha ogni riga e quante parole ...
per i caratteri non c'e problema ma come faccio
ad identificare una parola?
grazie per l'attezione ciaooooooooo

 ha scritto nel messaggio
news:ODZha.162$mg5....@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Ma cos'è questo Gnu

Scusate la mia ignoranza ma cosa significa " G N U "  ?
Rinrazio anticipatamente e scusate se non ho mai capito che significhi!!
s.mar...@flashnet.it

 wrote:
:>Scusate la mia ignoranza ma cosa significa " G N U "  ?
Gnu Not Unix dove Gnu significa Gnu not Unix........
acronimo ricorsivo.. :))
dai un'occhiata (approfondita) su 
www.gnu.org
 scoprirai il Free software,
saprai chi e' Richard Stallman, da li magari conoscerai linux e la tua vita non 
sara' piu' la stessa!     
Ciao!
-- 
-----------
Windows isn't a virus, viruses do something...
*                Claudio Della Ciana,  (
cia...@stud.unipg.it
)           *

Rinrazio anticipatamente e scusate se non ho mai capito che significhi!!
GNU significa 'Gnu is Not Unix', e`  una 'creatura' del geniale
Richard Stallman. Si tratta di un progetto (ormai mondiale) dedicato
alla realizzazione di software gratuito (di grande qualita`)
principalmente destinato a sistemi Unix (ma ci sono numerosi porting
ad altri sistemi operativi).
Tra i 'gioiellini' prodotti ci sono il compilatore c++ GCC e l'editor
EMACS, ormai standard su ogni sistema UNIX e che si stanno facendo
largo anche su sistemi Windows.
Il sito dello GNU si trova all'indirizzo:
http://www.gnu.ai.mit.edu
Qui troverai tutte le informazioni che vuoi (per comprendere la
filosofia alla base del progetto).
A presto
Andrea
Newsgroup: it.comp.lang.pascal
Titolo: scaricare TUrbo PAscal

DOve posso trovaRe una versioNe Del TUrbo PAscal senza alcuna
restrizione??Premetto che io già ho una versione del turbo pascal che mi dà
alcuni problemi.
Io ho un processore Pentium a 1500 Mhz,una scheda madre ASus P4B:potrebbero
essere i miei componenti a darmi problemi???
Grazie anticipati!!!

Cfr. post Windows?? poco sopra.
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.

 Grazie anticipati!!!
Di nulla
-- 
Mariano Bono
claud...@libero.it
web.tiscali.it/pascalitalia
 

 restrizione??Premetto che io gią ho una versione del turbo pascal che mi
dą


Il , Renegade typed:

sul sito in firma
-- 
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

>
wirth
-- 
@@@

Newsgroup: it.comp.lang.pascal
Titolo: Pas-OS

Che fine ha fatto il progetto di sviluppare un sistema operativo in Pascal e
Assembly? Ricordo di aver scaricato tempo fa una versione ancora
rudimentale, e adesso il sito 
www.pas-os.com
 non esiste più. Cos'è successo?
Abbandonato il progetto??

con 
web.archive.org
 sono risalito all'indirizzo originale
(
http://web.tiscali.it/drfalken/pasos/).
.. infatti il dominio era stato
registrato gratuitamente (...) e poi non lo ha rinnovato....
Cmq il sito è fermo da 1 anno o +

come non detto....
leggi questa pagina (che risale al 21 ottobre 2001)
http://web.archive.org/web/20011019231011/www.drfalken.f2s.com/pas-os/avviso
.html

 leggi questa pagina (che risale al 21 ottobre 2001)
Ti ringrazio delle informazioni. A quanto pare il progetto è fermo :-(
vabbè peccato...

 vabbè peccato...
Visto l'interesse dimostrato in questo thread, ho appena rimesso su il sito
;)
L'indirizzo e' 
www.pasos.tk
  (il link diretto e'
http://www.my-store.it/pasos/phpBB2/index.php
 )
Per quanto riguarda il progetto, attualmente e' abbandonato perche':
1. non ho il tempo _materiale_ di portarlo avanti
2. la partecipazione era scarsa (ringrazio comunque i volenterosi che hanno
partecipato)
3. e' necessario creare a priori un team di sviluppo con almeno :
- 2 persone, con buone conoscenze sull'architettura x86, che lavorano sul
kernel
- un coordinatore
Se qualcuno e' intenzionato a rimetterci mano, ho pubblicato i sorgenti
dell'ultima release e se serve posso caricare anche tutti gli altri
sorgenti.
Ciao!
Simone.
--
ICQ# 19598133
http://www.my-store.it
 : hardware e software

Peccato :(
A me sarebbe interessato e avrei partecipato volentieri!
Newsgroup: it.comp.lang.pascal
Titolo: la forma packed

Ragazzi, mi sapreste spiegare per bene cosa vuol dire la parola packed per
una variabile (o un vettore?)
Grazie a tutti!!


Se packed sta per impachettata  normalmente ne ho "sentito parlare" per
matrici di grosse dimensioni e sparse
ossia matrici  matrici del tipo 100x100  che prensenta un elevato numero di
valori nulli per il problema considerato
esempio
     0    0    0    1    0
      0    0    0    0     1
    0    1    10    0    0
    0    0    11    0    0
    1    0    0    0    0
      ......
Packer come RCI comprime memorizzando la matrice con tre vettori in modo da
conservare solo i valori utili ed eventualmente ricostruire l'intera matrice
Ciao REDiCuori
(forse avro preso un flash....)
--
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

Packed si puo' usare con set, files, array e record, ma in tp7 e'
inutile perche' e' sottointesa in ogni dichiarazioni.
In delphi invece e' usata, anche su classi e interfacce
Generalmente strutture complesse in memoria vengono allineate
ogni 2 o 4 byte, in modo da velocizzare l'accesso
 record
  a: byte;
  c: word;
  d: longint;
end;
in memoria diventa
[a][ ][ ][ ]  3 byte vuoti
[c][c][ ][ ] 2 byte vuoti
[d][d][d][d]
Ma se uno vuole prendere la struttura in blocco (a.e. per scriverla
in un file) tuti quei byte vuoti rompono le palle, quindi si usa
packed e si ottiene
[a][c][c][d][d][d][d]
tutto in fila. Idem per gli array: ogni elemento viene messo subito
dopo l'altro, senza allineare su 2/4 bytes
--
Dreadnaut
(Life would be easier if I had the source code)

 (forse avro preso un flash....)
allora:
var ciao: packed array...
o type t=packed record...
Ciao!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

Newsgroup: it.comp.lang.pascal
Titolo: Liste con free pascal

ho fatto un programma sulle liste lincate con turbo pascal e funziona
benissimo.
lo ho compilato con free pascal e quando inserisco piu' di 3o4 elementi mie
esce dal programma scrvendo dei numeri. credo siano indirizzi di memoria.
help



Dipende da come hai gestito le liste.
FreePascal si è dichiarato più moderno del borland. Alcune strutture non
esistono + e altre sono state modificate. 
Sul sito del FPC c'è la documentazione relativa alle modifiche e
all'utilizzo della memoria e delle keywords.
Free Software Forever!!!
Ciao
Newsgroup: it.comp.lang.pascal
Titolo: scandire il tempo

sto tentando di fare programma in pascal, ma per realizzare il mio progetto
avrei bisogno di misurare in qualche modo il tempo. Esiste un modo per
creare un 'timer' in pascal ?..............
.....................grazie

 ha scritto nel messaggio
news:8a3a6e$hfr$1...@nslave2.tin.it...


creare un 'timer' in pascal ?..............
Di che tipo di applicazione si tratta ?
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

 Si può usare la procedura gettime(guarda l'help per i parametri).
Suppongo che ci sia un problema di fondo: nel momento in cui il
programma ti calcola l'ora non può eseguire altre istruzioni, ed è
perciò bloccato. Mi sbaglio ? C'è una soluzione ?
Phones

Newsgroup: it.comp.lang.pascal
Titolo: VEDIAMO CHI RISOLVE QUESTO....

Usando gli array bisogna fondere due vettori numerici 'a' e 'b' in un unico
vettore 'c'. Poi bisogna far ordinare (crescente) e far scrivere la sequenza
di 'c'. Infine bisogna eliminare le cifre uguali e far riscrivere 'c'. Tutto
questo utilizzando 2 procedure, una per caricare i vettori e una per farli
scrivere.
ESEMPIO
a = 1 2 3 5 6
b = 2 3 4 5
c = 1 2 2 3 3 4 5 5 6 --> farlo scrivere
c = 1 2 3 4 5 6 --> farlo scrivere
CHI E' CHE MI RISPONDERA' PER PRIMO??? E' UNA SPECIE DI SFIDA!!

Muahhahahhahahahhaha
ROTFL
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 ha scritto nel messaggio
news:QJYg6.332979$IP1.11...@news1.giganews.com...


 CHI E' CHE MI RISPONDERA' PER PRIMO??? E' UNA SPECIE DI SFIDA!!
Ahhh... è una sfida ! Allora è diverso.
Sulle prime credevo che volessi farti risolvere i compiti delle vacanze,
ma con questa precisazione chiarisci tutto.
Cosa c'è da risolvere? L'algoritmo sta tutto nella tua enunciazione.
--
Virgilio Lattanzi       HARPAX
Tel: 
+39 0733 816872
    via Fontanella, 55
Fax: +39 0733 819133    62012 Civitanova Marche MC
WWW: 
www.harpax.com
     ITALY

Newsgroup: it.comp.lang.pascal
Titolo: freepascal e fpIDE

Dovrei far funzionare fpIDE (l'ambiente di sviluppo per il compilatore freepascal) su macchine windows NT 4.
Tutto funziona (compresa la compilazione) ma se lancio l'eseguibile fpIDE va in crash.
Qualcuno ha gia' incontrato questo problema?
Conoscete soluzioni?
Sarei felice di ricevere suggerimenti al mio indirizzo mailto:
andrea.b...@tiscalinet.it
Grazie a tutti,  Andrea
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
mail-1.tiscalinet.it
 [195.130.225.147] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Conoscete soluzioni?
Mah, se non trovi altre soluzioni puoi sempre scrivere al team di 
sviluppo del FreePascal!!
-- 
Ciaooooo
Mr_Brain
Newsgroup: it.comp.lang.pascal
Titolo: Free Pascal

Ciao a tutti
dopo molti anni ho ripreso a scrivere in pascal.
Adesso sto' usando il Free Pascal su Linux, dove vorrei portare dei vecchi
programmi scritti con il tp6.
L'unico inconveniente è che contengono diverso codice in assembly (sic!).
Naturalmente l'assembly tra DOS-Linux non è compatibile vero ?
Devo per forza rischivermi quelle funzioni ?
Grazie per le eventuali risposte
Ciao
Alessandro

 Alessandro
Le chiamate di sistema (gli interrupt) sono diversi; il
linguaggio assembler ha però la stessa sintassi; Freepascal
accetta sia la sintassi Intel (quella usata da TP) che
quella AT&T, assai diversa; imposta con delle direttive di
leggere la sintassi Intel e almeno per questo sei a posto.
Newsgroup: it.comp.lang.pascal
Titolo: Problemino interessante (ma bastardo dentro)

Visto che al momento nn ho niente di interessante da fare, volevo proporvi
un problemino interessante che mi era stato assegnato come compito qualche
mesetto fa.
Consiste nell'implementazione di un array circolare, in cui sia possibile
shiftare verso destra o sinistra di n posizioni, avendo l'accortenza di
riportare "dall'altra parte" gli elementi che escono fuori (utilizzando però
meno memoria possibile per il "buffer").
Ad esempio, ho un array di 5 elementi
 5  9 12 35 89  7
faccio uno shift di 3 posizioni:
35 89  7  5  9 12
Io avevo pensato di risolverlo facendo n shift di 1 in modo da utilizzare 1
sola var di comodo. Ho trovato anche un caso particolare in cui era
possibile effettuare direttamente gli scambi (a due a due con una banale
procedura di scambio) se il vettore aveva un numero di elementi (o forse il
contrario??) e se volevamo effettuare uno shift di un numero di posti MINORE
del numero di elementi.
Voi come avreste risolto?
--
BlackDemon - bdemon(at)
iol.it

 del numero di elementi.
lo shift e' sempre di un numero di posti minore del numero di elementi,
perche' dopo n_elem shift hai fatto un giro completo e sei al punto
di partenza... quindi puoi fare n := n mod n_elem ed utilizzare sempre
la tua procedura
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 "se il vettore aveva un numero di elementi" ... boh...
scusami... manca "se aveva u num di elementi PARI"
--
BlackDemon - bdemon(at)
iol.it

 la tua procedura
Scusami, dormivo pesante... shift minore della metà del num degli elementi.
--
BlackDemon - bdemon(at)
iol.it

 
credo che la soluzione migliore è + semplice sia appunto quella da
te proposta ... cio+ fare n shift di 1 ..... se vuoi una gestione 
semplice dell'array.Un metodo che invece credo ottimale è quello di
gestire l'array come una lista circolare ... usando solo 1 variabile 
testa (1 ed N)  per effetuare lo shift basta incrementare di n la testa
stanfdo attenti a quando si supera la fine ...
cioè l'operazione di shift è:
testa:=(testa+n) mod N;(dove N è la dim del vettore)
testa naturalmente rappresenta il primo elemento del vettore
in questo modo l'operazione di shift diventa banale ...
ma si complicano quelle di stampa (dato che 1 non + il primo elemento 
della lista)
Se vuoi continuamo a parlarne (magari codificando il tutto) sul forum 
mio sito
http://digilander.iol.it/carmageddon1

Newsgroup: it.comp.lang.pascal
Titolo: passaggio di parametri da linea di comando DOS

ciao a tutti i partecipanti del ng
come fare quanto da oggetto con TP 7.0 ?
eventualmente mi potete indicare anche un post vecchio che lo spiega
grazie mille
ciao,
- gabriele

 ha scritto nel messaggio
news:9cgqs7$dj96u$2...@ID-53993.news.dfncis.de...


 Ciao ReDiCuori
grazie mille!
ciao,
- gabriele
Newsgroup: it.comp.lang.pascal
Titolo: aiutino su un algoritmo

Uno studente alle prime armi in maniera di programmazione potrebbe
sapere  sapere perchè il programma riportato qui sotto non funziona
con i coefficienti a=1, b=1, c=-2 ?
grazie :)
program equazione;
(*IL PROGRAMMA NON FUNZIONA  CON I NUMERI NEGATIVI*)
var a, b, c, x1, x2 : real;
begin
write ('inserire le costanti dell''equazione a*x^2 + b*x +c = 0 
separate da uno spazio : ');
readln (a, b, c);writeln;
if b*b-4*a*c >= 0 then
begin
x1 := -b/2 + sqrt(b*b/4 - a*a);
x2 := -b/2 - sqrt(b*b/4 - a*a);
writeln ('le soluzioni sono : x1 = ', x1:2, '  x2 = ', x2:2);
end
else writeln ('l''equazione non ha soluzioni reali');
end.
P.S. : l'errore è questo
[claudio@localhost program-equazione]$ ./equazione
inserire le costanti dell'equazione a*x^2 + b*x +c = 0  separate da
uno spazio : 1 1 -2
Runtime error 216 at 0x08052B71
  0x08052B71
  0x080480B0

 x2 := -b/2 - sqrt(b*b/4 - a*a);
Ehm... le soluzioni (in generale) sono date da:
x1 = (-b - sqrt( b*b -4*a*c )) / (2*a);
x2 = (-b + sqrt( b*b -4*a*c )) / (2*a);

Prova con questo
program equazione;
(*IL PROGRAMMA NON FUNZIONA  CON I NUMERI NEGATIVI*)
var a, b, c, x1, x2 : real;
    s : real;
begin
write ('inserire le costanti dell''equazione a*x^2 + b*x +c = 0 separate da
uno spazio : ');
readln (a, b, c);writeln;
s:=b*b-4*a*c;
if s>= 0 then
begin
  x1 := (-b - sqrt(s))/(2*a);
  x2 := (-b + sqrt(s))/(2*a);
  writeln ('le soluzioni sono : x1 = ', x1:2, '  x2 = ', x2:2);
end
  else writeln ('l''equazione non ha soluzioni reali');
end.
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

 ha scritto nel messaggio
news:53fe2dba.02081...@posting.google.com...



I numeri negativi non c'entrano... se il programma non funziona in certi
casi è solo perchè sqrt non estrae la radice di numeri negativi, per fare
ciò metti il Delta fuori e se < 0 fai il valore assoluto e gli aggiungi una
"i" ed estrai la radice come se fosse positiva....
Cooper.

...

hai ragione, mi sono distratto un tantino ;P
con la correzione effettuata funziona bene ... grazie !!
ciao
claudio

Newsgroup: it.comp.lang.pascal
Titolo: Ho bisogno di un consiglio.

Dovrei rivedere alcune cose in Pascal.
Tempo fa lavoravo con la v.7 in DOS della Bordland, su un 486.
Potreste aiutarmi nella scelta tra Free Pascal e Dev-Pascal
spiegandomene le principali differenze?
Grazie.
Mara

, Mara says...

Sto messaggio ha quasi 10 giorni, temo d'essere
un po' in ritardo con la risposta...
Comunqe, non ci sono confronti da fare :)
Dev-Pascal e' solo un IDE da utilizzare, volendo,
con Free Pascal o altri compilatori.
Tra l'altro a me nemmeno piace, l'ho trovato
parecchio buggato. Inoltre con Free Pascal
viene fornito un IDE testuale simile a quello
del Turbo Pascal, in generale puo' bastare.
PS: Aggiungo una mia richiesta... qualcuno usa
Dev-Pascal? Volevo un'informazione :)
Newsgroup: it.comp.lang.pascal
Titolo: underscore

Sto creando un gioco in pascal (snake) e volevo saper se č possibile
eliminare totalmente il carattere underscore (si chiama cosě?), cioč _.
GRAZIE       TORBO

 eliminare totalmente il carattere underscore (si chiama cosě?), cioč _.
mmmh intendi il cursore lampeggiante ?
altrim non ho capito bene...
--
Dreadnaut
(Life would be easier if I had the source code)

si, quello
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:DGV78.23654$5M4.7...@twister2.libero.it...


>
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;


> cito un mex di Solid Snake :-)
Mi sento onorato ^__^
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

btw, le due variabili possono essere usate per definire cursori
strani: in modo testo un carattere e' alto 8 "linee di scansione"
(in realta' sono 9, -esisteva- anche la sottolineatura, e il cursore
di solito e' anche una LdS sotto il testo, ma funzia fino a 12/13 ?)
quindi settando mych e mycl (my cursor high e my cursor low ?)
a valori fra 0 e 9 ( possibilmente mych <= mycl o non vedrete
nulla (ecco un modo per cancellare il cursore) ) e chiamando
visualizzacursore, si ottiene un cursore che va dalla mych-esima
alla mycl-esima linea del carattere... si possono fare due proc
che generalizzino quelle di Solid:
procedure setCursorSize(h,l: byte); assembler;
asm
 mov ah, 01h
 mov ch, byte ptr h
 mov cl, byte ptr l
 int 10h
end;
procedure getCursorSize(var h,l: byte); assembler;
asm
 mov ah, 03h
 int 10h
 les di, h
 mov es:[di], ch
 les di, l
 mov es:[di], cl
end;
usando setCursorSize ( 12,1 ); o con altre coppie non valide di
valori si ottiene la sparizione del cursore :-)
per chi e' a secco di asm, l'interrupt 10h e' il servizio base fornito dal
bios per scrivere sullo schermo... solitamente quando si chiama una
procedura di interrupt si mette nel registro ax [16bit] (in questo caso
nella sua meta' alta, "ah") il codice della funzione richiesta
( 01h per "voglio settare il cursore", 03h per "voglio sapere come e'
fatto il cursore, ma anche 06h e 07h per lo scroll, vedi altri post)
e negli altri registri i parametri, in questo caso nelle due meta' di
cx i parametri del cursore, poi con "int 10h" si chiama la procedura.
Il mio asm e' molto empirico :-) altre persone e altri ng sapranno di
certo spiegare meglio...

Newsgroup: it.comp.lang.pascal
Titolo: Runtime error turbo pascal

Esiste qualcosa di descrittivo riguardo gli errori di runtime del turbo
pascal ???
grazie

 turbo pascal ???
intendi "escluso l'help del tp sotto la voce Error Messages\
\Run-Time Error Messages" ?
-- 
Dreadnaut
(Life would be easier if I had the source code)

escluso quell'Help
"Dreadnaut" <Drea...@liberoDallaSpam.it> ha scritto nel messaggio
news:VqKda.25919$Lr4.8...@twister2.libero.it...


> escluso quell'Help
in giro ho trovato ben poco... pero' non sono cosi' strani:
c'e' un errore in particolare o ti interessava in generale ?


Newsgroup: it.comp.lang.pascal
Titolo: Quanto mi devo far pagare per un programma ?

Sto realizzando un programma in visual basic 5 con e  access per effettuare
delle query su un database già
esistente.
Il lavoro dovrebbe essere all'incirca della durata di 40-50 ore.
Quanto mi posso fare pagare?

...

Non so, prova su it.comp.lang.pascal.
Non programmatori Pascal lavoriamo gratis....;-))
			Alessio ECHO Bessone
bessone...@educ.di.unito.it
ec...@mwire.net
bes...@mailexcite.com
v.ri...@studenti.to.it
ICQ#: 10234065

Newsgroup: it.comp.lang.pascal
Titolo: Problema inteprete

ciao a tutti... ho un po' problema con un interprete...
l'interprete ha le seguenti specifiche funzionali...
• il programma rivecevi in ingresso una stringa (o un file) con tag stile
html:
del tipo
<B09>Viva le banane</B>e<T04>i mandarini</T>
e il problema della scrittura della stringa senza tag l'ho risolto..... ho
risolto alnche il problema della lettura dei colori...
il problema è integrare le due procedure...
B=background (colore)
T=text (colore)
09 e 04 i colori rispettivi
qualcuno ha qualche consiglio da darmi
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 qualcuno ha qualche consiglio da darmi
Scusami ma con tutta la buona volontà non ho capito il tuo problema potresti
esplicitarlo meglio ?
-- 
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
 sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
---------------------------------------------------------

 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.pascal
Titolo: ranseed

E' ormai qualche giorno che seguo assiduamente questo gruppo , e devo dire
che una delle caratteristiche che mi ha attirato čla competenza dei
partecipanti .
Vorrei domandarvi cosa , precisamente , fa la funzione ranseed (y)....
E' davvero utile per la scelta di un numero casuale ?
o basta la funzione random(x) ?
Sicuro di una vostra risposta , saluto il gruppo .
--
Keiichi Morisato
kei...@tempolibero.com

o basta la funzione random(x) ?
random() serve a uno scopo diverso, cioe' ad ottenere il prossimo
numero pseudo-casuale nella sequenza generata da randseed calcolata da
randomize.

 randomize.
Tutto chiaro .
Ma perchè dici PSEUDO-casuale ?
--
Keiichi Morisato

Ma perchè dici PSEUDO-casuale ?
Perche' non c'e' una reale casualita' tra i numeri, visto che sono
generati secondo un certo algoritmo.
Esiste, cioe', sempre un certo legame tra un numero generato ed il
successivo.
I bit meno significativi di un numero generato da random() per esempio
non sono cosi' casuali ! ;)

 wrote in message
37314803...@diesel.cu.mi.it...

Messaggio ricevuto =)
TNX
Bye
--
Keiichi Morisato

Newsgroup: it.comp.lang.pascal
Titolo: 9! = -3000 ???

Ciaooo !!!
quando faccio il fattoriale di un numero con un procedimento molto grezzo...
nn ho ancora usato la funzione FATT o quel ke e.... mi da un numero negativo
... ke e ??? altri errori di questo tipo accadono quando faccio altre
operazioni.... !!!
Qlk e kosi gentile da speigarmi il perche ???
Grazie
Ola Error

perchč usi un tipo di dato che "trabbocca", cioč non riesce a contenere il
risultato in quanto il tipo di dato numerico č limitato.
Il tipo Byte puň contenere fino al numero 255
il tipo integer fino al numero 32767
il tipo real ....
Prova ad usare un tipo di variabile piů grande e ricorda che il computer non
č illimitato nei calcoli, specie con le piattaforme di lavoro a 16 bit

> quando faccio il fattoriale di un numero con un procedimento molto grezzo...
Fatt:=1;
for i:=2 to n do
  fatt:=fatt*i;

 ha scritto nel messaggio
news:8v3hng$32b$1...@lacerta.tiscalinet.it...


 <= 2^ 32 )
CORREGGO
Ti conviene usare i longint -2.147.483.648 <= n < 2.147.483.648
( -2^31 <= n < 2^ 31 )

Newsgroup: it.comp.lang.pascal
Titolo: Capslock



same thing.
Instead of making a quick fix why not change the caps requirement?
Osmo

Michael,
if you are using edit control for input, they have a style that can be set 
when the control is created (ES_UPPERCASE). The edit control automatically 
converts input to upper case if this style bit is set.
To set the CapsLock by program you use the SetKeyboardState API function:
 Var
   kbState: TKeyboardState;
 
 GetKeyboardState( kbState );  
 kbState[ VK_CAPITAL ] := kbState[ VK_CAPITAL ] or 1;
 SetKeyboardState( kbState );
 
To unlock the key you use the same code with "and not" in place of "or".
Peter Below (TeamB)  
10011...@compuserve.com
)

Instead of making a quick fix why not change the caps requirement?
Or, upcase everything as it comes in?  Remember, the user may hit the
caps lock key.  This way, you _force_ the correct input.
-- 
R. N. (Dick) Wisan  - Email: 
wis...@norwich.net
                    - Snail: 37 Clinton Street, Oneonta NY 13820, U.S.A.
                    - Just your opinion, please, ma'am: No fax.

, il giorno Sat, 22
Nov 1997 15:01:24 -0000 hai scritto:
....
# Most of the input into my programs requires it to
#be in capital letters, does anyone know a command that I can use to
turn
#caps-lock on whenever the program is started or another way of
achieving the
#same thing.
#
#TIA Michael
#
hi,
to convert a string to upcase:
procedure ToUpper (var s: String);
var i: Integer
begin
	for i:= 1 to Length(s) do s[i]:= UpCase(s[i]);
end;
bye,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/

Newsgroup: it.comp.lang.pascal
Titolo: aiuto come faccio a far apparire in un programma di password gli asterischi?

Salve a tutti sono un principiante e ho creato il mio primo programma di
password, ma ho un problema
vorrei far apparire gli asterischi al posto dei numeri come faccio?
per scrivermi togliete "no mail"
 dal mio indirizzo e-mail

 ha scritto nel messaggio
news:V1rf9.7565$6O4.1...@twister1.libero.it...


Ciao ReDiCuori
Beh si puo' funzionare... anzi funziona... ma per il ch = 8 che mi
racconti (backspace)?
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596


Ok, ma il backspace non funziona.... :-))
ciao
stef


opps... sono arrivato secondo...
stef


cosě funziona anche il back space!
function readpwd:string;
var st:string;
    a:char;
begin
st:='';
repeat
      a:=readkey;
      if a in ['a'..'z','0'..'9',' ']   {o qualsiasi altro set di caratteri}
         then begin
              write('*');
              st:=st+a;
              end;
      if ((a=#8) and (length(st)>0))
         then begin
              gotoxy(wherex-1,wherey);
              ClrEol;
              Delete(st,length(st),1);
              end;
until a=#13;
readpwd:=st;
end;
ciao
stef

 The Only Good Windows is an uninstalled Windows
Beh ! Il mio codice era solo uno spunto nn una pappina bella e pronta, ogni
tanto bisogna anche ingegnarsi
Ciao ReDiCuori

Newsgroup: it.comp.lang.pascal
Titolo: neofita pascal cerca libro...

Seguo con piacere questo n.g. e visto che sto cimentandomi nella
prgrammazione pascal (Turbopascal 7.0) gradirei sapere se qualcuno può
consigliarmi un libro in grado di svelarmi gli arcani misteri del pascal!!!
a parte gli scherzi mi fa piacere vedere che un linguaggio un po' sorpassato
come il pascal ha nonostante tutto un n.g. frequentato. Ciao a tutti e
grazie in anticipo!
Gloria



Prova qui 
http://www.urra.it/127.html
Ciao 

consigliarmi un libro in grado di svelarmi gli arcani misteri del pascal!!!
La "bibbia" del pascal è quella di N.Wirth, inventore del linguaggio.
Spiega il linguaggio in tutta la sua interezza e dà ottimi spunti per
l'uso ottimale delle strutture dati.
Inoltre ha il vantaggio di essere facilmente reperibile nelle
biblioteche, specie in quelle universitarie.
Ricordati, in ogni caso, che il TP è un dialetto del Pascal standard,
e quindi puoi riscontrare qualche differenza.
Andrea
-----------------------------
"E ora tutti a divertirci..."


Dunque, io per lavorare bene in pascal ho usato il BORLAND PASCAL 7.0 di
Luca Napolitano edito da Jackson Libri. Prima avevo anche un altro manualone
bello completo, sempre della Jackson, intitolato IL GRANDE MANUALE DEL TURBO
PASCAL 5.5/6.0. Ovviamente come vedi sono dedicati al pascal di Borland, ma
se intendi utilizzare quello allora qui c'è tutto comprese alcune
precisazioni teoriche sui vari problemi affrontati.
StarWind
Qualunque cosa di cui tu abbia bisogno : 
m.m...@studenti.to.it

 e quindi puoi riscontrare qualche differenza.
Si trova nelle librerie ?
Che titolo o ISBN ?
--
Bye bye....
 
ne...@tvol.it
 
szn...@usa.net
***************************
* Team Os/2 Italia member *
***************************
My Dream ? PROTECTONLY=YES !
HOMEPage : 
http://delenda.biella.alpcom.it/zamprogno/
ICQ UIN  : 4708891
HAL-9000: "What are you doing with those Windo$e disks Dave? Dave?
DAVE!!!!!
S.E.T.I Project supporter

Che titolo o ISBN ?
Kathleen Jensen - Niklaus Wirth,  
"Pascal manuale e standard del linguaggio", Gruppo Editoriale Jackson.
Andrea
------------------------------------------------
combatti anche tu il nano scemo :
http://www.geocities.com/Hollywood/Studio/6989
------------------------------------------------