mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Consigliatemi un buon manuale di TP7

Ciao a tutti,
ho bisogno di un buon manuale di TP7, tenendo presente che sono alle prime
armi.
Ringrazio in anticipo per l' aiuto.
Paolo

 armi.
"Turbo Pascal 7 " di Stephen K. O'Brien e Steve Nameroff edito dalla Mc
GraW Hill .
Tratta un po'tutto ed č adatto sia achi inizia che ai piů esperti.
Ciao Niki :-)
--
Automatic posted from 
ro...@virtual.zia.ms.it
 [195.103.158.42]
via Mailgate Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.pascal
Titolo: FreePascal e database

Esiste una libreria per FreePascal in grado di interfacciarsi ad un database
senza tener conto del database sottostante? Una specie di JDBC, per
intenderci
Henryx

 wrote in message
news:d4rknt$18a$1...@montgomery.hellfish.home

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



Vedi se questo ti è utile: 
http://www.freetds.org/
 
Non ho idea di cosa faccia JDBC, quindi chiedo venia per un eventuale
mio errore.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG Public Key 
http://xoomer.virgilio.it/greedyfly/michele.asc


ho visto che c'è un po' di codice di interfaccia ad odbc
http://www.freepascal.org/cgi-bin/viewcvs.cgi/fpc/packages/base/odbc/
ma non l'ho mai provato e non vedo modifiche da un sacco di tempo per 
cui credo che non ci sia molto futuro.
Se utilizzi solo i database opensource postgres, mysql o firebird puoi 
provare i pacchetti per Lazarus sqldb che fanno parte della fcl
http://www.freepascal.org/cgi-bin/viewcvs.cgi/fpc/fcl/db/sqldb/
che  hanno l'obiettivo di consentire l'utilizzo dei tre database in 
maniera trasparente, cambia un solo componente per la connessione. E' 
codice giovane e in corso di intenso sviluppo ma mi sembra interessante.
Ciao, Dean

Newsgroup: it.comp.lang.pascal
Titolo: Cellulari a prezzi d'ingrosso su http://www.villaggio-globale.it

Cellulari a prezzi d'ingrosso su 
http://www.villaggio-globale.it



Newsgroup: it.comp.lang.pascal
Titolo: .exe dal prompt

Come faccio a crearmi l'eseguibile (avendo il file .pas) senza entrare nel
compilatore (ho TP7), cioč dal prompt di dos?
Grazie mille.
Alex



entri nella dir bin del tp (o la aggungi al PATH) e scrivi:
tpc -(parametri) (nome del file)
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011

Newsgroup: it.comp.lang.pascal
Titolo: File di rete vincolato

Ciao a tutti,
se provo ad aprire un file in rete che è al momento vincolato da un altro
utente, riesco a saperlo tramite IORESULT. C'è modo di capire anche chi è
l'utente che lo sta vincolando?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

IORESULT segnala solo qualcosa come 'Dispositivo occupato' tramite il
suo bravo numero d'errore, ma per il Pascal e' indifferente che il
file in questione sia gia' stato aperto da te o un altro utente.
-- 
Omega e' omega e basta
Newsgroup: it.comp.lang.pascal
Titolo: Esiste tasto Canc/Delete

Esiste su Mac l'equivalente del tasto Canc/Delete presente sulla
tastiera dei PC?
Per la cronaca ho la tastiera data con i nuovi G3/300.
Grazie,
Ciao,	fabio
--
fabi...@rocketmail.com

Scusate ho sbagliato NG.
--
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: anche io cerco manuali

Anche io come Fabio sono disperata, cerco manuali di Pascal scaricabili dal
Web, qualcuno sa dove trovarli?

 Web, qualcuno sa dove trovarli?
Qua, forse
http://pascal.miningco.com/msub4.htm
Se no fatti una ricerca su altavista

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

Ciao a tutti , sono uno studente di ingegneria del primo anno, sto
studiando informatica e mi servirebbero informazioni sul pascal ... in
particolare gradirei sapere da qualcuno di voi dove posso andare per
scaricarmi il programma ... il mio problema è semplicemente quello di
avere i testi dei programmi e non sapere dove andarli ad applicare...
scusate se sembro veramente una testadi legno però ho iniziato
adesso...
... vi ringrazio anticipatamente, Matteo

per il compilatore vai su 
http://www.crackstore.com
 nella sezione Tools
e trovi TP7

Newsgroup: it.comp.lang.pascal
Titolo: CERCASI MANULI....URGENTE!!!!!!!!!!

Volevo delle indicazioni su siti per poter scaricare dei manuali o qualcosa
di simili per BORLAND PASCAL
ciao Virna


I manuali che ti servono ce li hai gia' nel pacchetto originale del
Borland Turbo Pascal 7.0 . 
Se invece usi un compilatore freeware il manuale te lo devi comprare, io
ti consiglio quello della McGraw Hill "TURBO PASCAL 7" di
O'Brien-Nameroff

Se vuoi andare oltre ti consiglio : Il Grande manuale del Turbo Pascal
 Michael Yester ) e Turbo Pascal 6.0 tecniche e utility ( Neil J.
Rubenking ) si riferiscono a versioni precedenti di Turbo Pascal (5.5 e 6.0)
ma puoi applicare il tutto alla 7.0 e sono dei libri di alto livello

Newsgroup: it.comp.lang.pascal
Titolo: Cosa ne pensate?

Salve, ho fatto il mio primo "videogame" in pascal...
Si tratta di un semplice gioco realizzato in modalità grafica 320x200x256
... ispirato al mitico nibbles del qbasic..
Se qualcuno avesso voglia di scaricarlo per poter darmi dei giudizi,
consigli, insulti, quello che volete... andate all'url:
http://www.gem.it/p/sp/snake.zip
Grazie per l'attenzione...
Samuele
g...@simul.net


Complimenti!!!!
E' veramente simpatico..
Vorrei chiederti una cosa,
Che tipo di approccio hai usato per la grafica?
(Non intendo che sveli segreti o trucchi o cosa voglio solo sapere se hai
usato cose del tipo putpixel o altro)
Complimenti ancora.
   Michele

 Che tipo di approccio hai usato per la grafica?
