mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Dovrei creare un prog.

Dovrei creare un programma con la virualizzazione di primi n numeri secondo
il conteggio di Fibonacci qualcuno mi puo' aiutare???
Grazie


Mmmh, questa domanda somiglia tanto a quei cavolo di "progetti" che ti fanno
fare al primo anno delle facoltà di informatica (pensa che a me hanno fatto
fare un clone del gioco "Mastermind" -che è di una noia mortale-).
Comunque, eccoti qui la soluzione:
I numeri di fibonacci sono una serie di numeri generati dalla seguente
funzione:
            F(i) := F(i-1) + F(i-2)
i parametri di base sono F(0)=1, F(1)=1, F(2)=2
Per controllare se tutto funziona sappi che per qualsiasi numero -i-
F(i) < (5/3)^i
Buon lavoro!

fare un clone del gioco "Mastermind" -che è di una noia mortale-).
Scusa la domanda forse OT,ma mi potresti dire se questi cavolo di
"progetti" te li fanno fare anche negli altri 4 anni?
P.S.   l'ho fatto anch'io il master mind nel progetto di
programmazione1....e ovviamente sul mio PC funzionava mentre su quei 
cavolo di Mac del laboratorio no! :-)
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

Newsgroup: it.comp.lang.pascal
Titolo: Ho iniziato oggi e :

Ciaoo =D ho iniziato oggi a fare qlk esercizio con il pascal ma mi
servirebbe un aiuto.... come si fanno le parentesi graffe ???
e kome faccio a convertire un file .pas in uno .exe ??? grazie =D !!

 wrote in message
news:JtxP5.42064$BF.15...@news.infostrada.it...


BELLA LUCA =D !!!
"Luca T." <lu...@NOSPAManother-world.com> ha scritto nel messaggio
news:2PxP5.42227$BF.15...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Modalità grafica, come?

Ciao a tutti,
sto cercando invano da un pò di tempo di capire come si passa in modalità
grafica in pascal.
Premettendo che ho il TP7, ho provato ad avviare il file di esempio
bgidemo.pas, ma mi continua a dire
"File not found: Graph.tpu" anche se il file è presente nella dir /units (la
stessa specificata
nel menu Options>Directories).
Qualcuno mi saprebbe dire da cosa può dipendere?
grazie a chi mi risponde

mi sembra che per usare la grafica devi aggiungere
uses graph
ma non ne sono sicuro,anzi interesserebbe anche ame :)

non sono praticissimo però io ho provato a metterlo in tutte le cartelle e
dopo di chè è andato...vai a tentativi..


 ha scritto nel messaggio
news:9d1921$3vv$1...@nreadB.inwind.it...


...

Supponiamo che la cartella del tuo Pascal sia:
C:\TP
Allora devi usare:
Var I: Integer;
Begin
    I:=0;
    InitGraph(I, I, 'C:\TP\BGI');
    ClearDevice;
    ....
    ....
    CloseGraph;
End.
Se ancora non ti funziona ti mancano alcuni file BGI nella cartella BGI
oppure proprio la cartella non c'è....
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   \/   \_/
Newsgroup: it.comp.lang.pascal
Titolo: Da INTERO ad ESADECIMALE (HEX)

Io ho un problema: convertire un numero intero (tipo byte) nel corrispettivo
valore esadecimale (tipo '00'..'FF'); sono riuscito a trovare il modo per
passare da esadecimale ad intero usando una notazione particolare :
v[i,j]:=$0A cioè v[i,j]:=10. Ma santo Dio non c'è verso fare l'inverso, non
mi va di fare una procedura lunga 1 km per fare questa conversione. Ci sarà
qualche istruzione, notazione, espressione che mi faccia questa benedetta
conversione ? Grazie dell'attenzione ciao alla prossima.
P.S. Già che ci siete c'è qualcuno che sa come far "acquisire" al programma
valori esadecimali da tabelle 16x16 già pronte.

 mi va di fare una procedura lunga 1 km per fare questa conversione.
const
 hxSymb : string[16] = "0123456789ABCDEF";
function Hex (x: byte): string;
 begin
  Hex := hxSymb[x shr 4] + hxSymb[x and 15];
end;
per estenderla agli integer ripeti la cosa 2 volte
la prima su Hi(x), la seconda su Lo(x), per i longint
ci sbulacchi ancora di piu' ma il principio e' lo stesso:
dividere il numero in gruppi di 4 bit, cioe' 1 cifra hex
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 > mi va di fare una procedura lunga 1 km per fare questa conversione.
ops scusa ho sbagliato a quotare, era il contrario :-)

Newsgroup: it.comp.lang.pascal
Titolo: tp 5.0 e asm ,come????

A scuola usavo interfacciare coidce assembler con pascal
come si fa?
grazie in anticipo
cek
c...@libero.it
sol...@iol.it

 come si fa?
Qualche appunto l'ho salvato nella pagina
http://members.xoom.it/stor/informatica/basm.htm
 spero ti possa essere utile
(vale per il delphi e il tp7 e non so se il tp5 accetta questo formato), a
breve dovrei aggiungere qualche esempio riportando delle routines che ho
usato in un programma....
ciao
Claudio

 come si fa?
Please allow me to answer in English, my Italian is too poor.
The TP 5 compiler has no built in inline assembler. It is possible
to insert machine code in two very distinct ways:
1) INLINE
You must enter the assembled machine code byte by byte or with words.
Look in the manual for details, please.
2) TASM
Create .OBJ files with the TASM Turbo assembler and link them into
your program using the {$L .....} directive. The TASM is part of the
TP 5 compiler package.
-- 
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: altro problemino...

ho un altro problemino, dovrei trovare un elemento da una pila di numeri
interi...
ciao a tutti

Daniela, non ti pare di star esagerando oggi??????????????
Vabbè pero' mi dovresti dire che struttura record ha? E' una pila su file, statica o dinamica (a puntatori).
Ti faccio un esempio con la più complicata ovvero quella dinamica:
Type
   PPila = ^TPila
   TPila = Record
                    Valore       : Real;
                    Successivo : PPila;
               End;
Var
   Ultimo = PPila;
Quindi l'inserimento sarà?
Procedure Inserisci(Valore : Real);
Var
   P, P1 : PPila;
