mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Non voglio la notazione esponenziale...

Ciao a tutti, ho bisogno di un piccolo aiuto. Come faccio con tp7 a ottenere
dei numeri decimali senza la virgola mobile ? C'è un'altra variabile oltre a
real (oppure qualche comando) che include i decimali e che "nasconde" la
notazione esponenziale?

dei numeri decimali senza la virgola mobile ? C'č un'altra variabile oltre


 wrote in message
86sii8$kre$1...@pegasus.tiscalinet.it...


notazione esponenziale?
La notazione esponenziale viene utilizzata solo quando il contenuto
della variabile viene scritta a video. Usa 
write( nome_variabile : n_max : n_decimali ) ;
con n_max si intende il massimo numero di cifre per l'intero numero e
con n_decimali il massimo numero di cifre per i decimali.
es.:
write( pi:10:5) ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Maxint??

Salve,
Il mio compilatore da come maxint 32767.
Come faccio se voglio usare Numeri interi Z superiori a quella cifra???
Grazie in anticipo,
Tommy
spac...@tin.it

massimo intero positivo= +2147483647
Oppure Comp che e' il migliore dei reali per i numeri interi.
NB: E' necessario pero' usare le direttive: {$N+,E+}

 wrote:

Con il TP si puo' utilizzare il tipo Longint
minimo intero negativo= -
2147483648
massimo intero positivo= +2147483647
Ciao,   Fabio.
fabi...@rocketmail.com


usi i longint... oppure te li crei da te :-)
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAM
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672

Newsgroup: it.comp.lang.pascal
Titolo: OT: Vicini di casa

Facciamo le cose fatte per bene please, inzio io :)
Io sono di Roma. Precisamente al centro di Roma.
E voi?
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Io so di Portici (NA)
-- 
-- 
L'uomo non sa perchč si innamora, l'uomo viene travolto e basta
---------------------------------------------------------
www.giordanoemilio.altervista.org
---------------------------------------------------------
www.securitygroup.it
Societą di servizio che opera nel campo
della sicurezza aziendale
---------------------------------------------------------
www.pascallike.too.it
http://utenti.lycos.it/pascallike
il sito sulla programmazione pascal
sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
------------------------------------------------------- 

( Il Razziatore - 
news:42c72...@x-privat.org
 )
vediamo di essere precisi: 44.34N 8.55E
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
Guarda che prendo il navigatore satellitare e ti vengo a beccare sai?

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!!!!!!!!

SALVE
E' POSSIBILE FAR LAMPEGGIARE  CON IL PASCAL 7.0 UNA SCRITTA CHE SI TROVA
ALL'INTERNO DI UN RIQUADRO SENZA CHE LAMPEGGI ANCHE IL RIQUADRO?
SE E' SI MI POTETE SCRIVERE IL COMANDO?
GRAZIE
FABI...@TISCALINET.IT

you wrote:

Textcolor( 31 ) ;
writeln('lampeggio' ) ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------


prova qualcosa del tipo...
textcolor(white+blink)
writeln('la storia dentro al riquadro');
textcolor(white)
e scrivi in minuscolo la prossima volta.... :-)
Fabio Ruini
fabi...@libero.it

 
Non urlare!
textcolor (colore + blink);
Al posto di "colore" metti il numero del colore che ti interessa.
Blink e` una costante = 16, quindi scrivere
textcolor (11 + blink); { azzurro lampeggiante }
e` come scrivere textcolor (27);
bye!
-- 
Emanuele Cesena                  
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
 - Attenzione antispam: ROT13 per rispondermi 
Le nozioni generali sono generalmente sbagliate.
		-- Lady M.W. Montagu

Newsgroup: it.comp.lang.pascal
Titolo: BGI alternativa per la grafica?