Mi sono creato una libreria che potesse gestire la modalità grafica
320x200x256colori (le bgi del tp non sono un granchè, te le sconsiglio se
vui fare qualcosetta in grafica)...
Tale librerie inoltre comprendevano delle routines di gestione delle
immagini in formato pcx...
Se vuoi fai un salto all'url 
http://www.gpi.eden.it
  e scaricati qualche
tutorial... (io ho imparato leggendo qualcosetta lì) ...
Bye
Samuele
g...@simul.net

consigli, insulti, quello che volete... andate all'url:
Bello !, non c'e' che dire...
Davvero complimenti, continua cosi'... ;)
Lo usero' per passare il tempo, al posto del vecchio solitario di
Windows :))
--
Andrea Laforgia
andrea_...@bigfoot.com

 consigli, insulti, quello che volete... andate all'url:



Ti ringrazio e ringrazio tutti gli altri che hanno risposto..
No comunque io non l'ho ancora finito:// ... solo un mio compagno di scuola
per il momento è riuscito nell'"impresa"...
Ciao
Samuele

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

Esiste un uncompiler per programmi scritti in pascal o c? (exe->pas,
exe->c,.....)
Grazie
ciao

exe->c,.....)
No, perche' non si puo' fare.

 exe->c,.....)
No. There is some theory about this issue in the "compiler" chapter of
the TP-links, look for "reverse engineering":
http://start.at/tp-links
:-)
-- 
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: sommare due array!





salve raga sono un novellino di pascal mi serve na 
mano per favore


 ho due liste di numero (sono due liste in 
array)


e devo fonderle in una sola per poi lavorare con un 
solo array che contenga i valori delle due liste


come posso unire sti due array?


è possibile?


 datemi qualsiasi consilio vi ringrazio molto 
anticipatamnte


 


 







Il programma che trovi qui sotto lo scritto 
direttamente in Varda Fora Express. Dovrebbe funzionare, ma non 
garantisco...


 


const inizio=1; fine=10;


 


type Tvector=array[inizio..fine]of 
integer;


 


var vettore1,vettore2, 
vettore_somma:Tvector;


     
index:integer;


 


{Immaginiamo che qui riempi vettore1 e vettore2 con 
dei numeri}


.


.


.


{Questo puoi metterlo in una procedura alla quale 
passi "vettore_somma" per riferimento. Io immagino di farlo nel programma 
principale solo per semplicità...}


for index:=inizio to fine do


  
vettore_somma[index]:=vettore1[index]+vettore2[index]; {Metto nella cella di 
indice "index" del vettore "vettore_somma" la somma del contenuto delle celle di 
indice "index" del vettore "vettore1" e del vettore "vettore2".}


.


.


.


{Qui gli fai fare altre cose :-) }


end.


 


 


Spero di esserti stato utile.


Ciao ciao
-- 
KNOWLEDGE IS POWER
http://chameleon.go.to

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

Qualcuno puo mandarmelo o dirmi dove lo posso trovare gratis, mi serve
per cuola.
Rispondetemi alla mia email.



Prova qui:
http://members.xoom.com/fabioman
--
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: Informazioni sui formati exe.

Ciao a tutti, io mi chiamo Matteo e ho iniziato da poco a programmare in
pascal, e vorrei porvi queste domande:
1- Si puň visualizzare il codice pascal di un programma .exe fatto col
pascal ma di cui non ho il file .pas?
Se sě, come?
2-Dopo aver fatto un programma qualsiasi, come posso salvarlo in .exe?

 2-Dopo aver fatto un programma qualsiasi, come posso salvarlo in .exe?
Se hai il Pascal della Borland: Compile->Destination:Disk
(invece che Memory)
Buone feste ;-)

Newsgroup: it.comp.lang.pascal
Titolo: Come si compila un .EXE da un .PAS???

potreste illustrarmi il procedimento?
Come faccio inoltre a usare dei comandi DOS in ambito Pascal? Cioè se voglio
cancellare un file da una dir (es. C:\tp\bin) come devo fare???
Grazie Mille a chi risponderà...
Mendo.

cancellare un file da una dir (es. C:\tp\bin) come devo fare???
Per cancellare un file puoi usare ERASE.
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm
Newsgroup: it.comp.lang.pascal
Titolo: Triangolo di Floyd

Ciao volevo chiedervi se avevate un'idea o la soluzione per questo problema:
Stampare un triangolo costituito da numeri consecutivi in modo che sulla
riga N (inserita da tastiera il valore) ci siamo n numeri
Es
Inserisco 4
Il computer deve stampare
1
2 3
4 5 6
7 8 9 10
Ciao e grazie mille
Paolo

 wrote in message
9vqsch$27t$1...@pegasus.tiscalinet.it...


 7 8 9 10
Ti basta usare 2 cicli for annidati per stampare N righe con
"numero_della_riga" (partendo ovviamente da 1) numeri ed un contatore per
sapere che numero stampare.
Ricorda che con write stampi un valore e il cursore resta sulla stessa linea
(a meno che non sei già alla fine) e con writeln stampi e porti il cursore
all'inizio della riga successiva.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 program Triangolo;
[CUT]
In questo modo imparerà sicuramente a programmare come si deve ;)


Un altro modo di svilupparlo è il seguente, ricordati che l'operazione a mod
b restituisce il resto della divisione tra a e b
Procedure Triangolo(n:integer);
var i,k,pos:integer;
begin
        k:=1;
        for i:=1 to n do
        begin
             write(i,' ');
             if ((i-pos) mod k)=0 then
             begin
                  writeln;
                  k:=k+1;
                  pos:=i;
             end;
        end;
end;
--
{G}eppo
Panther Power 3D Studio - Coder of GBA Team
www.panther3d.com

Newsgroup: it.comp.lang.pascal
Titolo: CTRL+ALT+CANC

 č mai reso disponibile ad applicazioni esterne
Mmm ... vorrei fare una precisazione :)
Magari dipende dal SO, ma col DOS non ci sono
grossi problemi nell'intercettare il ctrl+alt+canc,
basta riprogrammare la routine che viene chiamata
dall'interrupt $9 (in pratica la routine che gestisce
la tastiera).
Bye, Mobius

