mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: elenco delle directory

Sapreste dirmi se esiste un modo per visualizzare
l'elenco delle directory contenute all'interno di
un'altra directory? qualcosa di simile a Dir *.
che però visualizzi solo le directory.
Ho guardato la guida del pascal, ma non sono
riuscito a trovare nulla.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 riuscito a trovare nulla.
ahho te vo' guarda' TFM!!! help alla voce findfirst e trovitutte le impostazioni
con gli attributi che i file devono aver per poter essere visualizzati

 con gli attributi che i file devono aver per poter essere visualizzati
Grazie mille, ho risolto il mio problema. Grazie. :-))

Newsgroup: it.comp.lang.pascal
Titolo: Manuale sul Pascal

Dove potrei trovare un esauriente manuale on-line sul linguaggio Pascal?????
B[a]T^MaN

B[a]T^MaN
Te lo posso mandare io per posta, se vuoi (l' ho trovato in rete, file
html+esempi sono circa 500kb)
Ti dico però che incomincia dalle basi, perciò se vuoi qualcosa di
avanzato.....leggiti a fondo la guida on - line del compilatore :))

...

Ciao... potrei averne una copia anch'io... tanto per vedere com'è?? Poi
magari lo metto nel mio sito e faccio un link, così non devi tutte le volte
ripostarlo :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth

Ciao sono un novizio di pascal sono molto interessato
se puoi postarmeli

Scusa se mi intrometto, ma potresti postarlo anche a me?
Grazie in ogni caso!
Carotino.

Ho esaudito le richieste di chi mi ha chiesto il tutorial sul TP, ora vi
sarei grato se lo richiedeste a coloro che lo hanno già avuto o lo
scaricaste dai loro siti personali (chi ce l'ha e chi l'ha fatto....)
Grazie, Giuseppe

B[a]T^MaN
Se lo volete ve lo posto io cosě non rompete piů al Beppe :-)
Sono 100 - 200 k zippati.
Fatemi un fischio.
ciao!
P.S. Ci ho dato una rapida occhiata e non mi sembra male...
Paolo Perini
pe...@freemail.it
 - attach to 
lau...@digibank.it
"Non ho bisogno delle riviste! La mia vista divina mi permette
di vedere chi fa la doccia e chi si cambia!" - il dio KaiohShin


Mettiamoci d'accordo... così non lo spedisci 20 volte :-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

>Mettiamoci d'accordo... così non lo spedisci 20 volte :-)
Io l'ho già spedito a Giuseppe Catanzaro e "quel tale che ha l'e-mail
i_mart...@iol.it
".
Chi altri lo vuole?
Ciao!


Chi altri lo vuole?
Io, la mia e-mail è 
mpell...@tin.it

Ciao!
Inserisci anche 
bor...@hotmail.com
Grazie.
Sito: 
http://www.geocities.com/timessquare/chasm/5651
E-Mail: 
bor...@hotmail.com

Inserisci anche 
bor...@hotmail.com
Ma sei pazzo a scaricarlo da hotmail???
Dammi il tuo vero address!
Ciao!
Paolo Perini


ripostarlo :-)
Vi prego,vi scongiuro...............postatelo anche a me all'indirizzo
tol...@reteitalia.net
Se qualcuno lo ha messo online posti l'indirizzo,così me lo scarico 
da solo
______________________________
e-mail:  
Aur...@hotmail.com
 
tol...@reteitalia.net
 
tol...@ermes.it
ICQ:     16005054


Va beh, 
fab...@neworldfl.com
Grazie.
Newsgroup: it.comp.lang.pascal
Titolo: Immagini

Esiste un modo per visualizzare le immagini in pascal??
Grazie e ciao a tutti
Davide



Esistono sfariate Unit ke le vistuallizano... io tempo fa ne rovai per
BMP... ma esisteno anke per JPEG
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ha scritto nel messaggio
news:am6h75$cn5$1...@newsreader.mailgate.org...


> dai un occhiata su 
www.pascallike.too.it
    sezione sorgenti
Si,ma il WinRar mi dice che è impossibile aprire il file perché il metodo
con cui è stato compattato è sconosciuto..
Davide

 ha scritto nel messaggio
news:am959e$f7i$1...@newsreader.mailgate.org...


Ok, ci sono riuscito..
Grazie
Ciao Davide
Newsgroup: it.comp.lang.pascal
Titolo: Ma voi vedete qualcosa?

Scusate ma io non riesco ad aprire
http://www.pascalonline.f2s.com/online/index.htm
voi si?
Ciao

Infatti il sito ... da un po' di tempo č 
http://www.pascalonline.f2s.com
:) :) :) :)
Un po' distratti vero ?

scusate
grazie

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

casuali????
Esiste già in TP7 e si chiama Random
Function NumeroACaso ( NumeroMassimoDaGenerare : Word ): Word;
Begin
  Randomize; (* Serve per azzerare il contatore *)
  NumeroACaso := Random ( NumeroMassimoDaGenerare  );
End;
Questa funzione resttuisce un numero generato a caso compreso tra 0 e
NumeroMassimoDaGenerare - 1
-------------------------Ciao
----------------------------------Davide
-------------------------o00o----o00o--------
-------------o00o----o00o--------------------
-o00o----o00o--------------------------------
No Spam, to cut : o00o

 Alan M. Turing
============
Riccardo Pimpini
Ciao. sono un ragazzo di 15 anni ed abito a firenze programmi in pascal
da 1 anno
sono solo di passaggio e quindi non controllerò più questo NG.
per completare la risposta di DAVIDE esiste un'altra  function per il
random:
var x:real;
begin
    x:=random;{Queta e' la funzione}

riccardo pimpini wrote:

scusate mancava un pezzo:alla variabile x viene assegniato un numero tra 0
ed 1.
per esempio: 0.234, 0.987, etcc...
Riccardo pimpini
al...@ntt.it

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

Sono un neofito totalmente alle prime armi, e sto cercandi di realizzare un
programmino che permetta di scrivere su un file esterno dei nomi richiesti
dal programma all'utente attraverso una variabile.
Ecco la fonte, pero' non funziona perfettamente:
program guardami;
type ele=file of string;
var
b:string;
auto:ele;
begin
assign(auto,'c:\pascal\bin\ele');
writeln('Inserisci il nome');
readln(b);
write (auto, b);
end.
Per favore aiutatemi, anche se e' un programma molto semplice, mi puo'
servire per iniziare.
Grazie

Ecco la fonte, pero' non funziona perfettamente:
Cosa ha che non va?? A me sembra a posto... a parte che non so bene cosa sia
un file di stringhe, cioč come il Pascal inerpreti questa struttura...
Di solito per i file di testo si usano i Text...
Per il resto sembra essere OK!!!
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

Program guardami;
const nome='ele';
var b:string;auto:text;flag:boolean;
begin
   flag:=false;
   assign(auto,nome);
   rewrite(auto);
   repeat
     writeln('Inserisci il nome (scrivi ESC per finire)');
     readln(b);
     if (b<>'ESC') and (b<>'esc')
     then writeln(auto, b)
     else flag:=true
   until flag;  (*flag=true*)
   close(auto)
end.
Ho usato  uno stile da neofita (quale tu ti sei dichiarato).
Ciao
Giorgio

 Ecco la fonte, pero' non funziona perfettamente:
Come file type usa Text , le variabili stringhe hanno come primo byte 
la lunghezza
della stringa e quindi se poi leggi il file con un editor di testo ti 
ritrovi dei caratteri spurii....
by Frengo

Newsgroup: it.comp.lang.pascal
Titolo: ragà help sempre io :))