Begin
    New(P);
    P^.Valore := Valore;
    P^.Successivo := Ultimo;
    Ultimo := P;
End;
Ed il prelevamento (controllato ovviamente) sarà:
Function Preleva(Var Valore : Real) : Boolean;
Var
   P : PPila;
Begin
    If Ultimo = Nil Then
       Begin
           Preleva := False;
       End
          Else
       Begin
          valore := Ultimo^.Valore;
           P := Ultimo;
           Ultimo := Ultimo^.Successivo;
           Dispose(P);
           Result := True;
       End;
End;
--
Ciao,
David (
www.utilityweb.net
)

Non è giornata ti ho mandato la codifica errata pure qui' (ho invertito i due post che avevi mandato). Guarda la prima
risposta al post Code, Liste e file per la codifica esatta
David wrote:
--
Ciao,
David (
www.utilityweb.net
)


da ke la dà........:-p
--
________________________________
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo! ;-)
________________________________
   FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere NOSPAM
Newsgroup: it.comp.lang.pascal
Titolo: #turbopascal

Riusciamo una sera, prima che tutti spariscano per le vacanze,
ad organizzare un inontro con un po' di gente ?
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 ad organizzare un inontro con un po' di gente ?
Mi sa che siamo soli.
Cmq come ti ho già detto per me va bene a qualsiasi ora.
Ciao

Newsgroup: it.comp.lang.pascal
Titolo: Problemi con PACKED ARRAY e TP4

Io dichiaro un tipo stringa:
 type stringa= packed array [1..15] of char;
 var a : stringa;
poi voglio leggere in a una stringa:
 read(a);
Il compilatore TP4 non accetta questa cosa come mai?
Grazie per l'eventuale aiuto
Franco
--
Automatic posted from 
www.leonet.it
 [194.196.233.2]
via Mailgate Server - 
http://www.mailgate.org

Il compilatore TP4 non accetta questa cosa come mai?
Devi usare il tipo stringa predefinito del tp4, cioe' definire
type stringa = string[15];
var a : stringa;
Tieni presente che il primo byte contenuto nello spazio di memoria di a deve
essere quello che ne denuncia la lunghezza.
Cioe' e' per default a[0] := char(lunghezza di a);
Il formato packed array e' incompatibile per questo scopo con il tipo string.
Andrea      
(per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo)
ICQ# 8328956

Newsgroup: it.comp.lang.pascal
Titolo: AIUTATEMI X FAVORE!!

Salve a tutti,
Ho intenzione di realizzare un programmino con Turbo Pascal 7.0, ma
necessito
di alcune conoscenze che sinceramente, pur cercando sui libri, non ho
trovato.
Il problema è che non sono capace di scrivere un file, comune a due
computer, collegati via porta seriale o parallela, da uno degli stessi
computer. Come posso configurare la connessione al di là del collegamento
fisico e gestire così il file??
E' possibile inviare dei comandi via cavo?
Poi...
Come faccio ad inserire una matrice in un file, per poi modificarla???
Se siete in grado di aiutarmi o conoscete qualcuno che lo può fare,
contattatemi via E-Mail. Questo programma è per scopi scolastici, per cui la
richiesta è seria.
GRAZIE in anticipo.
////////////////////////////////////////////////////////////////////////////
///
STEFANO ABBATE.
abb...@libero.it
http://www.angelfire.com/ab/AbbateStefano
TARANTO, ITALY
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\

 GRAZIE in anticipo.
Le tue domande mi interessano. Potresti inviarmi le risposte che ricevi?
Grazie da FABIO!
--
Fabio Feuli
E-Mail 
fe...@libero.it
Nick-Name Bacco
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)
Newsgroup: it.comp.lang.pascal
Titolo: Scorrere una lista al contrario

Avendo dichiarato una lista in suddetto modo:
TYPE LISTA= ^NODI;
           NODI=RECORD
            INFO : INTEGER;
            PREC, NEXT : LISTA;
            END;
Come posso fare a scorrerla dall' ultimo elemento al primo?
Cioè vale comunque la regola del nil o no, per capire quando sono arrivato
al primo?
 Grazie mile!!!

 ha scritto nel messaggio
news:lHMV6.1528$GZ5....@news1.tin.it...


