mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Esiste Turbo Pascal 8.0 ?

Che io sappia no, e cosě ho letto anche su certi forum in giro per il
web.....
perň lo chiedo qui per conferma definitiva.
Intanto ho scaricato la versione 7.0, che dovrebbe essere l'ultima vero?
Esiste la versione 8.0? a me non risulta come dicevo.
E in italiano non se ne parla proprio, eh ?
Grazie
Ciao
Francesco
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
allora, non credo esista una versione 8...
pero' esiste la 1.5, ma la gia' si parla di turbo pascal per windows, non
piu' per dos. lo puoi usare tranquillamente come se usassi la 7, poco
cambia. non puoi usare pero' la modalita' grafica, in quanto sotto windows
viene gestita in maniera differente rispetto al dos.
dimenticavo, puoi trovare questa versione nel sito in firma, ma sempre in
inglese, in italiano non c'e' proprio nulla...
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990

 
http://www.Turbo-Pascal.cjb.net
Grazie tanto per avermi risposto.
Quanto al sito.......l'ho visto, è stracolmo di script, e controlli ActiveX
!!!
Inoltre le lezioni vanno viste singolarmente.....
chi se le studierà tutte rimanendo collegato per tutto il tempo?
Nemmeno chi ha l'adsl, credimi.
Si dovrebbe fare un seleziona testo per ogni singola lezione......
e perdere tantissimo tempo: chi lo farà ?
Perchè dunque non hai messo tutte le lezioni in un file .zip da scaricare
comodamente?
Cmq ancora grazie e ciao


Non esiste una versione 8 di TurboPascal (il compilatore di Delphi 1 
definisce il simbolo condizionale VER80, ed è quindi da considerarsi il 
successore di TP/BP 7).
Comunque né TurboPascal 7, né Borland Pascal 7, né Turbo Pascal per 
Windows 1.5 sono liberamente scaricabili e distribuibili. Farlo 
contravviene alla licenza e al copyright Borland.
Le uniche versioni che Borland ha deciso di rendere disponibili le 
trovate nella sezione Museum del Borland Developer Network: 
http://bdn.borland.com/all/0,1435,museum|0|30,00.html
.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

 Cmq ancora grazie e ciao
perche' non le metto disponibili per il download? semplice, percvhe' in
questo modo nessuno visiterebbe il sito e in questo modo il file verrebbe
distribuito per tutti internet...
credimi invece che le mie belle visite le ho, anzi, mi ritengo molto
soddisfatto. un consiglio, vista tutte le pagine e poi le rivisiti off line,
credo sia fattibile, oppure datti aiuto con quei programmi che ti scaricano
siti interi...


Marchese Gianfranco wrote:
 >[SNIP]
Il tuo sito č PIENO di spyware.
Andrea


dici? io non ne ho messo neanche uno, sara' tripod che li mette in
automatico...
e poi saranno cookie pubblicitari, che esistono da quando esiste internet
purtroppo...

Newsgroup: it.comp.lang.pascal
Titolo: file.txt





ciao a tutto il NG.Quesito:è 
possibile acqisire da tastira una matrice nxn di valori integer e trasferirla in 
un file.txt da creare?


come evitare l'incompatibilità,se 
esiste, tra integer e char? 


grazie per i 
consigli







Sì!


Dovrebbero esistere delle istruzioni 
per il casting, in delphi sono IntToStr(Var_Stringa) e 
StrToInt(Var_Integer).

Newsgroup: it.comp.lang.pascal
Titolo: struttura dati di 1 Mbyte! E' possibile??

Sono sempre Airex, vorrei sapere se esiste un modo in TP 7.0 o BP 7.0
per allocare in memoria una struttura dati delle dimensioni
approssimative di 1 Mbyte...in C si ricorre al puntatore di tipo FAR. Se
qualcuno mi puň aiutare lo faccia,č un piacere!!
Grazie


BP7 in modalita' protetta:
Uses
    WinAPI; { ovviamente puoi usare anche crt, dos e quellochetipare }
...
...
var
    P: Pointer;
    flags: word;
