mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: problemi con Windows98

Ho un problema di funzionamento del Turbo Pascal 7.0.
Istallato su un computer con Windows 3.11 funziona perfettamente
(lanciandolo da DOS).
Ho un  nuovo computer Windows 98, sul quale ho istallato la stessa versione
di Tp.
In questo ambiente il programma sembra funzionare, ma quando si cerca di far
girare qualche programmino didattico dei più stupidi (che sul vecchio
computer girava senza problemi), dà il messaggio di errore: error 200,
division by zero.
Ho controllato: path (autoexec), files=20 (config.sys), gestione della
memoria della finestra DOS.
Qualcuno mi può dare un suggerimento?
Grazie. Chiara
pres...@mail.liceo-vallisneri.lu.it

Un bel di' Antonio Marchionne scrisse:
AM> computer girava senza problemi), dà il messaggio di errore: error 200,
AM> division by zero.
AM> 
Il problema non e' con Win98, ma con il tuo processore, che e' "troppo
veloce". E' un bug del TP... trovi decine e decine di messaggi
su questo argomento... guarda i vecchi thread. :-)
Scusa se non ti rispondo direttamente, ma non mi sono mai interessato
particolarmente: non e' un mio problema... ho solo un P100 :)
-- 
"L'organizzazione di ogni burocrazia e' molto simile a una cloaca: i pezzi
piu' grossi emergono sempre", legge di Imhoff
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

Il problema non č nel Windows98 ma nel Pentium II, a noi č capitata la
stessa cosa a scuola dopo aver fatto l'upgrade dei computer...
sniff sniff niente piů librerie CRT poveri noi :'(
Ciao
Guido Revello


se sul tuo nuovo pc hai un pentium II il problema e generato da
quest'ultimo.
Allora per risolvere il problema devi saricare la patch che trovi su
altavista e si chiama tbpatch7.zip
ciao

Newsgroup: it.comp.lang.pascal
Titolo: Non riesco...

...a capire come si passa dalla formula generale della serie
Sum arctg(1/(2n^2)) alla somma parziale arctg(n/n+1).
Se qualcuno č cosě gentile da spiegarmelo lo ringrazio fin da ora.
Masmat

 wrote in message
li7V6.523$6m2....@news.infostrada.it...

Ke centra col Pascal?
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\  /\
\_/   V  \_/
Newsgroup: it.comp.lang.pascal
Titolo: Reset

Come creare un programma che riavvii il sistema una volta eseguito?
Kosby

 Kosby
Per riavviare il Pc inserisci queste righe ( funzionano in TP ):
asm
 int 19h
end;
Ciao ciao

 wrote in message
392B92EF...@tiscalinet.it...


Questo dovrebbe funzionare:
Program Reboot;
Var 
     p: procedure;
begin
 MemW[$0040:$0072]:=$1234;	
 @p:=ptr($F000, $FFF0);		
 p;				
end;
Se cosi non funziona prova a sostituire "$1234" con "$0"
Ciao e a presto
Oluyede Lawrence
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee


Newsgroup: it.comp.lang.pascal
Titolo: Della difficoltà del Java....

me ne strasbatto!Porca puttana ho preso l'università con l'intenzione di
diventare bravo di fare, inventare, creare. Di essere assunto una volta
uscito e di essere apprezzato come un valido programmatore...e un anno con
che cosa sto perdendo tempo? Con il Pascal!!!
W il dos siamo nel 2001....Cmq a parte la sua epoca giurassica perchè un
anno su 'sto cazzo di coso...perchè?
Poi ragazzi non mi meraviglio affatto se il sito dell' università è
mediocre, incompleto, lento che neanche Frontpage riuscirebbe a
sovraccaricarlo e così tanto...Ma vi sembra razionale una cosa del genere?
Il Java (nessuno mette in dubbio il suo livello di difficoltà sicuramente +
elevato) ma almeno è sicuramente qualcosa di attuale e non qualcosa che ha
la sola facoltà di essere "chiaro a livello logico, ottimo per la
didattica".
E sicuramente ho capito che la Sapienza è ancora + vecchia del Pascal....
Saluti

W il dos siamo nel 2001....
viva Windows, Borland da' via gratis Delphi 4... (compilatore + IDE + un 
fracco di librerie Object Pascal per Windows)

 ha scritto nel messaggio
news:9458d4$841$2...@lacerta.tiscalinet.it...


 formazione e elasticità mentale per tutta la tua carriera di informatico
Perfetto. Ciò che dicevo prima.
Ciao, Gianluca M.

IDE + un fracco di librerie Object Pascal per Windows)
Wow, sul sito della Borland?
Bisogna essere iscritti alla community??
=))
-- 
Ciaooooo
Mr_Brain

Wow, sul sito della Borland?
no, assieme a qualche rivista
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
Comments: waiting for version 4.0 ;)
GE/M/S/O d- s:--- !a C++++()>$ UL P+>+++ L+>++ e w++>$ N++ o-- K- W++ O? 
M? V? PS++ PE- Y+>+++ PGP++ t+ 5? X++(+) R tv--  b++>++++ DI++ D++ G-- e 
h! !r xy**
------END GEEK CODE BLOCK------

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
		             "ANGOSSIA FINANZIARIA"
	Lo so, signor Ministro del Bilancio,
	che c'e' un buco
	di sedicimila miliardi,
	ma perche' guarda me?
		-- "POE'SIE, ANGOSSIE & ALTRE STORIE", da
 
http://www.geocities.com/SouthBeach/Marina/9922/poesie.txt

> no, assieme a qualche rivista
Mi sembra fosse australiana, o una roba del genere

Newsgroup: it.comp.lang.pascal
Titolo: Da Real a Longint

Esiste un modo per effettuare una conversione del genere?


arrotondi il real (function round(r: real)) e lo assegni alla variabile
intera. ovviamente perdi il decimale.
ciao,
-- gabri

puoi anche troncarlo con
function trunc(r : real)
ciao
-- gabri
Newsgroup: it.comp.lang.pascal
Titolo: poche facili domande