Domani ho un esame ...ho un dubbio sulla procedura del prodotto tra
matrici chi me lo può postare ho urgente bisogno entro stasera vi
pregoooooooo :)) finora siete stati gentilissimi help! vi prego sono
nelle vostre mani bye all!

Ma ti serve un programmino per fare il prodotto di ogni elemento della
matrice?
Io ti posto questo sorgente, se qualcosa non va dimmi cosa ti serve di
preciso:
program
  prodotto_matrici;
uses
  crt;
const
  max = 10;
var
  x, y : integer;
begin
  clrscr;
  for x := 1 to max do
    for y := 1 to max do
      writeln (x * y);
  readln;
end.
Ciao
-- 
Posted from [195.223.215.7] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: Pappo e Pitagora

Qualcuno sa dirmi dove posso trovare la dimostrazione della generalizzazione
del teorema di Pitagora per tutti i triangoli operata da Pappo.
                                                               Kosby

prova questo
http://www.unife.it/tesi/A.Montanari/Pappo.htm
il mio sito:
web.tiscalinet.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

prova questo
http://www.unife.it/tesi/A.Montanari/Pappo.htm
il mio sito:
web.tiscali.it/licciardi


Newsgroup: it.comp.lang.pascal
Titolo: Dove trovare T.PASCAL

Salve a tutti questa puo' sembrare una domanda stupida
e infatti lo e' :-)
Dove posso trovare il T.Pascal 'completo' su internet e quanto occupa ?
Ciao e grazie

...

Io posso inviarti il mio TP6 'completo' che compresso con il RAR occupa
circa 1,3 mega.....
Se vuoi, fino a quando non mi scade l'abbonamento, sono disponibile sul NG
per illuminarti sui problemi del TP
Ciao,Giuseppe

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

Devo fare un programma che mi scomponga in fattori primi un generico n
naturale.
Come fare?
Sono alle prime armi con il Pascal e ho un disperato bisogno di aiuto.
Un grazie anticipato a tutti quelli che saranno cosě gentili da darmi una
mano.
Ciao,
  Simone

naturale.
Crea una tabella di numeri primi e verifica la divisibilita'.

E poi come gli dico di scrivere i risultati?
con write ?

Newsgroup: it.comp.lang.pascal
Titolo: Out of memory

 
Prova a fare un bel mammaker.
Se hai il 95 installa le utility aggiuntive
\other\olddos\instsupp.bat
e fa poi partire il memmaker


----------
ATTENZIONE! rimuovere NOSPAM per rispondere in e-mail
WARNING! remove NOSPAM to answer by e-mail
-------------
Newsgroup: it.comp.lang.pascal
Titolo: ERRORE

Dovresti provare a scaricare la patch per Pascal. Forse la versione che avevi
era già "patchata". Si tratta di un problema che ha il TP7 nel modulo CRT.
Dato che in quel modulo c'è la funzione DELAY, all'inizio di ogni programma, il
vecchio e caro TP cerca di controllare la velocità del tuo processore, per far
sì cheDELAY attenda esattamente gli stessi millisecondi indipendentemente dalla
velocità che il tuo PC ha. Però coi nuovi processori durante il conteggio si
verifica un errore.
Scarica la patch per Pascal e vai da Dio....
Ciao da VEGETA IL PRINCIPE DEI SAIYAN
ReDiCuori ha scritto:


Scusa non hai capito hai messo la patch?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ha scritto nel messaggio
news:u1ms6.46042$yl2.1...@news1.tin.it...
Grazie....adesso va'(insomma.....).



Newsgroup: it.comp.lang.pascal
Titolo: Lettura .PCX e info sul formato

Salve a tutti,
ho la necessità di scrivere un programma che legga un file .pcx e mi
restituisca il colore di un pixel dell'immagine specificato
dall'utente. C'è qualcuno che ha idea di dove posso trovare un qualche
esempio del genere? Sarei interessato anche ad una versione ITALIANA
delle specifiche del formato PCX. Ho letto la versione inglese redatta
dalla Zsoft, ma non le ho trovato molto chiare.
Grazie in anticipo della aiuto e arrivederci.

EasyPCX su 
www.lagrandezucca.cjb.net
-- 
Omega e' omega e basta
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO PASCAL

LINGUAGGIO  PASCAL
1) In che tipo di iterazione si usa l'if condizionato?
2) Come sono strutturate le istruzioni if, for, while, repeat?
3) Che cosa boolean e a che tipo di dati si riferisce?
4) che cos'è l'array?
Vi Ringrazio anticipatamente per il vostro aiuto.

4) che cos'è l'array?
Un vettore di un numero finito di elementi dello stesso tipo.

 
Se mi permettete la pignoleria, lo definirei addirittura (in 
questo caso): "Un vettore di un numero definito di elementi dello 
stesso tipo."
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Le questioni futili vengono immediatamente risolte; quelle importanti mai",
legge di Gresham

Newsgroup: it.comp.lang.pascal
Titolo: Output su Soundblaster

Salve,
Sulla home page di uno dei partecipanti, ho scaricato il file PLAYMOD.TPU
per suonare i file mod e mi permette cio' anche sulla soundblaster. Ma
vorrei sapere da qualcuno come inviare dati alla soundblaster(possiedo le
specifiche dei file wav...)
Grazie
Antonino
Anto...@Sistemia.IT

piu' adatto(?)).
Me stordito che non leggo le FAQ... Non avevo visto che era moderato,
quindi non so se arrivera' mai... Se vuoi (ammesso che ti serva e non
trovi di meglio), fammi sapere che te lo mando x altra via).
Ciao,
Luigi
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it