Beh se l'hai costruita correttamente, dovresti
poter sostituire tutti i next con prec nella
normale visita e ottenere quella al contrario
(ricordati di partire dall'ultimo elem !)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Puoi perfavore farmi un esempio di lista lineare e circolare, la mia
dovrebbe essere lineare,
 ma fino ad ora non avevo mai usato il puntatore al precedente!
ReDiCuori <redicu...@NOSPAMlibero.it> wrote in message
miNV6.832$7S1....@news.infostrada.it...


 ha scritto nel messaggio
news:Vi3W6.631$uE.2...@news2.tin.it...


Ok grazie mille,
quindi il mio problema è su una lista lineare, e cioè non riesco
a fargli acquisire degli interi, ho provato con questo, ma, primo non
funziona, soprattutto per quanto riguarda il campo prec, secondo sicuramente
ce ne sono di migliori :
procedure leggi(var l:lista;x:integer);
var f:lista;
begin
writeln('INSERIRE NUMERI BINARI');
readln(x);
while x<>2 do
if l= nil then
      begin
      new(f);
      f^.info:=x;
      f^.next:=l;
      f^.prec:=nil;
      l:=f;
      readln(x);
      end
else
begin
        while l<>nil do
          begin
          l:=l^.next;
          end;
new(f);
f^.info:=x;
f^.prec:=l^.prec;
f^.next:=nil;
l:=f;
readln(x);
end;
end;

 l:=f;                                            <<< ma l vale nil
!!!!!!!!!!!!!!!!!!!!!! e ti sei perso tutto
end;
Prova così
x lo leggi prima con i dovuti controlli
procedure leggilista(var l  : lista; x : integer);
var c : lista;
begin
    if   l=Nil then
       begin
           new(l);
           l^.info:=x;
           l^.next:=nil;
           l^.prec:=nil;
       end
   else
      begin
          c:=l; (* così non perdi il valore di l)
          while c^.next <> nil do
              c:=c^.next;
         new(c^.next);
         c^.next^.prec:=c;
         c^.next^.next:=nil;
         c^.next^.info:=x;
      end;
end;
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Quesito solo apparentemente banale!

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
Due amici s'incontrano dopo anni, uno dall'aspetto normale, l'altro  ben
vestito con auto di lusso.  "Pero', che carriera!  Ma come hai	fatto?".
"Sono entrato in politica".  "Va bene la politica, ma si  diventa  cosi'
ricchi?".  "E' tutta una questione di saperci fare.  Ero il responsabile
della costruzione di alcune autostrade nel Sud; progetto molto	moderno,
tre corsie, spartitraffico a siepe, ecc.  Poi, in  realta',  ho  pensato
che di corsie ne bastavano due...   la	siepe,	se  anche  non	c'era...
insomma, alla fine sono avanzati un po' di soldi (qualche miliardo) e...
sai come  vanno  queste  cose...   insomma,  mi  spiego?".   "Capisco...
interessante!".  Alcuni anni dopo i due si reincontrano.   Il  ricco  e'
ancora ricco,  l'altro	invece	lo  e'	diventato:  auto  lussuosissima,
autista, portaborse, ecc.  "Che roba!  Ma come hai fatto?".  "Ho seguito
il tuo consiglio: sono entrato in politica anch'io.  Facciamo un salto a
casa mia, cosi' ne parliamo meglio".  Villa nel meridione, con campo  da
tennis e piscina.  "Veramente bello qui, ma adesso dimmi: in  che  campo
della politica ti sei lanciato?".  "Come ti dicevo, ho	seguito  i  tuoi
consigli.  Anch'io mi sono occupato di autostrade.  Vieni alla	finestra
e guarda: la vedi quell'autostrada laggiu', a  quattro	corsie?".   "No,
veramente non la vedo".  "Appunto!".
		-- Da it.hobby.umorismo

Ho provveduto ad inoltrare il post sul NG da te indicatomi.
Grazie.

Newsgroup: it.comp.lang.pascal
Titolo: Fondamenti di Informatica - me la date una mano?

Ci sono dei siti italiani dove č possibile scaricare un po' di programmi
didattici, in modo da capire le basi del Pascal (procedure, funzioni, array
ecc ecc.)?
Sto andando un po' a casaccio e qualcosa appare... ma č DURA?
C'č qualcuno che puo' aiutarmi? Gli sarei davvero grato.
========================================
RIMUOVI DUE CIAO DALLA MIA EMAIL
gegpe...@CIAOtin.it


Se magari ci esponi qualche problema più... pratico :-)
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

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

 
www.geocities.com/italianpm
 In sole 2 settimane ci sono stati + di 300 visite.
--
---------------------------------------
Tonello Stefano
e-mail : 
tone...@tiscalinet.it
web    : 
www.geocities.com/italianPM
ICQ    : 36611007
---------------------------------------

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

Dunque ormai da tempo nella programmazione dei miei programmi arrivo ad un
limite di memoria che non riesco a superare..... stavolta non posso
aggirarlo altrimenti dovrei penalizzare un casino il programma.
in pratica ho un po' di dati che cambiano in continuazione
sono circa un centinaio di stringhe con esse ho saturato la memoria..... le
gestisco tramite puntatori e per aggiornare una lista creo una nuova var e
ne cancello l'ultima per liberare memoria, ma non ci riesco !!!!
col comando dispose mi dice errore perchč il puntatore punta sopra lo heap
!!!! come diavolo faccio ad utilizzar piů memoria?
avete una bella unti che mi restituisca il puntatore ad una area di memoria
superiore da lei allocata?
grazie 1kkkkkkkkkkkk non so piů che fare !!!!!!!!!!!!!!!

prova a questo link, c'e una bella libreria!
http://www.devinfo.com/archives/borland/pub_techin/language/pascal/index.html
Excite -- Control Yourself.  
This E-mail brought to you by Excite's free E-mail service.
Get your own E-mail address at 
http://www.excite.co.uk
--
Posted from 
mailgw1.prontomail.com
 [209.185.149.197] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Se io volessi che un mio programma si attivasse all'avvio del pc e che si
disattivasse (rimanendo quindi sempre in backgroud) solo quando faccio
"chiudisessione"....
...cheddevofare ???  Sono in alto mare.....

...penso che per certe cose ti convenga passare al c++ o al massimo al
delphi...



uhm... forse dovresti darti ai tsr

tsr ? What ?!?

tsr ? What ?!?
La prima parte e' abbastanza facile perchè basta che inserisci il
programma in "esecuzione automatica" di windows e il programma parte
all'avvio ... per la parte in chiusura, non saprei ...
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

 - rimuovi XXX x rispondere    ICQ #8814554
Cleptomaniaco, s.m.:
        Un ladro ricco.
		-- Ambrose Bierce, "The Devil's Dictionary"
Newsgroup: it.comp.lang.pascal
Titolo: SVENDO LIBRERIA GRAFICA( PER VIDEOGAMES E PROGRAMMI DI GRAFICA)

Svendo la famosissima libreria grafica FASTGRAPH 4.03.
E' un insieme di funzioni scritte in assembly ottimizzato adatte per
qualsiasi programma che richieda l'uso di grafica ad alta velocità: in
particolare videogames, CAD, programmi di rendering, presentazioni
multimediali, etc.
Supporta oltre 12 compilatori C,C++, Pascal, Assembly,Basic e lavora in
modalità 16 e 32 bit.
Vendo la confezione nuova comprendente manuale di oltre 700 pagine che
riporta svariati esempi e ottimizzazioni anche a chi è digiuno in materia!
Incluso con il programma decine e decine di programmi di esempio pere ogni
tipo di compilatore supportato!!!!
Le funzioni sono tantissime e comprendono scrolling, input, modalità video
(OLTRE 25 MODALITA' VIDEO SUPPORTATE fino ad arrivare ad una splendida e
velocissima 1024x768!!!), animazione, gestione colore e palette, virtual
buffer, disegno di primitive e poligoni, e quant'altro serva per la grafica.
Affrettatevi perchè dispongo di non molte confezioni.
Il costo è di lire 150000 + s.s, meno della metà di quello usuale!!!!!
Grazie,
Cordialmente,
Riccardo
mag...@veneto.shineline.it