Sto imparando ad usare il tp7, che ho appena scaricato, ed ho qualche facile
doamnda:
1)Ho scaricato la patch del tp7 per i Pentium II; questa è formata da vari
files: Turbo.tpl , Tppatch.exe , Tpp.tpl , Nt.bat , Crt.pas , Crt.asm.
Dove li metto? Cosa devo fare?
2)Che cosa è il Turbo Assembler?
3)A che cosa  serve il file Tpx.exe? E' uguale a turbo.exe?
4)Tp7 funziona bene sotto Win98?
Grazie.
Ciao
Alberto

Scusa da dove hai scaricato le patch? Sai ne avrei bisogno anche io. Grazie
.
Tony
Alberto <_Al...@NOSPAMinterpuntonet.it> wrote in message
YyAZ3.79302$s17.8...@typhoon.libero.it...


 .
Se non ricordo male
http://members.xoom.it/lollo_1/turbopascal.htm
Ciao
Alberto

 Alberto
Credo di poter rispondere a questa domanda, anche se, dai file che hai elencato,
mi sembra di capire che la patch che hai scaricato tu è diversa da quella che ho
scaricato io.
Prova a copiare tutto nella cartella Bin (o dove tieni Turbo.exe) e ad eseguire
il file Tppatch.exe
***---***
Fabio Feuli
E-Mail 
fe...@libero.it
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)


http://www.penguinpowered.com/~ecesena
Legge dei Grandi:
	Quando qualcuno che si ammira e si rispetta in sommo grado sembra
	essere immerso in profondi pensieri, probabilmente sta pensando
	alla cena.


Visita il nostro sito e preleva nell'area di download (Navigate con i nostri
link) la patch con le istruzioni per risolvere il problema in modo
definitivo.
http://dante.bdp.it/~bsri0001/
Ciao e buon lavoro con il Pascal
Newsgroup: it.comp.lang.pascal
Titolo: delay per windows

scusate, sapreste indicarmi una unit per che contiene una funzione simile a
delay? crt.tpu non funziona su windows, mi servirebbe crt.tpw grazie.
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

> crt.tpu non funziona su windows, mi servirebbe crt.tpw grazie.
In che senso non funziona su win?
Hai pattato il tuo bel tp per il bug della unit crt?
Se no, vai sul sito comune dove troverai spiegazioni.
P.s.: dal tp5 in poi (mi sembra) NON esistono più i file crt.tpu e crt.tpw.
Le funzioni della unit crt sono integrate nel file turbo.tpl
Ciao
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

 ha scritto nel messaggio
news:9icgi2$igbdf$1...@ID-83341.news.dfncis.de...


 non trova il file crt.tpw...
Ma sei sicuro di avere il turbo pascal 7 e non versioni precedenti?
Io quel file non ce l'ho (ed è normale) e la crt mi funziona.
Ciao
Alex

 ha scritto nel messaggio
news:9ici7b$i85el$1...@ID-83341.news.dfncis.de...


 per sviluppare applicazioni windows e non dos, capito? e a quanto ne ho
Uhm... forse non ci capiamo ma penso che tu stia usando non il turbo pasca
ma il borland pascal (che sono due compilatori diversi).
Sul tuo post precedente in effetti avevi affermato di usare il borland
pascal.
Inoltre nel tp non puoi sciegliere la piattaforma di destinazione (dos,
win,linux) come invece puoi fare con il borland p. (o con il free pascal).
Quindi è diverso: io ti stavo parlando riguado il tp e tu riguardo il bp.
Sbaglio? Dimmi se mi sono fatto una bella figurina di m***a   :)
Ciao
Alex

 ha scritto nel messaggio
news:9ih44b$j9i0o$1...@ID-83341.news.dfncis.de...

Newsgroup: it.comp.lang.pascal
Titolo: problema con array...

>
dato un vettore di numeri interi
1) partendo dal primo elemento fino al penultimo, ripeti:
leggi l'elemento
leggi l'elemento successivo e confronta i due
se il primo elemento e' maggiore del secondo, riportare gli elementi nel
vettore e scambiali di posto
se c'e' stato uno scambio ripeti dalla istruzione 1).
se non c'e' stato scambio visualizza i singoli valori del vettore
<<
Grazie a chiunque mi aiutera', anche solo segnalandomi come realizzare parti di
codice[per esempio come cambiare di posto i valori, come leggere i valori da un
array, ecc]
saluti
Federico
-- 
Posted from  [62.211.25.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
fa4335436b65ec334b6...@mygate.mailgate.org...
Var VET: Array[1..100] of Integer;
       I,J,MOM: Integer;
Begin
    .... inserisci i valori nel vettore ....
   For I:=1 to 99 do
     For J:=I+1 to 100 do
      If Vet[I]>=Vet[J] Then
        Begin
(* Qui si fa lo scambio *)
          Mom:=Vet[I];
          Vet[I]:=Vet[J];
          Vet[J]:=Mom;
        End;
   ... Qui son finiti i due cicli FOR
    ....Visualizza gli elementi.....
End;

E' un semplice ordinamento degli elementi di un vettore tramite un algoritmo
chiamato Bubble Sort:
procedure scambia(var a,b:integer);
vat tmp:integer;
begin
  tmp:=a;
  a:=b;
  b:=temp;
end;
procedure ordina(var vettore:vect);
var i,k:integer;
begin
{Ipotizzando che il vettore vada da 1 a 100 --type vect:array[1..100] of
integer;--}
  for i:=1 to 99 do
     for k:=i+1 to 100 do
      If vettore[i]>vettore[k] then scambia(vettore[i],vettore[k]); {E'
inutile mettere >= come condizione di scambio perchè non servirebbe a nulla
scambiare due valori uguali.}
end;
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

Grazie a tutti degli aiuti! in questo periodo temo me ne seviranno molti....
Alla prossima & grazie ancora
Federico
-- 
Posted from  [62.211.25.207] 


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

Salve,
Avete per le mani un decompilatore per pascal 7? O sapete dove potrei trovarlo??
Grazie,
Giacomo
-- 
Posted from 
mail-5.tiscalinet.it
 [195.130.225.151] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:007e01c154be$15ea98a0$5bac623e@giacomog...


 >
A me piacerebbe solo sapere se esiste o se anche solo a pensarci si entra in
qualche imbuto cosmico :))
Milliken


 ha scritto nel messaggio
news:9qkp3a$2kq$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.pascal
Titolo: Unit Graph e schede video