Guarda, io da qualche parte (non ricordo dove), avevo scarcato una
unit x riprodurre file voc. Purtroppo non sono mai riuscito a farla
funzionare (non riconosce la SB). Ad ogni modo te la mando su
it.binari.files (mi sembra il posto piu' adatto(?)). Se riuscissi ad
usarla fammi un fischio. :) Nel file (SB.ZIP) ci sono anche 2
programmini x convertire da wav a voc e viceversa.

Newsgroup: it.comp.lang.pascal
Titolo: Label & Goto

 Come si usano Label e Goto?
 
Semplicemente non usandole :) 
Il motivo e' che utilizzandole vai contro ai principi della programmazione
strutturata; esse permettono di saltare da una parte all' altra del codice
senza alcun controllo, stravolgendo il flusso logico del programma (si
piazza una label, o etichetta, in un punto del codice poi con "goto
<etichetta>" si salta a a quel punto e l'esecuzione prosegue da li; 
	    ...
	    x:=1;
            ...
label loop: x:=x+1;
	    if x<100 goto loop;	
	    ...
(se non ricordo male la sintassi, cmq il concetto e' questo); 
il loro uso e' per situazioni al limite, da evitare assolutamente 
finche' possibile... quello che vuoi fare si puo' fare sicuramente con i
costrutti di base (if-then-else, while-do, repeat-until, ricorsione,
chiamate di procedura/funzione ...). 
Salute :)
=====================================
  Leonardo Quirini 
 
  Undergraduate of Computer Science 
  University of Bologna     
-------------------------------------
 
qui...@cs.unibo.it
 
 
ne...@tin.it
 
=====================================
" L'intelligenza sulla terra e' costante,
  la popolazione e' in continuo aumento... "
" Cesare, il popolo chiede sesterzi...
  No, no, vado dritto..."

 wrote in message
Pine.GSO.3.96.990929...@nedda.cs.unibo.it...


 wrote in message
7t2v87$6jn$1...@nslave1.tin.it...


 Sai com'è, vengo dal Basic ed ho bisogno di un po' di "nicotina"...
Hehe, figurati... :) 
Alla prossima!


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

avrei un problemino con due procedure...
procedure n1;
begin
	...
	n2;
end;
procedure n2;
begin
	n1;
	...
end;
se dichiaro prima n1 il compilatore mi dice che non trova n2 se
dichiaro prima n2 il compilatore mi dice che non trova n1...
la mia domanda č... come devo fare per dichiarare 'ste procedure come
cristo comanda??? non esiste un modo come in c per fare prima le
dichiarazioni e poi scrivere il corpo delle procedure??? l'unica
soluzione che mi viene in mente e' quella di farmi una unit... ma
cavolo non voglio fare una unit per solo due procedure...
neon...
| Siamo macchie di olio pensanti,
| trasportate lungo corridoi d'ombra.
 \ (W.G.) (mille lire a chi indovina)

cavolo non voglio fare una unit per solo due procedure...
Utilizza la parola riservata Forward....
es:
procedure primo; Forward;
procedure secondo;
begin
   primo;
end;
procedure primo;
begin
secondo;
end;
Dovrebbe funzionare... bye

Dovrebbe funzionare... bye
tnx 10.000 e' proprio quello che cercavo...


 cristo comanda???
Ehm... forse Cristo va con la maiuscola...?
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\  /\
\_/   V  \_/
Newsgroup: it.comp.lang.pascal
Titolo: ho un bisogno disperato

Ciao sonjo Erika,
 sto facendo un programma sul calcio e per abbellire un po' i vari riquadri
dello schermo (sto lavorando in grafica) ho bisogno di sapere se e come si
puņ fare a inserire suoni, immagini e magari anche gif animati nel mio caro
programma.
Ringrazio quelli che mi risponderanno.
Rispondete all'e.mail:
sha...@racine.ra.it


Allora: per quanto riguarda i suoni le istruzioni sono 3:
sound
delay
nosound
però credo che tu volessi la SoundBlaster, eh??
Beh, anch'io l'ho cercata.... invano.
Al max so fare un re# :-)))
Per quanto riguarda le immagini, devi trovare le specifiche dell'immagine
(in rete le trovi ovunque), aprire il file e tirarla fuori :-)
Facile no?? Mai provato, non ti so dire! :-)
Per quanto riguarda i gif animati mi sa che devi frenarti un attimo... non
credo che il TP sia sufficientemente veloce per un'animazione di quel
tipo... magari li vedi più lenti :-)
Occhio però che un'immagine tiene molta memoria, e tu ne hai molto... poca
:-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"


Newsgroup: it.comp.lang.pascal
Titolo: Conto alla rovescia

Cari membri del newsgroup,
    il programma qui sotto, visualizza un conto alla rovescia da 10 a 0, e
poi si chiude. Dato che non ne sono capace, vorrei che qualcuno di buona
volontà (sono poche righe di linguaggio), mi dica come posso far sì che l'
utente possa rispondere 'S' o 'N'; se risponde 'S', si esce dal programma,
se risponde 'N' si rivisualizza una procedura di nome 'MENU', che non ha a
che fare con il quesito. Il problema è che non riesco a trovare una
soluzione affinché l'utente possa, in qualsiasi momento del conto alla
rovescia, inserire 'S' o 'N'. Il programma è semplificato, quindi non badate
alla mancanza di controlli della risposta.
program contorov;
uses crt;
const secondi=11;  (*deve contenere i secondi del conto alla rovescia + 1*)
var sec:byte;
begin
  clrscr;
  sec:=secondi;
  repeat
    if sec <> secondi then
         begin
           delay(1000);
           clrscr
         end;
    sec:=sec - 1;
    write('Sei sicuro di voler uscire(',sec,'). S/N?');
  until sec=0;
end.
Filippo

Forse non è il + semplice da capire e forse si può fare di meglio...ma sono
le 22.48, so' stufo e non mi viene in mente nient'altro ;-)
Ciao ciao. Alex
program tempo;
uses crt;
var msec,i:integer; stop:boolean;
procedure termina;
begin
if readkey='s' then halt
else
begin
msec:=1000;      <<= sto' casino l'ho fatto per evitare un goto che a
qualcuno non potrebbe piacere o
i:=0;                   <<= una sottoprocedura (scomoda). Dato che non è
programma grosso io metterei
stop:=false;        <<=tranquillamente un goto. Si risparmia la var boolean
ed è + semplice da capire
end;
end;
begin
clrscr;
for i:=10 downto 0 do
  begin
  clrscr;
  writeln ('Terminare il programma? S/N ',i);
  stop:=true;
  msec:=1;
  repeat
  delay (1);
  if keypressed then termina
   else
   msec:=msec+1
  until msec=1000;
  end;
  if stop=true then halt            <<= si potrebbe mettere qui la label
  else
     [qui continui il tuo programma; il menu o quello che vuoi]