Newsgroup: it.comp.lang.pascal
Titolo: Radice n-sima

Salve a tutti,scusate avrei un problema: esiste una funzione in TP che
calcoli la radice N-sima di un numero?Conosco solo SQRT che però calcola
solo la radice quadrata!Grazie a tutti per l'aiuto!!
Luca Mago



No... in TP nelle unit Standard non c'è (almeno da quello che so io, e
help del pascal lo conosco benino). Le strade sono 2. o te la fai da
te la funzione oppure cerchi su intenret se tale funzione esiste.
io non ti posso "aiutare" + quanto non abbia fatto.
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 solo la radice quadrata!Grazie a tutti per l'aiuto!!
per fare la radice n-esima, che ti ricordo equivale ad elevare il numero per
l'inverso di n, puoi usare la relazione
a^b = exp( esponente * ln ( base ) )
Newsgroup: it.comp.lang.pascal
Titolo: differenza

Ciao qualcuno di voi sa dirmi che differenza c'è tra funzioni e procedure,
perchè usarne una al posto dell'altra?
Grazie mille e buona Pasqua a tutti.
Paolo

 ha scritto nel messaggio
news:a82g8l$f4a$1...@lacerta.tiscalinet.it...

Le funzioni restituiscono 1 solo valore e vanno assegnate ad una variabile
mentre le procedure non restituiscono nessun valore e vanno richiamate senza
assegnazione...
Ciao
--
--------------------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

Ciao qualcuno di voi sa dirmi che differenza c'č tra funzioni e procedure,
 Be', diciamo che quando ti occorre che il sottoprogramma (funzione o
procedura) ti restituisca un risultato, utilizzi la funzione (qualcosa
tipo a:=fx(b) ). Diversamente, una procedura potrebbe essere un
sottoprogramma a cui non viene passato alcun parametro (e che neppure
ne restituisce). Pensa a una procedura che cancelli lo schermo... la
chiami e basta. Paradossalmente, la procedura torna a essere vantaggiosa
quando i risultati che devono essere restituiti sono piů di uno (in questo
caso le variabili devono essere dichiarate col VAR davanti). Prendi la
procedura gettime (č nella UNIT "DOS"). La chiami -> gettime(h,m,s,hs)
e nelle rispettive variabili h,m,s, etc... ti ritrovi ora,minuti.. etc.
Saluti.
--
    _
 Fa/_)io         A1200 PowerTower, WB 3.9, 060@60, 64MB, FireBall 13GB,
  /__)enedetti   Voodoo3, Digicom-10/100, Philips PCRW1208 - TFT-140/S.
/...e a ciel sereno, ci tocca riposare/

 ha scritto nel messaggio
news:a82g8l$f4a$1...@lacerta.tiscalinet.it...

Mmmm,  Con le funzioni puoi scrivere:
A :=  PIPPO (PIPPO (PIPPO (A)));
Con le procedure invece....
PIPPO (C,A);
PIPPO (B,C);
PIPPO (A,B);
Il che rappresentano la stessa cosa... ma scritte in forma diversa :-)
Chiaramente questo è un esempio per mostrare la differenza fra una procedura
e una funzione...
In entrambi i casi si suppone che PIPPO abbia lo stesso codice dichiarato
prima come function e dopo come procedura.
Cooper.

 senza assegnazione...
Precisazione: non è detto che una funzione debba obbligatoriamente essere
assegnata ad una variabile, dipende sempre dalle esigenze :-)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
Newsgroup: it.comp.lang.pascal
Titolo: Make, Build, Compile, Menu Debug...

A che servono e come si usano tutti questi comandi ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

A che servono e come si usano tutti questi comandi ?
*comandi* ?
Con Make si intende l'operazione di costruzione ricorsiva degli
eseguibili/unit di un progetto tramite tutti gli elementi che li
compongono.
Se, ad esempio, il tuo codice pascal mainprg.pas implementa 3 unit
chiamate alpha.pas, beta.pas, gamma.pas e gamma.pas chiama, a sua
volta, 2 unit pippo.pas e topolino.pas allora la costruzione di
mainprg.exe avviene compilando prima topolino e pippo, poi gamma, poi
beta e alpha e poi mainprg.
Make cioe', fa in modo che al momento della compilazione di una parte
del progetto, tutte le parti sul quale essa si appoggia, siano gia'
state predisposte (ovvero compilate).
In due compilazioni distinte Make non compila due volte il codice di
unit che sono gia' state compilate e il cui sorgente non e' stato
modificato, mentre con Build si intende la ricostruzione completa di
tutto quanto.
Compile serve a compilare il codice locale.
Debug a farne il debug, cioe' a compiere tutte quelle operazioni di
individuazione dei malfunzionamenti e loro risoluzione.

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

Devo fare un programma che calcola la "media aritmetica" di alcuni 
risultati ed ho bisogno di utilizzare un comando tipo MAXINT che mi
rappresenti il "tetto massimo" raggiungibile da una determinata media.
Il problema è che la madia aritmetica è un valore Real e non Integer.
Come posso fare?
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

rappresenti il "tetto massimo" raggiungibile da una determinata media.
Il tipo real ha un tetto massimo positivo del valore di 1.7 * 10^38. 
Quindi ti basta costruire una costante del genere :
const MAXREAL : real = 1.7e38 ;
Vorrei pero' farti notare che un eventuale superamento di questo
limite da parte del programma non e' gestibile via programma stesso,
in quanto genera un errore critico sulla particolare operazione in
floating point, quindi mi piacerebbe sapere a cosa puo' servirti...

floating point, quindi mi piacerebbe sapere a cosa puo' servirti...
grazie per l'aiuto....
....ti posto l'esercizio cosě potro' essere piů chiaro:
Data la seguente dichiarazione: 
type T=array[1..n] of integer
Scrivere una procedura che prende in input un array a di tipo T e
stampa il valore in a che č piů prossimo alla media dei valori
memorizzati in a.


memorizzati in a.
Non credo proprio, quindi, che ti serva sapere il valore massimo
assumibile da un real ...
Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal e stringhe