Semplice, non puoi!!!
Si puo', invece, intercettando gli opportuni interrupt.
Siamo IT ?
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 Siamo IT ?
Io credo di si'. Mi potresti spiegare come si fa?
--
Davide
davi...@usa.net
ICQ: #20331544

 la tastiera).
Scusate, mi sono sbagliato, pensavo di essere in ambiente Windows...
Sarà per la prossiva volta una cosa giusta

del computer?
Prova questo ...
----------------------------------
Uses crt, dos;
Var AltCtrl: boolean;
    OldInt9h: Pointer;
{$F+}
Procedure CheckCtrlAltCanc; Interrupt;
Begin
altctrl:=false;
If Mem[$0040:$0017] and $c=$c then altctrl:=true;
If (port[$60]=$53) and (altctrl) then Port[$20]:=$20
else
Begin
Asm
Pushf
Call OldInt9h
End;
End;
End;
{$F-}
Begin
Writeln('CTRL-ALT-CANC disattivato!');
GetIntVec($9, OldInt9h);
SetIntVec($9, @CheckCtrlAltCanc);
{ Inserisci qui il tuo programma ... da ora in poi CTRL-ALT-CANC è disattivato! }
SetIntVec($9, OldInt9h);
End.
-----------------------------------------------
Se viene premuto ctrl-alt-canc il programma non fa nulla ... neanche il reboot, logicamente! :-)
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....

 Prova questo ...
Grazie!

Newsgroup: it.comp.lang.pascal
Titolo: variable globale?

la variabile globale è  quella che viene dichiarata nel programma principale
e passata sia alle sottoprocedure che alle funzioni?
Mica è varibile globale anche un vettore?
Grazie.

 Mica è varibile globale anche un vettore?
Può essere quello che gli pare il vettore, dipende se lo dichiari globale tu
o se invece lo dichiari locale.
Non importa il fatto che sia un vettore, è come se fosse una variabile.

La globalità o la località riguarda solamente lo stato di visibilità per cui
globale o locale può essere qualsiasi cosa all'interno di un codice,
comprese funzioni e procedure in alcuni casi !

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

esiste un comando in pascal tipo il "concat" che funzioni per variabili
numeriche o char?
cioč con a=5 b=6 voglio ottenere c=56
grazie


Non che io sappia. Devi farlo a mano:
C = A * 10 + B;
se invece da 2 byte vuoi ottenere il word corispondente devi fare
C = A * $100 + B;
o usare i shift
-- 
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

 cioč con a=5 b=6 voglio ottenere c=56program concat;
program concat;
var 
  a, b: char;
  c: shortstring;
begin
  a := 'n';
  b := 'c';
  c := a + b;
  writeln(c);
end.
Henryx

 numeriche o char?
per i char usi il '+' e ottieni una stringa di due caratteri, per gli 
interi non esiste niente, per lo meno nelle units standard del tp7.
Scrivo senza controllare:
function concatInt(a,b: longint): longint;
 var
  t : longint;
 begin
  t := b;
  while (t > 0) do
   begin
    t := t div 10;
    a := a * 10;
   end;
  concatInt := a + b;
 end;
per mantenere la simmetricita' quando il secondo operando e' zero questo 
non viene aggiunto:  cosi' c(123,0) = 123 e c(0,123) = 123.  Se vuoi che 
gli zeri appaiano, allora il risultato dev'essere una stringa, quindi e' 
piu' facile prima convertire con Str() e poi unire le stringhe :)
In caso di overflow si perdono le cifre piu' a sinistra - se non vuoi che 
accada come sopra devi trasformare in stringhe.
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: MUSICHE PER IL PASCAL?

Qualcuno può fornirmi di brevi e simpatiche musichette per il TP?
sono tutte composte da una sequenza di "sound (x); "  ,vero?
Non esistono altre tecniche....o no?
Se volete spedirmele mandatemi prima una Mail di conferma (e magari con una
breve descrizione della musica) A 
DOFR...@TIN.IT
: vi dirò quando e se
spedirmele !
GRAZIE COMUNQUE PER LA VOSTRA ATTENZIONE !
SIMONE.

 Non esistono altre tecniche....o no?
io mi sono creato una funzione che, data una stringa, ne ricavava una
musichetta.
La stringa la si componeva come nel vecchio Basic, perche' venivo da li'...
in pratica qualcosa del genere:
"8cc4dcf2e"
Ossia, 2 do da un ottavo, re-do-fa da un quarto, mi da 2 quarti :-)
Il passo successivo, ho modificato l'interrupt del timer, e facevo
suonare la canzoncina ad ogni colpo di clock.
In questo modo, la canzone risulta "perfetta" su ogni processore,
e si puo' programmare senza problemi, che la musica va avanti senza
di noi :-)
Risulta piu' difficile, pero', creare programmi che funzionano a tempo
di musica :-)
Ciao ciao!
-- 
Ema

 Non esistono altre tecniche....o no?
http://start.at/tp-links
chapter "sound" has lots of examples and links.
Ciao, Franz Glaser, Austria

Newsgroup: it.comp.lang.pascal
Titolo: Perchè Turbo?

..Scusate la domanda banale da principiante..
Ma cosa sta a significare il termine "Turbo" in TurboPascal?
Grazie in anticipo a chi mi risponderà
Saluti

> Ma cosa sta a significare il termine "Turbo" in TurboPascal?
penso (io) che Turbo sia per manie di grandezza della Borland..
Turbo Pascal è l'implementazione del linguaggio Pascal della Borland.
Non vedi come è potente il Turbo Pascal? Puoi fare di tutto e dippiù!
Super interfaccia grafica 8 bit in sistema operativo Dos. Fantastica
modalità che permette di non conoscere a memoria tutti i comandi (menù)
e di utilizzarlo con uno strumento altamente tecnologico ed innovativo! Il
mouse!!! In più puoi cambiare i colori dell'editor e addiritura compilare ed
eseguire codice. Direi che il programma ha proprio il Turbo!
:)
Cereal

 ha scritto nel messaggio
news:ad84pn$v03mo$1...@ID-94218.news.dfncis.de...

ROTFL
Complimenti!
Ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

> ROTFL
sapete che non l'ho mai capita?
Cereal


Rolling On The Floor Laughing
Ciao
Giulio

thanks..