Lo so che è una domanda scassapalle che vi avranno fatto chissà quante volte
(ma nell'ultimo anno non ho trovato risposta)... cmq
Per un progetto scolastico mi sevirebbe una BGI per la grafica capace di
supportare 256 colori, magari a risoluzione di 800x600 o 1024x768. La
svga256 come ben sapete da un bel po' di probs col mouse che però mi serve
per forza (è un prog sui frattali, tanto per specificare). Esiste qualche
altra BGI che supporta il mouse (non dico di voler il cursore, ma per Dio
che almeno il mouse si muova senza scatti!!)?
Qualcuno sa se usando l'assembler è possibile usare i 256 colori senza
fot**** il mouse?
TIA
--
BlackDemon - 
bde...@dominio.it
per mandarmi un'e-mail scrivi 'iol' invece di 'dominio'

 fot**** il mouse?
E' *sicuramente* possibile: il problema è farlo. Però é possibile.
Ciao
Francesco

 fot**** il mouse?
Prova qui:
http://www.graphix4pascal.de.vu/
E poi ci dovrebbe essere qualcosa nel SWAG...
Ciao
Francesco

 
http://www.graphix4pascal.de.vu/
Davvero interessante, però noi a scuola usiamo solo il "Turbo" Pascal, e
queste librerie non sono utilizzabili (io devo mostrare il codice
funzionante al prof, mica gli posso dirli "compà... fidati di me!"??
Grazie comunque

Newsgroup: it.comp.lang.pascal
Titolo: Svuotare il buffer della tastiera

Come si fa per svuotare il buffer dei comandi da tastiera, es. prima di un
readkey?
--
Ciao,
Carlo.
- - -
e-mail: 
carl...@tin.it
ICQ UIN: 19128262

 wrote in message 7uctqo$rf8$1...@nslave1.tin.it...


 readkey?
   While keypressed do if readkey = ' ' then;
   Repeat
     ....
   End;
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

readkey?
while keypressed do readkey ;
oppure credo basti 
readln ;
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------

Prova con questo!
PROCEDURE ClearBuffer;assembler;
  asm         (* pulisco il buffer della tastiera *)
  mov ah,0ch
  mov al,06h
  mov dl,0ffh
  int 21h
  end;
--
Posted from 
sfw.lib.disco.unimib.it
 [149.132.196.251]
via Mailgate.ORG Server - 
http://www.mailgate.org

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

Salve a tutti. Da un po' sto pensando a acquistare un palmare, sul 
quale se non sbaglio gira win CE. Vorrei sapere se compilare programmi 
in pascal as hoc per questo s.o è molto complicato, sempre se possibile.
. Grazie! -- Luca Molari @progrexive 

in pascal as hoc per questo s.o č molto complicato, sempre se possibile.


 wrote in message
news:Usenet.shpblrml@localhost

puoi farlo. esiste la versione di freepascal  (
www.freepasal.org
)
per palmari: PalmOs. non so altro. non l'ho mai provato
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

esiste la versione di freepascal (
www.freepascal.org
) per palmari 
(PalmOs) ma non so altro


(PalmOs) ma non so altro
Sono stato sul sito ma non c'č!
Nm

 wrote in message
news:3cec3fc3...@news.tiscalinet.it

si trova nel sito 
www.freepascal.org
o meglio 
ftp.freepascal.org
+ di tanto non so'


chi cerca trova.
prova questo
ftp://ftp.freepascal.org/fpc/dist/palmos-1.0.5
forse (forse) e' quel che cerchi


provo subito grazie!!!!!!
NM

Newsgroup: it.comp.lang.pascal
Titolo: programmi

chi mi sa direcome si fanno i crack in turbo pascal???
grazie

 chi mi sa direcome si fanno i crack in turbo pascal???
Registri su un cd il programma da craccare, poi, quanto il masterizzatore 
ha espulso il disco, lo ripieghi su se stesso. Con un po' di fortuna 
sentirai un bel "C R A C K".
Attenzione, perche' i cd sono molto flessibili e rischi di farti male.
-- 
     __         ____         | We don't need no education.
 __ / /__  ___ / __/__ __ __ | We don't need no thought control.
/ // / _ \/ -_) _// _ \\ \ / | All we need is another brick in the wall
\___/\___/\__/_/  \___/_\_\  | ICQ UIN: 61571298

 grazie
esattamente come in ogni altro linguaggio: apri l'eseguibile da modificare
 var
  f: file;
 [...]
 assign(f, <nomeexe>);
 reset(f,1);
ti sposti alla posizione dove devi modificare il codice
 
 seek(f, <posizione>);
e scrivi il nuovo blocco di codice
 blockread(f, buffer, <dimensione>);
La prossima domanda sara': dove e come modificare il codice ?
E io cosa ne so' :-)  dipende dal programma e da cosa ci vuoi
fare... ma non sono un cracker e non saprei darti consigli
-- 
Dreadnaut
(Signless perche' in trasferta)


Io userei blockwrite....
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

> Io userei blockwrite....
ops... decisamente :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 grazie
Pure qua stai! :)
1) Vaffangoogle (e son 3) :)
2) Impara il pascal
3) Impara l'assembler
3.1) Impara le API
3.2) Impara l'uso di un debugger (tipo softICE)
3.3) Impara l'uso di un disassemblatore (tipo w32dasm o Ida)
4) Su 
crackstore.com
 trovi alcuni sorge di esempio
5) Impara a "Imparare" per conto tuo :) :P
--
=Omega======================
"Hands On"
============================

 ha scritto nel messaggio
news:Xns9379DE84A738...@net.fox...


non manca piů nulla
"Omega" <x...@xxx.xxx> ha scritto nel messaggio
news:RIywa.2090$lK4....@twister1.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: pascal per mac

 sono bravi in matematica e quelli che non lo sono."

cose si "scrivono" in modo diverso.
Mah.. e' veramente strano che il Think Pascal adotti una sintassi in
netto contrasto con quella del Pascal standard.
Non ho sotto mano il testo di Wirth, ma credo che il Pascal non
obblighi ad usare il corpo begin/end anche per una singola istruzione
nelle istruzioni di controllo del flusso.
--
Andrea Laforgia (ICQ 87230455)


Newsgroup: it.comp.lang.pascal
Titolo: Database col Pascal

Sapete come si fa (se possibile) a gestire
i files .DBF con il TURBO PASCAL ??
Thanx


Il pascal di per suo non li gestisce... al max, trovando le specifiche di un
Newsgroup: it.comp.lang.pascal
Titolo: File MOD.

Ho provato l'unit di Remo x i file MOD: be', sei troppo un grande!
A questo punto una domanda sorge spontanea: ma come si fa a fare un
file MOD?
E qui so che sono noioso, ma xche' non ci fai una brevissima
spiegazione? (sempre se ne hai voglia)
Grazie,
Luigi
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it

spiegazione? (sempre se ne hai voglia)
Secondo me fai prima ad utilizzare un programma gia' fatto (a meno che
tu non voglia fare propio quello), ce ne sono shareware e penso
freeware, prova a fare una ricerca con altavista...
by Frengo


jy...@usa.net
 (Luigi Balduzzi), il giorno Sun, 27 Jul 1997 13:52:24 GMT
hai scritto:
#Ho provato l'unit di Remo x i file MOD: be', sei troppo un grande!
#A questo punto una domanda sorge spontanea: ma come si fa a fare un
#file MOD?
#E qui so che sono noioso, ma xche' non ci fai una brevissima
#spiegazione? (sempre se ne hai voglia)
#
#Grazie,
#Luigi
Ciao Luigi, ti ringrazio per i complimenti e ringrazio pure i
collaboratori Andrea e Frengo che mi hanno aiutato.
La creazione di files MOD e' un'impresa praticamente effettuabile
secondo me solo con software apposito per la creazione di questo
formato. Infatti questi files sono simili ai MID (utilizzano cioe' gli
strumenti musicali simulati dalla scheda audio) e non ai WAV.
Non sono un'esperto in questo campo, ma posso supporre che ci sia in
Rete un po' di software, un bel po' di files mod e magari un
convertitore MID to MOD (questo pero' non l'ho mai visto ;-)).
Per creare questi files penso che l'unica sia collegare lo strumento
alla porta midi in della scheda audio e con il software apposta
registrare le note, oppure utilizzare gli strumenti con il
dischetto... 
Spero che qualcuno piu' esperto possa confermare/smentire quello che
ho appena detto in quanto, ripeto, non sono sicuro.
Per ora, ti consiglio di fare un po' di scorta di .mod da Internet!
Ciao,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **

 


by Frengo
Direi che mi sono espresso male. Si', io chiedevo se qualcuno
conoscesse un programma x fare file MOD. Provero' a fare una ricerca.
Ciao e grazie,