Salve a tutti....avrei la necessita' di realizzare un programmino che mi
pulisca liste che ricevo in output da un portscanning. Il portscanning pero'
mi restituisce liste "sporche" ovvero liste che hanno 10 caratteri d'avanti
all'ip reale che a me servirebbe.....ora vorrei automazzare la procedura di
cleaning della lista togliendo i 10  caratteri iniziali di ogni riga del
file di testo contenente la lista.
Ho realizzato gia' del codice pero' non funziona....ovvero esegue le routine
perfettamente pero' non ho nessun risultato sulla lista
Program PulisciLista;
uses crt;
const carDaCancellare = 10;
var fileUsato : text;
    nomeFile : string;
    stringaIP : string;
    i : integer;
Begin
  write('INSERISCI IL NOME DEL FILE DA PULIRE : ');
 read(nomeFile);
 assign(fileUsato,nomeFile);
 reset(fileUsato);
 while not eof(fileUsato) do
  begin
   readln(fileUsato,stringaIp);
   delete(stringaIP,1,10);
  end;
 write(fileUsato);
 close(fileUsato);
End.
Chi mi dice cosa c'e' che non va in questo codice ? Ok....ringrazio tutti
anticipatamente ciao

 file di testo contenente la lista.
[cut]

Con reset apri un file in lettura e non ci puoi scrivere nulla, devi usare
due files, il tuo lo leggi come hai fatto ma il write va indirizzato a un
secondo file aperto con rewrite (si usa come il reset ma crea un file nuovo
o lo sovrascrive se c'e' gia').
Il write poi va messo dopo il delete all'interno del loop (i files di testo
si leggono e scrivono riga per riga), alla fine naturalmente devi chiudere
entrambi i files.
ciao
Claudio

Newsgroup: it.comp.lang.pascal
Titolo: Cercasi compilatore

Vorrei sapere dove posso trovare un compilatore per Turbo Pascal 7.0 oppure
se posso comprarlo ad un prezzo non troppo alto. Grazie

se posso comprarlo ad un prezzo non troppo alto. Grazie
Scarica lo GNU Pascal da internet.
Possiede anche estensioni per gestire le unit borland.
Skyscraper (apprezzatelo adesso : eviterete la coda)
----------------------------------------------------
 
andrea_...@bigfoot.com
----------------------------------------------------
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.pascal
Titolo: Asterischi per pwd...

Sapete come posso far visualizzare sul video degli asterischi invece di
quello che scrivo? Mi spiego meglio: ho scriito una procedura che chiede una
password e da due messaggi diversi, a seconda se la password č corretta o
meno. C'č in Turbo pascal (Borland, 7.0) un'istruzione che mi permetta di
visualizzare degli asterischi mentre introduco la suddetta password?
Grazie in anticipo...
--
-----------------------------------------------------------------
"... Se quella notte, per divin consiglio,
 la Donna Rosa, concependo Silvio,
 avesse dato a un uomo di Milano
 invece della figa il deretano
 l'avrebbe preso in culo quella sera
 sol Donna Rosa e non l' Italia intera...."
-----------------------------------------------------------------

 visualizzare degli asterischi mentre introduco la suddetta password?
direi no way [ovvero per i mortali ;-)  si potrebbe fare un hook
sull'interrupt
del bios e intercettare le chiamate di scrittura su video etc etc ehehhehe]
devi farti una funzione simile alla read[ln] che provveda a visualizzare a
video
solo il numero giusto di '*'
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Perche la fai cosi complicata?
questa è una mia vecchia procedura
Procedure GetPassword(PassChr : Char; Var PassVar : String);
Var Ch : Char;
Begin
  PassVar:= ''; {Inizializzo la password}
  Repeat
    Ch := ReadKey; { prendo il carattere }
    If Ch <> #13   { confronto con l'invio }
      Then If Ch <> #8 { confronto con il backspace }
        Then Begin 
          Write(PassChr); { scrivo '*' o quello che volgio }
          PassVar:= PassVar + Ch; { agiungo il carattere letto }
          End
        Else If Length(PassVar) > 0 { verifico se ci sono carateri}
          Then Begin
            Write(#8#20#8); { elimino l'ultimo dallo schermo }
            Delete(PassVar,Length(PassChr),1); {e dalla var string}
            End;
  Until Ch = Chr(13); { ripeto finche non premo invio}
  WriteLn; { vado a capo :o) }
End;
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

a video solo il numero giusto di '*'
e io cosa ho scritto  ?? :-)


e io cosa ho scritto  ?? :-)
Intedevo dire che come l'hai scritto sempbrava chi sa che...
potevi pure butare qualche riga di codice...


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

Ciao a tutti,
vorrei sapere come si crea un file da pascal, e dove trovare una guida
abbastanza esauriente sui comandi Erase, Rename...ecc. praticamente su
quelli che servono x i file.
Grazie
Dark Angel

 quelli che servono x i file.
Nell'Help.
--
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"

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

Sto facendo qualkosa per aiutarti.... :-)

 ha scritto nel messaggio
news:3b34f5b2...@news.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: domanda da niubbo

Ciao raga...sto iniziando a studiare il pascal..uso dev-pas per
compilare....ho una domanda...come mai quando eseguo un programma  la
finestra dos che appare nn dura piu di pochi dec imi di secondo.????
come posso ovviare a questo inconveniente??
grazie ciao

 grazie ciao
  < Prova a mettere un readln; alla fine del codice prima dell end. in
