mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Convertire string ( 00 - FF) in Byte !

Ciao, qualcuno mi può auitare !
Devo convertire una stringa di valori esadecimali (00 .. FF) in byte, come
posso fare ?
Grazie.

 posso fare ?
Var S,Esa: String;
       I: Byte;
       valori: Array[1..128] of Byte;
Function EsaToByte(S: String): Byte;
Var Ris,I,M: Byte;
Begin
          Ris:=0;
          M:=1;
          For I:=1 downto 0 do
             Begin
                  If S[I]<="9" Then Ris:=Ris+(M*(Chr(S[I])-48)) else
Ris:=Ris+(M*(Chr(S[I])-55));
                  M:=M*16;
             End;
          EsaToByte:=Ris;
End;
Begin
         S:= (stringa esadecimale);
         For I:=1 to length(s) do
             Begin
                    Esa:=Copy(S,I,2);
                    Valori[I]:=EsaToByte(Esa);
                    Inc(I);
            Next;
End.
In S deve starci una stringa di caratteri esadecimali; Se i valori sono A2,
E4,FF,10,B3 allora la stringa dovrà essere:
A2E4FF10B3.
I numeri minori di 16 (da 0 ad F) dovranno avere uno zero davanti: 00..0F.
Le lettere tutte maiuscole.
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\    /\
\_/    \/    \_/

Newsgroup: it.comp.lang.pascal
Titolo: R: Turbo pascal

 Prova a reperire in rete il draft del pascal standard (o ISO pascal).
Dove?
--
Davide
davi...@usa.net
ICQ: #20331544

 Prova a reperire in rete il draft del pascal standard (o ISO pascal).
Potresti essere un po' più chiaro ?
Mi pedonerai , ma non è da molto che uso il Pascal ^_^;
Ciao
--
Keiichi Morisato
Newsgroup: it.comp.lang.pascal
Titolo: Random

Vorrei discutere di un problema. Sto facendo un programma che 
sostanzialmente deve fare generare una certa serie di numeri casuali ma 
che siano tutti diversi tra loro. I numeri devono essere 15 in tutto.
Le possibili soluzioni che vedo sono 2: 1) ripetere 15 volte la funzione 
random e specificando ogni volta che, per es., il 4=B0 deve essere 
diverso dal 3=B0 che deve essere diverso dal 2=B0 che deve ... ecc. del 
tipo: d tale che d<>c and c<>b and b<>a; 2) usare un ciclo con contatore 
15.
Ovviamente sono orientato al 2). Ma come fare generare questa serie di 
numeri tutti diversi tra loro?
-- 
Posted from  [62.98.172.47] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

mmmh se l'insieme dei numeri che estrai e' finito (chenneso
da 0 a 15) ti conviene fare un'array di boolean, e settare a
true i numeri gia' estratti... ogni nuovo estratto controlli che
la sua posizione nell'array non sia gia' true...
se l'insieme e' infinito, sai cmq che al massimo estrarrai 15 num...
tieni da parte una array di numeri (quale che sia il loro formato
integer... byte... real) di 14 elem: quando estrai l'i-esimo numero
lo confronti con quelli da 1 a i-1 nell'array e se non e' gia' presente
lo inserisci nell'i-esima pozisione...
(-: dai e' praticamente scritto tutto sopra :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 wrote in message
ef17ed453ea5662e80c...@mygate.mailgate.org...


 scrivi e sei apposto altrimenti ripeti, tieni conto xò che le possibilità


Era peggio se skrivevi érrei :)
E io ke nel mio penultimo msg ho skritto utiliti ? :DDD

Secondo me ti conviene utilizzare gli insiemi...
Program pincopallino;
Uses Crt,Dos;
Var
A:Set of byte;
I,T:Integer;
S:String;
Begin
I:=0;
Randomize;
A:=[];
Repeat
  T:=Random(100);
  If Not (T In A) Then
  Begin
    A:=A+[T];
    Inc(I);
  End;
Until I=15;
For I:=1 To 100 Do
  If (I In A) Then
    Write(I+'-');
End.
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:YE5T7.316834$sq5.15...@news.infostrada.it...


anche... ma questo ti limita a 256 elementi al massimo...
io implementavo gli insiemi come bitvector "ce l'ho, mi manca"
e anche li ci sono limiti, anche se un po' piu' alti...
Terzo livello di sicurezza e' con le liste... il limite si alza ancora...
--
Dreadnaut


Io preferisco Array di boolean anche perche non è cosi limitato cone
il Set... i set mi pare di aver letto che possono avere un MAX di 255
bit (valori True o False) mentre gli Array possono anche avere un
intero segemento a loro disposizione (65k) o almeno io ci sono
riuscito a dichiarare un array[0..$FFFE] of Byte ma credo che sia la
stessa cosa...
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: dove tp 7.0?

dove posso scaricare tp 7.0 ?
grazie
cek
c...@libero.it

Che io sappia, non è né freeware, né scaricabile da Internet... qualcosa di
simile è il Free Pascal che invece si trova in rete ed è (abbastanza)
compatibile con TP7.... Ciao.
cek ha scritto nel messaggio ...



prova  qui
http://www.chez.com/fpage/pascal/prog.htm

Newsgroup: it.comp.lang.pascal
Titolo: Ot: Prezzo delle memorie DRAM e SRAM

Salve a tutti,
sono un po' ot, ma ho bisogno di conoscere i prezzi aggiornati di questi due
componenti del computer.
Anche se sapete indicarmi un sito dove posso trovare informazioni di questo
genere ve ne sarò grati.
Grazie già da ora

Descrizione IVA compresa IVA esclusa Info Disp
SDRAM 100MHZ 64 MEGABYTE (1 DIMM 64MB 168PIN PC100)  130.000 108.333 - SI
SDRAM 133MHZ 128 MEGABYTE (1 DIMM 128MB 168PIN PC133)   275.000 229.166 - SI
SDRAM 100MHZ 128 MEGABYTE (1 DIMM 128MB 168PIN PC100)   255.000 212.500 - SI
SDRAM 100MHZ 256 MEGABYTE (2 DIMM 128MB 168PIN PC100)   510.000 425.000 - -
SDRAM 133MHZ 64 MEGABYTE (1 DIMM 64MB 168PIN PC133)   140.000 116.666 - SI
SDRAM 100MHZ 32 MEGABYTE (1 DIMM 32MB 168PIN PC100)  69.000 57.500 - SI
SIMM 16 MEGABYTE 72 PIN EDO RAM 60NS  57.000 47.500 - SI

 wrote in message 8fk1c6$agm$3...@nslave2.tin.it...


 ha scritto nel messaggio
