mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: [OT?]Perchè non esiste it.comp.lang.delphi

Scusate se mi presento cosě con una domanda aperta... ma perchč non
esiste il suddetto NG? Non sapevo a chi chiedere e il NG sul pascal mi
č sembrato quello che potesse avere maggiori "somiglianze"... spero
che qualcuno sia cosě gentile da rispondermi...
saluti
burru

 che qualcuno sia così gentile da rispondermi...
Certo che esiste it.comp.lang.delphi !
Io lo scarico abitualmente...
Hai aggiornato la lista dei newsgroups? prima c'era it.comp.delphi, da un
paio di mesi hanno eliminato il vecchio e ora c'è it.comp.lang.delphi...
ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

ciao :-)
Uhm... quindi devo dedurre che utilizzando 
news.interbusiness.it
 non
lo possa vedeere... uhm... beh grazie comunque.... ora provo con
qualche altro news server...
saluti
burru

Con Interbusiness io lo vedo.

esiste il suddetto NG?
Certo che esite !
Prova 
diesel.cu.mi.it
Andrea Laforgia (andrea_...@XXXbigfoot.com)
------------------------------------------------
Il mio indirizzo di posta elettronica č inattivo 
per il momento.

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

Anche l'ultimo dell'anno vi stresso  a causa di un programma ke nn mi
segnala errori in compilazione, ma quando gli do run mi da un runtime
error... se qualcuno potesse aiutarmi... GRAZIE
(****************************************)
program files(archivio,input,output);
uses crt;
var i:string;
    x:integer;
    archivio:text;
begin
assign(archivio,'fileditesto.txt');
append(archivio);
for x:=97 to 122 do
begin
i[1]:=chr(x);
for x:=97 to 122 do
begin
i[2]:=chr(x);
write(archivio,i);
end;
end;
close(archivio);
readln;
end.
(**********************************)

 wrote in message
oXYX7.414$Xj.1...@news2.tin.it...


 error... se qualcuno potesse aiutarmi... GRAZIE
la soluz e' quella di Cristian... cmq quando ti da "un runtime error" se
premi F1 viene fuori la spiegazione dell'errore...
e c'era scritta la stessa cosa :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Come posso modificare questo codice?

 stringa.
[CUT]
Forse è 'length'
:=)
Ciao
-- 
Pigi

 
Mi sembra che la lunghezza di una stringa sia memorizzata nella posizione
zero.
Sempre che io non mi sbagli, se non vuoi usare la funzione length,
potresti dichiarare una variabile intera i, e:
i:=parola[0];
e i riceve il numero di caratteri.
Prova così.
Ciao
-- 
Pigi
Newsgroup: it.comp.lang.pascal
Titolo: problema con assegnazione...

come mai facendo:
parola[i]:= c
dove parola č string e c č char, quando faccio:
writeln(parola)
il valore di c non c'č....come mai? dovrei costruire una parola prendendo
solo alcuni caratteri da un'altra....
--
________________________________
L'importante della vita sono le scelte...
...c'č sempre un futuro alternativo! ;-)
________________________________
   FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere NOSPAM

 solo alcuni caratteri da un'altra....
Se I supera la lunghezza della stringa non puoi vedere nulla in quanto la posizione parola[0] contiene la lunghezza.
O modifichi quest'ultima oppure esegui una concanetazione (parola := parola + c) l'assegnazione parola[i] = c presuppone
che I sia minore o uguale alla lunghezza della stringa
se parola = 'pippo'
l'assegnazione parola[2] = 'A' darà come risultato 'piApo' mentre parola[6] = 'A' non produrrà nulla in quanto la
stringa è di lunghezza 5
--
Ciao,
David (
www.utilityweb.net
)

Ho toppato l'esempio l'assegnazione parola[2] = 'A' darà come risultato 'pAppo' e non 'piApo' scusa ma è stata la fretta
--
Ciao,
David (
www.utilityweb.net
)

Newsgroup: it.comp.lang.pascal
Titolo: Controllo ingressi

Come posso controllare se un dato immesso dall'utente appartiene al tipo di
variabile dichiarata?
Per esempio il programma chiede di inserire un numero e l'utente inserisce
una lettere come faccio a controllare e a segnalare che l'ingresso è
inesatto?
Ciao Marcomix

 Ciao Marcomix