questo modo. il programma finira quando premerai invio >
Ciao                         ^_][ice][man][_^

 ha scritto nel messaggio
news:ohkC7.10585$Qj6.8...@news.infostrada.it...


Grazie a entrambi!!
sapete anche dirmi che versione e disponibile di turbo pascal??? a scuola ho
trovato il manuale dell 1987 (o_o)
sul turbo pascal
poi del '89 turbo pascal 5.5......adesso che versione e' disponibile??
la sette???

 ha scritto nel messaggio
news:uUCC7.16111$Qj6.1...@news.infostrada.it...


 Adesso č disponibile la 7.1 del tp.
Come?? Io avevo sempre saputo che l'ultima era la 7.0!!
--
Paolo Giarrusso

Oltre al readln prima dell'end finale potresti mettere
repeat until keypressed ovvero quando l'esecuzione del programma
sarà terminata qualunque tasto premi ti fa uscire dal programma
Cmq io so che l'ultima versione del TP è TP 7.0 e non 7.1 :)
byez all
--
--omega--
"Hands on"

 Avrai molta difficoltà a trovarti un manuale però...
Il manuale c'è eccome, è della McGraw Hill e si intitola Turbo Pascal Versione 7

Grazie ancora a tutti 8D
"Omega" <x...@xxx.xxx> ha scritto nel messaggio
news:Vj_C7.24365$Qj6.1...@news.infostrada.it...


> Il manuale c'è eccome, è della McGraw Hill e si intitola Turbo Pascal
Versione 7
Hai ragione, me n'ero propio dimenticato di quella edizione.
Ciao
Alex

 ha scritto nel messaggio
news:9rhkrq$o2f$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: MI sa che è una domanda stupida....

...


Esiste una unit che permetta la gestione di 
    database mdb (access), anche 16 bit (p.e. access 2.0 per win 3.1) con pascal 
    7.0?


Mi sa di no, però ci provo.....se 
    qualcuno sa qualcosa ringrazio anticipatamente.


 



Un bel di' Cristiano Larghi Micronix2 scrisse:
CLM> Possibile non esista niente?
CLM> leggendo direttamente il db, via odbc.....
CLM> niente di niente?
CLM> Secondo voi ? almeno teoricamente fattibile?
CLM> Qualcuno ha documentazione su come ? fatto internamente un db di access? (mi va bene anche sql, ma mi sa che ? ancora pi? difficile da gestire...)
CLM> 
Mah, che io sappia non c'e' nulla... ma perche' hai pensato al
Pascal??
Perche' vuoi qualcosa per DOS, o sempre rimanendo in ambiente Windows??
Perche' se rimani in windows, puoi usare Delphi, che, mi pare, supporta
qualcosina per ODBC (pero' non fare troppo affidamento su quello che ti
dico: Delphi non l'ho mai visto!!) :-)
Per quanto riguarda l'"interno" di un emmedbi', credo sia vietato
"guardarci dentro" :-)
P.S: di', non vorrai mica scrivere un compilatore, eh?? :-))
-- 
"Colui che sorride quando le cose vanno male ha pensato a qualcuno cui dare
la colpa", legge di Jones
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

...


Un bel di' Cristiano Larghi Micronix2 scrisse:
CLM> Perchè devo modificare un programma fatto in pascal 7 Dos a suo tempo, non
CLM> posso rifarlo tutto.
CLM> Sarebbe bello poter passare a Delphi (gestisce tranquillamente odbc), ma
CLM> purtroppo non è fattibile.
CLM> 
Non e' fattibile perche' l'ambiente e' rimasto DOS?? :-)
Altrimenti tanto vale passare ad Access di peso :-)
Senno', altri formati di dbase?? :-)
Oppure costruire tu tutta la struttura (in pascal) ?? :-)
-- 
"In un'organizzazione gerarchica, piu' alto e' il livello, maggiore e' la
confusione", legge di Dow

Newsgroup: it.comp.lang.pascal
Titolo: File di Record;

Qualcuno potrebbe dirmi come si fa a cancellare un record da un file in
TP7?? Riesco a inserirne di nuovi, a cercarne di gią inseriti, ma non so
come cancellarne uno. Sul manuale non ho trovato nessuna istruzione per
questo scopo. Inoltre, per modificare un record, devo cancellarlo e poi
reinserirlo modificato?
Grazie mille
ciao
MArco

Apri un file temporaneo, ci copi tutti i record tranne quello da eliminare,
chiudi i 2 file, cancelli l'originale e rinomini il file temporaneo come
l'originale.

 
beh, quando riscrivi il file, ci metti gia' il record modificato :)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Se piu' di una persona e' responsabile di un errore di calcolo, nessuna ne
avra' la colpa", seconda legge universale della Societa' Internazionale per
Tecnici per Tecnici Ingenui

 l'originale.
Eh, questo l'avevo pensato, solo che non mi sembrava una bella cosa. Per
cancellare un Record devo fare tutto questo lavoro? Anche perché nel
momento del trasferimento mi serve uno spazio doppio di quello realmente
necessario a contenere i dati. E inoltre, il file lo devo per forza
rinominare con le istruzioni Dos?
Grazie 
MArco

Purtroppo sì, non vi è altra strada usando solo Pascal (comunque anche per
altri linguaggi la procedura è analoga).
Per cancellarlo e rinominarlo ci sono comandi in unit Dos (non me li ricordo
a memoria, potrebbero essere kill e name).


Per modificare velocemente un record alla posizione P nel file f:
    1. L = filesize(f)
    2. seek(f, P)
    3. leggi il record
    4. modifichi il record
    5. seek(f, P)
    6. scrivi il record modificato
Anche se dopo il punto 6 chiudi il file con close(f), la dimensione del file
è sempre di L bytes.
Per cancellare velocemente un record (supponendo che i record non siano
ordinati), potresti copiare l'ultimo record del file su quello da cancellare
e ridurre la dimensione del file di 1 record. (seek sull'ultimo record +
truncate(f))
Ciao!
Simo.
_____________________________________
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
ICQ#: 19598133
_____________________________________
Visit my homepage :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks for
Windows 9x, misc. Software...
_____________________________________

 Simo.
Ciao
MArco

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

Le procedure, per essere richiamate l'una dall'altra, hanno bisogno di
essere scritte in un certo ordine...
Non c'è un modo per dire al programma
"la procedure <nomeprocedura> si trova sotto" ?
Phones

Guarda nell'help, dovrebbe essere il parametro forward (o simile) da
aggiungere alla fine della dichiarazione della procedura.

you wrote:

procedure a ; forward ;
procedure b ;
begin
  a ;
end ;
procedure a ;
begin
end ;
Newsgroup: it.comp.lang.pascal
Titolo: ordinamento per fusione...help!!

Di seguito ho riportato l'implementazione di un programma di
ordinamento per fusione (Merge Sort);
esso dovrebbe creare un vettore di 2*n elementi partendo da due
vettori di n
elementi ciascuno.
Ovviamente non funziona (anche se l'ho copiato dal libro!!!) e vorrei
da voi esperti una mano
per capire dove č l'errore.
grazie mille :)
claudio
.....................................................................
program OrdinaVettori;    (*la procedura č identica a quella del libro
verde a pagina 80, ma non funziona !!!*)
const n = 5;
      p = 2*n + 1;