Oltre al bug della CRT, constato che programmi perfettamente funzionanti su
un Pentium 133, che utilizzano la unit Graph, non vengono eseguiti su un
Celeron 400 con scheda video S3 Trio 3D.
Il sistema segnala l'errore "Graphics not initialized (use InitGraph);
poiché l'istruzione ed il relativo path sono correttamente presenti, ritengo
che non venga riconosciuto il tipo di scheda (in effetti nella directory BGI
si trovano le impostazioni solo per egavga).
Qualcuno sa dirmi se è possibile reperire il file BGI corretto?
--
Posted from 
laguna.tiscalinet.it
 [195.130.224.86]
via Mailgate.ORG Server - 
http://www.mailgate.org


http://members.xoom.it/lollo_1/turbopascal.htm
C'è uno zip con vari bgi
Sgaragnao!!
-----------------------------
Gabriele "Happosai"  Visconti -- 
http://visconti.interfree.it
E-Mail: 
w.vis...@tiscalinet.it
Fan sfegatato della Divina Rumiko Takahashi
             (Non siam degni, non siam degni  ^__^;;)
Sostenitore di Mitsuru Adachi e delle Clamp
Aspirante membro delle BT
              (  a proposito ma come si diventa membri? :-/  )
Esaltatore Ufficiale del GEA - Gruppo Esaltazione Akane
 
http://gulliver.unian.it/genma/
---------------------------------
|-| /-\ |* |* O S /-\ |

Newsgroup: it.comp.lang.pascal
Titolo: Sono nuovo nel NewsGroup

Ciao a tutti,
sono nuovo di questo newsgroup e volevo iniziare
salutando cordialmente tutti voi filo-programmatori
facendovi subito una piccola domandina.
Non conosco il Pascal...nulla zero...nisba...ma conosco altri
linguaggi di programmazione e vorrei cimentarmi in Pascal
perchč ho sentito in giro che č un buon linguaggio.
Sapete darmi qualche indicazione su come iniziare ?
Per cominciare  ho scaricato il Turbo Pascal di Borland
(quello freeware) ed un Book elettronico anch'esso free.
Mi consigliate un altro compilatore ?
Sarei orientato alla programmazione di giochi
sotto DOS perchč Windows me pare na schifezza !!!
Ciao, JanSolo.

Ti ringrazio...conosco bene la sintassi C e C++ e un pochino quella
di assembler quindi dovrei impiegarci pochino a prendere la mano con
Pascal...mi hanno detto che è molto leggibile come linguaggio.
...in effetti quello che mi manca non è la capacità di apprendere la
  sintassi, ma la mentalità del programmatore...
Ciao, spero di poter collaborare con te alla realizzazione di Airex,
approposito puoi anticiparmi di cosa si tratta oppure se non puoi non
preoccuparti sapro' attendere il mio momento.
Ciao, Jan

 Ciao, JanSolo.
Se vuoi fare giochi in dos non c'è di meglio che il DIV 2,
Giochi di rete, giochi 3D tipo DOOM e QUAKE (per dos QUAKE III e tutta
un altra cosa),
inteligenze artificiali... insomma tutto per un gioco DOS...
www.divgames.com/it/
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Per Calcolare la data di Pasqua?

Qualcuno e' cosi gentile da spiegarmi l'algorito per stabilire la data di
Pasqua?
vi prego rispondetemi e' urgente.. se vi e' possibile anche in email ;)
Tnx

vi prego rispondetemi e' urgente.. se vi e' possibile anche in email ;)
Ti ho spedito la risposta in C su it.comp.lang.c
Newsgroup: it.comp.lang.pascal
Titolo: FILE EGAVGA.BGI

Ho un problema con i files in modalità grafica: Sorgenti ed eseguibili
che entrano in grafica funzionano SOLO se nella stessa cartella è
presente il file EGAVGA.BGI. Se questo file non è presente l' EXE si
arresta subito. Non credo sia normale xkè ad altri non accade.Da cosa
dipende?. Uso TP 7.0 e Windoz XP.  GRAZIE

è normalissimo....
quando carichi la modalità grafica il tuo programma a bisogno
del *driver*....
Cmq c'è il modo per includerlo nell'exe....
Intanto mi pare che ne devi fare una copia in codice oggetto
con bin2obj.exe, poi qualcun'altro ti spiegherà meglio..
NM


Newsgroup: it.comp.lang.pascal
Titolo: Caratteri per TP

Ce ne sono altri in giro oltre a questi
	TRIP.CHR
	LITT.CHR
	GOTH.CHR
	SANS.CHR
--
fabi...@rocketmail.com

	SANS.CHR
Io so che con Quattro Pro, lo spreadsheet della Borland di qualche
tempo fa venivano distribuiti dei font aggiuntivi.
Sapevo anche che la Borland avrebbe sviluppato un editor di font, ma
non so che sviluppi ha avuto la cosa.
Puoi cercare in rete la struttura dei file .CHR e costruirtene uno,
nel caso non lo trovassi.
Andrea Laforgia

Un bel di' fabioman scrisse:
f> Ce ne sono altri in giro oltre a questi
f> 
f> 	TRIP.CHR
f> 	LITT.CHR
f> 	GOTH.CHR
f> 	SANS.CHR
f> 
in C, per fare il mio giochino, ho utilizzato una funzione che
apre dei files .FNT, generati con un apposito programma.
Se vuoi qualcosa, fammi un cenno. :)
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
"Non discutere mai con un idiota: la gente potrebbe non notare la
differenza", prima legge del Dibattito

Newsgroup: it.comp.lang.pascal
Titolo: HELP! TUTORIAL!!!

Voglio imparare il Pascal ma, in rete non trovo manuali e tutorial da poter
scaricare. Potete darmi una mano?
Grazie

fabry wrote:

http://digilander.iol.it/carmageddon1

 ha scritto nel messaggio
news:9kofg5$ubt$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: [OT] wind, isdn e internet no stop