> > sapete che non l'ho mai capita?
-Rolling On The Floor Laughing
Ovvero
-Mi sto rotolando sul pavimento dalle risate.
Cmq bella la battuta sul "TURBO".


HIHIHIH...
NM
Newsgroup: it.comp.lang.pascal
Titolo: [REQ] Collegamento

Sto facendo un programma che sarebbe un piccolo menu'.
In questo menu' devo perciň scegliere di poter lanciare un file (.exe).
Mi spiego meglio;
La parte del programma che mi interessa č
...
case scelta of
1  :  (* Lancia file1.exe *);
2  :  (* Lancia file2.exe *);
3  :  (* Lancia file3.exe *)
end;
...
Ora, per poter lanciare "file1.exe" il comando da utilizzare, presente nella
libreria Dos, č
EXEC( DIRECTORY, NOME PROGRAMMA )
dove directory e nome programma possono essere variabili o costanti di tipo
string.
perciň nel mio caso :    exec('\Pascal','file1.exe')
Perň non funziona.  Quale puň essere l'errore?
Grazie in anticipo

 EXEC( DIRECTORY, NOME PROGRAMMA )
Errore
    Exec(Directory+Programma, Parametri aggiuntivi)
quindi
   Exec('\Pascal\file1.exe','');
--
Ciao,
David (
www.utilityweb.net
)

Newsgroup: it.comp.lang.pascal
Titolo: Lo zero

Ragazzi lo zro come numero,
dal calcolatore è considerato positivo o negativo o cosa?
Cioè se io dico l clcolatore di darmi il "segno" di una variabile che ha
valore "0"
cosa mi risponde il calcolatore??? 

 ha scritto nel messaggio 
news:qxJCk.158028$FR.4...@twister1.libero.it...

come rappresentazione dovrebbe risultare positivo, ma non so se il 
calcolatore lo da come positivo o senza segno 

Duca Leto ha scritto:

Dipende dal test che fai, che test fai? Il calcolatore non ha niente per 
titornare il segno di una varibile..
dipende da che test fai. Di solito la funzione matematica 0 è definita
-1 per i numeri < 0
-- 
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/

Duca Leto ha scritto:

Dipende dal test che fai, che test fai? Il pascal non ha niente per
titornare il segno di una varibile..
dipende da che test fai. Di solito la funzione matematica 0 è definita
-1 per i numeri < 0
1 per i numeri > 0
e 0 altrimenti
che in pascal sarebbe
function sign( n : Longint ) : Integer
begin
    if ( n < 0 ) then
       sign = -1
    else if ( n > 0 ) then
       sing = 1
    else
      sign = 0;
end;



scusa nn esiste una funzione "segno"? 

 scusa nn esiste una funzione "segno"?
In pascal? No. Credevo che ci fosse ( mi confondevo con il C ) ma non c'�.
Nella ALU non credo ( ma non ne sono sicuro sinceramente )
Nella FPU? Non ne ho la pi� pallida idea :D

Newsgroup: it.comp.lang.pascal
Titolo: volelo pubblicare le mie vecchie opere per ...

un uso libero di chi ne abbia bisogno o per semplice curiosita'
sorgenti in TurboPascal 7
ciao a tutti,
boj...@tiscali.it

Ammirevole idea!! Qual'è l'indirizzo del sito?

 
ho provato a mandare in allegato il file zip
comunque disponibile sul sito
http://web.tiscali.it/bojan_space
e' un sito libero quindi cercate di non cancellare troppe cose...
by,by
Bojan, 
boj...@tiscali.it

 ha scritto nel messaggio 
news:42738bf5$0$20690$5fc...@news.tiscali.it...


Newsgroup: it.comp.lang.pascal
Titolo: Int 13h

C'era una volta, molto tempo fa qualcuno che mi aveva mandato della
documentazione sull'uso delll'int 13h e specialmente sulle funzioni 02h e
03h.
Non è che qualcuno me la potrebbe mandare?
Mi intereserebbe sopratutto che bit bisogna settare per scrivere / leggere
su hd, floppy, etc...
Grazie mille per l'aiuto
Alex
el_co...@libero.it

Alex <el_co...@TOGLIQUESTOlibero.it> wrote in message
gczi7.21626$%a4.8...@news.infostrada.it...

Int 13H:
    AH=2   Legge i settori desiderati in memoria
    Ingresso    (DL) = Numero di drive (il bit 7 settato a 1 se si tratta di
un disco fisso... a 0 se si tratta di un'unità floppy)
                     (DH) = Numero di testina
                     (CH) = Numero di traccia
                     (CL) = Numero di settore
                     (AL) = Numero di settori
                     (ES:BX) = Indirizzo del buffer per i dati
     Uscita      (AH) = Numero d'errore; il flag di riporto è settato a 1 se
AH non uguale a 0
----------------------------------------------------------------------------
----------------------------------------------------
    AH=3 Scrive i dati dalla memoria sul disco. Parametri come sopra
----------------------------------------------------------------------------
-----------------------------------------------------
Per informazioni + dettagliate prova a scaricare la Ralph Brown's INterrupt
List. Cerca sul web ke la trovi ovunque.
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\    /\
\_/    V   \_/

 un disco fisso... a 0 se si tratta di un'unità floppy)
Grazie mille, mi serviva propio questo!
Ma... se per caso ci sono 2 hd, come si procede? E due floppy?
Alex


E' per questo ke ti dicevo di scaricare la Ralph Brown's Interrupt list. Lě
troverai di tutto!!!!!!!!!!!!!!! Ma proprio tutto tutto tutto sugli
Interrupt!!!

Newsgroup: it.comp.lang.pascal
Titolo: efficienza freepascal

una domanda
dato questi frammenti
i:integer
max:integer
...
...
i:=1;
while i < max do
begin
i:=i+1:
end;
oppure
while i < max do
begin
inc(i);
end;
quale dei due è migliore?
saluti e
grazie
Claudio

 quale dei due è migliore?
Sul freepascal non so, ma sul turbo pascal è meglio la seconda inc( i );
E' più ottimizzata visto che viene tradotta in questo modo:
INC WORD PTR [ PROGRAM.I ] { FF06XXXX = 4 byte }
mentre i := i + 1 viene tradotto come:
MOV AX, [ PROGRAM.I ] { A1XXXX = 3 byte }
INC AX                { 40     = 1 byte }
MOV [ PROGRAM.I ], AX { A3XXXX = 3 byte, per un totale di 7 byte }
ripeto che non so come "compila" il FreePascal :)
-- 
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/
Newsgroup: it.comp.lang.pascal
Titolo: [INFO] #turbopascal