news:8flehd$eo4$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore???

Sono un neofita di questo linguaggio dato che lo devo fare a scuola ho
deciso di provare a capirlo x conto mio.Faccio subito  una domanda
banale:COSA E' UN COMPILATORE?A COSA SERVE? I PROGRAMMI NON  MI BASTA FARLI
CON PASCAL?PERCHE' CI SONO SULLA RETE ALTRI COMPILATORI?
grazie spero sappiate rispondermi
Stefano $$$ Drizzt
www.cimiterocoorvus.3000.it

 wrote in message
9l4hd4$9to$1...@nreadB.inwind.it...




Il pascal è un linguaggio....
il compilatore è l'interpete che da un comune file ASCII con il codice
sorgente te lo traforma in istruzioni ASM e te lo fa eseguire....
insomma è un interperte :o)
Ne esitrono valanga, free e non
molto diffuso è il Borland Pascal o il Turbo Pasal (sempre della
Borland)
invece il Free per ecellenza è il Free Pascal....
questi non sono semplici compilatore a riga di comando
(esempio di compilatore a riga di comando)
c:\> COMPILATORE.EXE FILE.PAS (File ASCII) FILE.EXE (File Binario
conenente ASM)
ma sono degli IDE completi cioè delle vere e porioe aplicazioni (con
mouse) che ti facilitano l'uso del compilatore
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 insomma č un interperte :o)
Spiritoso...
Francesco

 
Ciao scusa se te lo dico ma hai le idee un pò confuse,
il pascal è un linguaggio compilato e non interpretato,
dire che 'il compilatore è l'interprete ' è una grandissima
fesseria , si potrebbe dire che il compilatore è il traduttore.
La differenza tra compilatore ed interprete è fondamentale.
Ciao ancora Claudio.
http://digilander.iol.it/carmageddon1
 (interamente dedicato al pascal)

Grazie a tutti, finalmente mi sono chiarito le idee.
Grazie ancora
ciao
Stefano $$$ Drizzt
www.cimiterocorvus.3000.it

Newsgroup: it.comp.lang.pascal
Titolo: Problemi con le unit playwav

Salve a tutti, non capisco perchè quando uso una unit play_wav, Turbo Pascal
mi obbliga ad andare in modalita ms-dos eslusiva?
Si può evitare questo inconveniente?
--
 ____________________
 ·§§§§·RicDisaster·§§§§·
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
E-Mail:
rick...@tin.it
ICQ: #48897454

 wrote in message
81ri9c$3b6$2...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.pascal
Titolo: Textmode su freepascal

Caro NG,
compilando un programma con il ppc386.exe (il freepascal),
non mi funziona textmode(); lo compila correttamente, ma quando
eseguo il programma i charatteri sono della stessa grandezza...
Qualcuno mi sa dire qualcosa about it?
Phones

 wrote in message
8b674s$969$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Prometto che non vi scoccio più..

Un ultimo problema è quello che ho una variabile intera
e questa variabile deve essere compresa tra 1 e 10 posso usare il repeat
until
read(var)
repeat
read(var)
until (var)<1 or var <10
Ma come posso fare per non consentire di bloccare il sistema inserendo delle
lettera alla rikiesta di un valore intero?
Che controllo si può usare?


wrote:

Io legerei una stringa e poi la converirei con la val la traformerei
in un Int ma sinceramente non ne vedo la neccessita....
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 anzichč integer.
deve metterci '10', char non basta... altrimenti 1 e 10
diventerebbero entrambi '1' e non funzionerebbe...
il metodo string + val mi sembra il piu' semplice
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

mi spieghi con calma come si deve fare?
non ci capsico tantissimo!
sono ai primi passi!
grazie
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:4s%18.8121$ly.2...@twister1.libero.it...


Char è un carattere e le stringhe sono array di caratteri: quando digiti
sulla tastiera i tuoi dati finiscono nel buffer della keyboard e vengono,
solitamente, prelevati quando premi INVIO e salvati in una variabile da te
specificata ma:
- se la variabile è di tipo char allora viene prelevato solo un carattere
(il primo che hai inserito [il buffer è una struttura FIFO]) perché quello è
il massimo che puoi mettere in una variabile di tipo char
- se la variabile è una stringa di lunghezza superiore a ciò che è presente
nel buffer, lo stesso viene svuotato e salvato nella stringa
La procedura val(parametro,parametro,parametro) converte una stringa in un
intero restituendo un codice di errore che si dovrebbe controllare per
assicurarsi che la conversione abbia avuto successo o meno. Guarda l'help di
"val" per capire quali parametri vuole, di che tipo devono essere e come
funziona il codice di errore.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 ha scritto nel messaggio
news:3c49...@news.cis.it...


 corretta...
guarda che lui ha spiegato +/- esattamente quello che succede
"dietro" la prima soluzione, e il perche' e' meglio usare le stringhe
 invece dei char... :-)

Newsgroup: it.comp.lang.pascal
Titolo: Program Lotto

Dovrei creare un programma che stampi una combinazione casuale di numeri in
questo ordine : 1° pressione del tasto Invio --> Ambo : 2 numeri
              2° pressione tasto invio --> terno : 3 numeri
così via fino alla cinquina.
Il problema è che non conosco le funzioni adatte a crearlo, Chi mi aiuta ???
Grazie
--
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

 ha scritto nel messaggio
news:u1yU5.2179$CH3....@news.infostrada.it...



Mi fai vedere come lo hai impostato ???
Grazie

 ha scritto nel messaggio
news:IgcV5.6853$tS2.2...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: FTP

Dovrei scrivere un piccolo programmino in pascal (uso freepascal) che ad 
un certo punto acceda ad un server ftp.
Il modo poco elegante e' quello di usare delle chiamate esterne al 
programma FTP.EXE e con uno script scritto ogni volta da zero.
Mi servirebbe "solo" poter vedere i files presenti, rinominarli, 
downloadarli e cancellarli solo se sono stati scaricati correttamente.
Qualcuno mi puo' dare una mano? Una UNIT?
Qualche esempio? Ho cercato in google ma (ovviamente) le parole FTP e 
Pascal mi danno migliaia di link che indendono tutt'altro di quello che 
desidero.
-- 
     __         ____         | We don't need no education.
 __ / /__  ___ / __/__ __ __ | We don't need no thought control.