Ciao a tutti  gli aficionados del pascal e scusate l'OT, ma sono incazzato e
ora non piu solo con TLC.
A giugno ho installato una borchia isdn ( indovinate da chi?) per poter
usufruire del servizio Wind Internet-No Stop. Ora Wind bella bella mi ha
fatto sapere che dal 9-1-2001 NON MI FORNIRA
PIU TALE SERVIZIO. ( Scusate l'urlo, ma dovevo sfogarmi ).
Mo' che me ne faccio della borchia isdn???
Vi e quarcuno all'interno ( fesso quanto me...) che ha il mio stesso
problema??? Perche dal fatidico 9-1-2000 dovremo pagare canone doppio, senza
poter usufruire del servizio.
Con chi mi incazzo??? Con telecom con wind con questo paese di m---a dove le
grandi societa fanno quello che vogliono???
Se qualcuno e incavolato come me, mi invii una mail e mandi un fax al numero
800-91.58.44 lamentandosi. Io ho chiesto anche il rimborso di neta canone
telecom sino a quando TLC non si
decidera a rimuovermi la borchia.
------------------
el rasune'
Ca' custa chiel ca' custa...
     Viva la val d'Austa!
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Hai provato a sentire qualche associazione consumatori?

it.tlc.provider.disservizi

 wrote in message
001501c074c1$f9bb84a0$a660623e@maurizio...


Newsgroup: it.comp.lang.pascal
Titolo: estrazione di lettere e altro

 v := 0;
   for i:=1 to length( f ) do
    case f[i] of
       'a', 'e', 'i', 'o', 'u',
       'A', 'E', 'I', 'O', 'U':
          v:= v+ 1;
    end;
  writeln('Le vocali sono: ', v);
  writeln;
risultato Ciao
le vocali sono 3 ma se io devo scrivere
aio dopo 3 come faccio...
Grazie
L'istruzione LowVideo e NormVideo a che servono?
--------------------------------
Inviato via 
http://usenet.libero.it

aio dopo 3 come faccio...
Premettendo che anche stavolta ci ho messo un bel po per capire cosa
volevi ottenere... :-)
	//
  vocali : string;
	//
	v := 0;
	vocali := '';
	f := 'Ciao';
    for i:=1 to length( f ) do
      case f[i] of
        'a', 'e', 'i', 'o', 'u',
        'A', 'E', 'I', 'O', 'U':
		  	begin
          v:= v+ 1;	
					vocali := vocali + f[i];
				end;
  writeln('Le vocali sono: ', v, vocali);
	//
-- 
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
La storia insegna che la storia non insegna nulla.
http://web.tiscali.it/mbsoftware
__________________________________________________

>aio dopo 3 come faccio...
una soluzione migliore:
 
 v : string;
//
 v := '';
   for i:=1 to length( f ) do
    case f[i] of
       'a', 'e', 'i', 'o', 'u',
       'A', 'E', 'I', 'O', 'U':
          v:= v + f[i];
    end;
  writeln('Le vocali sono: ', length(v), v);



--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.pascal
Titolo: trovare ARRAY OF CHAR in un file

devo trovare un "array of char", ad esempio 'atcaa' in un file di testo
contenente circa 100000 caratteri.
Però vorrei usare soltanto array of char e non le stringhe!
ovvero la stringa da trovare è:
base[1] := 'a';
base[2] := 't';
....
quindi leggo il file, un carattere alla volta, ( tra l'altro, posso leggere
in un colpo solo tutto un file di testo e metterlo in una ansistring?)
 e devo vedere di trovare
le occorrenze della stringa 'atcaa'
come posso fare?
cioè il mio codice ha grossi problemi quando si presenta una stringa
come 'atcatcaa', in quanto quando legge la seconda 't',
il programma "spererebbe" di trovarci un'altra 'a' e quindi un'occorrenza !
invece rimane "fregato" ma non "vede" che il carattere precedente era una
'a' e quindi non rileva l'occorrenza seguente!!!
diciamo quindi il programma non ha "memoria" in quanto opera solo
sul carattere letto attualmente!
ps. ho già implementato 3 codici diversi, il primo molto veloce ma
non trova diverse occorenze, il secondo memorizza a più riprese
il file in un'array
di char[30000] ed è veloce ma non trova le occorrenze "a cavallo"
di 30000, il terzo usa le stringhe e funziona ma è penosamente lento....
grazie a tutti
Ciao

ehm... ti propongo una soluzione decisamente grezza, ma che dovrebbe
funzionare
var flag: boolean;
var lung_array,n: integer;
flag:=false;
n:=1;
repeat
if (base[n]='a') and (base[n+1]='t') and (base[n+2]='c') and (base[n+3]='a')
and (base[n+4]='a') then flag=true
else n=n+1;
until (flag=true) or (n=lung_array-6)
--
Fabio Ruini
(
fabi...@libero.it
)
"Non si puņ descrivere la passione, la si
puņ soltanto vivere" (Enzo Ferrari)

Newsgroup: it.comp.lang.pascal
Titolo: rs232 in pascal

Salve a tutti! Faccio subito la domanda: Chi mi sa dare indicazioni a come
trasferire e leggere dati in pascal dalla seriale rs232? grazie per chi
vuole rispondere.

 per chi vuole rispondere.
dovrebbe essere sufficiente aprire il file speciale "COMn" (n = 1,2...)
fornito dal dos, e leggere e scrivere caratteri... ma personalmente non ho 
mai provato
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: [Req] WinCrt e WinDos

Chi mi può spedire queste due unit per TP 7.0
Grazie ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

On Mon, 23 Apr 2001 19:42:35 GMT, "ReDiCuori"
<redicu...@NOSPAMlibero.it> wrote:
Windows te la posso spedire... winCrt no...

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: file in memoria

Salve
non so se la domanda ha un senso comunque :
è possibile in pascal lavorare con file in memoria ? ovvero strutture del
tutto simili a quelle scrivibili su HD ma che operano solo su memoria
volatile e che quindi servono solo in fase di esecuzione perchè una volta
chiusi (con close o qualcosa di simile) vengono "distrutti" ?
Grazie
Milliken

> non so se la domanda ha un senso comunque :
non so se la risposta ha senso.. anche perche' non sono certo di
aver capito la domanda...
puoi mettere su un disco virtuale e lavorarci sopra come se fosse
un disco normale, o puoi creare dei buffer in memoria (max 64kb
pero', oppure fai strutture piu' complesse e puoi arrivare a mezzo
mega circa) e ci scrivi dentro, poi li deallochi e svuoti la memoria...
cosa devi farne ? :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Penso di aver capito la domanda: mi è capitato, lavorando
con files, di voler avere la possibilità di lavorarci e poi
di chiuderli ma senza salvarli(in realtà io usavo gli stream
della turbovision, ma il problema è simile). La soluzione
del buffer richiederebbe la riscrittura di tutte le
procedure d'accesso; un disco virtuale va creato a livello
di config.sys con il driver RAMDRIVE.SYS, e la soluzione
sarebbe inaccettabile.
Ciao.
--
Paolo Giarrusso
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel
messaggio news:pOS68.7445$nI1.2...@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Creazione Units

