Newsgroup: it.comp.lang.pascal
Titolo: che fortuna....

Hai una fortuna sfacciata, per capire qualcosa in questo mondo in cui le
teste piene di cacca
PRENDONO SEMPRE PIù IL SOPRAVVENTO!!!!!!!!!!!!!!!!!!!!!!!!!!
ciao.
Da: Dreadnaut <drea...@liberoDALLASPAM.it>
Oggetto: Re: SI ACCETTANO AIUTIIIII
Data: mercoledì 7 febbraio 2001 18.11
Allora non capisci proprio niente....
che delusione l'intelligenza (?) umana
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 PRENDONO SEMPRE PIù IL SOPRAVVENTO!!!!!!!!!!!!!!!!!!!!!!!!!!
Ammetto di non averla capita


Fra parentesi Federico/Pecos, non postare con due nomi diversi
che magari la gente si confonde ed evita di aprire nuovi thread se puoi
comunque...
questa e' la funzione F della tua esercitazione, per darti una mano por
ninin
solo che per un piccolo problema tecnico mi e' venuta al contrario :-)))
Basta che fai un programma che letto un file lo riscriva dalla fine
all'inizio
ed e' fatta... tanto ci vogliono 5 min :-)
;dne
;mid dom ) )]nel[s(dro + 8 lhs )s ,1-nel ,mid(f ( =: f esle
0 =: f neht 0 = nel fi
nigeb
}itnemirtla x dom ))]y[z(dro + 652*)z,1-y,x(F( ( elav, 0 'e y es 0 elav
ehc ,etnemavisrocir atinifed enoiznuf anu 'e )z,y,x(F
}{ ;regetni :) gnirts :s ;regetni :nel ;regetni :mid(F noitcnuf
purtroppo sono troppo stupido per saper fare il resto della
tua difficilissima esercitazione, quindi non posso far altro che
augurarti buona fortuna per il tuo esame :-)
addio, finiamola qui che e' meglio :-)
^^^^^
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 all'inizio ed e' fatta... tanto ci vogliono 5 min :-)
Attento che apre un altro thread, il seggetto gią lo vedo: AIUTOOOOOO: non so
fare un cacchio!!!

Boh pero'... ;-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

ed e' fatta... tanto ci vogliono 5 min :-)
io ne ho fatto uno che leva i segni di quotatura,
ma rivoltare un file...
quali funzioni si usano?
intendo per aprirlo, magari non come text, oppure...?
extrabug @ 
iname.com

Beh devi rivoltarlo carattere per carattere :-)
In effetti ci sono dei casini con i ritorni a capo, ma OE me li
ha fatti sparire magicamente, infatti se rivolti la mia mail ottieni
dei caratteri in piu' bislacchi.... ma se fai copia/incolla in OE
magicamente spariscono :-)))) (e' il problema del doppio carattere
\r\n per il ritorno a capo di Unix vs Dos )
cmq si, devi aprirlo come file non testo, poi ci sono due possibilita':
se i file sono piccoli puo' leggerti tutto il file "inverso" e metterlo
in una struttura (stack? array? c'est la meme) e poi lo butti giu'
dritto tutto insieme.
Se il file e' piu' tozzo ti tocca leggerlo all'indietro un carattere per
volta, e subito scriverlo nel nuovo file. Ergo bulacchi di seek( )
e prestazioni piu' scadenti :-)


ha fatti sparire magicamente,
Leggendo qualcosa sulle ricorsioni, ho partorito questo rivoltatore di testi,
dovrebbe essere come quello usato da te, difetti compresi.
 
var filez,files2:text;
procedure pippo;
var carattere:char;
begin
read(filez,carattere);
while not eof(filez) do pippo;
write(files2,carattere);
end;
begin
assign(filez,paramstr(1));
assign(files2,paramstr(2));
rewrite(files2);
reset(filez);
pippo;
close(filez);
close(files2);
end.
extrabug @ 
iname.com

Io avevo fatto quello con il seek inverso...
Questo purtroppo esplode con files troppo grossi :-)


Mandalo a Pacos che si radrizza la funzione F :-))
ciao ancora
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Questo purtroppo esplode con files troppo grossi :-)
Mi sai dire dove sta il limite?
io non ne capisco molto...
utilizza una sola variabile piccolina che si moltiplica all'occorrenza,
ma la ricorsione occupa tanta memoria?
extrabug @ 
iname.com

beh metti indirizzo di ritorno circa 8 bytes, parametri "pippo"
non ne ha, quindi non occupano niente... + un po' d'altra rumentina...
fossero solo 16 bytes a ricorsione e lo stack te lo consumi velocemente
dopo 1024 ricorsioni un stack da 16kb te lo sei mangiato tutto :-)