/ // / _ \/ -_) _// _ \\ \ / | All we need is another brick in the wall
\___/\___/\__/_/  \___/_\_\  | ICQ UIN: 61571298

 che desidero.
so' che e' un po' violento, pero' con la rfc959 ci fai tutto :-)
Se vuoi una unit gia' pronta non so' aiutarti, pero' un consiglio:
prima cerca sul sito del fpc, strano che non ci sia, poi semmai prima
cerca gli archivi di unit, poi dentro quelli una unit FTP: la ricerca
viene piu' veloce e su un numero minore di risultati :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 so' che e' un po' violento, pero' con la rfc959 ci fai tutto :-)
He he he... lo so...
Il mio problema e' che scrivo programmi, ma non sono un programmatore.
Quindi avere un qualcosa di pronto e' sicuramente molto utile. :-)
Grazie per il resto dei suggerimenti.


cerca nei post precedenti un mio post su dei siti in russo (non mi
ricordo... sorry!)... troverai delle unit per FTP già pronte

Newsgroup: it.comp.lang.pascal
Titolo: Ordinamento: AIUTOOOO!!!!





ciao a tutti...vi espongo il mio 
problema..


se riuscite xfavore aiutatemi..mi manca solo questo 
particolare x completare il mio


progetto..


 


COME FACCIO AD ORDINARE ALFABETICAMENTE GLI 
ELEMENTI DI UNA LISTA?!..


 


queste sotto sono le mie variabili,..come si puo' 
capire ho 2 liste..una x la cucina e una x il bar


e io dovrei ordinare alfabeticamente gli elementi 
presenti in questa lista...


 


TYPE


liste = 
^magazzino;
        magazzino = 
RECORD
        nome : 
string;
        prezzo,quantita,soglia : 
integer;
        next : 
liste;
end;


 


VAR  testa1,testa2,testa3,cucin,thebar,listariepilogo : 
liste;
     coperto,nuovocoperto,indicetavoli : 
integer;
     codice,incasso,clientitotali : 
integer;
     listacucina,listabar,ilcoperto : 
text;
     quesito : string;
     
trovato : boolean;


 


GRAZIE A CHIUNQUE RIESCA A 
RISPONDERMI...



 wrote in message 
000a01c1113c$82536d20$c0eb1d97@luigi
...

Newsgroup: it.comp.lang.pascal
Titolo: Esami

Ciao a tutti.Chi mi puņ aiutare a trovare informazioni di base sul
linguaggio Pascal in vista degli esami di stato?Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 linguaggio Pascal in vista degli esami di stato?Grazie
prova a vedere il 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

Grazie.Gentilissimo!
Ciao