begin
    ...
    P := GlobalAllocPtr(flag, 1024*1024);
    { non mi ricordo i flags, cmq cerca sull'help online }
    ...
end.
Ciao.
Simone.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

Newsgroup: it.comp.lang.pascal
Titolo: Range, che problemi

So che puň apparire abbastanza insolita come domanda, ma avrei bisogno di
range piů alti del longint.Esistono?
Se no, in asm quale range massimo di numeri posso avere ?
                                                                Kosby

 range più alti del longint.Esistono?


 range piů alti del longint.Esistono?


 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
"Il testing non puo' mai rivelare l'assenza di bug."
		-- Dijkstra

Newsgroup: it.comp.lang.pascal
Titolo: Scaricamento del turbo pascal 7

Se qualcuno poteva gentilmente aiutarmi,magari conosce un sito apposito.

 wrote in message
8dmq2i$861$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Grafica elementare

Cari amici,
vi vorrei sottoporre un quesito. Ho realizzato un programma che mi
fornisce
l'andamento temporale di una funzione. A questo punto mi piacerebbe
visualizzare i
risultati ad ogni istante temporale in cui ho calcolato tale funzione.
Ho provato ad usare la unit graph, ma trovo insormontabile la
comprensione del funzionamento
della funzione initgraph. Cosa cambia se usassi la graph3?
Esistono linguaggi per windows, come visual basic, per esempio,
che semplicemente leggano i dati di output del mio programma e li
rappresentino
in grafico senza che per poterlo fare occorra essere dei geni.
Ringrazio tutti per la vostra attenzione
Christian

in grafico senza che per poterlo fare occorra essere dei geni.
Il più semplice, secondo me è Excel (lo trovi all'interno di Office), però
programmarsi da solo il programma è tutta un'altra cosa:
è semplicissimo:
uses Graph,Crt;
var i,j:integer;
begin
 initgraph(i,j,'c:\myprog\tp\bgi');
 { al posto di 'c:\myprog\tp\bgi' ci metti la directory in cui hai
installato il TP, ricordati di aggiungere alla fine \bgi (dove c'è la
grafica).
Sei in risoluzione 640x480 con 16 colori... non è il massimo della bellezza,
ma ci puoi fare già parecchie cose!! }
 readkey; {aspetta finché non premi un tasto, più o meno}
end.
Ciao
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAM
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672

in grafico senza che per poterlo fare occorra essere dei geni.
  Che output da il tuo programma? Elenco di coppie (X-Y)?
Ciao,
Mabu.

Newsgroup: it.comp.lang.pascal
Titolo: Problema di assembler (FACILE)









Oggi è il mio priomo giorno di assembler ed ho già incontrato 
i primi
problemi.
Cosa non va in questo codice?
Come posso indicare una 
variabile FAR se si rifiuta di riconoscere [SEG:OFS]
Codice:


.MODEL COMPACT
.STACK 
100h
.DATA
  EXTRN nro:WORD
  EXTRN 
col:BYTE
.CODE
 


START:
        mov AX, 
0A000h
mov DS, AX
        mov DX, 
nro
        mov AL, col
        mov [DS:DX], AL ; 
istruzione errata
        mov AX, 
4c00h
        int 21
END 
START


ERRORI RISULTANTI


*Warning* vesapx.ASM(13) ":" operator 
ignored
**Error** vesapx.ASM(13) Illegal indexing 
mode
  


Dovrei inserire nella memoria video il codice colore col specificato


 



...



Newsgroup: it.comp.lang.pascal
Titolo: orologio tsr?

Mi servirebbe un modello per realizzare programmi tsr,ad esempio entro cui
mettere le
istruzioni per visualizzare l'ora,o per incrementare un contatore che mi
accende e
spegne un led sulla parallela;legato alla pressione di un tasto o
all'interrupt dell'orologio.
L'esempio nel manuale del Tp 5.5 non mi basta come quello sul manuale del
Tc.
Grazie,buon anno.Gianmaria.

Un bel di' Giansam scrisse:
G> Mi servirebbe un modello per realizzare programmi tsr,ad esempio entro cui
G> mettere le
G> istruzioni per visualizzare l'ora,o per incrementare un contatore che mi
G> accende e
G> spegne un led sulla parallela;legato alla pressione di un tasto o
G> all'interrupt dell'orologio.
G> L'esempio nel manuale del Tp 5.5 non mi basta come quello sul manuale del
Direttamente dal manualone TP7.0, solo ed unicamente per voi,
con tanti auguri per l'anno nuovo! :-)
{$M 2000,0,0}
{$R-,S-,I-,D+,F+,V-,B-,N-,L+}
program ScreenSaverDos;
uses Dos;
const
  oroloint=$08;
  tastiint=$09;
  tempolimite:word=1092;
var
  regs:registers;
  contatore:word;
  tastiintorig:pointer;
  orolointorig:pointer;
  tempo:real;
  codice:word;
procedure SetActivePage(page:integer);
begin
th regs do
   AX:=$500+page;
 intr($10,regs);
end;
procedure STI;
Inline($FB);
procedure CLI;
Inline($FA);
procedure ChiamaOrigInt(sub:pointer);
begin
  Inline($9C/
         $FF/$5E/$06);
end;
procedure Tastiera(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP:word);Interrupt;
begin
 ChiamaOrigInt(tastiintorig);
 if contatore>=tempolimite then SetActivePage(0);
 contatore:=0;
 STI;
end;
procedure Orologio(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP:word);Interrupt;
begin
 ChiamaOrigInt(orolointOrig);
 if contatore>tempolimite then SetActivePage(1)
                          else inc(contatore);
 STI;
end;
begin
 if paramcount=1 then
   begin
    val(paramstr(1),tempo,codice);
    if(codice=0)and(tempo>0)and(tempo<11)then
      tempolimite:=trunc(tempo*18.2*60);
   end;
 getintvec(tastiint,tastiintorig);
 getintvec(oroloint,orolointorig);
 setintvec(tastiint,@tastiera);
 setintvec(oroloint,@orologio);
 contatore:=0;
 keep(0);
end.
bye!
-- 
"Chi ha, prende", legge di ferro della Distribuzione
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879
Newsgroup: it.comp.lang.pascal
Titolo: PER TUTTI QUELLI CHE A HANNO PROBLEMI SUL PENTIUMII

Il turbo pascal 7 non compila i file bene per pII e celeron.
Esiste un pach per questo...
l'url č: 
http://perso.easynet.fr/~fdeport/patchtp7.htm
Spero che sia utile questa informazione.
--
****************************
Phones DJ
Per gli amici ==> uNz
E-Mail ==> 
Phon...@yahoo.it
ICQ ==> 42244992
IRCnet ==> #Colazione
WWW ==> 
colazione.cjb.net
****************************

 --
Utilissima!
Da quando ho il PII ogni volta che compilo un programma con la unit CRT
inclusa ho un errore di division by zero.
Ciao Carmageddon

Succede anche nel mio laboratorio di informatica (pensare che sono
all'universitą corso di laure in informatica) e mi hanno detto che era
un errore della unit, ma da quanto leggo č il pII che non esegue bene
delle istruzioni.
Grazioe comunque per l'informazione



Ti hanno detto bene, visto che e' una routine della unit CRT che genera
overflow.
Non c'entra assolutamente niente il pinziumII !!!
Per chiarirti le idee, la routine che genera overflow segue questo schema:
var
    contatore: word;
...
...
    repeat
        contatore := contatore + 1;
    until <il_timer_e'_cambiato>
...
...
(per timer intendo una interruzione hardware che accade ogni 55ms)
La variabile contatore e' a 16 bit (word), quindi, con i processori
precedenti al Pentium 200MHz (verificato sperimentalmente....), assumeva
valori inferiori a 65535 (16 bit : [0..65535]).
Con l'introduzione di processori sempre piu' potenti, ovviamente il codice
genera overflow. (il tempo d'esecuzione e' sempre di 55ms ma aumenta il
numero di istruzione eseguite)
Se cerchi il bugfix per questo problema, puoi scaricarlo dalla mia homepage:
http://go.to/drfalken
Ciao!
Simone.

Newsgroup: it.comp.lang.pascal
Titolo: Come far terminare un programma?

Salve, volevo chiedervi se esiste un modo per far terminare di colpo il
programma,
ad esempio mettendo una condizione:
if  x mod 2 = 0 then   .............
else   ***termina***
esiste un istruzione  per poter fare questo?
Grazie.

it ... then exit
dovrebbe bastare
Ciao!


non proprio... exit termina il blocco di codice corrente: se sei nel
programma principale esci dal programma ma se sei all'interno di una
procedura o funzione termina quella...
per terminare il programma ovunque sei usa la procedura halt.
ciao Andrea

 else   halt;
Ciao
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

 wrote in message
9ijscj$j28qm$1...@ID-83341.news.dfncis.de...

Newsgroup: it.comp.lang.pascal
Titolo: codice ashi da programmare

salve a tutti, è la prima volta che posto e lo faccio solo perchè nn riesco
a venire a capo di questo problema: devo fare una tabella per visualizzare
ad ogni numero il codice ashi corrispondente..
nn ne vengo a capo.. ho
fatto mille tentativi, ma nulla...
so che devo fare un ciclo for, ma il
problema, credo, sta nel mettere le farie funzioni all'interno e le varie
variabili.. 
vi prego, aiutatemi voi..devo consegnare il compito lunedi
uando rientramo da fine vacanza..
grazie mille...
kiakim
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:62Z211Z25Z94Y1...@usenet.iol.it...


Ciao,
benvenuto al gruppo intanto. ^_^
Se ho ben capito ti interessa visualizzare tutta la tabella dei codici
ASCII,  brevemente ti consiglio di usare questo ciclo:
FOR Counter := 1 To 255 Do Writeln ('#',Counter, ' ==> ', Chr (Counter));
Definisci ovviamente la variabile counter come ti tipo byte e poi completi
il programma, eseguendolo, dovresti ottenere un effetto del tipo:
 .....
#65 ==> A
#66 ==> B
 .....
ecc ecc.
In particolare l'istruzione CHR (Numero)  restituisce il codice ASCII di
Numero.
L'operazione inversa ORD (Lettera) svolge la funzione opposta, ovvero es....
ORD ('A') = 65
ORD ('B') = 66
ecc ecc...
Cordialmente, Cooper.

questo dovrebbe funzionare (l'avevo buttato giù per un amico che aveva
bisogno della tabella ansi del dos):
uses crt;
var a:byte;
begin
     clrscr;
     window(14,2,67,23);
     for a:=0 to 255 do
     begin
          if a=128 then
          begin
               readkey;
               clrscr
          end;
          write(a:3,': ');
          if(a<>10)and(a<>13)and(a<>7)and(a<>8)then write(chr(a),'   ') else
write('    ')
     end;
     readkey
end.
Ciao...
Kyle

la tua soluzione è teoricamente perfetta, ma lo schermo ha solo 25 (o al
limite 43 o 50) righe... e inoltre i caratteri 8 e 13 modificherebbero
l'allineamento.
Ciao...
Kyle
P.S. La tabella ascii va da 0 a 127; da 128 a 255 sono i caratteri estesi
dello standard ansi.

Program ascii;
uses crt,dos;
const t=255;
Var i:integer;
Begin
Clrscr;
     For i:=0 to t do
     Begin
          if ((t+i-5) mod 11=0) then
          Writeln;
          if (i<10) then
          Write('00',i,' ',chr(i),'  ');
          if ((i<100) and (i>10)) then
          Write('0',i,' ',chr(i),'  ');
          if (i>100) then
          Write(i,' ',chr(i),'  ');
     End;
     Readln;
End.

Se li cacci violentemente nella memoria video a mano puoi
visualizzare anche i codici speciali che il tuo programma
salta (7/8/10/13)...
Indietro c'era un post sull'uso della mem video...
--
Dreadnaut
(Life would be easier if I had the source code)

Sě, ma quello era un programma che avevo scritto secoli fa, prima di
giungere a concetti elevati come l'accesso diretto alla memoria video :)
Ciao...
Kyle
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:ZtVa8.19314$Jo.5...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: database

salve,
sapreste dirmi come si puo' interfacciare un database in
pascal/freepascal ?
tnx
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 pascal/freepascal ?
http://www.freepascal.org/contrib/db.php3?category=Database
ad esempio per MySQL... cmq e' la prima pagina che mi e'
venuta fuori da
http://www.google.it/search?q=freepascal+database
 :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 pascal/freepascal ?
nel freepascal c'č un esempio in examples/mysql/testdb.pp
che dimostra come fare query su un DB in mysql.
le API per accedere alle funzioni base di un DB sono piů o meno sempre le 
stesse. ho visto che sul sito parla anche di postgres e oracle
-- 
Ranger! 
www.rossi.eu.com
aggiungi .it alla mail x rispondermi
Newsgroup: it.comp.lang.pascal
Titolo: confronto output tra win e linux

Il programma viene compilato senza problemi sia da TP7 sotto winxp sia
da fpc sotto linux; vorrei sapere perchè ottengo sempre un output
negativo sotto windowsxp, mentre se eseguo lo stesso programma
funziona bene .
dove sbaglio ?
forse TP7 non è compatibile con winxp ?
grazie dell'attenzione
claudio
-----------------------------------------------------
program BitrateCalc;
var
  DimensFileOutput, DurataFilm, Bitrate : integer;
begin
writeln('Dimensione del film compresso desiderata (in MB) : ');
readln(DimensFileOutput);
writeln('Durata del film da comprimere (in minuti) : ');
readln(DurataFilm);
Bitrate := Round(((DimensFileOutput*1000)div(DurataFilm*60)-8)*8);
writeln;
writeln('Bitrate di compressione richiesto : ', Bitrate:4, 'Kbit/s');
end.
-----------------------------------------------------

 funziona bene .
credo che il problema sia la "dimensione" diversa delle variabili:
integer del tp7 sono a 16bit [-32768..32767] mentre in fpc dovrebbero
essere a 32bit.... quindi in tp ottieni un overflow e finisci nei
numeri negativi... usa i longint sotto tp, altrimenti prendi anche
fpc per win :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 fpc per win :-)
grazie mille :)
ciao
claudio

Dal manuale anche in fpc gli integer sono a 16 bit. Il problema credo
stia nel modo diverso di tp e fpc di calcolare un'espressione che va
in overflow: il tp mette la variabile comunque in una integer, il fpc
la passa in una real. Soluzione: metti il .0 a tutte le costanti
dentro la Round.
-- 
Omega e' omega e basta

Newsgroup: it.comp.lang.pascal
Titolo: My Sql

Chi mi sa dire come si fa una connessione da Free Pascal (o meglio da
Lazarus) a un DB MySql?
Grazie a tutti

 ha scritto nel messaggio
news:a5e591e8.05032...@posting.google.com...


> vedi su linux magazine di aprile
L'ho fatto, ma non mi tornano alcune cose...
1) Ho modificaro il file fpc.cfg come descritto
2) non sono riuscito a creare i link simbolici, ma probabilmente è
perchè ho installato My Sql in un'altra cartella...
3) Nell'esempio riportato negli uses importa la libreria mysql4, dove
si trova questa libreria?
Grazie di tutto 
Berghem
Newsgroup: it.comp.lang.pascal
Titolo: Problema con grafica