Salve a tutti, sono un ragazzo che da poco ha imparato a usare questo
linguaggio e per cui vi chiedo un enorme cortesia...
Su un manuale ho visto come creare delle units personali.
Ho fatto come diceva, ho creato una units di prova, me la compila, ma non
riesce a eseguirla e compare il seguente messaggio di errore: "Cannot run a
unit".
Cosě facendo la units non me la crea come devo fare?
Ho farse sbagliato in qualche parte?
Ora vi riporto cosa ho scritto per fare questa unit....
Unit prova;
Interface
Uses crt;
Implementation
Procedure ciao;
Begin
gotoxy(10,10);
writeln('Questa č una unit fatta da Juan');
writeln('Ciao');
end;
end.
Questo č quello che ho scritto, vi prego risolvetemi questo problema.
P.S. Utilizzo TP7
--
        \\\|///
        ( oo ) By Juan
--oOO--(__)--OOo--

Questo è quello che ho scritto, vi prego risolvetemi questo problema.


Ciao
Una unit non è un programma e quindi, quando la compili, non crei un file
exe ma un tpu che dovrai spostare nella cartella delle units del tuo pascal
o eventualmente aggiungere tra le Directory, quella nella quale hai
compilato la tua unit.
Quando crei un nuovo programma basta che nella riga uses metti il nome della
tua unit e poi non devi fare altro che richiamare le procedure e funzioni
che hai inserito ella tua unit.
Spero di essere stato abbastanza chiaro :-)
Ciao ciao
--
KNOWLEDGE IS POWER
http://chameleon.go.to
Newsgroup: it.comp.lang.pascal
Titolo: Userid e Password

         END.
1) In che modo nascondare il testo che viene digitato dall'utente
(tipo mascherarlo con i classici " * ") ?
2) Se volessi numerare i tentativi falliti di accesso, e renderli
visibili all'utente che prova l'accesso, come potrei fare?
3) Se volessi impostare un numero massimo di tentativi oltre il quale
non sarà più possibile tentare l'accesso come potrei fare?
4) Il codice lo generato analizzando dei file di esempio e
modificandoli adattandoli al mio scopo, ma non termina qui deve
richiamare a sua volta un altro eseguibile, ad esempio:
c:\dati\nome.exe con che comando posso richiamare un altro eseguibile?
Grazie.

 c:\dati\nome.exe con che comando posso richiamare un altro eseguibile?
Procedura exec, unit dos
Ciao
 Max

Newsgroup: it.comp.lang.pascal
Titolo: AIUTATEMI __CERCO COMANDO

Ciao a tutti
Cerco un comando tipo Read, che però non attende la pressione del tasto
INVIO per leggere il valore
Rispondetemi a 
dde...@supereva.it
Grazie!!

Dexter ha scritto:

Puoi Usare ReadKey!
Es.:  Carattere := ReadKey;
N.B.: Legge un carattere solo, quindi se vuoi leggere un numero composto da
tre cifre
dovrai leggere cifra per cifra e poi convertire in integer o real.
Ciao    MaTTeO.

 INVIO per leggere il valore
var k : char;
 k:=readkey;
Bye,
  > Umberto the Dragon <
Newsgroup: it.comp.lang.pascal
Titolo: operazioni in parallelo

scusate, ma vorrei un consiglio. uso il turbo pascal 7 con interfaccia wia
(bpw.exe), e sto cercando di realizzare un gioco abbastanza primitivo.
vorrei sapere se e' possibile effettuare 2 o piu' operazioni
contemporaneamente, ad esempio mentre il gioco continua, io vorrei che
venisse visualizzato anche il tempo. cioe' voglio creare 2 cose distinte e
separate che funzionano contemporaneamente.
seconda domanda. utilizzando il pascal con target win molte delle unit come
crt non sono utilizzabili. come fare a rendere disponibili i comandi delle
unti per dos anche per windows? grazie.
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

 Ma che funzioni è che non ti vanno?
tutte quelle che sono nelle varie unit per dos


> Ho una unit scroccata cmq se lo vuoi.
:-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Chissa da chi...     :)))))))
P.s.: Perchè non agguingi te qualcosina dato che ne sai molto + di me? Su,
non fare il timido ;)
Ciao
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it
"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:KhI27.1824$2v6....@news.infostrada.it...


 separate che funzionano contemporaneamente.
in pascal non e' possibile creare piu' processi o piu' thread, quindi non
e' possibile avere piu' parti del programma che avanzano contemporaneamente.
Questo cmq non ti e' necessario se devi fare ad esempio un gioco, perche'
le operazioni sono cmq sequenziali: a.e. il tuo gioco puo' fare piu' cose
per ogni frame ridisegnato e avra' cmq alla fine una struttura del tipo
repeat
 gestisciTasti;
 aggiornaSituazione;
 aggiornaTempo;
 ridisegna;
until gameover;
la procedura ridisegna si occupa di aggiornare lo schermo con le
informazioni che _sequenzialmente_ sono state preparate dalle
altre tre procedure, anche se poi alla fine a chi gioca il funzionamento
appare "parallelo"
o forse il tuo probl era un altro... mmmh allora magari spieg meglio :-)
ciao