Newsgroup: it.comp.lang.pascal
Titolo: domada "forse stupida" :(( sull'istruzione seg

volevo sapere se...
data una variabile p:pointer
...dopo avar fatto.. "getmem(p,dimensione)"
....
esistono delle differenze nel fare "indirizzo:=seg(p)" o
"indirizzo:=seg(p^)"  ??
Grazie...
CIAO!
--
ICQ#17330720
IRCNet:KiNg[G]hZ »»» #mp3.ita
s...@gem.it


SI.
Seg(p) e' l'indirizzo (segment) della variabile P in pratica della
locazione di memoria che contiene la variabile P.
Sep(p^) e' l'indirizzo del blocco di memoria puntato da P (che e' in
genere quello che interessa).
Tieni conto anche che se
var	p:^byte;
	a:byte;
se faccio
	p:=adr(a)
allora avremo che
	p^=a
perche' p puntera' alla locazione di memoria che contiene
il dato di a   (almeno spero).
Ciao,  Fabio
fabi...@rocketmail.com

il dato di a   (almeno spero).
Si, e' cosi'.
E comunque si puo' scrivere un programmino di prova :
var a : integer;
    p : ^integer;
begin
  p := addr(a);
  a := 3;
  writeln('adesso l''intero vale : ', a);
  p^ := 5;
  writeln('adesso invece vale    : ', a);
end.
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?"
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

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


cosa intendi ?
misurare un intervallo di tempo tra due eventi?
My e-mail address is altered to avoid auto-mailed spam in my E-Mail.
Remove the NOFESSO in front of it to respond.
Lucio Serra


bo...@numerica.it

Newsgroup: it.comp.lang.pascal
Titolo: error division per zero





cosa significa questo errore che Pascal mi da 
quando tento di usare la unit crt???


 


DIVISION PER ZERO... boh????


 


grazie in anticipo


 



 
  ha scritto nel messaggio 
news:OE53Tjr8cU6xf...@hotmail.com
...

Newsgroup: it.comp.lang.pascal
Titolo: !!!PASCAL ?????

Qualcuno mi può dire dove trovare la versione 7.0 del Pascal, funziona
sotto Windows vero ???
Grazie anticipatamente
LDA

La versione 7.0 del Turbo Pascal (non confondere prodotto con linguaggio!!!)
è per DOS. Comunque funziona anche lanciata all'interno di Win 9x.
Ciao
Fabio

 wrote in message 381E1EC4...@tin.it...


Qualcuno mi puň dire dove trovare la versione 7.0 del Pascal, funziona



mettendo il codice 269808 nella casella "Reference number of your sponsor.
L'indirizzo del tuo sito e i dati del tuo account ti verranno comunicati
immediatamente dopo la registrazione.
1.. Manda E-MAIL a utenti Internet con uno schema simile al mio (puoi fare
copia e incolla dalla mia E mail)
convincendoli ad iscriversi tramite il codice che ti verrà assegnato dopo la
registrazione : ti consiglio di
scovarli negli iscritti sui vari provider e/o sui siti personali gratuiti
tipo quelli che offrono home page gratuite
fino a 12 MB. Per correttezza non scrivere alla stessa persona più di un E
mail, se non è interessata è inutile seccarla (io adotto questa filosofia).
2.. Vai su IRC e chiedi agli utenti se sono interessati a quesa proposta con
un messaggio di questo tipo : Telelavoro offresi, tutto gratis, tutto
automatico, ottimi guadagni !!!
E' VERAMENTE SEMPLICE E DIVERTENTE, SENZA IMPEGNO E GRATUITO,
L'UNICA"FATICA" E' MANDARE E-MAIL SE VUOI ACCRESCERE IL TUO NUMERO DI
ISCRITTI DIRETTI (NON ) NECESSARIO MA IMPORTANTE SE VUOI GUADAGNARE DI PIU')
Nel caso questa iniziativa non ti interessi ti chiedo scusa per il tempo e i
bytes che ti ho rubato :)
Cordiali saluti.
Federico
Newsgroup: it.comp.lang.pascal
Titolo: [infoIRC] Sito e Canale

Ciao a tutti,
dunque, gli incontri serali e pomeridiani sul canale #turbopascal procedono
egegiamente :)
AH Stasera alle 22:30 miraccomando tutti in chat :D
Mentre per il sito (vedi post precedente) siamo un po` statici.......o no?
Io cmq ho proseguito ad aggiornare la bozza che avevo fatto, quindi magari
andate a darci un'occhiata :)
http://www.argo-web.it/pascal
Ditemi poi che ve ne pare, se non piace ditelo apertamente che mi invento
altro, aiutato da tutti voi :D
Genyo io non ho capito oggi in query se il sito per te e gli altri va bene
oppure no, ditemelo che cosi quellaspetto grafico lo uso per altro :)
Ciao ciao
Roberto SatURnO

Una solo casa... usa i frames..... e non usare le map... piccola
cosa... JavaScipt no?
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

La vera Democrazia ha dato i seguenti frutti:
http://digilander.iol.it/genyo/turbo/index.html
(intanto è sul mio spazio WEB,in attesa di conferma)
Razziatore!
Non è una bella idea mettere come oggetto dei post:"Ho deciso"
Infatti,se vuoi ti fai il tuo sito e non disturbi il lavoro dei componenti
del newsgroup.
Fin dall'inizio ci sono stati equivoci.
Allora mettiamo bene in chiaro le cose:
Un gruppetto di persone ha deciso di fare il sito ufficiale del newgroup
anche in seguito al fatto che ogni 2 settimane arrivano domande che
riguardano la stessa cosa e si potrebbe evitare questo con un sito
contenente le FAQ.
Si è deciso su idea di Roberto Ferraro di aprire il canale #TurboPascal in
IRC per rendere più attiva la collaborazione tra gli utenti del newsgroup.
Re di cuori ha inserito i bot per mantenere le impostazioni del canale.
Forse non ci si rende conto che c'è gente (non facciamo nomi ma si capisce
chiaramente) che vuole avere gloria in internet,cosa c'è di male?
Niente! a meno che venga in IRC a chiedermi la password del sito (che non
ho) per "metterci le mani" e proponga grafiche da siti hacker per un sito
ufficiale e a scopo didattico.
Possibile che ci sia un sacco di gente fissata con questa grafica?
Si era detto chiaramente che la grafica era la cosa meno importante e anche
l'ultima da trattare del sito.
E così sarà.
genyo

l'ultima da trattare del sito.
Per me sono + importanti cose come il contenuti! Ma tu vuoi sentire
solo le cose che ti pare...


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

La stottura č OK (anche se devo fare una piccola modifica) cioč
distiguere il Turbo Pascal e il Bornal Pascal che ho scoperto quando
ho spiegato le DLL che sono due cose diverse...


Posso piangere?
"La vera democrazia ha dato i seguenti frutti" era riferito alla parte
grafica,
dove dovevo metterla la homepage per farvela vedere?
Lo so benissimo che l'URL č 
www.pascalonline.f2s.com
ma visto che anche Saturno ha messo la sua bozza su www.argo-web.etc..... ho
pensato di metterla anch'io sul mio spazio WEB visto che non si possono
mettere allegati nelle news.
AVETE CAPITO ORA?
ma perchč? perchč?
genyo
Newsgroup: it.comp.lang.pascal
Titolo: Ciao a Tutti

Salve, è la prima volta che posto su questo ng, un saluto a tutti.

 ha scritto nel messaggio
news:9qec0s$13j9$1...@newsreader1.mclink.it...


Newsgroup: it.comp.lang.pascal
Titolo: Aprire file in pascal

Come si fa a d aprire file (in lettura e in scrittura) in pascal.
Ed inoltre come faccio a introdurre nei miei programmi il mouse
un saluto a tutti e grazie a chi mi risponde.

un saluto a tutti e grazie a chi mi risponde.
Cerca cerca che in rete c'è pieno... adesso non ho niente in mano...
se vuoi un'anteprima:
asm
 mov ax,1
 int 33h
end;
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

Newsgroup: it.comp.lang.pascal
Titolo: [INFO irc & sito] leggetemi !

Informazioni sul canale irc #turbopascal
Ecco la lista degli operatori del canale :
ReDiCuori
Il Razziatore
Genyo
Saturno
Morpheus
prossimo operatori :
MatteoM
dreadnaut
---------------------------------------------------
Informazioni sito (più che informazioni è un piccolo richiamo per tutti) :
Ho visto in questa settimana che sono nati 3-4 siti ufficiali.... ma non
doveva essere uno solo !
Ricordatevi che stiamo sul NG per imparare e per dare una mano no per far
vedere quanto siamo bravi !!!!!!!
Scusatemi ma ci volevo proprio
Ciao ReDiCuori

> dreadnaut
che onore :-))
vedro' di essere presente il piu' possibile, anche se purtroppo
io sfrutto spesso connessioni universitarie ( :-p ) dalle quali
tristemente Irc non funzia... (e soprattutto alle 22:00 non solo
all'univ.... per fortuna... :-)  )
saluti
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Re, ti sei dimenticato un operatore !!! BriVidO :)))))))
"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:7Qel6.16238$k55.4...@news.infostrada.it...


 - ICQ#91902715
http://www.matteomoro.com
 [.
cjb.net
]
"...i am immortal, i have inside me
blood of kings..." Šfm
Newsgroup: it.comp.lang.pascal
Titolo: leggendo la stringa di input una sola volta ?!??!

Esercizio: Stringhe di parentesi 
Si vuole scrivere un programma che legge da input una sequenza di
parentesi tonde e quadre terminata da un punto e risponde SI se le parentesi sono
aperte e chiuse correttamente, NO altrimenti. 
Esempio: Per la seguente stringa di input: 
([ ]( [()] ).
la risposta č SI. Mentre per le stringhe 
([ ].
([ )].
([ ]) ].
la risposta č NO, dato che: nel primo caso, non tutte le parentesi
aperte sono chiuse prima della fine della stringa; nel secondo caso, si chiude
la parentesi tonda piů esterna prima di aver chiuso la quadra; nel terzo
caso, l'ultima parentesi quadra chiusa non corrisponde a nessuna parentesi
aperta. 
Soluzione iterativa: Si provi a trovare un programma iterativo che risolve
il problema leggendo la stringa di input una sola volta.
Suggerimento: Si utilizzi una pila per memorizzare le parentesi aperte non
ancora chiuse. 
NON CAPISCO COME LEGGERE LA STRINGA DI INPUT UNA SOLA VOLTA !!!
COME FACCIO POI A ESAMINARE OGNI SINGOLA PARENTESI ?!?!?
GRAZIE 
-- 
Posted from 
mta04-acc.tin.it
 [212.216.176.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:20010403190052.DUTA2...@fep17-svc.tin.it...
Esercizio: Stringhe di parentesi
Si vuole scrivere un programma che legge da input una sequenza di
parentesi tonde e quadre terminata da un punto e risponde SI se le parentesi
sono
aperte e chiuse correttamente, NO altrimenti.
Esempio: Per la seguente stringa di input:
([ ]( [()] ).
la risposta è SI. Mentre per le stringhe
([ ].
([ )].
([ ]) ].
la risposta è NO, dato che: nel primo caso, non tutte le parentesi
aperte sono chiuse prima della fine della stringa; nel secondo caso, si
chiude
la parentesi tonda più esterna prima di aver chiuso la quadra; nel terzo


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

cosi' per bruciarmi le vacanze ho pensato che la cosa potesse
essere divertemente e magari utile per qualcuno... ed ecco salta
fuori una unit per le mailslot; beh non e' il massimo, mancano
300 controlli di errore pero' funziona e volendo scambia msg
con programmi fatti in delphi... do' una forma decente ad un
esempio poi metto su anche quello... ah ops... ecco cosa mi
stavo scordando: le unit le ho messe sul mio vuotissimo sito
<spam> 
http://digilander.libero.it/dreadnaut/
 </spam> :-)
Omega se ho perso ore di sonno e' tutta colpa tua !! :-)
[ ...ma se ho tempo la prossima cosa sono i socket... ]
-- 
Dreadnaut
(Life would be easier if I had the source code)

 [ ...ma se ho tempo la prossima cosa sono i socket... ]
Gghhghghhgh hihihi }:)  :P
Cmq grazie per le delucidazione del post precedente :)
--
=Omega======================
"Hands On"
============================

> Cmq grazie per le delucidazione del post precedente :)
di niente!   ho finito anche il programma di esempio e l'ho
messo su... chissa' che non ti dia qualche idea malvagia :-)

Newsgroup: it.comp.lang.pascal
Titolo: help!!!

devo eseguire in un vettore un inserimento ordinato, in modo
che ogni elemento che vado ad inserire venga già collocato
in odine alfabetico, come posso fare?
es.
Antonio
Zorro
se io volessi inserire "Marco", esso andrebbe collocato tra
Antonio e Zorro, ma come faccio ad inserircelo? come lo
sposto Zorro????
grazie
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

Se il tuo è un vettore statico (array[1..x] of string) usa:
For I := Dimenzione_Vettore downto Posizione_Dove_Inserire+1 Do Vettore[I] :=
Vettore[I-1];
Vettore[Posizione_Dove_Inserire] := Nuovo_Valore
Se il tuo è un vettore dinamico tipo questo
PVettore = ^RVettore;
RVettore = Record
                       Valore : String;
                       Prossimo : PVettore;
                  End;
ed hai trovato la posizione dove inserire il dato usa:
Abbiamo Posizione : PVettore;(Posizione dove inserire il dato) e Precedente: PVettore
(Puntatore precedente nella catena)
Var
   Nuovo : PVettore;
Begin
    New(Nuovo);
    Nuovo^.Valore := Stringa_Da_Inserire;
    Nuovo^.Prossimo := Posizione;
    Precedente^.Prossimo := Nuovo;
End;
Bye,
David (
www.utilityweb.net
)

 Vettore[Posizione_Dove_Inserire] := Nuovo_Valore
grazie, ma una cosa: non dovrei aggiungere una componente
vuota alla fine? altrimenti non c'entrano tutte...intendo
che forse dovrei fare :
for i:=(n+1) downto (pos+1) do
................
...............
..................
non ho capito perchč: "Posizione_Dove_Inserire+1", xchč
+1????
grazie
Newsgroup: it.comp.lang.pascal
Titolo: Textcolor

Qual'e' la sintassi del comando TextColor() ?
Esiste un comando che invece di colorarmi il testo mi colori lo sfondo
dello schermo?
Vorrei imparare a fare un po' di grafica con il pascal,ma sui libri
che ho non c'e' scritto nulla.Mi potete dire la sintassi dei comandi
piu' importanti e quali unit ci vogliono ? (....e soprattutto dove
trovarle).
Grazie1000.
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

TextColor ( numero_del_colore ) oppure
TextColor ( colore_in_inglese ).
TextBackGround () stessa sintassi del textcolor.
Bye

 trovarle).
Var OldColor : Byte;
  OldColor := TextAttr;
  TextAttr := $3E;
  Write(....);
  TextAttr := OldColor;
-- 
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/
Newsgroup: it.comp.lang.pascal
Titolo: Equazioni Ricorsive

Salve a tutti! Volevo sapere, se qualcuno di voi ha mai sentito
parlare di equazioni ricorsive, (o sistemi di riscrittura come 
lo chiama il mio professore) perche' sto cercando un testo che ne parli.
 Per farvi capire cosa sono vi fo un esempio. 
sommalista([]) -> 0
sommalista([x|Xs]) -> x + sommalista(Xs)
Queste sono le equazioni ricorsive della somma degli elementi di una lista.
La Lista e' indicata con Xs.  
[x|Xs] e' la lista il cui primo elemento e' x e ha come coda Xs
[] indica la lista vuota.
Scusate forse sono un po' OT. Ma non sapevo dove postare questa domanda.
Ciao e grazie
 

Scusate forse sono un po' OT. Ma non sapevo dove postare questa domanda.
Non sei affatto OT.
Il codice seguente implementa cio' di cui hai bisogno :
type ptr_nodo = ^nodo;
     nodo = record
              N    : integer;
              Next : ptr_nodo;
            end;
var  Testa_Lista : ptr_nodo;
     I : integer;
procedure lista_inserimento(var First : ptr_nodo; N : integer);
begin
  if (First = nil) then
  begin
    new(First);
    First^.N := N;
    First^.Next := nil;
  end
  else
    lista_inserimento(First^.Next, N);
end;
procedure lista_scrivi(First : ptr_nodo);
begin
  if (First <> nil) then
  begin
    write(First^.N, '; ');
    lista_scrivi(First^.Next);
  end;
end;
function somma_lista(First : ptr_nodo) : integer;
begin
  if (First = nil) then somma_lista := 0
  else
     somma_lista := First^.N + somma_lista(First^.Next);
end;
begin
  Testa_Lista := nil;
  for I := 1 to 10 do
    lista_inserimento(Testa_Lista, random(10));
  write('Elementi nella lista : ');
  lista_scrivi(Testa_Lista);
  writeln;
  writeln('La somma degli elementi della lista e'' ', somma_lista(Testa_Lista));
end.
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.pascal
Titolo: Personalizzare i menu del pascal

si puň ?????? come??????
GRAZIE
--
Sommella Marco {Skonvols2k}
ICQ # 61968988
somme...@inwind.it
skonv...@iol.it

> si può ?????? come??????
ah ah ah,
ci vuoi anche mettere delle immagini dentro?? ;P

Tecnicamente si...
ma devi conosere bene il pascal perche...
lo devi rifare da 0... :-)

 ha scritto nel messaggio
news:3af45e26.3597744@pws...


 si puņ ?????? come??????


Allora se vuoi una interfaccia in DOS (tipo quella che hai ora) devi
usare il TurboVison.... cioè una serie di unita standard che serve
propio a creare delle ide come quella del TP/BP.
e poi richiamare il compilatore a linea di comando
altrimenti se vuoi una interfaccia in windows devi fare la stessa cosa
solo che con programmi come Delphi, Visual Basic, VisualC++ ecc

> solo che con programmi come Delphi, Visual Basic, VisualC++ ecc
ti consiglio delphi visto che usa pascal a oggetti :) con gli altri dovresti
imparare anche un altro linguaggio!
Newsgroup: it.comp.lang.pascal
Titolo: Grafica e Matrici

Ho realizzato una procedura che crea in una matrice di Byte un disegno di
un fuoco in movimento e poi la stampa a video.
Perň c'č un problema, dato che uso il comando PutPixel per disegnare la
matrice, piů č grande quest'ultima e piů la ridisegna lentamente.
Come potrei risolvere il problema?
Vi ringrazio anticipatamente.
Per rispondere potete scrivere sul N.G. o alla mia E-Mail.
-- 
 Salva TheMagic
 /^^^^^^^^^^^^\
|    /^^^^\    |
|   |          |
|    \____  \  |
|     | | \    |
|     | |  |   |
|     | |  |   |
|   \_|_|_/ *  |
 \____________/

Come potrei risolvere il problema?
In che modalità grafica funziona il programma ?
Se in 320x200 x 256 colori puoi usare una scrittura diretta a video
molto piu' veloce di una putpixel.
In ogni caso le routine di tracciamento contenute nelle BGI sono
rinomate per la loro lentezza.
Se non lavori nella modalita' precedente, ti conviene riscriverti il
putpixel usando l'interrupt 10h del BIOS.
Sarebbe bene se le routine di gestione della matrice le riscrivessi
con il built-in assembler.
Andrea
------------------------------------------------
combatti anche tu il "nano scemo" :
http://www.geocities.com/Hollywood/Studio/6989
------------------------------------------------

 con il built-in assembler.
/\
|| Cosa intendi con la frase qui sopra?






|| Cosa intendi con la frase qui sopra?
I compilatori borland hanno il built-in assembler, cioe' possono
integrare le istruzioni macchina simboliche (comprendendole tra un
"asm" e un "end") con il codice pascal.
procedure InitVga13h;
begin
    writeln('entro in modalità 320x200');
    asm mov ax, 0013
            int    10h
    end;
end;
Una routine scritta con l' assembler integrato e' un po' piu' veloce.
Ciao


Posso darti un suggerimento per velocizzare notevolmente il tutto, se sei
disposto, come hai scritto nel primo messaggio, ad una risoluzione del tipo
320x200x256.
Entra in quella modalità con:
****
procedure setmode(m:word);assembler;{inizializza lo schermo}
asm
  push ax
  mov ax,M;
  int 10h
  pop ax
end;
**** passando come parametro 13h ( che in sintassi Pascal è $13 )
esegui i putpixel con un'istruzione del tipo:
****
  ...
   mem[ seg_vga : y * maxx + x ] := color;
  ...
***
  dove:      seg_vga := $A000  --> tipicamente l'indirizzo della vga
                y                                  --> coordinata y del
punto
                x                                  --> coordinata x del
punto
                color                           --> indovina un po' ??
Per ritornare passa come parametro a Setmode il valore 3
Fammi sapere...
Roberto Padovani : 
rpad...@linknet.it

L'ho contattato per fartela spedire.
Puoi postarla anche a me (se al tuo amico non dispiace)??
Magari anche con un po' di "guida" se non vuole passare tutto il listato.
Emanuele Cesena
gma...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: Decompiler

Dove posso trovare un decompilatore Pascal?
Kosby

 Kosby
Se intendi un Decompilatore scritto in Pascal, allora non saprei
risponderti, ma se intendi un decompilatore che dato un eseguibile ti
restituisca il sorgente in Pascal, allora non ne esistono o almeno io
non ne ho mai visti.
L'unico che ho visto convertiva in C ma non era affatto preciso e
affidabile!
Principalmente i decompilatori trasformano l'eseguibile in Assembler.
Ciao
MaTTeO.
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!!! Come eseguire programmi senza winexec?

Ciao, sono ancora nuovo su questo NG.
Il mio pčroblema: aprire un documento .txt o .html dal mio form in
Delphi.
Solitamente usavo winexec, ma non funziona coi documenti.
L'altro giorno ho visto che la risposta alla mia domanda poteve essere
trovata nell'uso del comando API
SHELLEXECUTE .
Io uso Delphi 4.0, ma questo comando non sembra esistente. Inoltre, non
avendo manuale, non conosco neanche la sintassi.
Forse devo mettere una "uses XXX" (tipo uses API) ????
Vi prego rispondete!!!

 Forse devo mettere una "uses XXX" (tipo uses API) ????
Sì, la unit da includere è la ShellApi
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 Sì, la unit da includere è la ShellApi
Finalmente! Su lang.delphi avevo letto di includere la WinAPI!
Grazie ancora. Tutto risolto per ora!

Newsgroup: it.comp.lang.pascal
Titolo: R: Alberi

 - rimuovi XXX x rispondere    ICQ #8814554
Lo sballo dell'essere alticci e' che si dilatano gli occhi e vedi cose
che non vedresti altrimenti, e ti si rallentano i pensieri tanto da
permetterti di scriverli; peccato poi non riuscire a decifrare la propria
scrittura...

 eh eh, ci vorrebbe il Laforgia :-)
No!! Basto io!!!!
Cosa ti serve? La struttura dell'albero? Oppure la base teorica?

 - rimuovi XXX x rispondere    ICQ #8814554
Domanda del Zuse per i Caselli Autostradali in Uscita:
        Perche' il tabellone dell'importo pedaggi segna rosso quando devi
        pagare, mentre segna verde quando devi ricevere il resto?
		-- Andrea `Zuse' Balestrero

 conoscenza...