end.

si ma va bene solo quando premi il tasto tra un delay e l'altro (una
frazione piccolissima di secondo ==> impossibile da fare!)
non si riesce in pratica a fermare il prog. in un qualsiasi momento (ne'
mai cmq ;-) )

Mi sono dimenticato di dire, che se entro la fine del conteggio non si
perviene alcuna risposta, il programma termina in ogni caso.
Ciao!
Filippo

Newsgroup: it.comp.lang.pascal
Titolo: funzione tasti

come faccio a dare ad uno specifico tadto una speficia funzione.
tipo schiaccio invio e fa qualcosa..... e tipo schiaccio esc ed esce dal
programma.
grazie
--
aledista
<<La cultura è il cibo per la mente>>
http://www.aledista.cjb.net

 grazie
Intendi...
var ch : char;
begin
    ch := readkey;
    case ch of
        #27: { è stato premuto ESC } halt;
        #13: { Invio } FaiQualcosa;
        'a', 'A': FaiQualcheAltraCosa;
    end;
end.
magari lo metti in un repeat..until che termina quando ch = #27;
A proposito, ma readkey è standard o riconosciuta solo dai compilatori
Borland?
--
BlackDemon - 
bde...@dominio.it
per mandarmi un'e-mail scrivi 'iol' invece di 'dominio'
Newsgroup: it.comp.lang.pascal
Titolo: altro aiutino

Avrei un altro problemino: vorrei inserire una stringa e poi richiamarlo con
un carattere Char, cioč  prima in una procedura scrivo "Roma " e poi in
un'altra procedura vorrei richiamarlo premendo il tasto "A". Come faccio?
Grazie ancora per l'aiuto che mi darete
Spike


wrote:

non c'ho capito un acca =°(
--
Windows... dove vuoi crashare oggi

Allora, cerco di spiegarmi meglio: in una procedura ho tre nomi  ( Roma,
Palermo, Milano), in un'altra procedura voglio richimare uno dei tre nomi
immessi con una A, B o C. E' tutto qui. Come faccio?


Ma che vuoi dire che lo hai nella procedura?
Tipo cosě?
procedure prova;
var
    s1, s2, s3 : string;
begin
    s1 := 'Roma';
    s2 := 'Palermo';
    s3 := 'Milano';
end;
Ciao


Praticamente stavo aiutando Spike a completare un programmino che fa una
domanda, propone tre risposte e chiede quella esatta. Lui voleva dire: «Come
faccio ad abbinare le te risposte (che sono stringhe) in modo che se
l'utente digita "A" vuole la risposta memorizzata in stringa1, se "B" quella
in stringa2, ecc..?»
Spike, non è questo il problema! Piuttosto il fatto che secondo me il tuo
insegnante è un minchione (per quel fatto in modalità esaminatore)!
Aspetta un paio di gg e mi faccio sentire io.
--
BlackDemon - bdemon(at)
iol.it

Newsgroup: it.comp.lang.pascal
Titolo: La patch

Chi mi può inviare la patch per trasformare il colore del testo in p'ascal?
Rinbgrazio tutti
Saluti
Emiliano

 ha scritto nel messaggio

 Se usi tp7 la patch te la posso inviare io....

 ha scritto nel messaggio
news:BznO7.221375$sq5.10...@news.infostrada.it...


> Chi mi può inviare la patch per trasformare il colore del testo in
p'ascal?
hehehhe
a) non esiste un driver per il colore del testo
b) la patch non e' per il colore :-)
( - NB si parla di Turbo/Borland Pascal 7.0 - )
i "comandi" per cambiare il colore di visualizzazione sono contenuti nella
unit crt, che essendo stata creata anni or sono, soffre di un piccolo
bug che ti fa saltar fuori quel "Division By Zero"... la patch serve proprio
a correggere questo problema.
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

ok allora mi servirebbe quella patch.
Grazie
e scusate l'inesperienza!
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:aCoO7.222155$sq5.10...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!!!!!!

Ciao a tutti!
Devo fare la somma di "n" dati in questo modo.Vi faccio un esempio:
Supponiamo di avere come dati :  2 , 4 , 6, 8
A questo punto per i:=1 la somma è 2
                        per i:=2 la somma è 2+4
                        per i:=3 la somma è 2+4+6
                        per i:=4 la somma è 2+4+6+8
Come si fa questo in pascal
Grazie.

 ha scritto nel messaggio
news:dS3K9.7066$TC5.2...@twister1.libero.it...


 end;


 ha scritto nel messaggio
news:9VoK9.11309$Ou4.3...@twister2.libero.it...


Grazie ReDiCuori sei stato di grande aiuto.
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:5urK9.20590$lV4.7...@news2.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal

Salve! Devo superare un esame all'università e vorrei sapere se è possibile
scaricare il Turbo Pascal 6 o seguenti da Internet.
Vi ringrazio anticipatamente!

Vi ringrazio anticipatamente!
Non credo.
Il TP6 come ogni versione del TP costituisce un pacchetto commerciale
e quindi non "free".
In ogni caso puoi trovare diversi compilatori Pascal ,come lo GNU,
in qualche caso compatibili con il TP.
Ciao
Andrea

 scritto nell'articolo
<01bcd6e8$4f3ebe40$7d9bcfc1@default>...


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

per favore c'è qualcuno che può dirmi la procedura per togliere da una
stringa spazi e caratteri che si ripetono?
esempio:
giochiamo insieme    =     giochmnse
Grazie!!

Hi.
La soluzione migliore mi sembra quella di usare una funzione alla quale
passi la tua stringa e ti restituisce l'altra stringa.
Se consideriamo I come la lunghezza della stringa, la funzione scandisce la
stringa I-1 volte confrontando ogni lettera e nel caso trovi 2 lettere
uguali, sostituisce la seconda con uno ' ' (spazio bianco). Terminato il
ciclo, mette in STR tutte le lettere della stringa STRINGA diverse da ' ' e
restituisce questo valore.
function new_str(stringa:string):string;
var i,a:1..255;
    str:string;