Se ho fatto un disegno con Pascal usando vari comandi, ad esempio cerchi,
rettangoli, posso ad un certo punto cancellare una figura lasciando le
altre?
Ciao,
Karlo.
- - -
E-Mail: 
carl...@tin.it
ICQ UIN: 19128262


In generale no.
Devi cancellare quella figura e ridisegnare le altre :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAM
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672

Karlo.
In gerere la risposta sarebbe NO.
Ma....
Supponiamo che ho lo schermo con dei disegni ed ora voglio disegnare
un oggetto che poi voglio cancellare. Basta che imposti la modalita di
disegno in  XOrPut (disegna facendo l'operazione di XOR logico con
l'immagine sottostante). Cosi' che se io voglio concellare l'oggetto
(facendo riaffiorare quello che c'era sotto) basta che io ridisegni
nuovamente l'oggetto.
L'XOrPut si imposta con la procedura:
SetWriteMode(XOrPut)
Ciao,  Fabio.
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: What is Matrix...?

 Matrix 2 Reloaded
Uscita Prevista: Maggio del 2003
Director: Andy Wachowski y Larry Wachowski.
Cast: Keanu Reeves, Laurence Fishburne, Carrie-Anne Moss, Hugo Weaving,
Matt McColm.
E' aperto su questa news una discussione su cosa ci aspettiamo dal film
MATRIX 2 RELOADED
What is Matrix?..

> E' aperto su questa news una discussione su cosa ci aspettiamo dal film
e ora e' chiusa.... OT :-)
--
Dreadnaut
(Life would be easier if I had the source code)

 Uscita Prevista: Maggio del 2003
e dopo 6 mesi
The Matrix Revolutions (la terza 'puntata')
(ma che fanno.. 3 anni x il seguito
e dopo soli sei mesi il terzo?)
pensare che ho rippato l'intero dvd di matrix
e lo tengo sul disco..
Cereal


cosa aspettarmi? non saprei cosa dirti. spero che mi diverti se non come,
piu' del primo
--
Ciao
Gianfranco Marchese
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

Newsgroup: it.comp.lang.pascal
Titolo: Buon natale e buone feste

Auguro a tutti Voi e alle Vostre famiglie di trascorrere un ottimo 
Natale ed un sereno 2009.
-- 
Il Razziatore,
"Lo sviluppo di una nazione si misura anche dallo stato della sua rete 
ferroviaria". Camillo Benso Conte di Cavour
"Per tutto quanto non previsto nel presente regolamento il capostazione 
deve usare senno e ponderatezza." Regolamento d'esercizio FS
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://razziatore.no-ip.com/mpp/


Ricambio gli auguri: ma questo ng è sempre così desolato? 


Beh... ormai sono in pochi ad apprezzare le qualità del buon vecchio Pascal.
Auguri anche a voi e a tutto il NG
Luigi 




 
Auguri Razzia, e auguri a tutti :)
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.pascal
Titolo: Radice quadrata

Chi saprebbe dirmi per favore come si può introdurre l'operatore di radice
quadrata nel Pascal? Chi lo sa per favore risponda all'indirizzo sotto.
Grazie.
rizz...@keycomm.it


si chiama SQRT
ad esempio
	a:=sqrt(16);
	write(a:1:0);
INDOVINA COSA TI SCRIVE? =)
Ciao.
¨¨°º©o¿,,¿o©º°¨¨°º©  Mr. GiMa ©º°¨¨°º©o¿,,¿o©º°¨
------------------------------------------------------------------------------
             WEB: 