type TipoIndice = 0..n;
     TipoIndice1 = 0..p;
     TipoVettore = array[TipoIndice] of integer;
     TipoVettore1 = array[TipoIndice1] of integer;
var i,j : TipoIndice;
    k : TipoIndice1;
    A,B : TipoVettore;
    C : TipoVettore1;
procedure MergeSort(A1, A2 : Tipovettore ; var A3 : TipoVettore1);
var i,j : TipoIndice;
    k : TipoIndice1;
begin        (*procedure MergeSort*)
 i := 0;
 j := 0;
 k := 0;
 while (i >= n) and (j <= n) do
 begin
  if A1[i] <= A2[j] then
   begin
    A3[k] := A1[i];
    i := i + 1;
   end
  else
   begin
    A3[k] := A2[j];
    j := j + 1;
   end;
   k := k + 1;
 end;
  if i <= n then
   repeat
    A3[k] := A1[i];
    k := k + 1;
    i := i + 1;
   until i > n
   else
   repeat
    A3[k] := A2[j];
    k := k + 1;
    j := + 1;
   until j > n;
write('La fusione dei due vettori č data da : ');
writeln;
for k := 0 to p do
 writeln(A3[k]:4);
end;            (*Procedure MergeSort*)
begin (*MAIN*)
 for i := 0 to n do
 begin
  write ('Digigtare il componente ', i:2, ' dell''array A :');
  readln(A[i]);
 end;
 for j := 0 to n do
 begin
  write ('Digigtare il componente ', j:2, ' dell''array B :');
  readln(B[i]);
 end;
 MergeSort(A, B, C);
end.

claudio
Questo oridnamento non me lo ricordo proprio...
PS non č che i due vettori devono essere odinati?
strano ne ho fatti tanti di ordinamenti di tutti i tipi ma questo
mai... indi non so aiutarti
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 program OrdinaVettori;    (*la procedura è identica a quella del libro


 begin
[cut]
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.
Newsgroup: it.comp.lang.pascal
Titolo: Ancora sul RUNTIME....

Questo messaggio è crosspostato su: it.comp.aiuto; it.comp.dos;
it.comp.lang.c
e poi su: it.comp.lang.c++, it.comp.lang.pascal
Salve a tutti, ho bisogno di aiuto e spero che voi me lo possiate dare...
Quando cerco di eseguire alcuni programmi scritti per dos, compare la
scritta runtime error 200... ho letto da qualche parte su qualche newsgroup
che il problema non è solo mio, ma non ho trovato nessun rimedio efficace,
quindi confido in voi....
credo esista una patch, io ho trovato tppatch ma non mi funziona!
Grazie e a presto
David ***Zep***
ze...@iol.it

quindi confido in voi....
Troppo generica come indicazione e comunque dovresti rivolgerti al fornitore
del programma.
follow-up su it.comp.aiuto
Paolo
------------------------------------------------------------------
  Paolo Marotta
  Computer Science, University of Pisa
  home:   
http://www.cli.di.unipi.it/~marotta
  G: Per concludere, possiamo chiedervi di commentare
     l'attuale panorama informatico?
  I: /* l'attuale panorama informatico */
------------------------------------------------------------------




Newsgroup: it.comp.lang.pascal
Titolo: CIAO A TUTTI !!!

>Visita il mio sito erotico :
Ma visitati qualcos'altro !
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.

Ma non c'è un moderatore in questo newsgroup?
Pamela, sazia in qualche maniera i tuoi istinti... e non rompere.
--
                Francesco Trotta
                icq uin: 4218722
       elimina x_ dall'indirizzo email
http://www.a-vip.com/francesco.trotta


http://www.angelfire.com/la/pamela69696969

Newsgroup: it.comp.lang.pascal
Titolo: seek. Gestione file

Qualcuno mi sa dire a cosa serve la funzione seek nella gestione dei file e
come si usa.
grazie mille.
Paolo R.

serve a posizionarsi all'interno di un file (non di testo)
per iniziare da li a leggere i dati.
faro' lo spudorato e ti consigliero' "Domenica Pomeriggio"
fra i minibook di 
www.pascalllike.too.it
 :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

serve a posizionarsi all'interno di un file (non di testo)
per iniziare da li a leggere i dati.
faro' lo spudorato e ti consigliero' "Domenica Pomeriggio"
fra i minibook di 
www.pascallike.too.it
 :-)


Dato che ti trovi sul sito vedi pure la sezione tutorial i file di record
Ciao ReDiCuori
Ps.: Dreadnaut ben tornato !
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo

> Ps.: Dreadnaut ben tornato !
sempre in zona, ma troppe cose mi rubano tempo :-\
salutossi

Newsgroup: it.comp.lang.pascal
Titolo: goto?

COme si fa a fare:
begin
(1)*input da video*
    *set istruzioni*
    *output*
    "vuoi ripetere le operazioni fatte? s/n?"
if si then goto (1) else goto (2)
(2): end

 ha scritto nel messaggio
news:ab45e3$tna$1...@pegasus.tiscalinet.it...


 until risposta=si;
Perkè uno dovrebbe rispondere il contrario di quello ke pensa?!     :-)
--
ThE DArkNeSS iS JuST DaRK

 ha scritto nel messaggio
news:rizB8.16797$5k4.4...@twister2.libero.it...


????????????????????
in entrambi i linguaggi con il while il ciclo continua finche la
condizione č vera, mentre con until finisce quando la condizione č
vera...
NM

Non sono daccordo... Vedi la versione dello stesso programma in pascal ed in
c++ (la sintassi cambia ovviamente...) e controlla gli output.
-----PASCAL VERSION-----
------------------------------
Program Numero;
Uses Crt;
Var n:Integer;
Begin
  Write('Inserisci un numero piccolo... ');
  Readln(n);
  Repeat
    writeln(n);
    n:=n-1;
  Until (n=0);
  Readln;