> non fare il timido ;)
beh non scrivo se non sono sicuro di avere qlcs da dire :-)
si con il timer puoi fare eseguire una procedure ad una certa
frequenza (mi sembra il minimo sia circa 18 hz, come massimo
io sono arrivato fino a 100 ma non so' quale sia il limite esatto).
Pero' di solito si usa per parti (meglio una sola) del programma
che sono indipendenti e a se' stanti, come puo' essere il
redraw del puntatore del mouse, oppure per tenere conto del
tempo, aggiornando a.e una variabile cent_di_sec: longint.
Il timer puo' essere cmq utilizzato anche da altri programmi/
drivers etc, quindi se si rovina la catena delle procedure richiamate
dall'interrupt del timer si rischia di bloccare tutto :-)

Newsgroup: it.comp.lang.pascal
Titolo: problemino banale (per voi)

Potete dirmi perchè il compilatore mi dà errore in questo codice di
programma?
Ciao e grazie.
program numero;
uses crt;
var mitici:integer;
var numerouno:char;
begin
clrscr;
write('Quanti erano i grandissimi Queen?');
readln(mitici);
if mitici=4 then
begin
write('Bravo!Non ci voleva molto...');
write('Visto che sei così bravo, dimmi qual' e' stato il primo numero uno
della band'); {Mi dà tre errori su questa riga}
readln(numerouno);
if numerouno<>'Bohemian Rhapsody' then {se non sbaglio il simbolo "diverso
da" si indica con <>}
begin
write('Esatto!!');
end;
else write('Questa era facilissima!!');
end;
else write('Ignorante!!');
end.

 else write('Ignorante!!');
MAI mettere ";" davanti agli else...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 Ciao e grazie.
de nada...

 else write('Questa era facilissima!!');
Qui invece c'è un errore sintattico: non ci vuole il ';' dopo l'"end" che 
precede l'"else": if(condizione)then ... else ...; DEVE essere un blocco 
unico.
Così non dovrebbero esserci problemi, almeno credo :-P
Ciao ciao
P.S.: Impara anche ad indentare programma perchè così è veramente 
illeggibile...
-- 
KNOWLEDGE IS POWER
Linux: the choice of a GNU generation!
http://www.sverzat.com


Ciao
^_][ice][man][_^

 -- 
http://www.mascanc.net/~masi
... Oh Lord, won't you buy me a Mercedes Benz ...
... They say jump, you say how high ... 

 end.
Ti do anch'io il consiglio che ti ha dato Solid Snake:
impara a indentare il programma così lo capisci meglio anche tu.
Newsgroup: it.comp.lang.pascal
Titolo: E Arrivo il primo problema....

ciaooo oggi ho fatto il mio primo koso(nn voglio definirlo programma una
cazzata del genere =) ) pero mi da un errore il pascal :
mi segna L'OF di
CASE A OF sbagliato .... o messo alla fine per chiudere END; ma niente....
kosa ho sbagliato ??? kome faccio a mostravi il codice del mio koso (e gia
ke pensate male =D ) senza copiarlo a mano  ???

 ha scritto nel messaggio
news:aJXP5.51392$BF.18...@news.infostrada.it...


ke pensate male =D ) senza copiarlo a mano  ???
Selezioni il codice, premi CTRL + C  poi incolli nel messaggio email e
spedisci.
Ciao
--
Non è stato rilevato nessun bug nel sistema.
Si desidera crearne uno?
-- 
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000301c01e6a$9d1a7f60$c6352797@u8e3o5...


program
  calcola_fattoriale;
uses
  crt;
var
  y : integer;
function fattoriale (i : integer) : integer;
var
  x, j : integer;
begin
  x := 1;
  for j := 1 to i do
    x := x * j;
  fattoriale := x;
end;
begin
  clrscr;
  writeln ('Inserisci un numero intero');
  readln (y);
  writeln ('Il fattoriale di ', y,' è ', fattoriale (y));
  readln;
end.
Ma ce l'hai una guida?
Ciao.


ke kosa è un koso? ^_^
rhymes
rhy...@tiscalinet.it


> Non č stato rilevato nessun bug nel sistema.


Beh... č riscorsiva, secondo me č piů confusionaria, perchč chiama se
stessa...
con il ciclo for credo sia piů chiara da capire.
Poi, sono punti di vista personali...


> Ma ce l'hai una guida?
si sono delle fotocopie... il libro nn arriva cazzo !!! =(
cmq mi son fermato alle iterazioni ... dopodiche mi mancano =D !!!
precisamente a FOR ...TO...DO !!!
Grazie a Tutti ... cmq guardate il post 9! = -3500 ??? nn so =( !!!

> Grazie a Tutti ... cmq guardate il post 9! = -3500 ??? nn so =( !!!
Overflow???? Oppure la variabile non inizializzata!!!

 Non è stato rilevato nessun bug nel sistema.


Beh, poi dipende dall'uso che se ne deve fare, ma credo che qui quello che
contasse e far capire il meccanismo al nostro amico.
Ciao








tu, son punti di vista.
Si, ma qui siamo su un NG sul Pascal, e poi perchè dici che in C++ si
programma in maniera ricorsiva?


--
perchè ho un manuale della McGrawHill (Dio benedica quella casa) e ti
assicuro che lì i programmi vengono fatti in questa maniera.


assicuro che lě i programmi vengono fatti in questa maniera.
Ad es. ?
Ciao
-- 

Newsgroup: it.comp.lang.pascal
Titolo: Error Division By Zero

Ho il sequente problema con il Turbo Pascal 7
Ogni volta che avvio un programma, anche solo che visualizza una stringa, mi
vieve l'errore di divisione per zero.
L'errore non deriva dal codice scritto, infatti non eseguo nessuna
divisione.
Il problema sorge su numerose macchine, non solo sulla mia.
Mentre se lo avvio su un 486 funziona !!?!?
Qualcuno ha avuto lo stesso problema ??!

 wrote in message
news:9oka1u$mm0$1...@lacerta.tiscalinet.it...

Che sistema operativo hai su queste macchine che danno problemi?
se hai Win95 ok, sei hai Win98 devi scaricare una patch per farlo
funzionare,
se hai Win 2000 informami se riesci ad usarlo perchè io non ci sono proprio
riuscito!
Ciao, Minjo

 Ho il sequente problema con il Turbo Pascal 7

  Dipende dal clock di sistema, sulle macchine troppo veloci (per gli 
standard dell'epoca in cui il TP7 usci') il Run-Time Error 200 ricorre spesso.
  Devi installare un patch che puoi trovare a  
 
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
 
Saluti
  Roberto
-- 
Posted from 
mars.esrf.fr
 [160.103.2.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Reset Bios wrote:

Il problema nasce da un bug che si mostra solo con le CPU + veloci.
Cmq che una patch che corregge il problema e la trovi :
http://digilander.iol.it/carmageddon1
 alla sezione strumenti.
Ciao Claudio.

Newsgroup: it.comp.lang.pascal
Titolo: Mi serve FDELAY.TPU!

Ciao a tutti!
Stavo realizzando un programmino con i vettori, quando, al momento di
compilarlo, mi dice che il file FDELAY.TPU non č stato trovato! Qualcuno
potrebbe spedirmelo a 
luca.pou...@gmx.it
 ??
Ciao & Grazie Mille!!!
-- 
Luca.Poughkeepsie
luca.p...@gmx.it
Sapete cosa cambiare!

 potrebbe spedirmelo a 
luca.pou...@gmx.it
 ??
non sembrerebbe una unit standard (del TP7 intendo)... se il programma lo
stai facendo tu... perche' la usi ??? :-)
oppure magari viene con qualche patch della crt... chissa'...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 stai facendo tu... perche' la usi ??? :-)
Facendo informatica a scuola, il professore ci ha spiegato che, per usare i
vettori, dovevamo usare la libreria "fdelay", solo che provando a casa mi
ha dato questo errore! Altro non so...
Ciao & Grazie per la risposta!


 ha dato questo errore! Altro non so...
e altro non devi sapere: quella unit non serve per gestire i vettori, per
quelli non servono unit

 ha dato questo errore! Altro non so...
boh... prova a chiedergli che c'e' dentro... cmq tu non usarla finche non ti
serve veramente...

Newsgroup: it.comp.lang.pascal
Titolo: Da ASCII a HEX, c'è qualche genio in grado di farlo ?

Salve,
vorrei sapere se è possibile fare un programma che trasformi una
stringa ASCII nella corrispondente esadecimale. Non chiedo viceversa,
ma se fosse possibile :)
Se avete un idea una dritta o qualche consiglio follow-uppate subito:)
Grassie in anticipo.
DeV
http://utenti.tripod.it/grungepunk/

you wrote :
#vorrei sapere se č possibile fare un programma che trasformi una
#stringa ASCII nella corrispondente esadecimale. Non chiedo viceversa,
#ma se fosse possibile :)
program Ascii2Hex ;
const HexChar : string = '0123456789ABCDEF' ;
var ASCIIString : string ;
    HEXString   : string ;
    function ByteHex( b : byte ) : string ;
    var lo_nibble : byte ;
        hi_nibble : byte ;
    begin
      lo_nibble := b and $0F ;
      hi_nibble := ( b and $F0 ) shr 4 ;
      ByteHex := HexChar[hi_nibble+1] +
                 HexChar[lo_nibble+1] ;
    end ;
    function Asc2Hex( s : string ) : string ;
    var r : string ;
        i : integer ;
    begin
      r := '' ;
      for i := 1 to length( s ) do
          r := r + ByteHex( ord( s[i] ) ) ;
      Asc2Hex := r ;
    end ;
    function Hex2Asc( s : string ) : string ;
    var i, e : integer ;
        v : byte ;
        r : string ;
    begin
      r := '' ;
      i := 1 ;
      repeat
        val( '$'+s[i]+s[i+1], v, e ) ;
        r := r + chr( v ) ;
        i := i + 2 ;
      until i > length( s ) ;
      Hex2Asc := r ;
    end ;
begin
  writeln( Hex2Asc( Asc2Hex( 'Hello world !' ) ) ) ;
end.
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------

stringa ASCII nella corrispondente esadecimale.
Ecco un espediente senza usare matematica:
Var St:String;
       Num:Word;
       CodErr:Integer;
Begin
  ...
  Read(St);
  Val('$'+St,Num,CodErr);
  ...
End;

Newsgroup: it.comp.lang.pascal
Titolo: albero delle parti??

Salve, ho un piccolo problema da proporre,
vorrei trovare un algoritmo che dato un albero in input, mi restituisce
un albero formato da tutti i possibili cammini (una sorta di insieme
delle parti)
cerco di essere + chiaro con un esempio:
dato l'albero etichettato sugli archi:
    A.(B+C)
Il risultato deve essere il seguente:
A+A.B+A.C+A.B+A.(B+C)
deve quindi contenere tutti i cammini senza duplicati, ma con o senza le
possibili scelte
questo per ogni livello. naturalmente la complessita' sara esponenziale.
meglio se l'algoritmo e' ricorsivo
grazie 1000
--
===================================================================
   "Io non rubo integro.D'altra parte in Italia chi e' che non integra?
   A proposito di politica, ci sarebbe qualche cosarellina da mangiare?
"
                  dal Principe della Risata
  Antonio De Curtis in Arte TOTO'
====================================================================

questo per ogni livello. naturalmente la complessita' sara esponenziale.
Non ho capito l'esempio, magari se me lo spieghi diversamente posso
darti una mano.
Postami anche privatamente.
Newsgroup: it.comp.lang.pascal
Titolo: TP ver 1.0 o succ

Sapete dove posso trovare le prime 3 versioni del TP della Borland

 Sapete dove posso trovare le prime 3 versioni del TP della Borland
Forse al "museo" della Borland....
Cmq, prova 
www.borland.com
 o 
www.inprise.com
 .
Ciao!
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________

ho provato a vedere il sito e forse ci sono nella comunity della borland,
solo che non ci riesco ad accedere. Non mi trova la pagina

> Sapete dove posso trovare le prime 3 versioni del TP della Borland
so che il TP 3 era per CP/M, non per DOS.
La versione 1 sarà per ENIAC...


Io ho la 2.0qualcosa e la 3.02 entrambe per dos. (pero' non credo che siano
complete)
Ciao.


Newsgroup: it.comp.lang.pascal
Titolo: cercasi tutorial semplice in pascal (in italiano magari)

cercasi tutorial semplice in pascal (in italiano magari) che possibilmente
contenga anche basi per la programmazione...
ciao
Luca

 wrote in message
8p9eqp$cnqs3$1...@ID-14874.news.cis.dfn.de...

Nel sito 
http://web.tiscalinet.it/pillillo
 c'e turbo pascal 7.0 ed il
tutorial della borland in 8 lezioni, in italiano, sia per la i principianti
sia per chi vuole proffondire la grafica. Se ti capita di andare lascia un
messaggio nel Guest Book cosě capisco che lo hai visitato. Grazie

Newsgroup: it.comp.lang.pascal
Titolo: gotoxy help

ho realizzato questo programma:
utilizzando un vettore devo scrivere i numeri contenuti nel vettore (da 1 a
100) in cinque colonne da 20 numeri l'una,
il prof ha detto di utilizzare gotoxy, io ho provato con 5 cicli for
(scrivendo da 1 a 20, da 21 a 40, da 41 a 60....), incrementando la riga e
tenendo costante la colonna........... ma c'è un modo più semplice e corto??
considerate che faccio il 3° superiore, grazie

beh senza gotoxy potresti scrivere i numeri 5 per volta
for i := 0 to 19 do
  write ( v[5*i+1]:16, v[5*i+2]:16, v[5*i+3]:16,
              v[5*i+4]:16, v[5*i+5]:16 );
non metto writeln perche' dando 16 caratteri per ogni numero
e con 5 colonne ottieni 16*5 = 80 quindi completi la riga e va
a capo da solo
Se devi scriverli "nell'altro verso" invece
for i := 1 to 20 do
 write ( v[i]:16, v[i+20]:16, v[i+40]:16, v[i+60]:16, v[i+80]:16 );
se preferisci puoi restringere le colonne sostituiendo 16
con un numero piu' basso, pero' devi mettere writeln per
andare a capo ad ogni riga.
-- 
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: dove trovo il compilatore

come da oggetto
grazie
--
togli no spam per rispondere
                         cià Caspar
Siediti al sole,
Abdica
e si Re di Te stesso.

...


Sapresti dirmi perche non riesco a caricare il tuo sito da netscape su
linux???
Ciao!
el rasune'
Ca' custa chiel ca' custa...
	Viva la val d'Austa!

-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: Come posso eseguire un file .exe con un file .pas

Salve,
ho un problema, sto scrivendo un programma che tramite un comando
dell'utente esegua un file esterno con estensione .exe, non riesco a trovare
il modo, ho provato usando sulla dichiarazione del tipo del file la
variabile text ma mi apre il file visualizzandomi il contenuto di questo in
modalità testo.
Ecco cosa ho usato io:
Program Files;
     var
       InFile : Text;
       nomef :string;
       TextLine : String;
       fine : char;
     begin
       write('File:> ');
       readln(nomef);
       Assign( Infile, nomef );
       Reset( Infile );
       while not Eof( Infile ) do
       begin
          Readln( Infile, TextLine );
          Writeln( TextLine );
       end;
       Close( Infile );
       readln(fine);
     end.
P.S. Da quello che mi ha svolto, questo programma apre un file nella
cartella che lo ospita.

shukri" ha scritto nel messaggio
Salve,
 ho un problema, sto scrivendo un programma che tramite un comando
 dell'utente esegua un file esterno con estensione .exe
Prova a consultare la guida alla voce "Exce..."
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

penso che redicuori volesse dire la voce "exec "=))
ke più o meno dovrebbe essere una cosa del tipo:
exec('C:\...\...\...\programma.exe','');
ciauz

 exec('C:\...\...\...\programma.exe','');