Abbiamo aperto il canale irc si chiama #turbopascal
il canale è presente sui server che fanno capo a ircnet  potete accedere
irc.tin.it
irc.flashnet.it
irc.inwind.it
irc.omnyway.sm
Il canale sarà in fase sperimentale per 15 gg dobbiamo raggiungere una
frequeza di 15-20 persone per mantenerlo attivo, a partire da oggi.
Perchè frequetare il canale :
1) Per avere risposte immediate su problematiche riguardanti il pascal
2) Per scambiarsi opinioni
3) Per ricevere aiuti on line
4) Per dare aiuto on line
5) Per scambiare 4 chiacchiere
6) Scambiarsi sorgenti
.... e tanti altri buoni motivi
Il canale non vuole sostituire NG ma affiancarlo in modo da avere un secondo
supporto a chi vuole imparare questo bellissimo linguaggio.
Per chi si stesse domandando come verrannò fatti gli add questà è la regola
:
Solamente chi partecipa in modo assiduo e produttivo al NG ed al canale sarà
addato ai bot
Volevo invitare tutti a partecipare attivamente !
Ciao Re Di Cuori
Ps.: Dreadnaut, Virgilio Lamanzi, Pentium3 è Salvo, Gianlunca M.,
Morpheus,Z80, Il Razziatore e tutti gli altri guru del NG partecipate anche
voi grazie

mmmh ore 21:03 sfilza di bot ma gente ninte :-)
ritentero'...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Newsgroup: it.comp.lang.pascal
Titolo: piramide di numeri

Devo scrivere un programma che stampa una piramide di cifre del
tipo:
     1
   121
 12321
............
Nella piramide ci devono essere 10 righe.
Mi potete aiutare? Mi basterebbe l'algoritmo visto che credo che il 
programma si limiti ad una serie di for annidati..
Grazie.
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

 12321
var i, j, n : integer ;
begin
  n := 10 ;
  for i := 1 to n do
  begin
    for j := 1 to 10-i do
        write (' ') ;
    for j := 1 to i do
        write ( j ) ;
    for j := i-1 downto 1 do
        write ( j ) ;
    writeln ;
  end ;
end.

Newsgroup: it.comp.lang.pascal
Titolo: Area di memoria condivisa.

E' possibile impostare un'area di memoria di scambio fra un programma ed un
tsr, entrambi scritti in TP?
Grazie.

 tsr, entrambi scritti in TP?
Sicuramente sì, erano cose che facevo pure, ma tanto tempo fa.
A distanza di anni, non mi ricordo quasi nulla.
Comunque, con il beneficio del dubbio, la comunicazione la
puoi instaurare usando gli interrupt software. Il TSR può settare
un vettore di interruzione (non mi ricordo quali fossero quelli
liberi) per farlo puntare ad una propria routine. Il programma
chiama l'interrupt con la funzione Int ? Intr ? e gli passa i
parametri nei registri. A quel punto la routine del TSR può leggere
i registri e modificarli per ripassarli indietro al programma.
Tu parli di area di memoria condivisa, per cui penso che i dati da
scambiare siano parecchi, altrimenti ti potevano bastare i registri
stessi. Per questo il TSR ed il programma possono passarsi un
puntatore ognuno ad una propria area di memoria.
Ma perché fai 'ste cose nel 2001 ?
--
Virgilio Lattanzi       HARPAX
Tel: 
+39 0733 816872
    via Fontanella, 55
Fax: +39 0733 819133    62012 Civitanova Marche MC
WWW: 
www.harpax.com
     ITALY
Newsgroup: it.comp.lang.pascal
Titolo: SVGA

Salve!
Scusate se l'argomento sara' gia' stato ampiamente trattato, ma mi
piacerebbe tanto sapere come accedere alle modalita' VESA e sfruttarne
tutte le caratteristiche, bypassando i
drivers BGI.
Antonino
Anto...@Sistemia.IT

"Antonino Parisi" <Anto...@Sistemia.It>, il giorno 27 Jul 1997
16:50:48 GMT hai scritto:
#Salve!
#Scusate se l'argomento sara' gia' stato ampiamente trattato, ma mi
#piacerebbe tanto sapere come accedere alle modalita' VESA e
sfruttarne
#tutte le caratteristiche, bypassando i
#drivers BGI.
#
#Antonino
#Anto...@Sistemia.IT
Ciao, tempo fa mi hanno inviato del codice per la gestione della
modalita' 640x480x64k colori, con effetti di trasparenza ed animazione
impressionanti, penso che arrivassero dal sito:
http://WWW.INFORMATIK.UNI-OLDENBURG.DE/~VIRTECH/
bye
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **

Newsgroup: it.comp.lang.pascal
Titolo: gestire code di dati con i puntatori

Vorrei creare (per esempio) una coda dinamica di interi;
ho scritto questo codice:
<CODE>
program FIFO;
uses crt;
type pack= record
     prev:^pack;
     next:^pack;
     information:integer;
     end;
BEGIN
END.
</CODE>
Ovviamente il compilatore mi da errore, in quanto sia per 
next che per prev (che dovrebbero puntare all'elemento
successivo e precedente), il tipo pack non è definito....
Come faccio a creare degli oggetti contenenti puntatori ad
oggetti dello stesso tipo? Creo due tipi di oggetti identici?
Non c'è una soluzione migliore? (Ovviamente si, chi me la dice?)
Grazie per l'attenzione.
NM

 </CODE>
Salve, ehm... che versione di pascal sarebbe? :
Cooper.

 Non c'è una soluzione migliore? (Ovviamente si, chi me la dice?)
Ovviamente si:
program FIFO;
uses crt;
type packptr=^pack;
     pack= record
     prev:packptr;
     next:packptr;
     information:integer;
     end;