End.
------------------------------
-----C++ VERSION-----
------------------------------
#include <iostream.h>
#include <conio.h>
void main(void)
{
  int n=0;
  cout << "Inserisci un numero piccolo... ";
  cin >> n;
  do {
    cout << n << "\n";
    n--;
  } while (n==0);
  while (!kbhit());
}
------------------------------
Come noterai a parità di condizione il primo esce dopo aver scritto tutti i
numeri ed il secondo solo dopo il primo numero... Quindi il primo esce per
condizione vera ed il secondo per condizione falsa...
Per avere effetti uguali bisogna mettere o Until (n<>0); nel primo oppure }
while (n!=0); nel secondo.
Dimmi adesso se mi sbaglio...
Rispondi e fammi sapere.
Ciao


condizione vera ed il secondo per condizione falsa...
Ok su questo siamo daccordo....hai fatto un post per ribadire quello
che avevo detto?

 ha scritto nel messaggio
news:3cd85b71...@news.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto dichiarazione procedure

Salve come faccio a dichiarare variabili esterne ad un programma,
cioč sritte su un'altro file diverso.
E poi č possibile avviare un programma in TP senza dover passare dal
compilatore.



Dovresti compilarlo in un file .exe. Però la modalità dipende dal
compilatore che utilizzi.
--
----------------------------------------------------------------
Francesco Trotta
----------------------------------------------------------------
elimina x_ dall'indirizzo email
----------------------------------------------------------------
http://www.a-vip.com/francesco.trotta
----------------------------------------------------------------


Menu' COMPILE-->Desination (deve diventare Disk).
Ti crea un file .EXE, nella directory definita in Menu' OPTION-->Directory
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672


==================================
L'avvenire ci tormenta e il
passato ci trattiene. Ecco perché
il presente ci sfugge.
<><><><><><><><><><><><><><><><><>

>Cosa vuol dire compilarlo in file .exe
Il programma che tu scrivi viene salvato in un semplice file di testo: anche
se ha estensione .pas lo puoi visualizzare con qualsiasi editor di testo. Lo
stesso editor che utilizzi per scrivere il programma può anche essere
utilizzato per scrivere una relazione poi stamparla.
Il compilatore legge quello che hai scritto nel file e lo traduce in
linguaggio macchina.
Il tutto viene caricato in memoria e il programma viene eseguito.
Per "compilare in file .exe" intendo impostare il compilatore in modo che,
invece di caricare quanto compilato in memoria, lo salvi in un file
eseguibile (.exe su sistemi DOS e Windows).
Crei cioè un vero e proprio file eseguibile.
Io ho Turbo Pascal 7. Per compilare il file e salvarlo come eseguibile dal
menu "Compile" selezioni "Destination Memory". Se riapri il menu vedrai che
adesso c'è scritto "Destination Disk". Quando compilerai il file, nella
directory che hai specificato come quella per i file exe e tpu troverai un
file eseguibile con lo stesso nome del file .pas che hai compilato, ma con
estensione differente, appunto .exe.
Con lo stesso comando compili anche le librerie tue personalizzate in modo
da poterle utilizzare con i programmi che scriverai (in questo caso troverai
un file .tpu).


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

Come faccio a fare un programma che, pigiato un tasto, comunichi il relativo
codice ASCII.
Io ho scritto:
tasto:=readkey;
write(chr(tasto));
Ma non funziona, poiché CHR vuole un numero direttamente. Suggerimenti?
Grazie e ciao!
Filippo

 wrote in message
SKcR5.77276$BF.27...@news.infostrada.it...


 CHR vuole un numero direttamente. Suggerimenti?
 
 ord();

> write (Ord(tasto));
Grazie mille! Il programma ora funziona.
Ciao!
Filippo

uses crt;
var ch: char;
begin
ch:= readkey;
write(ord(ch));
readln
end.

Newsgroup: it.comp.lang.pascal
Titolo: Variabile stringa e codici ASCII

Ho una variabile, s, in formato stringa, e di lunghezza indeterminata,
vorrei conoscere i valori ascii di ogni singolo carattere della stringa,
Posso farlo ad es., con un ciclo for?
In Basic avrei scritto cosě:
input s$
for i% = 1 to len(s$)
    print asc(mid$(s$, i%, 1))
next i%
end
che tradotto in Pascal diventa qualcosa di simile:
var
    s :string;
    i :integer; {oppure i :shortint;}
begin
    readln (s);
    for i := 1 to length(s)
        begin
            writeln (ord(carattere nella posizione i della variabile s));
        end;
end.
Esiste in Pascal qualche comando o procedura che possa sostituire
"mid$(variabile$, posizione%, lunghezza%)" del Basic?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 "mid$(variabile$, posizione%, lunghezza%)" del Basic?
sono anni ke non uso piu il basic, comunque mid$ dovrebbe essere il comando
copy con gli stessi parametri ( per maggiori dettagli prova con
F1 )
Ciao!
--
el rasune'
-----
 Ca custa chiel ca custa...
    Viva la val d'Austa!

per avere un singolo carattere usa stringa[posiz]
per prendere una sotto stringa usa 'copy' che funziona
esattamente come mid$( )
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 F1 )
funziona, i parametri sono identici, è facilissimo ma...
con copy la "substringa" che ottengo può essere memorizzata
in una variabile stringa, mentre, se voglio sapere il codice ascii
con ord posso utilizzare solo una variabile char, e non riesco
in nessun modo a passare la var. stringa di un carattere in un'altra
var. char. Come faccio a conoscere il cod. ascii della substringa
ottenuta con copy? Ho guardato la guida (F1), ma non sono
riuscito a trovare nulla.
É possibile che non esista un modo per ottenere il cod. ascii di
un carattere di una stringa?


 con copy la "substringa" che ottengo puň essere memorizzata


 L'ho buttata giu alla veloce... comunque dovrebbe funzionare...
Che bello! Funziona! Grazie mille :-)))
credevo che stringa[numero] potesse essere utilizzato solo
in var per indicare la lunghezza massima della stringa.
Non sapevo come fare, c'ho pensato pure di notte (invece di
dormire) e m'era venuto in mente di creare un file in cui salvare
la variabile (string) per poi rileggerla a caratteri singoli (char).
Che pazzo.
Grazie miSunRasune' e grazie Dreadnaut.
Simone.