Ma figurati: è sicuro che ci siano personaggi che ne sanno molto più di altri
(leggi Andrea Laforgia e Andrea Magni, sono solo i primi che mi vengono in
mente, ma sicuramente me ne dimentico un sacco, scusate..........)
Newsgroup: it.comp.lang.pascal
Titolo: Com'è possibile..

Salve volevo porre un quesito che mi ha lasciato molto dubitante...č
possibile che una volta compilato un sorgente che utilizza la unit
graph...l'exe abbia ancora bisogno della cartella bgi...completo del suo
percorso??? Ma se si vuole passare il file su un'altra macchina...bisogna
ridefinire un altro percorso identico a quello dichiarato nella initgraph e
portarci i file necessari dentro!?!?!?
                                        Ciao
^_][ice][man][_^


hai utilizzato la procedura di setup del Tpascal o hai semplicemente
scompattato i file zip che lo contenevano... nel primo caso prova a
giocherellare con la voce directories... dovrebbe funzionare!

 giocherellare con la voce directories... dovrebbe funzionare!
Perdonami ma non ho compreso..se ti riferisci al turbo pascal...io non
posseggo la versione originale sui dischetti...ma l'ho scaricata da
internet.
^_][ice][man][_^

beh nell dir bgi ci sono i drivers e i fonts, senza i quali la unit graph
fa ben poco:  anche dopo la compilazione questi vengono cercati
all'esterno, nell dir definita nel comando "InitGraph"... se li metti
nella stessa dir del programma sara' piu' facile portarli con te :-)
Un altro metodo e' linkarli nell'eseguibile:  c'e' un esempio nei samples
del tp7 che linka sia font che drivers... prova a guardare quello.
--
Dreadnaut
(Life would be easier if I had the source code)


    Perdonami ma non ho i samples che escono di default con Pascal7.