Newsgroup: it.comp.lang.pascal
Titolo: Passaggio parametri.

Salve,
č possibile in Pascal come per le procedure, scrivere un programma
principale (main) che riceva parametri dall' esterno, quindi quando
viene lanciato ??
Es. programma pippo.exe
    lancio pippo var1, var2, etc.
e lui prende var1, var2, etc. come parametri per l'elaborazione ??
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

     lancio pippo var1, var2, etc.
Si  vedi le funzioni paramcount, e paramstr
la prima ti ritorna il numero di parametri la seconda il valore
Ciao ReDiCUori
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

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

Potete spiegarmi per quale ca..o di motivo questo semplice programmino, che
in teoria dovrebbe ricevere degli interi e rilasciare gli stessi in ordine
crescente, non funziona o meglio quando in input riceve il primo valore e
all'invio si blocca, ecco il codice, rispontemi sul NG, grazie:
program alberi;
type albero= ^nodo;
     nodo=record
     val :integer;
     sx,dx:albero;
     end;
var a:albero;
    x:integer;
procedure push( a:albero;x:integer); (*dovrebbe assumere i valori
dell'input*)
begin
if a=nil then
begin
a^.val:=x;
a^.sx:=nil;
a^.dx:=nil;
end
else if (a^.val<x) then push(a^.sx,x) else
if (a^.val>x) then push(a^.dx,x);
end;
procedure scrivi(a:albero); (*dovrebbe ristamparli in ordine crescente*)
begin
if a<>nil then
begin
scrivi(a^.sx);
writeln(a^.val);
scrivi(a^.dx);
end;
end;
begin
writeln('INSERIRE ELEMENTI DELL" ALBERO');readln(x);
while x<>0 do
push(a,x);
scrivi(a);
end.

 ha scritto nel messaggio
news:rkcE6.3321$o3.8...@news2.tin.it...


ahh,  ok!
ReDiCuori <redicu...@NOSPAMlibero.it> wrote in message
FjeE6.65779$s93.7...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: [50% OT] stdin e stdout

mmmh... quando si lancia un programma con una redirezione
dell'input (o dell output/stderr) effettivamente come avviene ?
come si obbliga il programma a lavorare su files diversi ?
Se io dovessi fare un prog in pascal che lancia un altro programma
redirezionandone l'output sul file, ma non con ">" e simili, e' possibile ?
Mi appello agli amici dell' int 21h, perche' credo che di li si debba
passare :-)
--
Dreadnaut
(Life would be easier if I had the source code)

non ho capito..
vuoi fare qualcosa come
dir > pippo.txt?
cioè che tutti gli input vengono inviati al file come testo?
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:dhQf8.47326$v7.16...@twister1.libero.it...


si, pero' senza il "> pippo.txt" :-)
Mi chiedevo quali fossero i comandi (credo richieste/parametri
sull' int21 del dos) per "deviare" su altri file l'input e l'output...

Newsgroup: it.comp.lang.pascal
Titolo: Se il tuo programma okkupa troppa memoria.....

Caro NG,
ho da porvi una questione non poco complicata:
in uno dei programmi che ho scritto, faccio uso di
(droga o_O?!?! no no!) un file di records, per memorizzare 
dei dati. Questo file è cresciuto con il tempo ed è arrivato a
quota 13.643 KB: poichè le procedure che maneggiano
questo file sono diventate notevolmente lente, ho deciso
di riscriverle utilizzando i puntatori.
Vorrei caricare i miei record con una coda di dati, puntata
da 3 puntatori: uno all'inizio uno alla fine ed un indice;
Il problema è che carica in memoria appena 264 records su 6255(!!!),
poi da heap overflow error !
Ora, poichè il mio computer ha 65 MB di ram, penso che ci dovrebbe
stare un file da 14MB!
Al momento del test di cui sopra, il TP7 girava sotto Win2k, che
probabilmente si mangia parecchia memoria senza permettermi
un avvio *sobrio*....
Pensate che se faccio partire la procedura sotto un avvio da floppy
disk, risolvo il problema.
...mmmMumble mumble.....
La memoria allocata da new(ptr) è estesa? Vi prego, ditemi che non è
convenzionale.....
Aiutoooo
NM


CP (ovvero: Cooper)

Se è allocata... non può essere convenzionale...
MumbleMumble... Grazie delle informazioni!
Mi sei stato molto utile.. E spero che questo post (a parte le
cavolate) sia utile ad altri...
NM

 Mi sei stato molto utile..
Mi fa piacere :)

Una soluzione che ti consiglio è quella di reimplementare il salvataggio e
la lettura sul disco utilizzando gli alberi binari di ricerca.
In questo modo con solo 11 letture dal file puoi accedere a 479001600
record!!!
certo nn è semplice implementare un albero su di un file ma una volta che ci
si riesce è una soddisfazzione!!!
considera che il modo che ti ho proposto è uno delle prime modalità di
lavoro di access!!!
CIAO e buon lavoro
 FABIO


Vedi post precedente.... ho detto all'incirca la stessa cosa :P
Ciao, Cooper :-)

Newsgroup: it.comp.lang.pascal
Titolo: Procedure su file di testo

Qualcuno mi sa dire se esistono procedure analoghe alla seek e alla filepos
per i file di testo?
GRAZIE
Simone

 filepos per i file di testo?
cerdo di no... l'accesso ai file di testo e' sequenziale, e "senza ritorno"
e' un po' come l'input da tastiera... quindi puoi leggere quello che ti
arriva ma non tornare indietro.
--
Dreadnaut
(Life would be easier if I had the source code)

esiste solo l' append per accodare: consulta l' help
il mio sito :
http://web.tiscali.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Qualcuno sa dirmi dove si trova una release del Borland Pascal piů recente?
Grazie in anticipo.

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

www.google.it
 it's easy..
Cereal
"Gianfranco Marchese" <d.g.r.u.m.a.@VediInFirma.it> ha scritto nel messaggio
news:iA%g9.110681$pX1.3...@news2.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 7 per windows