sentito di qualche unit a proposito...  ma non mi ricordo dove.
In pratica gli errori come si gestiscono? cioè... volevo dire: gli errori _si 
gestiscono_ in qualche modo?
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(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------
Newsgroup: it.comp.lang.pascal
Titolo: help per neofita

raga sto compilando un programmino molto semplice, ma il compilatore mi da
l'errore 89 su questa riga
writeln('La linea' , nlin[i] ', parte da ', part[i] , ' e arriva a ',
dest[i]);
Sapete dirmi che c'è di sbagliato?? Ah, sono un neofita.. :)
Ciao

writeln('La linea' , nlin[i] ', parte da ', part[i] , ' e arriva a ', dest[i]);
                                      ^ hai invertito virgola e apice
-- 
Omega e' omega e basta

                                       ^ hai invertito virgola e apice
Si quello l'ho notato anche io e l'ho corretto, però mi da errore
ugualmente.. :(

 Sapete dirmi che c'č di sbagliato?? Ah, sono un neofita.. :)
A parte la virgola invertita, potresti essere piů preciso?
Che compilatore hai usato? TP? FreePascal? Delphi?
Dopo aver messo apposto la virgola hai ricompilato?
Oltre a "errore 89" il compilatore ti da anche una breve descrizione
dell'errore?
Cosa sono nlin, part e dest? Array? Array di cosa?
Ciao,
  Luca
-- 
Linux registered user #291568 (
http://counter.li.org/
)
Electronic Frontier Foundation Member (
http://www.eff.org/
)
Mandrake Club Member (
http://www.mandrakeclub.com/
)

L'errore 89 è l'errore ke si verifica quando manca la parentesi tonda
chiusa.
Se dopo la rilevazione dell'errore si posizione all'inizio della riga
probabilmente manca la chiusura della parentesi al rigo superiore,
altrimente al rigo che stai utilizzando, ma da come hai scritto sembra tutto
a posto.
Per avere un aiuto migliore scrivi tutta la procedure in una news e vedrò di
aiutarti.

Newsgroup: it.comp.lang.pascal
Titolo: C contro Pascal

Ciao
volevo solo aggiungere che in realta'
il problema fondamentale per chi usa il C dopo il Pascal e' quello di
arrivare a fare le stesse cose in C che faceva con il Pascal, con la 
stessa facilita'...
Io c'ho messo un po' ma alla fine ci sono riuscito.
Ciao
Andrea

Il giorno Thu, 18 Sep 1997 00:18:29 GMT,
centro.in...@ANTISPAMulysse.it (Andrea Laforgia) ha scritto :

ehm scusate questa risposta era per il  thread "Fondamenti di
Informatica"....

Newsgroup: it.comp.lang.pascal
Titolo: Cosa devo fare x programmare giochi stile pac-man

Ho il desiderio di riuscire a programmare giochi arcade molto
"semplici" stile pac-man duke nuke 1 o 2 ecc.
Sapete indicarmi:
1 - che linguaggio devo imparare
2 - dove posso trovare il compilatore ed eventuali programmi per
effettuare la grafica (una specie di thedraw pero' per la grafica)
3 - che libro devo comprare per imparare il suddetto linguaggio
Speranzoso in un AIUTO ringrazio, ciao.
					Gianluca

...


Puoi imparare VB5 che non č male , poi ti posso dare delle dritte rispetto
ad alcune librerie per Sprite (Animazioni) e effetti (3D).
        Ciao da Leonardo             
leoo...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: Cerco guida sul Delphi

Per quanto riguarda i libri, cosa mi dite della "Guida completa al
Delphi 4" (K. Reisdorph, ed. Apegeo e Sams Publisching).
E' buona? 
Costa 88.000 cucuzze (pero' ha anche 890 pagine).
Esiste qualcosa di altrettanto buono e ad un costo inferiore?
(qualcosa da 20 sacchi)
Ciao a tutti,  Fabio
--
fabi...@rocketmail.com


Anch'io ho intenzione di comprarlo. E' un libro molto valido perchè fornisce
una buona base a differenza di altri che indicano solo particolari trucchi.
Vale sicuramente i soldi che costa.
Urano


Prima di comprare qualunque cosa io vi consiglierei di guardare sul web.
Io ci ho trovato manuali di C++ e Java che neanche nelle migliori
librerie...
Ciao
  Roberto.
-- 
-------------------------------------------------------------------
 Vabbe`  ma  mica posso fare tutto io! Te lo sai a che ora mi sono
 alzato  questa  mattina? Alle sette meno un quarto! La bambina mi
 ha vomitato tutta  l'anguria  nelle scarpe!  Stamattina e` venuto
 l'idraulico e sai  quanto mi ha chiesto? Centocinquantamila lire!
 E dopo mezz'ora  il  rubinetto ha ricominciato a buttare l'acqua!
 Quela poi e` andata al corso di chitarra alle tre del pomeriggio,
 lo sai a che ora e` tornata? alle  quattro del mattino! Con tutto
 il rossetto  spostato  sulla  faccia. Ma che la chitarra la suoni
 con la bocca? Hai capito?
-------------------------------------------------------------------
 Attenzione:  i  dati  nell'header  sono modificati per difendermi
 dagli spammer. L'indirizzo  esatto  e`:  
crs...@xxxfreenet.hut.fi
                                   senza le tre x^^^

Newsgroup: it.comp.lang.pascal
Titolo: sempre io per gli array

Io ho un array 15462069 e devo mettere prima i pari poi i dispari e quando
c'è lo zero cancellare la casella dell'array.
in questo caso verrebbe fuori 4626154
io avevo pensato di fare cosi ma nn funzione:
PROCEDURE PariDispari (......................);
VAR i,j,c:integer; contatori per il for    c è una variabile di comodo
BEGIN
FOR i:=1 TO dim DO
FOR j:=i+1 TO dim DO (dim dimesione massima determinata dall'utente)
IF (v[i]MOD2)=0
THEN Scambia (a,b:integer);
END;
END;
ma no va che ho sbagliato?????

 ha scritto nel messaggio
news:GHtT6.1145$Ft6....@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Circa la "liste"

Ciao a tutti,
scusate, ma voi cosa intendete per "liste"?
Roberto Ferraro
Nick-name I.R.C. : SatURnO
I.RC. e-mail: sat...@cybergalNONONO.com
----------------------------------------------------------
La vita è adesso
 nei pomeriggi appena freschi
che ti viene sonno [...]
e ti domandi incerto
chi sei tu
C. Baglioni (da La vita è adesso)
----------------------------------------------------------

 scusate, ma voi cosa intendete per "liste"?
la lista è una struttura dati dinamica concatenata: dinamica perch non si può
stabilre la sua dimenzione a priori, e concatenata perchè un elemento è
sollegato al successivo da un puntatore.
Se tiserve altro......

scusate, ma voi cosa intendete per "liste"?
Una lista e' una struttura dati formata da nodi che puntano l'uno
all'altro.
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

Più precisamente una lista dovrebbe essere una struttura in cui
ogni nodo contiene (oltre ai valori) anche un puntatore all'elemento
seguente (ovviamente escludendo l'ultimo elemento).
Lawrence Oluyede
rhy...@insieme.net
"La realtà delle cose si nasconde dietro 
la loro reale apparenza (Maestro Hiamuri)"


 wrote in message
P3Tl6.46213$k55.1...@news.infostrada.it...


Ti ringrazio delle spiegazioni e per la disponibilita`. :-)
N.B. Grazie anche agli altri
Roberto
Socio S.T.I.C. n. 5082 A
Nick-name I.R.C. : SatURnO
I.RC. e-mail: 
sat...@cybergal.com
Principal e-mail: 
frob...@tiscalinet.it

Newsgroup: it.comp.lang.pascal
Titolo: aiuto: lettura campo posizionato

Qualcuno può spegarmi due cose:
  come faccio a far leggere un input (stringa) da una posizione che decido
io??
  o meglio ancora, come faccio a posizionare un campo di i/o sullo schermo?
 Poi, un'altra cosa. io vengo dal Cobol/400, la gestione dei files è
abbastanza diversa poichè  indicizzare un file viene fatto dal s.o. e a
livello di file section COBOL basta inserire come chiave primaria il nome
del campo chiave fisico.
Invece se ho ben capito in pascal si deve ricorrere ai puntatori, nessuno
può farmi un esempio?????
grazie a tutti e scusate la scarsa qualità delle mie domande!!!!!

può farmi un esempio?????
La risposta e' semplice, in pascal non si puo' fare.
O meglio, si puo' fare ma con un tale sforzo di programmazione, da
risultare una fatica di Ercole.
L'indicizzazione dei dati non e' un'operazione prevista in modo
standard dal pascal e quindi devi costruirti le tue routine.
I puntatori potrebbero essere d'aiuto, ma sono solo il punto di
partenza.

 
esempietto:
var f: text;
begin
 assign (f, 'c:\mio.pas');
 rewrite (f);
 writeln (f, 'Ciao ciao!!');
 close(f);
end.
Allora:
  var f: text; -> dichiara una variabile che puntera' ad un file di
                  testo.
                  Si possono dichiarare var. che puntano a file binari,
                  nel modo:
                       var f: file of TIPO;
                  Dove TIPO e' un tipo di dati (eventualmente definito 
                  dall'utente).
  assign (file, path); -> assegna la variabile "puntatore" al file su
                         disco.
  rewrite (file); -> apre il file per scriverci, creandolo nuovo, e cancellandone
                     il contenuto se esisteva.
  append (file); -> apre il file per appendere dati.
  reset (file); -> apre il file per leggere dati, posizionando il puntatore
                   all'inizio del file.
  read (file, var);
  readln (file, var);
  write (file, str);
  writeln (file, str); -> leggono/scrivono dal/nel file :)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Il tempo speso per ogni punto dell'ordine del giorno e' sempre inversamente
proporzionale alla somma di denaro che il punto comporta", legge
dell'Insignificanza

esempietto:
[snip]
scusa ma mi spieghi che c'entra il tuo esempio con la questione
sollevata ?



Forse, e dico forse,
gli era sembrato che Riccardo con avesse capito bene come funzionasse
la gestione dei files in Turbopascal e cosi' Emanuele gli ha spiegato
qualcosa.
Fabio
--
fabioma...@rocketmail.com

 
Molto piu' terra terra:
Riccardo > Invece se ho ben capito in pascal si deve ricorrere ai puntatori, nessuno
Riccardo > può farmi un esempio?????
cosi', ecco l'esempio :)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"La fortuna bussa sempre alla porta al momento sbagliato", precetto di
Ducharme

>cosi', ecco l'esempio :)
L'esempio richiesto era sull'indicizzazione.....e chiudo qui.
Newsgroup: it.comp.lang.pascal
Titolo: importante!! help pericolo

scusate ma come si fa una volta che si lancia il programma a tornare nella
pagina dove c'è il linguaggio scritto; parlo dei programmi che vanno in
esecuzione all'infinito ogni volta che l'utente prema... ad esempio
--------
-----
-------
repeat
 i:=i+1;
write(i);
read;
until i=0;
i non sarà mai uguale a zero quindi finchè premo invio il programma va
avnti..... ho provato con ctrl+pausa ma non funziona....
grazie.

 grazie.
guarda che con ctrl(o ALT, nn ricordo mai..) e premendo ASSIEME pause (tasto
nella fila delle F1, F2...) per due volte il run si blocca e torni alla
schermata blu, dove hai scritto il tuo programma a ciclo continuo..
ciao
---
kiakim

Se usi TP7 mi pare basti premere ctrl+C e torni all'IDE.
Inoltre faccio notare che se i e' un'integer prima o poi diventera'
uguale a zero e quindi il programma si arrestera' da solo!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 uguale a zero e quindi il programma si arrestera' da solo!
Mi sa che si fermerebbe in ogni caso per overflow :)
WulfMp3
wul...@email.it
"Poni ciň che sei nel minimo che fai."

Newsgroup: it.comp.lang.pascal
Titolo: Radice cubica

Sapete dirmi se esiste un comando per fare la radice cubica di un numero in
Turbo Pascal 7.0 ?
O magari alcuni trucchetti per farlo, visto che cercando nell'help non ho
trovato niente...
Grazie e ciao
Nicola

trovato niente...
La radice n-esima di un numero e' ottenibile come elevamento a potenza di quel
numero per 1/n.
Dato che base^esponente = e^(esponente*logaritmo_naturale(base)) si ha che,
traducendo in TP :
radice_cubica := exp ( 1/3 * ln ( base ) ) ;
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)

radice_cubica := exp ( 1/3 * ln ( base ) ) ;
Grazie mille !!!!!!
Pensare che quando l'ho stampato e l'ho scritto in pascal ho scambiato l' LN
con IN, e quindi non ne capivo più niente !!!!!

Newsgroup: it.comp.lang.pascal
Titolo: Qual'è il miglior testo didattico di introduzione al Pascal ?

Gentili Programmatori, mi sono messo in testa di imparare a programmare,
essendo completissimamente a digiuno di un qualsivoglia elemento di
programmazione;
Qualcuno (più di qualcuno) mi ha consigliato vivamente un approccio con il
Pascal, per poi successivamente poter imparare, volendo, altri linguaggi;
Quale testo didattico mi consigliereste voi per un'introduzione corretta al
Pascal per uno che come me deve iniziare dall'ABC della programmazione?
N.B.: ho la possibilità di usare il compilatore Turbo Pascal 6.

 wrote in message
88sc6t$as4$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Setting ENV vars --> under Free Pas. Compiller (under LINUX)

Setting ENV vars --> under Free Pas. Compiller (under LINUX)
------------
Hello
I'v a problem . I'm trying to set evnvironment varrible
in Free Pascal compiller under LINUX.
Is there any function that would set it .. sth. like setenv ();
Or is there any other way to store named varibles in memory !
I want it to look like this ..
setenv ('name','text');
Plis help .. I need that info FAST !!!!
Thanks !
reply -> 
cybe...@koti.com.pl
 
cybe...@iq.pl

Ehm...where can i get the Free Pascal compiller for Linux? Thanks.
Mica lo sapete voi dove scaricare il compilatore pascal per linux? Grazie

>Ehm...where can i get the Free Pascal compiller for Linux? Thanks.
- Well .. i bot it in a magazine .. if you wont to download just type in
yahoo fpc and you'll find lots of links ... if I find a url with FPC I'll
send it
to this group !!!


http://volftp.mondadori.com
It's here :-) Thanks anyway.
Newsgroup: it.comp.lang.pascal
Titolo: ListBox con selezione

Ciao!!!
Sto' cercando di fare un programma che sostituisca il Norton Commander,
per ora mi servono solo copie e spostamento di files.
Sto' cercando di implementare una ListBox in cui in qualche modo viene
visualizzata
la selezione di uno o piu' files.
Ho provato con una CheckBoxes ma con troppi files la visualizzazione e' su
piu' colonne
ed incasinata...
qualcuno ha qualche idea???
Esiste qualche cosa che faccia quello che mi serve???
Ciao.
Matteo
Matteo.F...@fe.nettuno.it

Se ci riuscirai fammelo sapere, grazie



Turbo Vision! 
Ha ListBox ed altro.
Ciao Lauro
Newsgroup: it.comp.lang.pascal
Titolo: Libri

Ma esistono ancora libri su Pascal?Ho girato mezza città ma non ne ho
trovato ancora uno!! Ditemi qualche titolo, se potete.
Grazie.

 Grazie.
Io ne ho uno solo...ma penso ke sia sufficiente :
Turbo Pascal 7
Casa editrice : McGrawHill
Autori : Stephen K. O'Brien
            Steve Nameroff
ISBN 88-386-0215-8
sono 800 pagine mi sembra il minimo per cominciare...
Ciao!
Newsgroup: it.comp.lang.pascal
Titolo: Come soprimmere il beep della tastiera?

Semplice, stacchi l'altorparlantino dentro il Case :->>.
============================================
Rimuovere "cancellami." dall'indirizzo email

 assembler per soprimmere il beep prodotto dalla tastiera quando e'
sovracarica.
Devi installare un handler per la tastiera e gestire tu il buffer, non c'e'
altro modo.
Ci sono degli ottimi esempi nelle swag per la tastiera...
Nanonano, DOC.
--------------------------------
Paolo 'DOC' Rosi
Lead programmer 
Dreamware Multimedia Productions (
http://www.dreamware.com
)
e-mail : 
pr...@italy.dreamware.com
Tel. ++39 187 500968
Fax. ++39 187 516388
--------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: link .obj

 come faccio a linkare il .obj creato da cbuilder con {$L nome.obj} ?
thank
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> come faccio a linkare il .obj creato da cbuilder con {$L nome.obj} ?
beh $L etc linka effettivamente il file nel tuo eseguibile... poi devi
sapere quali sono i simboli li definiti e aggiungere i prototipi nel
tuo prog.  e.g
 {$L antani.obj}
 procedure contrantani(a : integer); external;
l'unico dubbio che mi sorge e'... cbuilder compila a 16 o a 32 bit ?
`dubito` (anche se non ho mai provato) che si possano linkare
parti di segmento codice di tipo diverso e sperare che funzionino :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

`dubito` (anche se non ho mai provato) che si possano linkare
Credo proprio di no... e credo ke non si possa neache mischiare robba
per target diversi ( DOS Modalita reale, DOS Modalita Protetta,
Windows)
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

Newsgroup: it.comp.lang.pascal
Titolo: come faccio a rendere un programma file .exe??

come faccio a rendere un programma file .exe??
--
Atletiko
______________________________
Coltiva la tua passione
______________________________

come faccio a rendere un programma file .exe??
Quante volte avro risposto? boh.
Basta che compili. Devi stare attento pero' a vedere dove mette exe
c'è un opzione che dice se lo "salva" sul disco o in memoria se lo
salva sul disco lo salva nella directory di lavoro
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

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

Sto cercando di fare un programmma in pascal che simuli l'effetto doppler
utilizzando la grafica per far vedere le armoniche di cui si sente il suono.
Il problema è che non so come rappresentare funzioni seno o coseno dato che
le coordinate di putpixel devono essere numeri interi e non reali. Se
qualcuno ha qualche idea...

 le coordinate di putpixel devono essere numeri interi e non reali. Se
Molto semplicemete fai round(numero) e ti restituisce il numero intero
approsimato.
es.:
round(1.155) = 1
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

boh... tanto per scalarlo sullo schermo devi moltiplicarlo per
qlcs... quindi moltiplichi prima e tronchi/arrotondi dopo
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 >
Fin qua ci arrivo benissimo anche io,non sei l'unico ad aver fato un po' di
trigonometria...
Basta che moltiplichi il seno per una costante e poi fai round...
Mi sembrava superfluo da dire..

Newsgroup: it.comp.lang.pascal
Titolo: SOS Programma.

Come potrete capire sono uno alle prime armi con il Pascal e mi servirebbe
qualche consiglio su questo esercizio:
Creare un programma che dati due numeri A e B elevi A a B.
Scrivendo il programma mi sono trovato alcuni problemi:
1) inserendo l'esponente (E) pari a 1 o a -1 il contatore non funziona, come
posso risolvere l'incoveniente?
2) non riesco ad inserire un test che segnali quando l'esponente è 0. Se
inserisco un IF il compilatore lo ignora, come se non lo avessi messo.
Questo è il programma un po' riassunto. E=esponente. N=numero. R=risultato.
RN=risultato negativo.
BEGIN
     CLRSCR;
     C:=1;
    .......
     IF E<0 THEN
     BEGIN
          E:=E*(-1);
          R:=N;
          REPEAT
                C:=C+1;
                R:=R*N;
          UNTIL C=E;
          RN:=1/R;
        .......
        END
     ELSE
     BEGIN
          R:=N;
          REPEAT
                C:=C+1;
                R:=R*N;
          UNTIL C=E;
    .......
END;
     REPEAT UNTIL KEYPRESSED;
END.
Ringrazio anticipatamente chiunque mi aiutasse.
                                        Ciao Marcomix.

           UNTIL C=E;
Come puoi vedere con una semplice simulazione, C parte da 1, e quando
arriva all'until, c vale già due. Se E lo imposti a 1, la condizione
C=E non si verifica mai, ed entri in loop.
-- 
dario...@iol.it
 (pgp key on pgp servers)
http://dario.eyep.net
 (dial-up)
ICQ#: 37438061
The only good Windows is an uninstalled Windows, or maybe Windows2K

 ha scritto nel messaggio
news:v35nts8b96pnbuhec...@4ax.com...


 Creare un programma che dati due numeri A e B elevi A a B.
Ti do il codice che uso io per un numero elevato per un altro:
Function Power(Base, Exponent: extended): extended; export;
begin
  if Base > 0 then
    Result := exp( Exponent * ln( Base ) )
  else if Base = 0.0 then
    Result := 1.0
  else If Exponent=Trunc(Exponent) Then
    Result := (-2*(Trunc(Exponent) Mod 2)+1) * Exp(Exponent * Ln( -Base ) )
  Else
    Result := 0
end;
Consente anche di elevare per esponenti reali, sfruttando la definizione delle
funzioni logaritmo e d esponenziale

 ha scritto nel messaggio
news:8rjo2t$l5m$5...@nslave3.tin.it...


 Come posso risolverlo?
Per risolvere il problema, potresti usare, al posto di repeat..until, usare il
costrutto While..do:
c:=1;
While not(c=e) do
  C:=c+1;

 Come posso risolverlo?
Vabbč, la potenza del numero č un classico :-)
program potenza;
uses crt;
var num,pot,cont,ris : integer;
begin
 write('Numero:    '); readln(num);
 write('Esponente: '); readln(pot);
 cont := 0;
 ris := 1;
 if pot<0 then pot:=-pot;
 repeat
  ris := ris * num;
  cont := cont + 1;
 until (cont = pot);
 writeln(num,' alla ',pot, ' = ',ris);
 repeat until keypressed;
end.
Nota che col for č piů semplice. Il tuo errore era C:=1, dopo la prima
moltiplicazione il C deve valere 1, quindi parte da C:=0... :-)


 ha scritto nel messaggio
news:92upts80k31i8212p...@4ax.com...


 io!!!
Basta dirgli che ti sei preso un libro di matematica e che hai letto come si
fa!!!
Newsgroup: it.comp.lang.pascal
Titolo: INFO SU SET

vorrei informazioni su cos'è e come si usa il tipo set e le funzioni con le
quali posso
usarle tipo in
ho visto l'elp di borlandTP ma fà veramente skifo
help


Un insieme è una specie di contenitore di variabili dello stesso tipo (di
qualsiasi tipo esse siano) e può contenere una sola copia di esse.
Non si gestisce con gli indici come per gli array ma con la funzione
implicita "in".
Esempio...
Voglio sapere se il valore assunto da una variabile intera I in un certo
momento è nell'insieme da me definito.
Esempio
Insieme=[1,4,5,9,3] --- I=2
If (I In Insieme) Then ...
Ovviamente questa condizione restituisce false perchè il valore 2 non è
nell'insieme mentre se cerco il 4 mi restiutisce true.
In genere viene usato molto con la funzione readkey in questo modo.
Vogliamo che vengano scritte solo lettere minuscole da tastiera e non altri
caratteri.
Se Insieme vale ['a'..'z'] possiamo dire.
If (readkey in Insieme) Then
  Write(readkey)
Else
  Write(Chr(0));
Così se premiamo un qualsiasi tasto che non sia una lettera minuscola ci
scrive il Chr(0) cioè NIENTE.
Un buon modo per filtrare l'input.
Potrei fare altri 1000 esempi se non ti è chiaro fammi sapere.
Ciao
P.S. non mandare più volte lo stesso messaggio.

Newsgroup: it.comp.lang.pascal
Titolo: wincrt.tpu

c'è nessun simpaticissimo programmatore in pascal che vuole dare a un 
divertente e simpatico ragazzo la unit wincrt.tpu? mi serve e nel mio 
borland pascal 7 non era inclusa.
ciao ciao
--
Automatic posted from 
ro...@ns.ten.it
 [194.184.27.10]
via Mailgate Server - 
http://www.mailgate.org

gbo...@ten.it
 (tita), il giorno 21 Nov 1997 18:49:51 +0100 hai
scritto:
#c'è nessun simpaticissimo programmatore in pascal che vuole dare a un
#divertente e simpatico ragazzo la unit wincrt.tpu? mi serve e nel mio
#borland pascal 7 non era inclusa.
#ciao ciao
ciao "divertente e simpatico ragazzo" :-),
nessuno ti puo' inviare wincrt.tpu perche':
1) non esiste. al massimo sarebbe wincrt.tpw (turbo pascal for
windows).
2) anche nel mio borland pascal non c'e' wincrt.tpw (ne' crt.tpu), a
quanto pare sono interne come system.tpu
bye,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/

Newsgroup: it.comp.lang.pascal
Titolo: R: Phone Cards 4 Free



Newsgroup: it.comp.lang.pascal
Titolo: Forum PasOS

E' nuovamente online il forum di PasOS (Pascal Operating System)
all'indirizzo 
http://forum.pas-os.com
 .
Purtroppo il vecchio forum (con tutti i messaggi) e' inaccessibile causa
problemi con il fornitore di hosting.
Spero in una partecipazione attiva da parte del gruppo di discussione.
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-

 
scusa qualche screenshottino glielo puoi mettere? :p

> scusa qualche screenshottino glielo puoi mettere? :p
Attualmente il s.o. e' solo un insieme di moduli indipendenti (bootloader,
kernel, filesystem, GUI)...
Puoi scaricare una versione dimostrativa (molto limitata) della GUI seguendo
i link sul forum.
Ciao!

Newsgroup: it.comp.lang.pascal
Titolo: due tasti premuti contemporaneamente

ciao
sto cercando un modo per far riconoscere la mio programma che due (o più)
tasti sono stati premuti contemporaneamente.
Ho creato una procedura di questo tipo:
function key(code:byte):boolean;
  begin
    key:=(port[$60] and 127)=code;
  end;
però mi legge solo l'ultimo tasto premuto...come devo fare?
grazie per l'aiuto, ciao

 tasti sono stati premuti contemporaneamente.
[...]
Non č proprio banale.
Dovresti intercettare l'interrupt della tastiera (lo 09 mi pare)
ed andare a leggere dalla porta come fai adesso. Quando il
tasto viene abbassato leggi un codice, quando lo lasci
leggi lo stesso codice + 128. Nel momento in cui abbassi il
tasto puoi settare un flag che azzeri quando lo lasci.
In questo modo dovresti essere in grado di individuare
qualunque possibile combinazione di tasti.
--
Virgilio Lattanzi       HARPAX
Tel: 
+39 0733 816872
    via Fontanella, 55
Fax: +39 0733 819133    62012 Civitanova Marche MC
WWW: 
www.harpax.com
     ITALY

Newsgroup: it.comp.lang.pascal
Titolo: Eliminare il cursore

Vorrei sapere se esiste un comando che permette, in modalita testo, di
rendere lo spessore del cursore uguale a zero.
Qlk sa anche se e possibile scaricare da Internet librerie come ad esempio
WinCrt???
Ciao a tutti quelli del NG.
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

si c'è ma non lo ricordo
"rag. Maurizio Di Girolamo" ha scritto nel messaggio
<000401c050f1$e3f81280$2740623e@maurizio>...


 rendere lo spessore del cursore uguale a zero.
uses DOS;
var
   CPUreg: registers; 
begin
	with CPUreg do
          begin
               ah:=$01;
               ch:=20;
               cl:=0;      {se qui metti 21 torna il cursore normale}
          end;
     intr($10, CPUreg);
end.
Ciao.
--
Kripto
Newsgroup: it.comp.lang.pascal
Titolo: Esiste un modo per...

Scusate per la banalità della domanda che sto per porvi...
Sto scrivendo una function di upcase ma per ovvie ragioni mi interessa che
questa riconosca che i caratteri analizzati siano compresi tra 65 e 90 & 97
e 122 [A..Z/a..z] come devo fare? Esiste un modo per tradurre l'espressione
"se x è compreso tra z e y allora"... che so con un if x=[65..97] o simili?
Grazie per l'aiuto.

 "se x è compreso tra z e y allora"... che so con un if x=[65..97] o
simili?
Vado a memoria:
if x in ['a'..'z', 'A'..'Z'] then ......
In alternativa, guadagnando un po' in efficienza ma perdendo in chiarezza:
if ((x>='a') and (x<='z')) or ((x>='A') and (x<='Z')) then ....
Ovviamente in entrambi i casi x deve essere di tipo char.
Ciao, Max.

 wrote in message
8ebde5$3m1$1...@pinco.nettuno.it...


Grazie per l'aiuto.
************************
Var stringa: string;
      cont: integer;
Begin
Write('Inserisci stringa: ');
Readln(stringa);
For cont:=1 to length(stringa) do
If ((ord(stringa[cont])>=97) and (ord(stringa[cont])<=122)) then
stringa[cont]:=chr(ord(stringa[cont])-32);
Writeln('Stringa in upcase: ',stringa);
End.
**************************
Se hai bisogno di chiarimenti, dimmelo.
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

 "se x è compreso tra z e y allora"... che so con un if x=[65..97] o
simili?
if ((ord(x)>64) and (ord(x)<91)) and ((ord(x)>96) and (ord(x)<123)) then
Bye,
  > Umberto the Dragon <

 Sto scrivendo una function di upcase .......
Per stringhe stile Borland
type PByte=^byte
Procedure Majuscolo(P:PByte)
    var
        i:byte
    Begin
    for i:=1 to P^
    inc(longint(P))
    if (P^>=96) and (P^<=122) then dec(P^,32)
    if (P^<65) or (P^>90) then .... non è un carattere normale
    next i
    end;
Chiamata:
Majuscolo(@Stringa)
.. e la stringa viene convertite in majuscolo!!!!!!!!
Newsgroup: it.comp.lang.pascal
Titolo: Come si fa?

Ciao a tutti!!
Vorrei sapere se esiste un modo per scrivere il seguente numero con meno
cifre decimali
 -3.29032E-06
Grazie.

>  -3.29032E-06
intendi in output con write[ln] ?
se si puoi indicare cosi' il numero di cifre che vuoi:
write ( variabile_real : num-cifre-intere [: num-cifre-dec]  );
-- 
Dreadnaut
(Life would be easier if I had the source code)

, 
gae...@libero.it
 
says...

Se intendi la stampa a video... ti hanno gia' dato la risposta :)
Se intendi troncarlo, puoi fare come segue:
Esempio per 2 cifre decimali:
f2 := trunc(f1 * 100) / 100;
(attenzione ad eventuali errori run-time che
possono essere provocati dalla funzione trunc)
Newsgroup: it.comp.lang.pascal
Titolo: Programma

Ragazzi mi servirebbe urgentemente un programma:
Devo mettere in ordine decresciente 10 numeri
inseriti trami un ciclo "for" in una variabile "a"(a:array[1..10]of integer)
se qualcuno me lo può realizzare mi farebbe un piacere.
Grazie

 ha scritto nel messaggio
news:8tet99$cte$1...@lacerta.tiscalinet.it...

Qui nessuno fa programmi per gli altri, ma dà una mano a realizzarli, magari
mettendo delle parti di codice scritte da sè, ma non consegna un programma già
bell'è fatto!!!!
Dovrebbe essere questo lo spirito del programmatore: imparare sempre qualcosa di
nuovo grazie all'aiuto di coloro che hanno già affrontato il problema!
Ciao e se vuoi una mano a realizzarlo, ben volentieri, fartelo, col cavolo!!!!!!

Approvo incondizionatamente!!!!!!!
el rasunč.
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: Perche' non funziona ?

Dovendo scrivere 300 pagine html ho pensato bene di fare un
programmino in pascal che mi automatizzi la cosa.
Il codice e' questo:
program prova;
 var f:text;
     car,x:string;
     i,j,y:integer;
 begin
   y:=0;
   for j:=48 to 57 do
      for i:=48 to 57 do
       begin
          x := chr(j)+chr(i);
          car:='pagina'+x+'.htm';
          assign(f,car);
          rewrite (f);
          writeln (f,'<html>');
          writeln (f,'<head><title>PAGINA  ',y,'</title></head>');
          writeln (f,'<body>');
          writeln (f,'Pagina  ',y);
          writeln (f,'</body>');
          writeln (f,'</html>');
          close (f);
          inc(y);
       end;
    readln;
 end.
In questo modo mi vengono create 100 pagine html...da pagina00.htm a
pagina99.htm
Per crearne 300 mi dovrebbe bastare di annidare i 2 for presenti
all'interno di un terzo for utilizzando la seguente riga:
...
for variabile:=48 to 51 do 
...
x := chr(variabile)+chr(j)+chr(i);
....
Tutto il resto mi basterebbe lasciarlo inalterato, pero' non funziona.
Mi potete spiegare perche' ?
Poi un'altra cosa; il programma che ho scritto sopra se dovessi
scrivere 100 pagine andrebbe benissimo, ma se la undicesima riga
fosse:
car:='pagina1'+x+'.htm';
invece di
car:='pagina'+x+'.htm';
non funziona piu'.
Perche' ?

 Perche' ?
Ti consiglio di creare i file con una parte fissa più breve
Es.: pagXXXXX.htm
Ciao
MaTTeO
P.S.: Se fossi in te cambierei la struttura del programma, annidare un
For dentro l'altro non è una gran bella cosa, ti consiglio di utilizzare
un solo
ciclo, usando la variabile contatore come indice per le pagine,
semplicemente convertendo il contatore in stringa.
Spero di essermi spiegato bene.

Spero di essermi spiegato bene.
Si sei stato chiarissimo, GRAZIE 1000 per l'aiuto :-)

Zekka ha scritto:

Di niente
MaTTeO.
Newsgroup: it.comp.lang.pascal
Titolo: sono un novellino

ciao a tutti, sono pietro, un ragazzo di 15 anni di milano
mi è sempre piaciuta la amtematica e la logica e quando in seconda
media mi hanno regalato una calcolatrice scintifica programmabile ero
riuscito a fare un programma per le equazioni di primo grado e uno per
le proprorzioni
quest'anno, grazie alla scuola, mi sono avvicinato al pascal
a scuola non abbiamo fatto molto (diciamo zero: if then else) ma mi è
subito piaciuto e ho inziato a imprarlo col libro di testo che però ha
i suoi limiti
mi piace molto e cerco sempre di fare del mio meglio
gli ultimi due programmi che ho fatto servono a fattorizzare i numeri
interi e un master mind
purtroppo però non capisco come funziona l'interfaccia grafica: con
turbo pascal 7.0 non accetta "uses graph"
sono quindi costretto a giocare a master mind con banalissimi numeri
adesso uso delphi per programmare in pascal
se non vi spiace vi chiedo qualsiasi cosa possa essermi utile per
inziare e migliorare
ciao a tutti e grazie
pietro
perr...@libero.it
ICQ# 147142951

ho iniziato on il pascal per poi approdare a delphi, se non riesci ad
ottenere informazioni qui posso aiutarti volentieri.
mi trovi sul forum di 
www.programmando.org
--
Max Etere
massimili...@programmando.org
http://www.programmando.org

 turbo pascal 7.0 non accetta "uses graph"
come no?
ti mancheranno le librerie, tp7 accetta eccome le lib graph!
o magari hai quelle per tp6 e cerchi di usare tp7.. cmq controlla
perché c'è qualcosa che non va..
bye Cereal

Puo essere che no hai il path settato correttamente...
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

invece ce l'ho!
io l'ho cercato, il file è graph.tpu, giusto?
e visto che non funzionava, lo avevo cercato e scaricato da internet e
sostituito
ma non funziona
in alternativa mi potte consigliare un altro compilatore pascal
(naturalmente free)
grazie a tutti dei consigli
pietro
:-)


> turbo pascal 7.0 non accetta "uses graph"
se ti dice ke non trova il file, spostati su "Option" e quindi su
"Directories..." e assicurati ke la voce "Unit Directories" punti alla
cartella dove risiede il file graph.tpu

Pietro wrote:

Consiglio vivamente Free Pascal
http://www.freepascal.org

 turbo pascal 7.0 non accetta "uses graph"
Sicuramente il tuo TP ha problemi. Scaricalo da qui:
http://digilander.iol.it/darkbytes
Ricorda che deve trovarsi in C:\TP
--
"La matematica è l'alfabeto con il quale DIO ha scritto l'Universo"
(G. Galilei)

 ha scritto nel messaggio
news:3d3d9af...@news.fastwebnet.it...


dopo essermi scervellato adesso è a posto...
ma ho un altro problema......
On Wed, 24 Jul 2002 16:13:52 +0200, "Cereal Killer"



Prova a spostare la directory di turbo pascal su C:\.....
Poi aprilo, vai a OPTIONS,Directories e inserisci C:\tp\units...
Dovrebbe funzionare(e cosģ potrai usare la libreria graph.tpu).
Newsgroup: it.comp.lang.pascal
Titolo: PASSWORD ?????????

Ciao
   come posso fare una password dove al posto della lettere si visualizzano
degli asterischi (come tutte le pass) ???
Seba


E' dura col Pascal, ma non impossibile. Prova a fare un ciclo che testi
il keypressed tipo questo:
stringa:='';
repeat
  if keypressed then stringa:=stringa+readkey;
  write('*');
until Tasto=chr(13) {credo sia questo l'invio in Pascal}
Scusate se ho sbagliato qualcosa ma da quando sono passato al Delphi, il
Pascal me lo sto sempre piu' dimenticando... certe volte piazzo funzioni
del Delphi dentro codice pascal!! :)))
-- 
Salvadori Danilo
 
ilb...@tin.it

 wrote in message
37E9DCD8...@tin.it...

Grazie sono riuscito a farlo con altri mezzi...
Seba

 degli asterischi (come tutte le pass) ???
Prova con questo programma.
*****************
Program Password;
Uses crt;
Var ch:char;
      pwd: string;
Begin
Pwd:='';
Repeat;
Ch:=Readkey;
If ch<>#13 then Pwd:=Pwd+ch;
Write('*');
Until ch=#13;
End.
**************
Questo semplice programma legge caratteri dalla tastiera fino a quando non
viene premuto Invio.
Intanto tutti i caratteri vengono memorizzati nella variabile PWD.
Spero di esserti stato d'aiuto.

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

scusate se io ho una variabile string che corrisponde al nome del file da
leggere
come posso impostare l'istruzione assign?
Grazie

 wrote > scusate se io ho una variabile string che


Newsgroup: it.comp.lang.pascal
Titolo: Mi serve graph.tpu di Turbo 6

Passando il buon turbo 6 da un hd all'altro mi sono perso per strada il file
graph.tpu, saresti cosě gentile da potermelo inviare grazie !
Non conoscete un sito dove poter scaricare il turbo 7 - free ?
Grazie di tutto.

>Non conoscete un sito dove poter scaricare il turbo 7 - free ? --->Dubito
che esisti un sito, al più posso spedirtelo via e-mail... versione completa
(x Windows) 10 dischi, versione per Dos 2 Dischi (o 3)
Ciao, Matteo
rma...@geocities.com
http://rossini.home.ml.org
NB: Rispondi via e-mail per favore, (non te lo posso spedire prima di 10
giorni comunque)
Grazie, Ciao.
Newsgroup: it.comp.lang.pascal
Titolo: pascal per mac

Salve, vorrei sapere se qualcuno di voi ha un mac e dove posso trovare una
versione del pascal per questo.
 Siria. 

versione del pascal per questo.
Non ho un Macintosh, ma esiste il glorioso Think Pascal, di cui puoi
scaricare una copia da :
http://www.lysator.liu.se/~ingemar/tp45d4/think.html#WhatIs
Non so se le versioni siano aggiornate.
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

> Non ho un Macintosh, ma esiste il glorioso Think Pascal
Si lo conosco e ho provato a usarlo.
Funziona bene ma certe funzioni si fanno in modo diverso rispetto al tp.
es.
   if ... < ... then
                   begin (ci va per forza)
                     ...
                   end (senza punto e virgola)
                 else
                   begin
                     ...
                 end;
Non vi dico come ho fatto a capire che si fa cosě...
E non solo questo, per esempio la funzione ramdom...ancora non ho capito
come si fa.
Nessuno di voi sa per caso se c'č un manuale o qualcosa del genere che
spieghi come si programma con il think pascal?
Premesso che quello che danno nel sito dove si scarica il think l'ho gia
letto e non mi č stato di aiuto..
 
grazie.

spieghi come si programma con il think pascal?
Scusa, ma io credo che conoscendo il pascal non dovrebbero esserci
grosse difficolta'.  La situazione cambia, invece, se vuoi qualcosa
che ti insegni ad usare l'ambiente di sviluppo.


Newsgroup: it.comp.lang.pascal
Titolo: Cambio directory

Salve, sono "nuovo" col pascal, proprio agli inizi.
Sto cercando di imparare, ma ho bisogno di qualche aiuto.
Vorrei visualizzare l'elenco dei file presenti in una directory,
ho copiato l'esempio della guida, e i file vengono visualizzati,
uses Dos;
var
 DirInfo: SearchRec;
begin
 FindFirst('*.TXT', Archive, DirInfo);
 while DosError = 0 do
 begin
   Writeln(DirInfo.Name);
   FindNext(DirInfo);
 end;
readln;
end.
Funziona, mi vengono elencati i file della directory
corrente, ma...
...se volessi sapere in quale directory mi trovo?
...e per visualizzare i file di un'altra directory?
Grazie tante.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

 ha scritto nel messaggio
news:9cs8nk$7k7$1...@nreadA.inwind.it...


 usa il comando getcurdir
Grazie tante!

Newsgroup: it.comp.lang.pascal
Titolo: aiutino

Ciao a tutti.
Qualcuno puo aiutarmi e dirmi come faccio ad  avere in riga il seguente
listato in output:
        write('Immettere la risposta A: ');
         readln(risp[1]);
         write('Immettere la risposta B: ');
         readln(risp[2]);
         write('Immettere la risposta C: ');
         readln(risp[3]);
e non in colonna come ora? Cioč, vorrei che in output mi dia :
"Immetti le risposte:A)    ',risp[1],' B)   ',risp[2],' C)  ', risp[3]."
Come faccio?
Spike

usa writeln e non write

No, scusa...
devi cambiare readln in read.
ciao

Guarda che cosi non funziona. Mi fa inserire un solo valore e poi basta.
Potresti riprovare??
Spike


Puoi usare la funzione gotoxy (x, y) dove x č il valore della colonna, e y
della riga....
begin
clrscr;
gotoxy (1, 1);
write ('Risposta A ');
read (risp[1]);
gotoxy (16, 1);
write ('Risposta B ');
read (risp[1]);
gotoxy (29, 1);
write ('Risposta C ');
read (risp[1]);
end.
Se tutto questo deve apparire piů in basso, aumenta il valore del secondo
parametro di gotoxy()
ciao.

 Come faccio?
program TestInput;
uses crt;
const
 n_spazi = 10;
var
r1 : string;
r2 : string;
x,y: Integer;
begin
  write('Immettere la risposta A: ');
  x := WhereX;
  y := WhereY;
  readln(r1);
  Gotoxy(x+n_spazi,y);
  write('Immettere la risposta B: ');
  readln(r2);
end.
e-mail address:
Aggiungere "." tra "matteo" e "vitturi"
e togliere "-" tra "tiscali" e "net"
__________________________________________________________________
Abbonati a Tiscali!
Con VoceViva puoi anche ascoltare ed inviare email al telefono.
Chiama VoceViva allo 0143 434343
http://voceviva.tiscali.it
-- 
Posted from 
mail-4.tiscalinet.it
 [195.130.225.150] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ok, questo va bene.
Grazie
Spike

Va be, io gli avevo detto di modificare la y a suo piacimento, cmq le
domande mi sembra che siano 3 o più, quindi la x e la y devono essere
aumentate di volta in volta.
Ciao

 e non in colonna come ora? Cioè, vorrei che in output mi dia :


 writeln('Immetti le risposte: A)',risp[1],' B)',risp[2],' C)',risp[3]);
Scusa ma che centra?
Con quell'istruzione semplicemente stampi:
Immetti le risposte: A) (valore di risp[1]) Immetti le risposte: B) (valore
di risp[2]) Immetti le risposte: C) (valore di risp[3])
senza dare possibilità di input all'utente.
Ciao
Luigi

Newsgroup: it.comp.lang.pascal
Titolo: TP Lex and Yacc 4.1a

Io ero rimasto un po' disinformato...
http://www.musikwissenschaft.uni-mainz.de/~ag/tply/
Supporta anche Delphi e Free Pascal.
Ok, chi č interessato al PasMath ci dia un'occhiata.
---
Ciao
PV

 Ok, chi è interessato al PasMath ci dia un'occhiata.
li ho usati per un progetto in facoltà, se ti serve qualcosa dì pure
Newsgroup: it.comp.lang.pascal
Titolo: runtime error 105

salve a tutti,
un problema grosso: qualsiasi (e sottolineo qualsiasi) programma io scriva
col TPW 1.5 al momento del RUN (dopo aver fatto correttamente compile) mi da
"runtime error 105", sempre e comunque!!!
cosa posso fare? ho cercato con google sui precendeti post ma non ho trovato
nulla.
grazie
ivan

 un problema grosso: qualsiasi (e sottolineo qualsiasi) programma io scriva
già risolto da solo, scusate il disturbo. non so perchè ma ho solo
"reinstallato" il TPW 1.5 ed ora funziona. boh!
ivan

Newsgroup: it.comp.lang.pascal
Titolo: Dati sull'Editor del Turbo Pascal

Ciao a tutti,
chi mi da un link o i dettagli per l'editor del Turbo Pascal ?
Il 1° tipo quello che andava sotto dos
In particolare:
Colore testo
Colore sfondo
Tipo di carattere
dimensione carattere
etc etc

 chi mi da un link o i dettagli per l'editor del Turbo Pascal ?
beh, colori e font erano quelli standard del dos. non so' se esiste un 
font moderno identico a quello, ma se c'e', e' gia' in Windows (magari il 
font "system" ?). Per i colori lo stesso, puoi guardare questa pagina
ad esempio per i corrispondenti html:
 - 
http://dreadnaut.altervista.org/pascal/tp7ita/0542.html
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: [semo OT] una questione

Tanto per animare un po' sto ng, propongo questa domanda:
ma voi, a cosa lo usate a fare il pascal?
non č solo una domanda oziosa, ma mi viene il dubbio che fuori dalla scuola
sto linguaggio sia morente... spero di sbagliarmi.
Io personalmente lo uso appunto per la scuola, ma la non č che si impari
molto, quindi mi arrangio a casa, come ho sempre fatto dai tempi del
commodore64.
A voi le risposte!
Salute
Carotino


Continua cosě :-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

e invece č una specie di remix del pascal
Ho perso una "p" :-)
Mi pare proprio sia un remix... ho visto un paio di funzioni e sono
identiche :-)