Potresti dirmi dove reperirlo questo esempio?? Grazie
^_][ice][man][_^


Si pero' non è che sia molto salutare per HD... specialmente se fai
parechie app grafiche :D
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: FFT...un pò diversa dal solito

Scusate l'intrusione , sto cercando l'algoritmo FFT (in Pascal ,Fortran)
o anche libri in italiano  sull'argomento in questione per poter
implementare una FFT che dia la possibilità di scegliere quali frequenze
usare.Mi spiego meglio:
se scrivo una FFT  di 64k campioni ottengo  32k amplitudini massime ("lo
spettro") delle frequenze che vanno da 0  a  32767 Hz  {0,1,2,3....32767}.
Più correttamente si definisce una densità spettrale centrata a queste
frequenze 0,1,2,3.....ecc.
A me serve ricavare le amplitudini per frequenze tipo 0.4 , 1.8, 2,7 ecc
e tra parentesi arrivare solo a 22050 come massimo....
Non mandatemi al diavolo...anche la IFFT non sarebbe male.
Grazie e auguri.

 ha scritto nel messaggio
news:aauBb.174966$vO5.6...@twister1.libero.it...


 e tra parentesi arrivare solo a 22050 come massimo....
è una cosa che si fa normalmente negli analizzatori di spettro digitali,
si chiama zero padding. Se tu hai N campioni su cui calcoli la fft e ci
aggiungi N zeri alla fine e calcoli la fft ottini una fft che ha lo stesso
range di frequenze ma con una risoluzione doppia.
Piccolo flashback di matematica: il calcolo della fft si presuppone essere
per un segnale discreto ripetitivo devifinito sull'insieme Z(T)/Z(Tp) a
cui corrisponde una traformata con dominio in frequenza Z(F)/Z(Fp) dove
F=1/Tp e Fp=1/T. Se tu aggiungi degli zeri allunghi Tp e quindi infittisci
i camnpioni in frequenza.
A questo punto tu dirai: ma se ci metto gli zeri non è più il segnale di
partenza. Già, vero, ma allungarlo con seri equivale ad una finestratura
del segnale con un rect, che in frequenza diventa una convoluzione tra lo
spettro e un sinc discreto, che detto in parole povere fa una
interpolazione dei valori mancanti in modo credibile.

Newsgroup: it.comp.lang.pascal
Titolo: I file....

Salve a tutti,
scusate l'ignoranza in materia ma č da poco che studio TP7, ho un problema e
vorrei avere consigli da voi su come risolvere questo dubbio.
Come faccio a leggere un file, per esempio voglio leggere l'autoexec e poi
voglio riscriverlo in maniera diversa come faccio?
Come faccio a fare una copia di un file?
Grazie in anticipo per le risposte, potete rispondere anche tramite posta
elettronica.

 scusate l'ignoranza in materia ma è da poco che studio TP7, ho un problema


Newsgroup: it.comp.lang.pascal
Titolo: [OT]? Interrupt

Qualcuno sa dove si può trovare tutta la lista degli interrupt?
Grazie!
Cristian

guarda la Ralph Brown's int list, qui:
http://www.pobox.com/~ralf/files.html


 wrote in message
news:iUi18.6280$WS2.1...@news1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Documentazione procedure e funzioni

Cari membri,
  potete dirmi dove posso trovare della documentazione, in Internet, chiara
e completa (non esageriamo!) sulle funzioni, sulle procedure con passaggio
di paremetri e sulla creazione di unit?
Grazie mille!
Ciao!
Filippo

In italiano, se possibile.
Ciao!
Filippo

Se fai l'università prova ad andare nella biblioteca e cercare un manuale di
pascal, lì ci sono spiegate sicuramente; oppure, anche se freq il liceo o
quant'altro, vai lo stesso nella biblioteca della facoltà di Informatica nella
tua città, da noi i libri li lasciano in lettura a tutti!!!
Ciao

Newsgroup: it.comp.lang.pascal
Titolo: MI MANCA.....per favore!!!!

Mia figlia studia informatica ed ha iniziato il Turbo Pascal. Io ho la
versione 7.0, ma sprovvista della libreria CRT.TPU. De qualche anima buona
me la puo inviare gli sarei eternamente riconoscente.
Grazie
Max
md2...@mclink.it
corr...@tiscalinet.it

 
quel file non esiste... se fai 
	uses crt;
va senza problemi :-)
bye!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Per stimare i tempi di un qualsiasi lavoro: prendere il tempo che ci si
dovrebbe mettere, moltiplicare per 2, e cambiare l'unita' di misura con
quella immediatamente superiore. Ad esempio: per un lavoro che dovrebbe
prendere un'ora, si calcolano 2 giorni", formula di Westheimer

Newsgroup: it.comp.lang.pascal
Titolo: LEGGIMI.FA' LA TUA OPERA BUONA

S.O.S.  
Vorrei sapere dove posso trovare materiale on line, tipo appunti o dispense
universitarie, che sia una accessibile introduzione agli algoritmi e al
linguaggio Pascal.
Non sono uno studente di ingegneria ne' di informatica quindi vorrei
trovare qualcosa che sia scritta in modo semplice e che non presupponga
grandi conoscenze matematiche.
Aiutatemi. Ho un imminentissimo esame che mi aspetta e non so come fare!!!
Potete rispondermi attraverso questo newsgroup o, meglio,con una e - mail
all'indirizzo    
a.ge...@mclink.it
Grazie in anticipo.



Newsgroup: it.comp.lang.pascal
Titolo: DEC => BIN

mi date una dritta su come ottenere un numero binario (di massimo 6-7 cifre)
partendo da un decimale??? grazie. Luca


function dectobin(valore : integer): integer
var r ,pos,  conv : integer;
begin
    conv=0; pos=1;
     while (valore>=base)
         begin
             r=valore  mod  base;
             valore=valore div 2;
             conv=conv+r*pos;
             pos=pos*10;
         end;
      conv=conv+valore *pos;
      dectobin=conv
end;
Con questo converiti un numero decimale in qualsiasi base da 2-16
const simboli="0123456789ABCDEF";
function dectobase(valore, base :integer) : string
var r : integer;
      s: string;
begin
begin
    r=0;
    s="";
     while (valore>=base)
         begin
             r=valore mod  base;
             valore= valore div base;
             s=simboli[r+1]+s;
         end;
    s=simboli[valore+1]+s;
  dectobase=s;
end;
Ciao Re Di Cuori
Newsgroup: it.comp.lang.pascal
Titolo: porte di comunicazione





avrei intenzione di fare un programmetto per 
chattare in pascal, ma non so come gestire le porte di comunicazione, qualcuno 
sa aiutarmi, ho trovato due funzioni, port-array e portw-array, ma non ho idea 
di cosa facciano.......per favore aiutatemi!



 wrote in 
  message 
82qk0q$ovg$1...@nslave2.tin.it
...


Newsgroup: it.comp.lang.pascal
Titolo: Dichiarazione variabile numerica

 
Prova ad inserire la parte di codice riguardante l'inserimento in un 
blocco try catch che ti controlli che il numero inserito sia corretto!
Vedrai che non ci saranno più problemi!
Comunque secondo me è giusto dichiararlo real!
Ciao Stica

 >
Puoi dichiararla "char", poi la trasformi in numero utilizzando i caratteri
ASCII.  Mi spiego meglio...
n:=chr(carattere);   restituisce il codice ASCII del carattere
{ poi siccome chr('0') = 48  e chr('9') = 57 }
IF (n=>48) and (n=<57) then
n:=n-48    { 48-48 = 0   ; 49-48 = 1 ; ... }
else write('Riprova... ');
Poi per farlo giusto
ok:=false;
repeat
  read(carattere);
  n:=chr(carattere);
  if (n=>48) and (n=<57) then
  begin
    n:=n-48;
    ok:=true
  end
  else write('Riprova... ');
until ok=true;

   n:=ORD(carattere);


> until ok=true;
beh a quel punto perche' non confrontare direttamente i caratteri ?
(char e byte sono isomorfi). E per scrivere qualcosa di diverso
rigiro anche il repeat :-)
read(carattere);
while not (carattere in ['0'..'9']) do
 begin
  writeln('Riprova...');
  read(carattere);
 end;
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Bella soluzione! Concisa ed elegante.
Sono ancora troppo indietro con gli studi per  "carattere in ['0'..'9']"
non sapevo si potesse fare.


 non sapevo si potesse fare.
purtroppo gli insiemi vengono spesso tralasciati, ma rendono decisamente 
piu' leggibile certo codice. Purtroppo sono limitati ai tipi ordinali
(char, byte e compagnia).  Se ti interessano scava nell'help del tp sotto
"set" ed "in" :-)


Lo farň . Grazie

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

CIao a tutti! Sono nuovo di questo ng, ho studiato il Pascal per 2 anni a
scuola e ne so ben poco! Vorrei impararne di +!!!!
Blob2000

 ha scritto nel messaggio
news:nDGz5.988$3R6....@news.infostrada.it...