http://come.to/gima
            MAIL: 
gim...@freemail.it
             UIN: 2685398
------------------------------------------------------------------------------
Togliere NOSPAM dal mio indirizzo per rispondere

si chiama SQRT
Oppure costruisci una funzione "radice ennesima" in questo modo :
function ntree(n, x : real ) : real ;
begin
  ntree := exp ( 1/n * ln ( x ) ) ;
end ;
ntree(2, 16) = 4
ntree(3, 8)  = 2
ntree(3, 27) = 3
ntree(5, 32) = 2
Andrea Laforgia


Attento, questa è matematicamente non corretto.
Infatti dovrebbe essere ntree(-3, 27)=-3, ma se provi a dare
quei parametri il programma si pianta miseramente.
Bisogna quindi discriminare gli esponenti interi negativi.
Ciao, Max.

Bisogna quindi discriminare gli esponenti interi negativi.
E qui: bisogna discriminare gli esponenti interi dispari quando l'argomento
è negativo.
Sorry per le imprecisioni.
Ciao, Max.

Newsgroup: it.comp.lang.pascal
Titolo: Salve!!!

Salve a tutti,
sn uno studente d III anno d un liceo scientifico tecnologico.
Posto x presentarmi e saxe se questo NG ha un sito web
e delle faq (o manifesto)....
Rispondetemi ASAP,
~Travis

Benvenuto tra noi.... :)
NM
PS:
che vuol dire ASAP ?


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

te capě??


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

E' possibile richiamamre una procedura all'interno di una funzione e/o
viceversa??? Grazie


Possono anche richiamare loro stesse...  in questo caso si chiamano
'funzioni e procedure ricorsive'.
Esistono in qualunque linguaggio di programmazione: Pascal, C, C++
ecc.
Puoi anche passare una funzione come parametro ad un'altra funzione:
Log(Abs(x)).
Ciao
PV

 viceversa??? Grazie
se devi implementare un algoritmo ricorsivo e' necessario, nn possibile!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: fatt