begin
  str:='';
  for i:=1 to length(stringa)-1 do
    for a:=i+1 to length(stringa) do
      if (stringa[i]=stringa[a]) then stringa[a]:=' ';
  for i:=1 to length(stringa) do
    if stringa[i]<>' ' then str:=str+stringa[i];
   new_str:=str;
end;
Spero sia quello che ti serviva. Credo che ci siano anche soluzioni
migliori, ma per ora non mi vengono in testa...
Ciauz
--
KNOWLEDGE IS POWER
http://chameleon.go.to

 ha scritto nel messaggio
news:3a70...@news.cis.it...

Newsgroup: it.comp.lang.pascal
Titolo: Assembler

A cosa serva il TurboAssembler che č presente nel turbo pascal 7?
Quando clicco per aprirlo mi dice "Cannot open this tool" o qualcosa del
genere, che cosa significa?
E' forse possibile compilare programmi scritti in Assembler in turbo pascal?
Ciao.
Grazie

 A cosa serva il TurboAssembler che è presente nel turbo pascal 7?


E' forse possibile compilare programmi scritti in Assembler in turbo pascal?
In pascal si possono creare procedure in asembler agungendo
PROCEDURE TRYASM(_AL: BYTE);
BEGIN
   {eventuali comandi pascal}
   ASM
     mov al, _AL
  END;
   {eventuali comandi pascal}
END;
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: Help help...siete la mia ultima spiaggia

Sera, sono qui a postarvi questa lettera perchè ho un grosso problema che
ora vi spiegherò.
2 giorni fa decisi di provare a programmare il Winsock ( premetto che uso il
Bp 7.0 for Dos )..dunque mi recai su sito che trattava quest'argomento e
scaricai dei file.pas che mi avrebbero permesso di programmarle.
All'apertura notai che c'erano dei richiami a delle unità da me sconosciute
( winprocs, string, win31) ..allora mandai una mail al proprietaraio dei
sito ( di lingua staniera) e chiesi se gentilmente avesse potuto sendarmi
questi file..e lui gentilmente lo fece. quando andai a richiamarle..mi
comparve l'errore numero 72 cioè quello che dice che la unit è fatta con una
versione obsoleta del compilatore. QUI mi venne il dubbio e dissi. " vuoi
vedere che ci vuole pascal 1,5 for windows???'
Ed ora sono qui pe chiedervi un aiuto!! Sono da 2 giorni che sbatto da un
motore di ricerca all'altro..ma non riesco da nessuna parte a trovare questo
benedetto programma!! Potreste dirvi voi, dov'è possibile reperirlo o in che
modo possa risolvere il mio problema??? vi ringrazio per l'ascolto e
scusatemi per la lunga storia.. Buonanotte
^_][ice][man][_^

vedere che ci vuole pascal 1,5 for windows???'
Ripeto usa la versione 7.0 che è inclusa con il BP. CMQ puoi fare una
cosa vai su:
Compile-> Target Real
clicci e ti si apre una finestra e metti
Windows Application
oppure agiungi
{$IFNDEF WINDOWS}
  Set Target to Windows.
{$ENDIF}
che lo fa via codice
ma cmq l'errore non si spiega...
indi controlla due cose:
1) Che estenzione hanno le unit che ti ha mandato
2) Che entro il .PAS non c'è questa opzione di compilazione
{$IFNDEF WINDOWS}
  Set Target to Windows.
{$ENDIF}
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596


   Ora ti allego i file..se hai tempo per guardarli mi fai un grosso
piacere!!1
  Ma mi sai dire dove lo posso scaricare la versione completa del Bp 7.0 ??
 Ti ringrazio per tutto