Mi è venuta una curiosità... la cartella in cui tengo il pascal occupa circa
30MB, files creati da me a parte. Nella cartella bin ci sono anche tanti
programmi come bpw.exe che dovrebbero funzionare sotto windows.
In effetti riesco a farlo partire sotto windows e, come opzioni di stampa
del testo, mi riconosce addirittura una stampante usb (non il pascal, solo
l'editor) però si impalla spesso...
Come tutti, credo, il pascal me lo ha dato un prof. di informatica al liceo
(o amici o simili...) ed erano un bel pò di dischetti all'epoca... Poi sul
sito di darkbytes e altrove ho trovato il tp7 in un file di 2MB circa...
Quello che vorrei sapere è: cosa manca nel file di 2MB ovvero cosa ho io in
più nella mia cartella da 27MB?
In fondo l'interfaccia windows, se qualcuno conosce un sito dove poter
scaricare il programma completo me lo faccai sapere per favore :-)
Nel museo della Borland hanno messo solo il tp5 mi pare, ma onestamente non
credo che intendano ancora vendere il tp7 :-))
grazie per l'attenzione,
--
Roberto De Giuli
--------------------------
Pascal avrà mai fatto un viaggio a Delphi??
--- La paura porta al lato oscuro

 ha scritto nel messaggio
news:8vqq0r$n19$1...@nslave2.tin.it...

Da come ho capito il tuo problema è questo: i file in formato .ZIP sono
detti " compressori ", cioè coloro che compressano uno o più file in modo da
diminuire i MB in modo che da internet si scarichino più velocemente. Però
questi file ( zip ) contengono tutti i programmi necessari per il Pascal.
Per poter decomprimere ed estrarre questi file hai bisogno di un programma
apposta, WinZip ad esempio ( 
www.winzip.com
 ). Sperò di aver azzeccato il
tuo problema e di averti spiegato bene.
Distinti saluti
Matteo

 ha scritto nel messaggio
news:8vtvqc$ugv$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Cerco guida!

Ciao a tutti. Siccome il mio libro d'informatica si ferma alle variabili di
tipo booleano volevo chiedervi se qualcuno di voi possiede qualche guida per
approfondire le iterazioni, le selezioni multiple, le variabili booleane e
che parli anche di come usare l'unit graph. Vi premetto che ho già provato
su google senza trovare nulla di mio gradimento.
Un saluto!

 su google senza trovare nulla di mio gradimento.
Fidati che hai cercato mooolto male...
ciao ciao,
Alex
--
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

 Fidati che hai cercato mooolto male...
 Non è che non ho trovato niente, guide ne ho trovate ma niente che mi
soddisfasse. Ma è possibile che per trovare del materiale sul TP bisogna
scervellarsi, mentre per il C ne esiste in tale abbondanza che te lo tirano
dietro?
Bah! con questo chiudo.
Un saluto


wrote:

Dunque,
http://www.giobe2000.it/Giobe/Programma-Index.htm
temo che non faccia al caso tuo,  ma tant'è, dacci un'occhiata.
http://programmarein.supereva.it/start/manuali.html
http://www.desimoni.org/CLASSI/TPASCAL/unidad1p.htm
poi ci sarebbe
http://www.verrazano.it/INTRODUZIONE%20AL%20TURBO%20PASCAL.htm
un po' atipico: sto scaricandolo, sono arrivato  a 1,5 Mb, e lui
continua imperterrito. Finirò prima di cenare o di scaricarlo?


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

+ che al pascal mi sembra al perl...
Appunto; ma come si spiega il titolo?
Comunque, "PER  La" cronaca, ho finito prima il download.
Il Perl tutto sommato mi affascina. Sarą perchč io con le
manipolazioni di stringhe ho poca dimestichezza?
Ciao
PV

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

ciao
volevo segnalarvi questo sito: 
http://itassembly.cjb.net
 . Si tratta di una
piccola comunità virtuale sulla programmazione in assembler...se siete
interessati all'argomento, siete i benvenuti.
ciao

 ha scritto

Il link è vuoto.
Newsgroup: it.comp.lang.pascal
Titolo: Salvare dati in un file

Avrei bisogno di salvare in un file il dati contenuti in diversi array. Solo
che uno è di stringhe, uno di booleani e uno di interi. Sapete darmi qualche
dritta?
Ciao
Andrea Schiavinato

 che uno č di stringhe, uno di booleani e uno di interi. Sapete darmi


metodo migliore secondo me)
La soluzione dei record l'avevo scartata a priori, perchč gli array sono di
lunghezza diversa, inoltre devo salvare anche due o tre variabili signole:
in pratica dovrei creare il meccanismo di salvataggio delle partite in un
videogioco che sto progettando.
Perň, adesso che mi ci hai fatto pensare, potrei creare un array
sovrradimensionato, di booleani, interi e stringhe. I primi 4-5 elementi li
tengo per le variabili singole, mentre il resto...
La soluzione delle stringhe non č tanto adatta, in quanto l'utente furbo
potrebbe andare a modificare il file, per portarsi piů avanti nel gioco.
Comunque grazie.
Andrea Schiavinato

potrebbe andare a modificare il file, per portarsi piů avanti nel gioco.
e tu che sei + furbo le critti ;)
neon...
/
| Siamo macchie di olio pensanti,
| trasportate lungo corridoi d'ombra.
\

 dritta?
Sì... usa una struttura a record  :)
Del tipo :
Type TSaveIdentifier = (SID_Money, SID_GameState, SID_Oggetti, ...
eccetera);
Type TSaveItem
             Identifier : TSaveIdentifier;
            Data : Pointer; // che poi puoi castare come vuoi...
end;
Data punta a strutture diverse che contengono una parte "statica" (che ad
esempio definisce la dimensione dell'array o della stringa... e una parte
dinamica (un puntatore)).
Quando leggi/scrivi sul file, la parte "statica" ti dice quanti byte
leggere/scrivere, prima di passare al record successivo.
Ovviamente questo è un metodo abbastanza complesso... ma dipende dalla
quantità di informazioni che devi salvare... !!!
Ciao, Davide DG.

 potrebbe andare a modificare il file, per portarsi piů avanti nel gioco.
Beh, se č questo il problema applichi un qualsiasi algoritmo di crittografia
e sei a posto!
Semplice, no?
Ciao
Alex
Newsgroup: it.comp.lang.pascal
Titolo: menù di scelta