Salve raga, ho fatto un programma in pascal per calcolare il fattoriale di
un numero e ho messo una variabile di tipo real, che mi arriva solo a numeri
come 9*10^38 e dunque è inutile in qyanto mi calcola al massimo il
fattoriale di 32-33!! Come si risolve questo problema? Io ho provato a
mettere come variabile extended e double, che ho scoperto smanettando sulla
guida di pascal 6.0 della mitica borland, ma al momento della compilazione
mi dice una cosa strana sull'8086 o una cosa del genere, subito ho pensato
che non riconoscesse il coprocessore matematico ma mi sembra strano... Help
me please!
BUON ANNO A TUTTI DEL NG
--
************************************************
lollop...@tin.it
  (primaria)
lollop...@tiscalinet.it
  (secondaria)
lollop...@wappi.com
 (sul cellulino)
www.tiscalinet.it/ramba
*************************************************

mi dice una cosa strana sull'8086 o una cosa del genere, subito ho pensato
Aggiungi {$N+} all'inizio del programma.
Senza questa direttiva, i tipi estesi non possono essere usati.
--
Andrea Laforgia
andrea_...@bigfoot.com

 Pedt Scragg: c.l.p.b. mFAQ.

help.  Stirling's?
I do not see how it helps. There is no reason for it in modern
computers. It was for an era when one used tables and pen and paper.
Osmo

 of Sat, 1 Jan 2000
12:35:52 in news:comp.lang.pascal.borland, Osmo Ronkanen

It is an expression for ln(x!).
Therefore, it can be used for calculating such as N!/(M!*(N-M)!) where
N! itself is too large for the available numbers.
It can also be used, of course, for any purpose for which ln(N!) or
log(N!) suffices - and from log(N!) one can print N! in a.bEc form
without ever having the whole thing as a floating point number.
For example, 3333! could be determined and written as 1.85E10296 by
treating the integer and fractional parts of the Log separately.


Per calcolare espressioni di così elevato valore (matematico) ti darei due
consigli:
1) applicare i teoremi sui numeri fattoriali prima di farli calcolare al
calcolatore (per esempio eseguendo delle semplificazioni)
2) creare delle procedure che trattino separatamente la mantissa e
l'esponente e che visualizzino i risultati.
-- 
Arrivederci.    odc Luigi Nodari
Newsgroup: it.comp.lang.pascal
Titolo: Programmi esterni

Due domande:
1) Quanti sono i modi per integrare tra loro più programmi esterni?
Intendo dire, in quali modi posso richiamare ed eseguire un file .EXE,
.COM o, magari, .BAT da un codice Pascal?
2) E' più efficiente il Free Pascal o il  Turbo  Pascal in queste
operazioni?
Ciao
PV

 PV

 exec(programma,parametri)
PE se devo fare partire il file pippo.exe dal desktop devo fare:
exec(c:\windows\desktop,???)
e i parametri??

 > exec(programma,parametri)

Leggere bene: exec(PROGRAMMA, PARAMETRI);           {scusa
la maleducazione }
cioè: exec('c:\windows\desktop\???',parametri);
{notare apici per la stringa}
--
Paolo Giarrusso

 {notare apici per la stringa}
Figurati per la maleducazione, ma quali sono i parametri??
Grazie. Ciao

 cioč: exec('c:\windows\desktop\???',parametri);




Devi mettere aposto di parametri una stringa contenente i parametri
per esempo ' --help'
exec('c:\windows\desktop\???','--help')
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: cerco libreria per creare programmi dos a finestre...

Come da oggetto: qualcuno ne conosce?
Al limite anche a pagamento.
Grazie.
NM

Guarda nel sito dello SWAG e scarica il file TEXTWNDW
Omega e' omega e basta

GRAZIE !!!
PS:
Qual'č il sito dello SWAG?
NM


Qual'č il sito dello SWAG?
www.gdsoft.com/swag/swag.html
esistono i motori di ricerca cmq


Newsgroup: it.comp.lang.pascal
Titolo: Libro che fa riferimento a FreePascal

Vojo impararmi il pascal per bene. La documentazione di Free Pascal č
ottima, ma va bene che conosco abbastanza bene l'inglese, ma leggendo
un manuale si esagera ;)
Quindi, un manuale completo che parte da zero e faccia rifermento ai
nuovi comandi di FreePascal qual č?
Io cercando Google Group ho trovato
"Pascal, Guida alla programmazione" con cdrom con freepascal, della
McGraw-Hill.
Visto che allega il freepascal suppongo che all'interno ne faccia
riferimento.
E' un buon libro? Conoscete alternative?

(per non aprire un'altro thread)
Ho freepascal  per win32, ma i programmi compilati appaiono come
quelli per DOS, non come quelli compilati con Turbopascal per windows.
E' normale?

( digital - 
news:lgp5p1pocorqcr3li...@4ax.com
 )

non ho idea di come appaiano quelli con TP-Win, ma quelli in freepascal 
appariranno come programmi per "dos", perche' l'output viene mostrato in 
una `console' (come il Prompt dei Comandi)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

una `console' (come il Prompt dei Comandi)
Ma l'output con TPW viene sempre mostrato in una console... ma è più
carina =)
vedi
http://digital0.altervista.org/doppio.jpg
Newsgroup: it.comp.lang.pascal
Titolo: dopo il programma mi si blocca il sistema !!

ho un file con dentro un'ottantina di EOF (non sto a spiegarvi come ci sono
finiti)
ho fatto un programmino in tp7 che legge il file carattere per carattere
(for i:=1 to filesize(f)) e scrive solo se il carattere non è EOF cioè
ord(ch)<>26.
il programma funziona benissimo, il problema è che quando esco windows98 è
praticamente bloccato, come se il 95%100 delle sue risorse fossero ancora
occupate.
la stessa cosa fra l'altro mi è successa usando qbasic4.5
qualcuna ha idea di cosa può essere successo? io non so che pesci pigliare
ciao e grazie
frolix8

               Attenzione all'anti-spam XXX
La maestra interroga Pierino: "Dimmi il nome di un rettile".  "Una
vipera".  "Bravo ...  e ora dimmi il nome di un altro rettile".  E
Pierino: "Un'altra vipera!".