^_][ice][man][_^
OOps... scusami ma gli allegati non li ho potuti mandare!!! il server non
permette
Newsgroup: it.comp.lang.pascal
Titolo: Come scrivo printf("Content-type:%s\r\n\r\n",type) in Pascal ?

Salve,
Come scrivo printf("Content-type:%s\r\n\r\n",type) in Pascal ?
sto traducendo un mia libreria scritta in C nel linguaggio Pascal. VOlevo
sapere come simulare \r\n\r\n in Pascal?
Francesco
-- 
      Teaching OnLine 
Corsi online di programmazione
Php, Asp, C, C++, Visual Basic, Delphi
Linux Shell Programming
------------------------------------
http://www.teachingonline.it

WriteLn("Content-type:',type);
WriteLN;
Spiego
%s impone la scrittura in formato stringa del parametro passato (in 
questo caso TYPE - in Pascal puoi stamparlo cosi' com'e' o convertirlo 
in stringa)
\r significa "Ritorno del carrello" o carattere in prima posizione
\n significa "Ritorno a capo" o nuova linea
Per esempio printf("\r\n") è equivalente a Writeln, mentre per la 
sintassi printf("\r") o printf("\n") non esiste un equivalente in 
Pascal, mentre per la sintassi printf("%s") esiste un equivalente 
(quasi) in Delphi con la funzione Format
Ciao,
David

 
Allora mi ricordavo bene :-)
-- 
Devaraja (Xdevaraja87^gmail^c0mX)
Linux Registerd User #338167
http://counter.li.org

Yessssss
bye,
David

 sapere come simulare \r\n\r\n in Pascal?
\r e' #13 mentre \n e' #10 ( o viceversa ? :) )
quindi la riga diventa 
 write("Content-type:", type, #13#10#13#10);
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Ho risolto con la soluzione piu' banale e semplice:
procedure content_type(tipo:string);
begin
Writeln('Content-Type: ',tipo);
writeln;
end;
Cioe' la prima soluzione trovata.
Ringrazio tutti quellic he mi hanno aiutato.


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

Ciao a tutti, sapete dirmi dove posso trovare delle info o qualke tutorial
sulla memorizzazione dei dati sui file e roba simile??
Grazie a tutti g1n0W3h


nel sito del newsgroup
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5


Ossia??

 Ossia??
http://www.pascallike.too.it/


Da qualche parte c'è un simpatico post-tutorial di dreadnaut sui
files..
Bella!
NM

Newsgroup: it.comp.lang.pascal
Titolo: Chi mi manda il Turbo Pascal?

Chi mi manda il TP, che devo fare un esame di informatica?
P.S.: Va bene anche una versione vecchia
Grazie


Lo puoi scaricare dal mio sito:
http://members.xoom.it/fabioman
Ciao,  Fabio
--
fabi...@rocketmail.com


iQA/AwUBNwKT/X9t9oJRSnUyEQLhIgCfZKcI/pzztUjxl16B1XFLQrd7PWcAoMVZ
SnTQkT9yZq8ZqA7RRs/PssRD
=rKVs
-----END PGP SIGNATURE-----

trovata!".
Si ho toppato.
http://members.xoom.com/fabioman
--
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: PATCH PER PASCAL

ciao ragazzi,
    sono nuovo del NG, quindi scusatemi se faccio una domanda che
probabilmente è già trita e ritrita.
Si sa che i programmi pascal eseguiti su un pc con processore +
potente di 200 Mhz non funzionano proprio.
Io ho la patch da applicare ai file eseguibili per renderli funzionanti
ma ora mi chiedo:
esiste una patch da applicare al compilatore o a qualche libreria in
particolare per poter sfornare programmi funzionanti sopra i 200 mhz? (per
evitare di patchare ogni eseguibile compilato)
Avevo intenzione di riprendere in mano il pascal, ma i trovo un po'
spiazzato visto che l'ultima volta che l'ho usato il processore piu' veloce
era un 486 dx4/100
Grazie a chiunque voglia aiutarmi
Sgnafutz...

...


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

qualcuno sa dove posso trovare l'ultima edizione del compilatore?
GRAZIE

Vai su 
www.crackstore.com
 sulla sezione tools. Scompatta nella stessa dir e
lancia il prog di installazione
Newsgroup: it.comp.lang.pascal
Titolo: aiuto stringhe

Ho delle stringhe cosě definite (per esigenze personali, non posso usare il
tipo string):
labelBGE, labelTEMP: packed array [1..8] of char;
per acquisire dette stringhe uso il seguente ciclo, che funziona come si
deve:
for i:=1 to 8 do read(labelTEMP[i]);
Il problema č che questo ciclo mi permette di acquisire anche il carattere
di invio, se premuto prima di aver inserito 8 caratteri. Come faccio a
intercettare l'inserimento di INVIO e SPAZIO, cosě da eliminarli e terminare
la stringa cosě com'č? In piů, come faccio a svuotare il buffer con qualche
istruzione standard?
Grazie per l'aiuto a tutti
San Vegeta from Hell

var i,carattere:integer;
begin
...
for i:=1 to 8 do
begin
  carattere:=ord(readkey);
  if carattere=13 then break else labelTEMP[i]=chr(cararattere);
end;
...
end.

you wrote :
#Il problema č che questo ciclo mi permette di acquisire anche il carattere
#di invio, se premuto prima di aver inserito 8 caratteri.
#intercettare l'inserimento di INVIO e SPAZIO, cosě da eliminarli e terminare
#la stringa cosě com'č? 
Se l'INVIO e' l'ultimo carattere, riduci il numero di caratteri di 1
agendo sul primo carattere (con indice 0) della stringa.
#In piů, come faccio a svuotare il buffer con qualche
#istruzione standard?
Non e' possibile senza usare funzioni al di fuori dello standard.
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------

 --------------------------------------------------------
Grazie

you wrote :
#for i:=1 to 8 do
#begin
#  carattere:=ord(readkey);
#  if carattere=13 then break else labelTEMP[i]=chr(cararattere);
#end;
readkey ?? 
readkey e' una funzione fuori-standard.



anche questa è al di fuori dello standard ?
mem[$0040:$001a]:=mem[$0040:$001c];
non usa moduli esterni.
cosa è esattamente standard ?

 la stringa cosě com'č? In piů, come faccio a svuotare il buffer con
qualche


 mem[$0040:$001a]:=mem[$0040:$001c];
Beh, funzionerebbe _solo_ su sistemi x86......inoltre credo che mem sia un
"array" (detto alla 'Borland') non definito sul Pascal standard.
=================================
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
Mailing list: 
ml_ass...@egroups.com
 (per l'iscrizione invia un msg a
 
ml_assemble...@egroups.com
)
ICQ#:  19598133
=================================

you wrote :
#anche questa č al di fuori dello standard ?
#mem[$0040:$001a]:=mem[$0040:$001c];
si'.
#cosa č esattamente standard ?
Tutto cio' che non riguardi la piattaforma specifica.


you wrote :
#   If Keypressed
#     Then
#        Begin
#            ch := ReadKey;
#            If ch <> 13 Then
#                Begin
#                   Inc(i);
#                   labelTemp[i] := ch;
#                 End;
#        End;
#Until (i=8) Or (ch=13);
Non va bene.
Keypressed e Readkey sono funzioni FUORI standard !
I codici 8 e 13 sono, inoltre, implementation-dependent.
E comunque con un codice del genere non c'e' controllo sui caratteri
speciali formati da due byte.

Newsgroup: it.comp.lang.pascal
Titolo: Mi sto avvilendo...

Ciao a tutti,
il mio prof. di programmazione mi ha dato INSUFFICIENTE per l'esercizio che
ho svolto (e che allego), dicendo che ho sbagliato tutte le procedure. Io
sono nuovo della programmazione ( I anno di Informatica all'univ. di Napoli)
e non capisco dove ho sbagliato...
Sarei molto contento se qualcuno di voi mi "illuminasse".
Vi ringrazio in anticipo per la pazienza,
Braintwister.

 ha scritto nel messaggio
news:8us287$h0a$1...@nslave3.tin.it...

Potrei anche aiutarti se avessi veramente allegato il file al messaggio.
Ciao
Davide Carrara

> Sarei molto contento se qualcuno di voi mi >"illuminasse".
Beh, non č che posteresti i tuoi programmi? Cosě ti possiamo dire dove
sbagli...
Valnir

 > Sarei molto contento se qualcuno di voi mi "illuminasse".


> Scusami, ma come faccio allora a postare un allegato?
Mandamelo in privato...
Valnir

Be o lo mandi in privato oppure in modo semplice copi il testo con CTRL + C
e poi lo incolli nel messaggio con CTRL + V
Ciao
Davide Carrara

Ciao.
non puoi allegare un file se posti un messaggio in un ng.
te lo segano :-(((((((((((   (l'ho imparato a miei spese, non credere...)
devi copiare tutto il testo, poi incollarlo...
unica soluzione...
desoled

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

Dove posso scaricare il programma tpascal?

www.crackstore.com/tools


Newsgroup: it.comp.lang.pascal
Titolo: Avviare il computer

Esiste un sistema per far accendere il computer ad un'ora stabilita? (via
Bios o altro)
Grazie
Iding

 Bios o altro)
Come programmi no, al massimo potresti attaccare la spina del pc ad un
timer, simile a quelli che fanno accendere e spegnere le insegne dei negozi
alle ore stabilite.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

> Esiste un sistema per far accendere il computer ad un'ora stabilita? (via
Bios o altro)
Sě, via bios : dipende dalla scheda madre / bios che usi : ad esempio
nel mio c'č un'opzione "Power-Up Control" ... puoi decidere se
farlo accendere ogni giorno ad un orario prestabilito, ogni mese... ecc..
Ciao, Davide DG.
Newsgroup: it.comp.lang.pascal
Titolo: Urgente!!

Devo creare un programma che crei una stringa di lettere dell'alfabeto a
caso, tutte maiuscole! Le lettere devono essere solo quelle dell'alfabeto!!!
Ciao!
Gian Pietro

 wrote in message
87gpv0$aem$1...@lacerta.tiscalinet.it...


 wrote
.....
.....
ma non e' che ti sei confuso un pochino ?
ho provato a correggerlo cosě...
uses crt;
var
lett,i : integer;
begin
clrscr;
randomize;
FOR i := 1 TO 80 DO
    BEGIN
    GotoXY(i,5);
    lett := Random(26) +65;
    Write(char(lett));
    END;
end.
PS: per Gian Pietro, esistono lettere che non sono dell'alfabeto ?

 wrote in message
IN%m4.73499$C3.8...@news.infostrada.it...


PROGRAM LettereMaiuscole;
USES Crt;
CONST
    LunghezzaStringa = 10;
VAR
    Stringa : String[LunghezzaStringa];
    Cont : Byte;
BEGIN
    Randomize;
    Stringa := '            '; (*Qui devi mettere tanti spazi quanti
LunghezzaStringa*)
    FOR Cont := 1 TO LunghezzaStringa DO
    BEGIN
        Stringa[Cont] := Chr(Random(26) + 65)
    END;
END.


caso, tutte maiuscole! Le lettere devono essere solo quelle dell'alfabeto!!!
Prova questo :
---------------------------------------
Program Lettere_Random;
Const n=10;			{ Numero di caratteri della stringa }
Var  Stringa: String; 		{ La tua stringa }
       Cont: Integer;		{ Contatore per ciclo for }
Begin
Randomize;			{ Inizializzatore per la funzione random }
Stringa:='';			{ Inizializza la variabile stringa }
{ A stringa gli assegna il pezzo precedente piu' un carattere casuale tra 65 e 90 }
For cont:=1 to n do Stringa:=Stringa+Chr(65+random(26));
End.	 
---------------------------------------
-=> NeGuS <=-
www.infinito.it/utenti/negus80

 Prova questo allegato

Newsgroup: it.comp.lang.pascal
Titolo: Sintax di RANDOM

Ave ragazzi, potreste dirmi la sintassi per il comando random del
TurboPascal 7.0?
Grazie in anticipo e ciao!
Paolo Perini
per...@bigfoot.com
http://users.iol.it/kaiohshin/
------------------
Italian Rendition World
http://irw.home.ml.org/

Grazie in anticipo e ciao!
vd. help
Ciao,
DjM / Digital Things
aka Mauro Molinari
Internet e-mails: 
=> 
djm...@geocities.com
 (music)
=> 
maur...@tin.it
 (personal/other)
ICQ #: 10379016
Digital Things Home Page:
=> 
http://www.musicnation.com/home/digital_things
 (down?)
=> 
http://www.geocities.com//SiliconValley/Bay/8251
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, put the correct address into "to" field.
*** Per mandarmi una e-mail, metti l'indirizzo corretto nel campo "a"..


E' vero che la sintassi di ogni comando la puoi trovare nell'help, ma se
proprio non lo sapevi o trovi noioso sfogliare l'help, allora te lo dico io
:
var r:word;
randomize;
r:=random (200);
r contiene un numero compreso nel campo 0..199
Ciao
  Carlo

 

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto:Tp7 non parte senza il cdrom

Salve a tutti, ho un problema con Tp7.
Se lo avvio senza aver prima inserito un cdrom qualsiasi mi dice:
disk is not ready in drive D.
quando inserisco un cdrom,all'avvio mi dice:
invalid file name or extension.
Qualcuno ha qualche idea per risolvere il problema?
Sembra quasi che scambi l'hard disk con il cdrom boh?
Ringrazio sin da ora chiunque mi risponda.

Forse qualcuno che ti ha dato il TP (o quello che l'ha messo sul sito da cui
l'hai scaricato) aveva la partizione e quindi aveva C: e D: come dischi
fissi e ha salvato le opzioni del TP su D: dove aveva il TP stesso. Quindi
all'avvio del pascal lui cerca le informazioni in D: e dato che a te D: è il
CD-ROM le cerca là. Quando poi ti decidi a mettere un CD lui cerca là sopra
il file delle opzioni e non lo trova.
Almeno credo possa essere così, poi non so... e se fosse un viruz? ;)
saluti dal grande VEGETA IL PRINCIPE DEI SAIYAN
=)
     /\   /\
\_/   \/   \_/
Luminal ha scritto nel messaggio ...


Newsgroup: it.comp.lang.pascal
Titolo: Vecchia versione del Pascal

Oltre al tp ho anche una vecchia versione del Pascal,
il nome è "
turbo87.com
", che non ho mai usato... perché
non ci sono mai riuscito, non so se qualcuno la conosce,
questa è la schermata iniziale:
==============================
---------------------------------------
TURBO Pascal system       Version 3.01A
                                 PC-DOS
8087 Math support
Copyright (C) 1983,84,85   BORLAND Inc.
---------------------------------------
Default display mode
Include error messages (Y/N)?
==============================
Una volta avviato e digitato il programma non so più come
eseguirlo e nemmeno come uscire dal Pascal, qualcuno saprebbe
darmi una mano?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

Siiiiiiiiiiiii che bello :-)
se hai anche gli altri files, digli Yes.
Poi dovrebbe saltare fuori un simil menu, con la prima
lettera del comando lo attivi.
dall'editor si esce con ^KD :-)
asp che vado a cercarlo che ce l'ho ancora anch'io :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)


==============================
La directory in cui ho il turbo-87 non è quella che c'è alla voce
"Active directory", sarà per questo che mi da il msg di errore?


mmmm metti tutto  in una directory con nome lungo meno di 8
caratteri e senza spazi dentro


 "Active directory", sarà per questo che mi da il msg di errore?
mmmmh se lanci da una shortcut di win,
nelle proprieta' cambia la "directory di esecuzione"



==============================
Solo che a questo punto non ne capivo piů nulla, cosa significano
quelle quattro righe complicate???


 mAximum free dynamic memory: A000 paragraphs
minima e massima memoria allocabile a run-time
per programmi "normali" dovrebbero bastare i valori di default
ciao,
Fra
Newsgroup: it.comp.lang.pascal
Titolo: sul forum...

visto che dall'ufficio non posso avere facile accesso al newsgroup perchè
non partecipate con me alle discussioni sul forum di 
programmando.org?
??
--
Wagner80
wagn...@libero.it

 non partecipate con me alle discussioni sul forum di 
programmando.org?
??
beh se vi trasferite tutti nella mia citta' faccio a meno di connettermi...
saluti,
un Dreadnaut che non connette %-)
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: !!!!!!!!!!!!!!!!!!!!!!!!!PROBLEMAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!

Aiutatemi!!!!
č un mese che cerco di creare un programma che serva ad aprire un altro
programma a mio piacimento come faccio??
 vi ringrazio
By [Adams]


Inesriscilo nella stessa cartella del prog da eseguire.
Questo č uno spunto x le istruzioni, basandoti su questo puoi adattarlo a
ciņ ke tiserve.
{$M $4000,0,0 }   { 16K stack, no heap }
Program ESEGUI;   {INSERIRE QUESTO PROGRAMMA NELLA STESSA CARTELLA DI
                                 QUELLO DA ESEGUIRE}
uses Dos,crt;
var
  ProgramName, CmdLine: string;
begin
  Write('Programma da eseguire (nome.estensione): ');
  ReadLn(ProgramName);
  Write('Eventuale riga di comando da passare: ',
        ProgramName, ': ');
  ReadLn(CmdLine);
  WriteLn('Esecuzione in corso...');
  SwapVectors;
  Exec(ProgramName, CmdLine);
  SwapVectors;
  WriteLn('...risultati: ');
  if DosError <> 0 then{ Error? }
    WriteLn('Dos error #', DosError)
  else
    WriteLn('Eseguito con successo. ');
  readln;
end.
--
DArK
===============================
        ThE DArKneSS Is JuST DArK
===============================
per rispondermi togli le mutande

oops!
in fase di copiatura ho inserito c'è finita una cosa ke non serviva! :-)
eccolo di nuovo:
{$M $4000,0,0 }   { 16K stack, no heap }
Program ESEGUI;   {INSERIRE QUESTO PROGRAMMA NELLA STESSA CARTELLA DI
                   QUELLO DA ESEGUIRE}
uses Dos,crt;
var
  ProgramName, CmdLine: string;
begin
  Write('Programma da eseguire (nome.estensione): ');
  ReadLn(ProgramName);
  Write('Eventuale riga di comando da passare: ');


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

Ho dei problemi con il Pascal... ho un PII e credo ci voglia una
patch...sapete mica dove posso trovarla?
Grazie a chiunque voglia rispondermi....
#kanni#@
tin.it
 (togliere #)


http://www.geocities.com/SiliconValley/2926/tp.html
chapter "patches"
has the solution. It is a bug in the CRT unit of BP 7 and TP 7.
;-) Sorry, I can read a little Italian, but not write.
Franz Glaser

...


Newsgroup: it.comp.lang.pascal
Titolo: Algoritm for dictionary

 Use hash table : CMap of MFC, map of STL or home-made.
Ciao Alex
P:S. Pay attension for string hashing!

Golubchikov Alexei (
golub...@mi.infn.it
) wrote:
: ooooo wrote:
: 
: > Hi
: > I need help.
: >
: > My professor told me to find a way to organize a dictionary of about
: > 60k
: > words.
: >
: 
: Ciao Alex
: P:S. Pay attension for string hashing!
: 
Can use Trie also.
-- 
 
ad...@cse.iitb.ernet.in
------------------------------------------------------------------------
No problem is so big that it cannot be run away from.
Newsgroup: it.comp.lang.pascal
Titolo: codifica ascii per eof

Esiste una codifica ascii per il carattere end of file? Grazie, ciao.
Steve

 Esiste una codifica ascii per il carattere end of file? Grazie, ciao.
Non credo che alla fine dei file venga inserito un codice ascii
che ne indichi appunto la fine.... m'č venuto un dubbio...
...ecco, ho appena fatto alcune prove, ho visualizzato dei files
di testo con il debug in dos, eccone un copincolla:
==========
C:\>debug ciao.txt
-d
126C:0100  43 69 61 6F 2C 20 71 75-65 73 74 61 20 8A 20 75   Ciao, questa . u
126C:0110  6E 61 20 70 72 6F 76 61-20 64 69 20 73 63 72 69   na prova di scri
126C:0120  74 74 75 72 61 20 64 69-20 75 6E 20 66 69 6C 65   ttura di un file
126C:0130  20 64 69 20 74 65 73 74-6F 0D 0A 04 26 2B 51 02    di testo...&+Q.
126C:0140  52 8B F9 E8 59 BA 8B C7-E8 2B 98 8B 46 F8 89 44   R...Y....+..F..D
126C:0150  0C 8B 46 F6 03 46 06 05-03 00 3D 00 04 76 08 33   ..F..F....=..v.3
126C:0160  C0 89 44 08 89 44 0A FF-44 02 33 C0 EB 08 8B C7   ..D..D..D.3.....
126C:0170  E8 03 98 8B 46 FE 5E 5F-C9 C2 0A 00 C8 0E 00 00   ....F.^_........
-q
C:\>
==========
Ho notato una cosa in comune: tutti i file finiscono con due caratteri ascii,
in esadecimale sono 0D e 0A, ossia chr(13) + chr(10) (vedi quarta riga
126C:0130) Potrei pure sbagliarmi, puň darsi che sia solo una
coincidenza. boh!
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

coincidenza. boh!
Quelli sono solo i riporti a capo.
--
Ippopapero Acquatico,
...mica uno qualunque...

 Esiste una codifica ascii per il carattere end of file? Grazie, ciao.
Se l'input invece di essere da un file è dalla tastiera eof = [ctrl] + [z]


Newsgroup: it.comp.lang.pascal
Titolo: Patch?

Scusate l'ignoranza, ma a che serve questa agognata patch. Perché tutti la
cercano?
--
                ~S L A P~
~Inside the jungle man you do or you die
 you got to be aware,
           you got to have the jungle eye~


Serve per permettere ai programmi fatti in TP si girare anche su
computer oltre una certa frequenza di processore. Il problema è causato
dalla libreria CRT, se non ricordo male!
Ciao
MaTTeO.

 Perché tutti la cercano?
 Perche` vogliono usare il tp su macchine piu` veloci
 di 200 Mhz.
 PS: Si puo' scaricare su 
www.crackstore.com