Qualcuno mi puň spiegare perchč il menů di scelta non funge (ho provato a
farlo con if then else perchč non ci sono riuscito con il "case"...si
accetano consigli a riguardo)
Se provo a far girare il programma mi dice "error in statement"
(riferendosi, penso, all'else)
Grazie dell'ipotetica risposta..
begin
  writeln('1 - Verifica se ne');
  writeln('2 - Met.');
  writeln('3 - Somma');
  writeln('4 - Scandisci');
  writeln('5 - Indice');
  writeln('6 - Esponente');
  writeln('7 - Fattoriale');
  writeln('8 - ComponentiUguali');
  writeln('0 - Esci');
  readln(scelta);
  if scelta=1 then
  begin
    for i:=1 to n do
      begin
        write('Digita il ',i,'ř valore del vettore di ',n,' elementi: ');
        readln(v[i]);
      end;
        writeln('Quante volte deve essere la componente rispetto a quella
che la precede?');
        readln(k);
        if KVolte(v,k) then
          writeln('Esiste una componente che risponde alle richieste')
        else writeln('Non esiste una componente che risponde alle
richieste');
  end;
   else if scelta=2 then
               begin
                   for i:=1 to n do
                   begin
                     write('Digita il ',i,'ř valore del vettore di ',n,'
elementi: ');
                     readln(v[i]);
                   end;
                   if Meta(v) then
                     writeln('Tutte le componenti rispondono alle
richieste')
                  else writeln('Almeno una componente non risponde alle
richieste');
                 end;
   else if scelta=3 then
ecc.. ecc..
Grazie ancora
Giorgio
E-Mail: 
cool...@libero.it
ICQ: 62644708

 wrote in message
8b4v9j$tse$1...@pegasus.tiscalinet.it...


    2: begin
                ecc........
se hai bisogno scrivimi a 
vas...@libero.it


Il costrutto if then else non puň essere interrotto da ;
Es.
IF <condizione> THEN
    BEGIN
    <istruzioni>
    END;             {QUESTO ";" SEGNA LA FINE DELL'ISTRUZIONE if then
else }
ELSE                {QUINDI QUESTO ELSE E' CONSIDERATO UN ERRORE }
    <istruzione>
Ciao. Alberto.
Newsgroup: it.comp.lang.pascal
Titolo: Manuali Free Pascal

Di programmazione ne so' poco, sino ad oggi ho utilizzato VisualBasic, 
volevo passare a Lazarus, vi chiedo se ci sono manuali in italiano per 
il Free Pascal . Grazie per qualsiasi indicazione. Zip

 il Free Pascal . Grazie per qualsiasi indicazione. Zip
Non ci sono manuali in italiano su FPC, cmq vista l'ottimo livello di 
compatibilità con Delphi, puoi utilizzare per il linguaggio Free Pascal 
un qualsiasi manuale per Delphi, quelli di Marco Cantù sono ottimi.
Per un'introduzione puoi utilizzare anche questo, disponibile online:
http://www.marcocantu.it/epascal/
Se hai problemi specifici puoi discuterne in italiano su
http://www.lazareum.it/
una community italiana di utenti Lazarus.
Infine, visto che l'inglese è oramai la lingua franca del software 
libero, suggerisco di investire un po' del proprio tempo nello studio 
dell'inglese. In questo modo se non altro si può sfruttare tutta 
l'assistenza diretta (e gratuita) da parte degli sviluppatori sulle 
mailing list e su irc.
Ciao, Dean

 Ciao, Dean
Non ho problemi nel leggere i manuali tecnici in inglese, il mio 
problema e' lo scritto, grazie
per le informazioni,sul sito ho visto gia quello che mi interessava, 
siccome utilizzo Mysql Ver. 5
ho letto che con Lazarus non ci si puo' connettere, per me essenziale. 
Ciao Zip

 ho letto che con Lazarus non ci si puo' connettere, per me essenziale. 
Da quanto ho visto il componente Sqldb ha una specifica connessione 
TMySql50Connection, quindi dovrebbe funzionare.
Mi dicono che anche le zeoslib in svn implementano la connessione a mysql.
Purtroppo non utilizzo mysql per potertelo confermare. I problemi di 
gestione delle connessioni a mysql sono dovuti a cambiamenti di api da 
una versione all'altra, per questo consiglio l'utilizzo di Firebird o 
PostgreSQL.
Ciao, Dean

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

Carissimi ... buonasera a tutti !
Cerco compilatore Turbo Pascal v.7 o più recenti in versione free,
ma dove ????
Per cortesia rispondete via e-mail perchè non seguo molto questo newsgroup !
Grazie
---------------------------------->
Daniele  ------------------------>
fl...@spm.it
  ------------------>
---------------------------------->


Esiste il FPK, un compilatore Pascal a 32 bit compatibile con Turbo
Pascal 7.0 gratuito:
http://www.brain.uni-freiburg.de/~klaus/fpk-pas/
(Dovrebbe essere compatibile anche con Delphi 2, ma non l'ho mai
verificato. Sul sito troverai anche tutta la documentazione)
A presto
Andrea
Newsgroup: it.comp.lang.pascal
Titolo: 2 domande da parte di un novellino

Salve a tutti. Sono un programmatore di Turbo Pascal 6.0 alle prime armi e
ho bisogno
del vostro aiuto.
1) Vorrei sapere quali stringhe di testo devo usare per creare un programma
in Pascal che faccia eseguire un determinato programma .exe;
2) Come faccio a dare un comando Dos (per es. "copy c:\*.* a:\")
dall'interno di un programma Pascal?
P.S.  Mi sarebbero utilissimi programmi d'esempio.
Ringrazio sin d'ora tutti coloro che si sono interessati.
Riccardo


Per eseguire dei comandi DOS guarda questo programmino d'esempio
program     esegui_comando_dos;
{$M $8192,0,0 }
uses        dos;
var         comando:String;
begin
            comando:='dir c:\';
            SwapVectors;
            Exec(GetEnv('COMSPEC'),  '/C' + comando);
            SwapVectors
end.
Se invece vuoi eseguire un normale programma guarda quest'altro
program     esegui_programma;
{$M $8192,0,0 }
uses        dos;
var         prog,par:String;
begin
            prog:='program.exe';
            par:=' ';
            SwapVectors;
            Exec(prog, par);
            SwapVectors
end.
Comunque se vuoi eseguire una copia di un file all'interno di un tuo
programma di sconsiglio di utilizzare il comando dos perche' se non
hai abbastanza memoria il comando non viene eseguito.
Conviene utilizzare una procedura scritta in pascal.
Una procedura funzionante per questo scopo la puoi trovare nel mio
sito:   
http://users.iol.it/fabio.manzo
Ciao,   Fabio
fabi...@rocketmail.com

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

Qualcuno mi sa dire dove posso trovare o scaricare in internet un manuale
pascal più approfondito ? Quelli che ho trovato fino ad ora ti danno solo le
primissime basi

 ha scritto nel messaggio
news:lBRz4.37196$O3.4...@news.infostrada.it...


 ha scritto nel messaggio
news:rivA4.10276$C24....@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Grazie VEGETA!! Ma...

ti ringrazio per TP che ho potuto scaricare dal tuo sito!! Ma...
perchè nessun programma mi gira????Si visualizza una cosa del genere:
E 200:Division by zero
o qualcosa del genere?????
Grazie,JUNIOR!!

...


Newsgroup: it.comp.lang.pascal
Titolo: Problemi mouse su pentium III

Programmando in Turbo Pascal su Pentium III abbiamo dei problemi con il
mouse; precisamente scompare dopo la prima esecuzione (RUN). Ho provato a
caricare i file trovati su Internet tipo MOUSE.ZIP ma il problema rimane. 
Aspetto fiduciosa un vostro aiuto. Grazie.
Antonella 	


wrote:

la stessa cosa avviene (ma non sempre!??!!!) sui PII celeron....
Giova
Newsgroup: it.comp.lang.pascal
Titolo: RUN TIME ERROR... questo sconosciuto!

Ciao raga, sono ancora io che rompo!
Innanzitutto ringrazio quelli che mi hanno aiutato fino ad ora e gli
anticipo che avranno GRATUITAMENTE ed IN ANTICIPO una copia del mio
software "PIGRECO CON MONTECARLO"!!! =)
Almeno non lo comprate e vi risparmiare i soldi; e non mi dite che non
vi serve perchè un programma che calcola il valore approssimato di
pigreco unsando il metodo di montecarlo a chi non servirà prima o poi?
Ed ora bando alle ciance... Mi sapreste dire perchè il mio programma
compilato gira solo sul mio PC (p133) ma non ne vuole sapere ne' su un
p200 tantomeno su un 486???
Da sempre un runtime error....
Grazie ciao!
¨¨°º©o¿,,¿o©º°¨¨°º©  Mr. GiMa ©º°¨¨°º©o¿,,¿o©º°¨
------------------------------------------------------------------------------
             WEB: 
http://come.to/gima
            MAIL: 
gim...@freemail.it
             UIN: 2685398
------------------------------------------------------------------------------
Togliere NOSPAM dal mio indirizzo per rispondere


Butta il compilatore sul P200 e da li' manda in esecuzione il
programma (ovviamente dal compilatore). Cosi' puoi vedere quale e' la
parte del codice che non va. Poi lo correggi.
Fabio
fabi...@rocketmail.com


Ma se sul mio PC il programma va vuol dire che non ci sono errori nel
codice o no?
Ciao


Ciao
Potrebbe essere qualche errore sulla lettura o scrittura di qualche
file.
Se ti da errore vuol dire che qualcosa che non va' c'e'.
Dammi retta e ti levi il dubbio.
Ciao, Fabio
fabi...@rocketmail.com

pigreco unsando il metodo di montecarlo a chi non servir` prima o poi?
Prova questo :
{$n+}
var n : longint;
    p, s, k1, k2, k3 : extended ;
begin
  s := 1.0 ; 
  p := 0 ;
  k1 := ln(5); 
  k2 := ln(239);
  for n := 0 to 999 do
  begin
    k3 := 2*n+1; 
    p := p + (s/k3*(4/exp(k3*k1)-1/exp(k3*k2))) ;
    s := -s ;
  end;
  p := p * 4 ;
  writeln('pi greca = ',p:0:20);
end.
Skyscraper (
andrea_...@bigfoot.com
)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


Grazie ma io i programma l'ho già fatto, solo che non riesco a farlo
girare su PC che non sia il mio purtroppo! =)
Ciauz



Hai percaso fatto accesso a dei files per leggere o scrivere dati?
Fabio
fabi...@rocketmail.com



Più o meno... ho trovato il problema:
Nell' InitGraph avevo messo come path 'c:\bp\bgi' pensavo che non ci
fosse bisogno del file anche dopo aver compilato il programma allora
per risolverlo ho fatto cos': path '' e file egavga.bgi nel dischetto
col programma!
Ci sono soluzioni migliori?
Grazie ciao.


Ci sono soluzioni migliori?
Metti come path   ''  (in pratica levi c:\bp\bgi) e metti il driver
egavga.bgi nella stessa directory del programma.
Fabio
fabi...@rocketmail.com

egavga.bgi nella stessa directory del programma.
Esattamente quello che ho fatto! =)
Ciauz e grazie.

Newsgroup: it.comp.lang.pascal
Titolo: Salve a Tutti

Salve a tutti..sono nuovo di questo newsgroups e da poco ho iniziato a
studiare il Pascal.  E' un linguaggio abbastanza interessante ma la
maggior parte delle persone mi dice che ormai è un linguaggio obsoleto!
Ora quello che non riesco a capire è la vera differenza tra il Pascal e
tutti gli altri programmi? (Fortran,C,C++,Perl)..Quali sono le sue
limitazioni rispetto a agli altri programmi? O il Pascal è stato
progettato per un determinato tipo di programmazione??
Sono un pò ignorante in materia, ma è una domanda che da tempo mi pongo
e ve ne sarei grato se voi potreste darmi una risposta!
Ciao a tutti by HoMeR
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:79d5f969f64ccfc92e0...@mygate.mailgate.org...


 Ciao a tutti by HoMeR
Ciao RDC

 Ciao a tutti by HoMeR
Ciao, by Cooper :-)

Newsgroup: it.comp.lang.pascal
Titolo: lavorare su file e directory

cio a tutti,
vorrei sapere se esiste da qualche parte un documento che spieghi come
si lavora sui file e sulle dir in modo approfondito. Come posso, ad
esempio, fare una copia di una intera dir ??
O crearne una nuova. Penso che si possa usare la unit dos (o linux
dipende dal sistema), dove trovo dei file in cui sono scritte le
funzione di tali unit ?
Grazie in anticipo.

> si lavora sui file e sulle dir in modo approfondito.
Prova a guardare sull'help (in TP) sulla voce dos e windos.
Ci sono ben poche funzioni perň; puoi creare una dir o cercare file per es.
Ti consiglio invece di fare un file .bat e lanciarlo poi con l'exec (altra
funzione della unit dos).
Ciao, Alex
Newsgroup: it.comp.lang.pascal
Titolo: Meeting in ircnet... a quando?

Ragazzi L'idea di dreadnaut non è male
perchè non apriamo un canale #it.comp.lang.pascal e ci incontriamo per
scambiare 4-5 chiacchiere etc?
Postate a volontà orari e condizioni io ci sono
a me va bene a qualsiasi ora purchè ((H>=14:00 And H<=18:00) Or (H>=21:00))
ci state?

 ha scritto nel messaggio
news:aMd68.13299$3J1.4...@news2.tin.it...


-ChanServ- Channel #pascal registered under your nickname: B3nZIn4R0
-
-ChanServ- Your channel password is newsgroup - remember it for later use.
-
-ChanServ- Password accepted - you now have founder-level access to #pascal.

 ha scritto nel messaggio
news:3sh68.3358$kv.8...@twister2.libero.it...


 wrote in message
aMd68.13299$3J1.4...@news2.tin.it...


ho buttato li un Domenica 21:30
simil topic:
"magari mettiamo su un sito per il ng ?"
sottotitolo:
" *uno*,  non 20 che poi si fa solo casino e non ne esce nulla"
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Un Sito?
niente male come idea, io non so molto riguardo al linguaggio ma come
grafica flash qualcosa ci esce...
fatemi sapere
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:_zQ68.6157$nI1.1...@twister1.libero.it...


 Un Sito?
 niente male come idea, io non so molto riguardo al linguaggio ma come
 grafica flash qualcosa ci esce...
 fatemi sapere
Per quanto riguarda me, vi posso dare una mano, ma non so in che cosa,
comunque sto finendo di scrivere un mio sito e presto lo pubblicherò, posso
mettere dei link, e vi posso dare una mano a scrivere le pagine....

 ha scritto nel messaggio
news:3c5c1...@news.dada.it...


Se a qualcuno serve una mano per fare il sito, io sono disponibile. Uno dei
tanti ke ho fatto č: http:\\
members.xoom.it/mov_stud_bg
.
Se volete visitatelo per decidere se posso esservi utile.
CIAO CIAO   TORBO

Newsgroup: it.comp.lang.pascal
Titolo: Enigma machine

Ciao a tutti, ho un "piccolo" problema....
dovrei simulare in pascal l'utilizzo della macchina enigma (quella
utilizzata nella seconda guerra mondiale per criptare i messaggi). Dove
posso trovare qualche dritta? Ah! Posso utilizzare al massimo record,
vettori e file!!
Grazie mille!
Davide

 ha scritto nel messaggio
news:aa3ggg$8m0$1...@lacerta.tiscalinet.it...


 Potrebbe scoprirlo grena... o pellizzari... Ciao roby
attenti raga che grena non è mica scemo, se ne accorge!
pellizzari non credo.. non guarda i programs di solito..
ma dai che è na' cazzata il programma! Di che classe siete?
Bye Cereal

come lavora la macchina enigma?


> grena non è mica scemo,
... avrei dei dubbi!!!

 ... avrei dei dubbi!!!
io no.. stay attent..
Cereal
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per costruzione lista.

Il programma gira fino alla costruzione della matrice e alla sua stampa, poi
mi manda in orbita.
Dove continuo a sbagliare?
Scrivere un programma che:
· Crei una matrice M 20X4 contenente i dati presi da input (numero
matricola, voto test, voto scritto, voto orale) di 20 studenti.
· Crei una lista L contenete il numero di matricola e la media dei voti
delle tre prove dei 20 studenti leggendoli dalla matrice M.
· Dovranno comparire all'interno della lista L solamente gli studenti che
hanno riportato una media superiore a 18/30.
· Stampare la lista.
program esercizio1ter;
const Pmax=20;
      Qmax=4;
type integer=1..maxint;
     lista=^studente;
     studente=record
     matr:integer;
     med:real;
     next:lista
     end;
     matrice=array[1..Pmax,1..Qmax] of integer;
var P,Q,i,j:integer;
    M:matrice;
    L,temp:lista;
    matr:integer;
    med:real;
procedure leggimatrice (P,Q:integer; var M:matrice);
var i,j:integer;
    begin
         for i:=1 to P do
                       begin
                            for j:=1 to Q do read (M[i,j]);
                            readln;
                       end;
    end;
procedure stampamatrice (P,Q:integer; var M:matrice);
var i,j:integer;
    begin
         for i:=1 to P do
                       begin
                            for j:=1 to Q do write (M[i,j]:5);
                            writeln;
                       end;
    end;
procedure incoda (matricola:integer; media:real; var pi,temp:lista);
begin
     if (pi=nil) then begin
                           new(pi);
                           temp:=pi;
                      end
                  else begin
                            new(temp^.next);
                            temp:=temp^.next;
                       end;
                  with temp^ do                             begin
                                  matr:=matricola;
                                  med:=media;
                                  next:=nil
                             end;
end;
procedure stampalistaricorsiva (pi:lista);
begin
     if (pi<>nil) then begin
                       write (pi^.matr:3, pi^.med:3);
                       stampalistaricorsiva (pi^.next);
                       end;
end;
BEGIN
     writeln (' Dimensione della matrice M: ');
     write (' P= '); readln (P);
     write (' Q= '); readln (Q);
     writeln (' Inserisci gli elementi della matrice M: ');
     leggimatrice (P,Q,M);
     stampamatrice (P,Q,M);
     L:=nil;
     med:=(M[i,2]+M[i,3]+M[i,4])*0.33;
     for i:=1 to P do                   begin if med>= 18
                               then incoda (matr,med,L,temp);
                         end;
     writeln (' La lista S: ');
     stampalistaricorsiva (L);
     readln;
END.


Ciao ReDiCuori
--
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Problema con windows...

Ho installato windows 2000 da poki giorni, ma in pascal la grafica nn va
correttamente, e quando devo usare il mouse, non va sotto la metà dello
schermo, per caso qualkuno sa come posso fare x rimediare o ha una unità
grafica diversa ke potrebbe funzionare?
Ciao e Grazie Robyy

mmm...
non saprei..
vabbč che da win2000 e winMe non c'č piů un Os basata su dos
ma solo una emulazione ok.. perň.. nn zň... cazz..
appena vada a scuola ce provo ok? bye Cereal

 ha scritto nel messaggio
news:aa6mu3$89bp5$1...@ID-94218.news.dfncis.de...


 ha scritto nel messaggio
news:2TPx8.8515$W9.2...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Esiste Visual Pascal per windows?

Ciao sono Alex e vorrei sapere se esiste una qualsiasi versione di Visual
Pascal per windows.
Se non esiste vorrei sapere quale linguaggio Visual sia più simile al
Pascal.
Grazie



Delphi è Visual Pascal.

Pascal.
Si chiama Delphi ed é prodotto dalla Borland.
Ciao
Olivier

Newsgroup: it.comp.lang.pascal
Titolo: Metodo della bisezione

Per le vacanze devo fare un programma (ovviamente in Pascal) che risolvi una
funzione usando il metodo della bisezione ANCHE GRAFICAMENTE.
Il problema non è la risoluzione testuale e neanche l'input della funzione
(ho deciso di usare la The Pascal Wizard's Library versione 2.1 che ha la
unit ExtMath) ma è mostrare graficamente il metdo!
Sono riuscito a mostrare graficamente la funzione tramite un for però non so
come andare avanti.... qualcuno ha qualche idea?
Grazie mille!

Paolino wrote:

Ti tocca tracciare gli assi, poi devi decidere il limite dello schermo 
tipo che vai da -1 a +1 sulle X e da -3 a +6 sulle Y ... vedi tu, puoi 
anche parametrizzare il valore.
In questo modo sai che se ti trovi a 640x480 punti avrai che ogni pixel 
corrisponde in orizzontale:
  +1 - (-1)
---------- = DeltaY
    640
quindi se hai una qualsiasi y = f(x) andando a punti dovresti partire da 
sinistra (il tuo -1) e calcolare f(x) per ogni x incrementandolo di 
volta in volta di DeltaY in modo da conoscere il suo valore y per 
ciascun pixel del monitor
Per la y invece dovrai fare il contrario, sapendo il valore matematico 
dovrai capire le coordinate dei pixel in base alla risoluzione (480 
punti) all'intervallo visibile e tenendo anche conto che il pixel che ha 
coordinate Y=0 è nella prima riga in alto del monitor quindi devi fare 
sempre 480-Y dove Y è il pixel, y è la corrispondente coordinata matematica.
+6 - (-3)
---------- = DeltaY
   480
Y = 480 - (y * DeltaY)
ti consiglio di usare sempre una scala proporzionale in modo che deltaY 
sia uguale a deltaX, così ciascun pixel darà origine a un incremento 
matematico uguale sia verticalmente che orizzontalmente.

grazie mille!
avevo iniziato una cosa simile, quindi continuerò su questa strada visto che
è giusta :)
grazie ancora

Newsgroup: it.comp.lang.pascal
Titolo: chiedo aiuto

se qualcuno è bravo a programmare gradirei sottoporgli qualche dubbio
ICQ #11175499

ICQ #11175499
  Magari se lo posti, il NG e' qui per questo :)
Ciao
Mabu.
Newsgroup: it.comp.lang.pascal
Titolo: 3 caratteri, aumentando di 1...


prova usare la procedura del pascal SEEK(vaf f:file;n:longint)
in pratica facendo seek(miofile,2) ... ti troverai sul nel tuo file alla
posizione di offset 2 ..ovvero sul 3°byte
ciao!
--
ICQ#17330720
IRCNet:KiNg[G]hZ »»» #mp3.ita
s...@gem.it

mi avanza di 3 caratteri alla volta, io vorrei che avanzasse di uno solo:
uses crt;
var input_file  : file;
    s           : string[3];
    current_pos : longint;
    bytes_read  : word;
begin
  current_pos := 0;
  assign(input_file, 'text.txt');
  reset(input_file, 1);
  while not eof( input_file ) do
  begin
    blockread(input_file, s[1], 3, bytes_read);
    inc(current_pos, bytes_read);
    seek(input_file, current_pos-(bytes_read-1));
    s[0] := chr(bytes_read);
    writeln(s);
  end;
  close(input_file);
end.
Skyscraper
----------------------------------------------------------------
"Sopra il camper la capra campa, sotto il camper la capra crepa"
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


A me questo tuo programma non funziona.
La posizione avanza di 3 alla volta e non di 1.
L'ho corretto cosi':
program   tre_car;
uses crt;
var input_file  : file;
    s           : string[3];
    current_pos : longint;
    bytes_read  : word;
begin
  clrscr;
  current_pos := 0;
  assign(input_file, 'text.txt');
  reset(input_file, 1);
  while not eof( input_file ) do
  begin
    blockread(input_file, s[1], 3,bytes_read);
    s[0] := chr(bytes_read);
    inc(current_pos);
    seek(input_file, current_pos);
    writeln(s);
  end;
  close(input_file);
end.
Ciao,   Fabio
fabi...@rocketmail.com

Un bel di' Franco Stefanelli scrisse:
FS> Ciao a tutti!
FS> 
FS> Sto cercando di leggere un file di testo 3 (o +) caratteri alla volta: lo
FS> apro e gli dico Read(MyFile, MyString). Fin qui tutto ok, ma cosě la lettura
FS> mi avanza di 3 caratteri alla volta, io vorrei che avanzasse di uno solo:
FS> 
lavorare sui files in questo modo e' un suicidio... :-)
Prendi invece una bella porzione del file in una stringa (anche 255 caratteri),
dopo di che li stampi (o li prelevi dalla stringa) come dici tu:
var s: string;
    t: string[3];
for i:=1 to lenght(s)-2 do
   begin
    t := copy (s, i, 3);
    writeln (t);
   end;
Nota: Ovviamente non ricordo a mente la sintassi di 'copy'... quindi
sicuramente non sara' giusta :-)
Ciao!
-- 
"Gli amici vanno e vengono, i nemici si accumulano", motto di Jones
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879