.hai chiuso il file, ovvero hai messo l'unico EOF che serve?? :-)
bye!
purtroppo si (anch'io ho pensato subito a quello)
ciao

               Attenzione all'anti-spam XXX
Non colpire un uomo con gli occhiali.  Colpiscilo con una mazza da baseball.


non è colpa mia ma di un pirla di una ditta esterna che, convertendo un file
da formato EBCD a ASCII si è dimenticato di scompattare prima un campo COMP
di 4 caratteri.
quindi questi 4 caratteri ci sono arrivati non convertiti (logicamente) , e
quindi un 26 binario, in origine parte di un numero binario di 32 bit
diventa un EOF.
è chiaro che in questo campo può esserci qualsiasi cosa (sono 14000 records)
non solo 26. potrei pensare che ci sia un valore binario particolare che
fotte il sistema, però mi sembra difficile (ma con windows non si può mai
sapere)
ciao :-)


Web Site: 
http://asterix75.homeip.net
"Unix IS user friendly. It's just selective about who its friends are"

 "Unix IS user friendly. It's just selective about who its friends are"
Sarebbe altrettanto interessante vedere quel pezzo di codice che fa crollare
il sistema. (ammesso che il codice sia corretto...)
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

Newsgroup: it.comp.lang.pascal
Titolo: TSR --> qualche domanda

E` possibile e come si fa` a far controllare ad un programma TSR se è stata
aperta una qualsiasi applicazione (tipo: word ... accesso remoto... ).
Vi ringrazio anticipatamente
Roberto Ferraro
Socio S.T.I.C. n. 5082 A
My e-m@ils are:
----------------------------------------------------------
"Gaudeamus igitur, iuvenes dum sumus".
Anonimo Tedesco
[Godiamo dunque, finchè siamo giovani]
----------------------------------------------------------

Dai un'occhiata all'API FindWindow
-=Azathoth=-

Newsgroup: it.comp.lang.pascal
Titolo: se volete potete


Newsgroup: it.comp.lang.pascal
Titolo: egavga.bgi e supervga

Mi sorge un dubbio: č possibile che i programmi che utilizzano routine
grafiche dell'egavga.bgi non siano compatibili con pc che montano
schede video svga?
Pongo altre due domande che potrebbero interessare anche gli altri:
perchč se sotto windows 3.11 attivo un programma X scritto con turbi
pascal 7 e provo ad attivarne un'altro Y scritto sempre con lo stesso
linguaggio e compilatore il secondo da un runtime error? Si puo'
evitare?
Posso reperire da qualche parte un file bgi per la SVGA? Sarebbe
compatibile con schede video VGA?
Saluti,
<Attenzione INDIRIZZO E_MAIL PROTETTO DA SPAMMER>
Narciso Bortoli - Bortoli...@KKKvalsugana.com
http://www.geocities.com/colosseum/track/4394

compatibile con schede video VGA?
Esiste in giro SVGA256.BGI.
Andrea      
(per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo)
ICQ# 8328956

NOSPAMBort...@valsugana.com
 (Bortoli Narciso), il giorno Sun,
22 Feb 1998 06:43:36 GMT hai scritto:
#Mi sorge un dubbio: è possibile che i programmi che utilizzano
routine
#grafiche dell'egavga.bgi non siano compatibili con pc che montano
#schede video svga?
Direi che funzionano su pressoche' tutte le schede svga...
#Pongo altre due domande che potrebbero interessare anche gli altri:
#perchè se sotto windows 3.11 attivo un programma X scritto con turbi
#pascal 7 e provo ad attivarne un'altro Y scritto sempre con lo stesso
#linguaggio e compilatore il secondo da un runtime error? Si puo'
#evitare?
#
#Posso reperire da qualche parte un file bgi per la SVGA? Sarebbe
#compatibile con schede video VGA?
#
E' da un po' che non rinnovo l'invito a visitare la mia home page
italiana sul Pascal (non la aggiorno da tempo), ma cmq c'e' un bel po'
di roba interessante (anche il driver bgi che cerchi) + units per
suonare file audio, visualizzare immagini di vari formati, per
ottenere multitasking, per gestire il mouse, ecc., ecc.
Ciao a tutti,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/

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

Ciao ragazzi,
qualcuno di voi conosce il linguaggio pascal like?
Ho un problemino
vi ringrazio anticipatamente

 ha scritto nel messaggio
news:HspH9.28259$fa.9...@news1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Togliere i doppioni da una stringa

Salve,
come faccio a eliminare tutte le ripetizioni di una lettera in una stringa?
Ho provato con:
uses crt;
var
   i, j : integer;
   s : string;
begin
       clrscr;
       s := 'AAABB';
       for i := 1 to length(s) do
           begin
           for j := 1 to length(s) do
                if (s[i] = s[j]) then
                   begin
                        delete (s, j, 1);
                        j := i + 1;
                   end;
           end;
      writeln (s);
      readln;
end.
Ma lascia sempre 2 lettere uguali all'inizio.
Grazie

            for j := 1 to length(s) do  <--- Qui ho messo i + 1 e non 1



vedi cosě, non ho provato a eseguirlo, ma a occhio sembra vada bene

 ha scritto nel messaggio
news:ceapr3$4tq$1...@lacerta.tiscalinet.it...

No, non va :(

Ok, ho risolto, ciao.

ora l'ho provato e funziona :-)
uses crt;
var
  i, j : integer;
  s : string;
begin
  clrscr;
  s := 'AAABB';
  for i := 1 to length(s)-1 do
    begin
      j:=i+1;
      while j<=length(s) do
        if (s[i] = s[j]) then
            begin
              delete (s, j, 1);
            end
          else
            j:=j+1


 ha scritto nel messaggio
news:lM5Oc.21453$OH4.5...@twister1.libero.it...

Prova cosě:
uses crt;
var
  i : integer;
  s : string;
begin
  clrscr;
  s := 'AAAAAAABBBBCCCCCBBZZZZ';
  i := 1;
  while i<length(s) do
    if (s[i] = s[i+1]) then delete (s,i, 1)
                       else i:=i+1;
  writeln (s);
  readln;
end.
ciao
delo

 ha scritto nel messaggio
news:lM5Oc.21453$OH4.5...@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: aiuto Turbo Pascal !!!

so che potrebbe sembrare una domanda sciocca, ma con il turbo pascal, come
faccio a rendere un file : .pas in un .exe in modo che possa essere eseguito
da windows su un computer sprovvisto di TP?
per rispondere via e-mail:
jaki...@tin.it

da windows su un computer sprovvisto di TP?
Prova a compilarlo ! :) 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