BEGIN
END.
Non dovrebbe darti problemi, però a me non è mai piaciuto rischiare di
confondere i nomi:
[Dall'help]
TCollection.Pack     (method)
 Syntax:
 procedure Pack;
 Description:
Deletes all nil pointers in the collection.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

Grazie..
Ora provo..
NM



wrote:


Newsgroup: it.comp.lang.pascal
Titolo: Eseguire una linea di comando DOS

Ho provato a fare cosě:
uses dos;
begin
exec('copy','dafile afile');
end.
e Doserror mi da 0, ma il file non viene copiato. Dov'č l'errore?
Grazie & buon 1900!

...


Newsgroup: it.comp.lang.pascal
Titolo: creazione file .exe

Salve a tutti sono un provetto del Pascal , ho scaricato la versione 7,
qualcuno mi potrebbe spiegare come devo generare i file .exe dei miei
programmi visto che il compilatore non lo fa automaticamente .
Ringrazio anticipatamente .





Sulla linea di comando con tcp 
nomefile.


 


Se hai delle unit, devi prima compilarle 
tutte.


 


Se non ricordo male, l'IDE dovrebbe comunque 
compilarle con F9 a Alt+F9. Prova anche a cambiare la destinazione, da memory a 
disk.


 


Ciao.


 


el rasune'.


 


Ca' custa chiel ca' custa...


    Viva la val 
d'Austa



...

Newsgroup: it.comp.lang.pascal
Titolo: No paguemos por navegar !

Perdón por si molesta.
A todo el que quiera ganar dinero. Dejad un mensaje con el asunto
"información" en esta dirección 
yomi...@mixmail.com
 y recibiréis un e-mail
con información completa de las mejores maneras de hacer dinero en la red.
Además tendréis la posibilidad de crearos una página con los links a las
compañías a las q os halláis inscrito para tener un montón de referidos,
solo debes poner tus identificadores y desde el primer segundo q te des de
alta ya tendrás tu propia web. En el link de abajo.
Los que dicen que es mentira da la casualidad que no lo han probado...
--
yomismo
www.navegana.es/dinero/arimi.html
La mejor forma de ganar dinero en la red.
HAZ CLIC EN EL LINK

 wrote in message
NUYM5.105547$dT1.2...@telenews.teleline.es...


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

Salve,
Tra dieci giorni ho l'esame di Fondamenti di Informatica e non riesco a
risolvere un'incompatibilità di versione del PASCAL  :
Come si si scrive in termini standard la seguente istruzione :
READLN(pol);
dove pol è variabile del tipo : TYPE tipo = PACKED ARRAY[1..max] of char
Più o meno dovrebbe essere così:
while (variabile<=max ) do begin
    readln(pol[variabile]);
    variabile:=variabile+1;
end;
Il problema è che io voglio che la lettura della stringa finisca quando
viene premuto INVIO,
proprio come succede con l'istruzione readln(pol);
Vi ringrazio.
andr...@tin.it

Salve a tutti, come da oggetto mi serve una mano per creare la parte di
codice per leggere un file wav  o simile da pascal.
Grazie anticipatamente a chi mi portą aiutare.
La mia e-mail č 
sama...@mail.phoenix.it
Ciao a tutti e buon lavoro!!!

...

Sì, ma csì ad ogni carattere devi battere invio!!! Non c'è qualcosa tipo il
readkey??
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

Devi inserire un IF del tipo
...
while (variabile<=max) do
 begin
  car:=readkey;
  if ord(car)=13 then variabile:=max+1
                      else if (ord(car)=8) and (variabile>0) then
variabile:=variabile-1
else pol[variabile]:=car
 end;
...
 Per farlo ancora migliore dovresti inserire altri "filtri". In questa
maniera quando premi invio esce dal ciclo e se premi il tasto backspace
sposta il contatore "variabile" di uno indietro, per simulare la
cancellazione del carattere.
--
                Francesco Trotta
                icq uin: 4218722
       elimina x_ dall'indirizzo email
http://www.a-vip.com/francesco.trotta


andr...@tin.it
Saluti
Samuele Sadocco
samu.s...@dada.it
Newsgroup: it.comp.lang.pascal
Titolo: chi mi sa' spiegare questa procedura di Tommygun ?!





ciao..sono il tipo ke un po' di tempo fa' aveva 
fatto la domanda sull'ordinamento di
una lista..innanzitutto GRAZIE!!! di 
cuore..senza il tuo aiuto..
ero decisamente in 
difficolta'...
 
ora ti vorrei kiedere una cosa..mi puoi spiegare 
velocemente come 
funziona la tua procedura?..c'e' un punto in particolare ke 
nn capisco..
..cmq se puoi dammi una spiegazione 
generale..grazie..ciao...
 


 


PROCEDURE ordina(p:lista);
var 
x:string;
               

          PROCEDURE 
controlla(var x:string;var 
p:lista);
               
var 
temp:string;
                   
begin
                      
if p<>nil then 
begin
                                        
if  x>p^.chiave 
then
                                                          
begin
                                                            
temp:=x;
                                                            
x:=p^.chiave;
                                                            
p^.chiave:=temp;
                                                            
controlla(x,p^.next);   <--- qui kosa vuol 
dire?
                                                          
end
                                
else 
controlla(x,p^.next);
                                      
end;
                   
end;
 
      begin 
(*trovamin*)
       while p<>nil do 
begin
                         
controlla(p^.chiave,p^.next);
                         
p:=p^.next;
                       
end;
      end;
  

 
GRAZIE!!!!!!!!!!!



 wrote in message 
000a01c112c6$116a7aa0$5de81d97@luigi
...

Newsgroup: it.comp.lang.pascal
Titolo: Interfaccia, AIUTO !!

Scusate se rompo l'anima, ma sono alle prime armi con il TP,
(solo un po' a scuola e tanta mia buona volontà). Devo realizzare un 
programmetto per una festa di paese che funzioni praticamente da 
contatore di cassa, quindi stampi scontrini conle portate, tenga i totali 
ecc... il mio problema + grande è creare un'interfaccia quantomeno 
ACCETTABILE, che non richieda, per fare qualche modifica di aprire i file 
con i dati o cose simili... Qualcuno mi può dire se esistono librerie che 
mi permettano di fare menu' a tendina, finestre sovrapposte ( non chiedo 
cose raffinate !!! ) 
GRAZIE e scusate ancora la ''rottura'' !!
Dario Bondonmo
( 
dari...@tiscalinet.it
)

 ha scritto nel messaggio
news:MPG.13a1b515d...@news.tiscalinet.it...

SBAGLI!!! il tuo problema + grande sarà stampare!!!!!
per la creazione di una interfaccia grafica o hai intenzione di usare le
funzioni di
TP (non lo consiglio a nessuno), ma se vuoi un consiglio mooolto appropriato
non
usare il vecchio Pascal!! passa a delphi!!! avrai tutto e di +!! una user
interface in
2 minuti senza scrivere 1 riga di codice!!! e a quanto mi dicono anche l'uso
della stampante
è mooolto più facile

 - rimuovi XXX x rispondere    ICQ #8814554

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

salve a tutti,
considerate il seguente programa, per FreePascal:
uses mouse;
begin
initmouse;
writeln(detectmouse);
donemouse;
end.
in linux mi ritorna sempre "0"
bisogna avviare il gpm, cosi' dice Michael Van Canneyt
It's rather the opposite, mouse support only works on the console, if
you have started gpm.
ma se lo avvio (senza parametri),il programma di sopra si ferma....
avete idea del problema?
qualcuno sa aiutarmi?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 avete idea del problema?
"sensa parametri"? mi puzza un po'... io ho dei parametri a gpm...
per la precisione:
   /usr/sbin/gpm -m /dev/mouse -t ps2
ora non mi ricordo se questi sono opzionali o sono obligatori ma...
-- 
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

 ora non mi ricordo se questi sono opzionali o sono obligatori ma...
-- 


 ora non mi ricordo se questi sono opzionali o sono obligatori ma...
Non sono obbligatori in quanto possono essere specificati in un file di
configurazione (la cui ubicazione e` fortemente dipendente dalla
distribuzione con cui si ha a che fare). Probabilmente, manca il -Rraw, che
permette l'utilizzo di gpm sia con XFree che con qualsiasi altro sistema di
controllo del mouse
Henryx
Newsgroup: it.comp.lang.pascal
Titolo: Ricerca nei file

Ho un problema: ho creato un programma che legge i vari campi di un
record che ho dichiarato con type, e poi li memorizza in un file.
Mettiamo che adesso io voglia cercare i dati di un certo record
basandomi su un nome o su un indirizzo, come posso fare?
Per favore non siate troppo tecnici, sono appena un principiante.

 ha scritto nel messaggio
news:38de1cbb...@news.tin.it...

Leggi il file un record alla volta e confrontane i campi con le chiavi di
ricerca.
Se la base di dati e' relativamente grande, ti conviene leggere piu' di un
record alla volta.
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)
==============================

 record alla volta.
come ?
Phones

Newsgroup: it.comp.lang.pascal
Titolo: Error Runtime

Quando eseguo questo piccolo programma
{Sample code for the ClrScr procedure.}
{ For Windows: }
{ uses WinCrt; }
uses Crt;
begin
 Writeln('Hello.   Please the <enter> key...');
 Readln;
 ClrScr;
end.
mi da Error Division by Zero,
Runtime Error 200 AT 099B:0091.
Perchč ?
Grazie
Max

...


 Runtime Error 200 AT 099B:0091.
http://start.at/tp-links
"patches"

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

Qualcuno conosce l'assembler?
ka...@tin.it


ka...@tin.it
Certo, ma di quale processore ?
Andrea Laforgia
*************************************************
Cerca sempre di percorrere una strada contromano.
Sara' piu' difficile prenderti alle spalle.
*************************************************


ka...@tin.it
si, quello degli 80x86 & Pentium...
chiedimi pure
ciao

Ciao 
Chi mi puo' consigliare un ottimo manuale "per chi e' assolutamente a
digiuno" di assembler (in Italiano) ?
***68000
***80x86 & Pentium
-- 
 
                                       \\\\////
                                        ^   ^
                                       (.) (.)
                      |===========oo0===( )===0oo===========|
                       \-----------------------------------/     
                        |     Per rispondermi togli       |
                        | .LINUX dal mio indirizzo E-Mail |
                        |    
maurizi...@webaq.it
      |
                       /-----------------------------------\ 
                      |=====================================|           
                                      | /   \ |                        
                                    (  _)   (_  )

Newsgroup: it.comp.lang.pascal
Titolo: Problemi di lettura di un file

Non c' e' nessuno che mi da' una mano?

> Non c' e' nessuno che mi da' una mano?
Cosa ti serve, precisamente ?

> Non c' e' nessuno che mi da' una mano?
Dimmi tutto ...
Newsgroup: it.comp.lang.pascal
Titolo: aiutooooooooooo

Per favore, qualcuno potrebbe dirmi da dove posso scaricare turbo
pascal 7.0? Ho cercato ovunque, ma non ho trovato altro se non la  versione
più vecchia 6.0.
Aiutatemi please!!!
Grazie a tutti in anticipo.

Il 12 mar 2001 cygnusxone ha espresso la sua creatività scrivendo:

Sarebbe illegale ma...
 
www.crackstore.com
    	sezione toolz.
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

altra FAQ

 wrote in message
98joj7$pr6$1...@nreadB.inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: Player XM in modalita' protetta.

Salve a tutti.
Vorrei cortesemente chiedere un aiuto su dove poter trovare una unit
in grado di poter suonare degli XM in backgroud durante una sessione
DOS DPMI.
Grazie.
sNiPEr

 wrote in message
3846A534...@zeppo.cedi.unipr.it...


Newsgroup: it.comp.lang.pascal
Titolo: estrazioni di radici con TP7

Ciao,
mi servirebbe un programma per automatizzare  le estrazioni di radici
n-esime
Saluti e grazie in anticipo.

n-esime
exp( 1/n * ln( radicando ) ) 
--
Andrea Laforgia
andrea_...@bigfoot.com


ad esempio se ti serve calcolare la radice quinta di a, basta elevare
a alla 1/5.
e-mail1: 
fa...@interplanet.it
e-mail2: 
wiggum-w...@usa.net
Note that every SPAM will moved to /dev/null
[root@localhost ]# rm -rf /
bash: Cannot unlink /proc: permission denied
You can try with an hammer!!
[root@localhost ]# 



Newsgroup: it.comp.lang.pascal
Titolo: Stringhe

Ciao a tutti, qualcuno sa dirmi:
- Come si stampa una stringa?
- Come si assegna una stringa ad un'altra stringa?
- Come si "pulisce" una stringa?
- Come si assegna una stringa a una funzione quando la stringa è il ritorno
della funzione?
- I caratteri #13 e #10 a cosa corrispondono?
Grazie
Ciao.

 - I caratteri #13 e #10 a cosa corrispondono?
#13=INVIO
#10=EOL (End Of Line) {Se non sbaglio}
Ciao ciao
--
KNOWLEDGE IS POWER
http://www.sverzat.com
http://www.viruspocalypse.f2s.com

#13 (va a capo rigo) è l'equivalente di: gotoxy(1,wherey);
cioè sposta il cursore all'inizio della riga in cui si trova il cursore
#10 (nuova riga) è l'equivalente di: gotoxy(wherex,wherey+1);
cioè sposta il cursore nella riga subito sotto ma la distanza
cursore-margine sinistro (o destro) rimane invariata
Es.
Write('12345'); il cursore è subito a destra rispetto al 5
Write('12345'+#13); il cursore è sull'1
Write('12345'+#10); il cursore è in basso a destra del 5
Write('12345'+#13#10); che è uguale a WriteLN('12345'); il cursore è sotto
l'1
scrivere dunque Write(#13#10); o scrivere Writeln; è la stessa cosa (almeno
in termini di output)

 della funzione?
PROCEDURE ADD_CHAR_X(VAR S:STRING);
BEGIN
S:=(S+'X');
END;
questa procedura aggiunge un carattere in una variabile stringa dichiarata
esternamente alla procedura (nota il VAR)

 - I caratteri #13 e #10 a cosa corrispondono?
CR/LR mi sembra, cioè carriage return e nuova linea


Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

forse s1[0]:=0;
Oppure s1 := '';

all'inizio della riga...
#13 e' CR
#10 e' LF
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia

Newsgroup: it.comp.lang.pascal
Titolo: MODULO DOS

Non riesco  a far eseguire un file .exe esterno al compilatore da un
programma pascal
So che bisogna usare il comando
EXEC...
ma non funziona come si fa?

you wrote:

{$M 8192, 0, 0}
uses dos ;
begin
  swapvectors ;
  exec( nome_programma, parametri ) ;
  swapvectors ;
end.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 wrote in message
3895bd91...@diesel.cu.mi.it...

Newsgroup: it.comp.lang.pascal
Titolo: ringraziamenti

GRAZIE A TUTTI !!! per la disponibilità dimostrata, credo che nei prossimi
giorni avrò ancora bisogno del vostro aiuto per il GOTO . Arrivederci....


L'istruzione GOTO e' fortemente sconsigliata in Pascal. Un tale Dijstra(non
sono sicuro pero' di averlo scritto giusto) ha detto che l'abilita' di un
programmatore e' inversamente proporzionale al numero di GOTO presenti nel
programma! Questo non vuol dire che in qualche caso non sia necessaria (ad
esempio per velocizzare il programma) ma per ora credo che sia il caso che
tu dimentichi l'esistenza di questa istruzione. Il Pascal serve proprio ad
imparare a programmare in maniera chiara e ordinata e se ti lasci prendere
la mano dai GOTO ti assicuro che neanche tu a distanza di qualche settimana
(forse anche giorno) riuscirai piu' a capire cosa fa il tuo programma.
Progetta i tuoi programmi piuttosto in maniera accurata e vedrai che non
avrai mai bisogno dei GOTO.
Ciao Teo

 Ciao Teo
Concordo!

La programmazione pascal puo essere fatta tranquillamente senza GOTO... ma chi
viene dal BESIC (come me) gli viene quasi naturale usarlo...ma anche io lo
sconsiglio perchè alla fine non si capisce più ninete dentro il programma...
specialmente se hai dei cilci (FOR, WHILE e REPEAT) e uscire da essi con il GOTO..
il goto nei 100% dei casi si può evitare... e secondo me si deve evitare....
------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
http://www.geocities.com/il_razziatore/
ICQ:   67552596
--------------------------------------------------

 wrote in message
39AEDCBB...@usa.net...

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 7 Borland

Ho la cersione in oggetto del Pascal...
Eppure appena carico qualche unit diversa da crt mi dice che e'
assente, ma ci sono tutte!!!!
Che sia in una cartella diversa da quella corretta?
Avete questa versione del Pascal cosi' la reinstallo?
Grazie!
N.B. Ho qualche sorgente di programmi fatti da me.. se servono sono a
disposizione
Arianna Microchip
ari...@softhome.net
Web: 
http://arianna.cjb.net
http://consolicarmen.cjb.net

 disposizione
Se ti va di pubblicarli sul sito 
www.pascallike.cjb.net
scrivimi qui 
pasca...@supereva.it
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

Te li mando appena possibile.
Ne ho fatti anche altri se per te e' ok te li mando... sempre a
disposizione di tutti!


Arianna Microchip


Newsgroup: it.comp.lang.pascal
Titolo: Tasti speciali

Ciao ragazzi
vi volevo chiedere,
come posso includere in alcuni miei programmi l'utilizzo di tasti come
ad es. ESC, F*, freccette?
vi ringrazio.
in particolare stavo provando un semplicissimo editor di testo (grazie
al sito di redicuori :) ma con la freccia sinistra cancella, e non
torna solo indietro il cursore... dovrei mettere una storia tipo
gotoxy(x,y) con x=x-1?
thanx
--
machine

 gotoxy(x,y) con x=x-1?
asp cosa intendi... in una read o in una tua funz ?
per tornare indietro puoi scrivere il carattere 'backspace'
(8 o 9 ? boh... uno e' il Tab l'altro il Bksp... direi 8)
che riporta indietro il cursore di una pos
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

vi ringrazio.
De nada...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

   if c = 0 then
ehm.... c = 0 ti da errore... c = #0 no...


 end.
thanx! funziona alla grande!
ora, se ad esempio volessi assegnare una funzione al tasto F1, mi
basterebbe fare una cosa tipo
c:=readkey;
if c = #0x (* x inteso come il carattere che mi esce con il tuo codice
*)
       then
       begin
       ....
       end;
ciao grazie ancora!!
--
machine