E di aggiungere {$M 8192,0,0} all'inizio del programma. Senza di quello i
programmi esterni non partono (almeno a me non faceva così).

Ho provato come avete detto voi, ma non mi funziona, sarà che sarò tonto io
(forse), per piacere mi potreste gentilemente scrivere un breve programma in
pascal che abbia questa funzione?
Grazie, siete molto gentili!

Ho provato come avete detto voi, ma non mi funziona, sarà che sarò tonto io
(forse), per piacere mi potreste gentilemente scrivere un semplice programma
in
pascal che abbia questa funzione?
(Dal program nome;
...
al end.
Grazie, siete molto gentili!

Ho provato come avete detto voi, ma non mi funziona, sarà che sarò tonto io
(forse), per piacere mi potreste gentilemente scrivere un semplice programma
in
pascal che abbia questa funzione?
(Dal program nome;
...
al end.).
Grazie, siete molto gentili!



 provo' irrefrenabile l'impulso a editare il seguente
messaggio news:ag47ef$73m$1...@lacerta.tiscalinet.it...

Cazzo, ci tieni proprio a farti scrivere sta funzioncina, eh???
Maurizio

 ha scritto nel messaggio
news:ag47ef$73m$1...@lacerta.tiscalinet.it...


> xlo-
cavolo che abbreviazione..
ciauz
Cereal

 cartella che lo ospita.
esatto,e lo stampa a video. Usare il comando exec(nomeprogramma, parametri)
della libreria standard.
Ciao e studia!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.
Newsgroup: it.comp.lang.pascal
Titolo: Sono disperato.......

Ciao a tutti,
oggi per la prima volta ho visto questo ng e già  mi piace un bel pò, ci
sono sempre delle risposte alle domande dei lamer come me =)
Passiamo al dunque:
è una settimana che cerco uno straccio di tutorial on-line (magari anche
scaricabile) ma non sono riuscito a trovare niente di soddisfacente.
Anzi, qualcosa ho trovato, ho trovato "Essential Pascal" tradotto in
italiano, secondo voi va bene?
Vi prego, datemi delle url dove trovo i tutorial in italiano
Grazie a tutti
Enzo

 ha scritto nel messaggio
news:91dr7f$8dq$1...@nread1.inwind.it...


 wrote in message
news:91dr7f$8dq$1...@nread1.inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: Verifica presenza file su memoria di massa

Ciao a tutti!
--
Come si fa per verificare se un file esiste su memoria di massa, ad un
indirizzo specificato?
Se apro, infatti, un file 'C:\mioFile.dat' che potrebbe esserci o meno su
hd, rischio di incorrere in un errore di runtime (se, al momento
dell'esecuzione, il file "assign"ato ad una variabile di tipo file non
esiste al percorso specificato).
Esistono funzioni che restituiscano un valore di verità che informi
sull'eventuale presenza (per esempio, di 'C:\mioFile.dat' all'indirizzo,
appunto, c:\mioFile.dat) di un file ad un indirizzo specificato? Mi sembra
di sì, ma qual è?
Ah, poi... quali sono le funzioni di libreria che chiedono all'orologio di
sistema data ed ora (per poi portare tali informazioni su memoria centrale)?
--
Grazie anticipatamente!
Elio

 sistema data ed ora (per poi portare tali informazioni su memoria centrale)?
GetDate
GetTime
SetDate
SetTime
--
Ciao,
David (
www.utilityweb.net
)