Devi compilarlo con destinazione disco. Evidentemente lo compili solo
in memoria.
Devi clikkare su COMPILE/DESTINATION-MEMORY
Fabio
--
fabi...@rocketmail.com

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

Sto creando una rubrica in pascal, e mi sono trovato davanti al problema di
eliminare una riga. La rubrica è composta da un'eseguibile e da un file di
testo.
es file di testo:rubrica.txt
2) cognome nome, nato il 1/1/2002 tel: 000/000000
3) cognome nome, nato il 1/1/2002 tel: 000/000000
come posso cancellare la riga 3???
Io avevo creato la procedura cancella nel modo seguente:
procedure cancella;
var x:char;
BEGIN
write('Scrivi il nome da cancellare: ');
readln(x);
assign(rubri,'rubrica.txt');
reset(rubri);
   WHILE not eof(rubri) do
    BEGIN
     readln(rubri,testo);
     if testo[1]=x then
     begin
     append(rubri);
     testo:='';
     writeln(rubri,testo);
     end;
    END;
    readln;
END;
ma non funziona. Consigli???

 news:U%GY7.745$2s1....@news2.tin.it...


 ha scritto nel messaggio
news:hdGZ7.2228$2R2....@news1.tin.it...


 [cut]
Scusate e ciao a tutti
Kyle
Newsgroup: it.comp.lang.pascal
Titolo: String --> Integer

Come si fa a convertire una stringa in integer?? Cioč trasformare una
stringa contente un numero nello stesso numero perň integer in modo da
poterlo modificare e passare ad altre funzioni?
Esempio:
ho un prg del tipo delay.exe che esegue la semplice procedura delay col
parametro passato dalla ParamStr...
Ora come faccio io a convertire l'argomento della command line che č una
string in integer per poterlo utilizzare con delay(x); ???
Vi prego aiutatemi!!

 Come si fa a convertire una stringa in integer??
Se ho capito bene:
    str(Intero,Stringa)
    exec('delay.exe',Stringa)
dentro delay.exe:
    val(paramcount(1),Intero)

...


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

Di grazia,
qualcuno puo' dirmi come faccio a mandare i dati 
ad una stampante collegata ad una porta USB
con Turbo Pascal 6.0 (e quindi sotto DOS)?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:83f9147d703fcb66796...@mygate.mailgate.org...


con Turbo Pascal 6.0 (e quindi sotto DOS)?
dos non gestisce usb... idem pascal...
le stampanti usb vengono gestiti da win9 o linux...
Antonio

Newsgroup: it.comp.lang.pascal
Titolo: Ultime versioni di Pascal

Volevo aggiornare la mia versione di pascal risalente al 1992 mi sembra....
mi sono scaricato un paio di compilatori abbastanza recenti ma leggo di
pascal 5 e 6.... e forse altro...
É possibile scaricarli shareware o freeware dalla rete?
Sul sito della borland ho trovato solamente la versione trial di Delphi
5....
Inoltre come si trtasformano i .pas in .exe?
Sui 2 compilatori che ho scaricato non riesco a trovare la funzione....
o meglio con uno non ci sono mai riuscito... con l'altro ogni tanto escono
fuori i .exe ma non capisco come e poi neanche funzionano.... (mentre
funzionano i .pas)
Grazie
Glorfindel

Leggi i vecchi post.
--
By Ser Kill
"The life is in my code..."
"Basta una scintilla e zac, il cervello ti si fonde, mentre
 prima potevi avere una vita "normale" ora sarai solo nel tuo silenzio"

> Leggi i vecchi post.
Tnx....
rimedio subito
Glorfindel

 ha scritto nel messaggio
news:9curaq$1nf$3...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Semicompilati PAS

Esiste un tool per trasformare un file PAS in Assembler (.ASM) o in file
oggetto (.OBJ)?

PAS -> ASM: un editor e un manuale di assembler
ASM -> OBJ: l'assemblatore
Lawrence Oluyede
rhy...@insieme.net
"La realtà delle cose si nasconde dietro 
la loro reale apparenza (Maestro Hiamuri)"

Newsgroup: it.comp.lang.pascal
Titolo: Mouse

Come si utilizza il mouse in pascal?
Io ho utilizzato del codice in assembly, che devo ametterlo, ho copiato da 
giobe2000, ma non c'è un altro metodo più diretto?


Anch'io ho usato in passato del codice assembler (sfruttando l'interrupt 51 
dedicato proprio agli eventi del mouse) e mi sono trovato bene, perň ho 
sentito parlare di una struttura del pascal chiamata 'TMouseEvent', di cui 
perň non so nulla, magari se cerchi su internet trovi qualcosa.
Ciao. 

 trovi qualcosa.
rettifico era TEvent che usata con la funzione
- GetMouseEvent
dovrebbe permettere la gestione del mouse, non ho ancora provato ma secondo 
l'help di
Turbo Pascal dovrebbe funzionare. 

 giobe2000, ma non c'è un altro metodo più diretto?
fMouse: 
http://dreadnaut.altervista.org/pascal.php
:)
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

"Omega" <x...@xxx.xxx> ha scritto nel messaggio 
news:Jy6bj.204582$U01.1...@twister1.libero.it...

Ho visto, è anche questa in assembly però.
Comunque la provo 

 Comunque la provo
beh, è in assembler si, perché il massimo che si possa fare: mentre
per la tastiera esistono funzioni predefinite, il turbo pascal non
prevedeva quelle per il mouse, se non usando le stressanti librerie
Turbo Vision. Queste erano però adatte a creare programmi in modalità
testo (come l'ide de Turbo Pascal 7 stesso!), ma non stavano dietro
all'altra risoluzione.
L'unica soluzione è quindi quella di scriversi le proprie librerie di
basso livello, e questo si fa interfacciandosi con l'Int 33h (o 51d
che dir si voglia) e chiedendo direttamente informazione al driver del
mouse :-)
--
Dreadnaut - 
http://dreadnaut.altervista.org/
(Life would be easier if I had the source code)

 oddio Ohm, sono diventato materiale da citazione adesso ? O_O
Ehehehehe :)... ti tocca! ;) :P


 
Non fare il falso modesto, lo sei da sempre :-)
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Newsgroup: it.comp.lang.pascal
Titolo: Tute o manuali per graph

bhè come da oggetto :)
Mi servirebbero dei tute o manuali magari con alcuni esempi su quello che si
può fare con la graph :)
Grazie a chiunque risponda
--
--omega--
"Hands on"
sentine...@hotmail.com

 può fare con la graph :)
Menu help---> index -->> graph  . Poi guardi "procedure and functions"
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------
Newsgroup: it.comp.lang.pascal
Titolo: [INFO] patch

Sfogliado  questo Ng ho letto molti messaggi che richiedevano le pacth per
un errore Division by zero.
Oggi ho letto la F.A.Q. ver 0.1 e mi è parso di capire che il problea
riguarda processori che superino i 200MHZ.
Io ATHON a 650MHZ e non mi è mai capitato questo errore mi devo preoccupare,
l'errore si verifica quando eseguo il programma da TP o quando eseguo EXE
Grazie Re Di Cuori

"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto:

Quando esegui il programma, anche all'interno del TP, e se questo usa la
unit Crt.
Ciao

Gianluca M. wrote:

Per elesatteza in tutte e due i case cioè se viene compilato un 
programma che untilizza la unit Crt su un processore inferiore e viene 
eseguito da un processore superiore in questo caso si verifica l'errore 
(per risolvere esiste una patch che per comodita chiamiamo patch A) 
mentre se viene compilato da un processore moderno anche il questo caso 
non funziona (per risolvere c'è la patch B)
ora io ho la Patch B cmq avevo trovato anche la patch A...
Il problema cmq risale alla procedura Delay(Ms: Word) che non è 
progettato per questi processori!
PS: Io cmq sapevo
-- 
IL RAZZIATORE,
The Only good Windows is an Unistalled Windows
-----------------------------------------------------------------------
EMAIL: 
razzi...@usa.net
WEB:   
razziatore.dsx.org
 sito in aggiornameto/alestimento
ICQ:   67552596

Newsgroup: it.comp.lang.pascal
Titolo: INPUT OUTput DA PARALLELA

Ho effettuato il porting su DOS (in turbo pascal) del programma
lptransfer (vedi sourceforge) per la comunicazione tramite parallela
tra 2 PC.
Il cavo è così creato
2 - 15
3 - 13
4 - 12
5 - 10
6 - 11
10 - 5 
11 - 6
12 - 4
13 - 3
15 - 2
16 - 16
17 - 17
25 - 25
Il problema è che in uscita i bit si riescono ad inviare (sulla porta
378h) e col
tester vedo all'altra estrmità del cavetto i segnali logici corretti
sui pin 11,10,12,13,15
ma in ingresso (leggendo quindi dalla porta 378h+1) non ottengo niente
, sempre lo stesso
valore (diciamo 127)
Sapete se esiste qualche registro da impostare ?
Leggendo
http://www.veron.nl/tech/doc/epp.pdf
 a pag 16 c'è un registro dove
indicare "standard mode".
Sto usando Turbo Pascal dal Prompt del DOS (sia da XP che WIn2k), ma
anche con un freedos
ottengo la stessa cosa.
Vi è mai capitato di dover leggere segnali dalla parallela attraverso
lo status register ?


Il mio post è OT,
non so come aiutarti ma volevo dirti che
anche io sto lavorando con la porta seriale, con Delphi e componenti 
Async,
dovrei fare scattare un relè e leggere dei codici a barre!
Per caso sapresti darmi qualche dritta?
Provo a leggere da periferiche seriali per provare ma niente, l'errore è 
sempre EBufferIsEmpty!
Vuoto!
Grazie!!!
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.pascal
Titolo: errore nella creazione dell'exe

Da quando ho installato la pacth per i processori PII, il Turbo Pascal 7 non
mi crea più il file eseguibile, senza nessun messaggio d'errore. Perchè?
--
San Vegeta from Hell
http://www.geocities.com/Area51/Dungeon/8436
(da visualizzare col browser della Netscape)

 wrote in message
7g6gq5$j1t$1...@hermes.iol.it...

Newsgroup: it.comp.lang.pascal
Titolo: Can anyone help me?

Hello everybody,
First of all I want to thank all those who answered my previous query.
Well, basically my problem is this.  I am making a Database engine using
Textfiles(No Option here ... it is required)
Well, My Problem is that how do I "go back" a line after I read it?  Is it
possible with  Textfiles?  Or must I copy the remainder of the file to a
temporary textfile?  Or should I load the textfile into a "Big" array.  y
are all possibilities I have considered but any Pointers would be
appreciated.
I stress I only want some tips and am not asking anyone to do my work for
me,
Thank you,
David

me,
It's possible to read previous text lines and generally move about in a
text file if you write your own TFDD for it - not a trivial task. I have
one lurking here and IIRC there's one within SWAG. Writing replacement
text within a text file database *will* require you to write to a
temporary file then delete the original and rename.
I'd tend to suggest that, if your database is small enough [or you are
using protected mode and thus have far more heap] then putting the
database on the heap would be your best option.
-- 
Information on Newsgroup posted weekly on Sunday - read before writing!
Contains links to    |  
http://homepages.force9.net/pascal/faq/
 
helpful information  |  
http://www.merlyn.demon.co.uk/clpb-faq.txt
and some guidelines  |  
ftp://garbo.uwasa.fi/pc/doc-net/faqclpb.zip

 appreciated.
David,
"Text" files are strictly SEQUENTIAL, not random access files.
But of course you can open a text file as a random access file,
most text editors do that. The main problem is: how to insert
or delete arbitrary length lines in a random file.
Usually it is solved the primitive way, using Pointer arrays
to strings on the heap. With Pascal you can even keep the
space as small as possible using the GetMem(PS[n],length(S)+1)
procedure and later give back the memory using the
FreeMem(PS[n],length(PS[n]^+1) procedure.
But of course in this case you MUST get a new pointer from
the heap whenever the length of the string changes.
For more information about Pointers look here:
http://bsn.ch/tp-links
page FAQ, article "Turbo Pascal memory considerations".
:-)
-- 
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/
 
http://members.xoom.com/f_glaser/
http://www.geocities.com/~franzglaser/
 
http://start.at/bedarf

appreciated.
How much do you need to go back? If that is just one line, then you need
just a buffer for two lines. You might write new routines for reading a
line, checking for end of file and then backing. The backing and
buffering mechanism could be internal to that routine.
Osmo