mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: CERCO MANUALE DI TUBO PASCAL 7.0

io l'ho trovato in biblioteca e lo sto usando per farci la tesi.
CIao Luigi.

 CIao Luigi.
scusate, sono nuova del ng ... potresti darmi il titolo del manuale che stai
usando?... io ho il manuale originale in inglese... ma è un po' troppo
avanzato per il mio livello.
grazie
Monia

Newsgroup: it.comp.lang.pascal
Titolo: Problema con new()

Ciao a tutti,
ho un problema con la new():
Infatti questa procedura alloca soltanto blocchi di memoria di 8 byte o
suoi multipli, ma ho la necessita' di risparmiare la maggior quantita' di
memoria possibile, come posso fare?
Grazie in anticipo per il vostro aiuto
							Massimo 

memoria possibile, come posso fare?
Non vedo quale sia il problema.
D'altronde tutte le routine di allocazione, di qualsiasi linguaggio, adottano
una tecnica simile (ovvero per multipli di 2).
Se allochi memoria dovrai pure conservare informazioni circa l'allocazione !
Non troverai mai una funzione new() che alloca 1 solo byte se 1 solo byte e'
quello richiesto.
Comunque puoi provare ad usare "getmem()", ma non ti aspettare un comportamento
diverso.
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)




Il mio proggramma di conversione è in Visual Basic
I dati sono stati immessi, probabilmente, da un programma scritto in
Turbo Pascal, che adotta, non so perche', un tipo di floating point a
48 bit, che si discosta dal normale standard ANSI/IEEE 754.
Non ricordo quanti bit possegga la mantissa, ma immagino che su 48
debbano essere molti di piu' che 11 (immagino 32).
Il fatto che mi fa pensare che siano 32 e' anche dovuto alla
constatazione che la sequenza CCCCCC20 inizia esattamente al 3^ byte
da sinistra e sino alla fine del numero esadecimale occupa esattamente
32 bit. (ma potrei sbagliarmi !)
La cosa stana, comunque, e' che il numero inizia per 8, che in binario
vale 1000.
Se devi ottenere 20,10 non ci puo' essere un 1 al primo posto perche'
esso indica un numero negativo.
Sei sicuro, poi di dover ottenere proprio 20,10 ?
Perche' in binario 20,10 e' rappresentato come 10100.1010 e
normalizzato come .101001010 * 2^5.
Mentre la sequenza 85CDCCCCCC20 equivale in binario a :
100001011100110111001100110011001100110000100000
e come vedi il numero normalizzato non compare da nessuna parte...
Newsgroup: it.comp.lang.pascal
Titolo: I NUMERI FORTUNATI PER VINCERE AL LOTTO

Sulla ruota di Milano, per caso?
( E poi dicono che la mafia sta nel Sud :-(((
--
Byez
Stefano Tempesta
temp...@tin.it
http://tempesta.freeweb.org

( E poi dicono che la mafia sta nel Sud :-(((
Da dov'erano ??? Puglia

Newsgroup: it.comp.lang.pascal
Titolo: fpc e lazarus

salve, nn ho capito bene una cosa: che relazione c'e' tra Free Pascal e
Lazarus.
qualcuno e' cosi' gentile da spiegare (anche) in breve il tutto
(vediamo se ho capito...)?
grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 (vediamo se ho capito...)?
Secondo me l'hai capito benissimo, da quanto ho visto lavori in Free 
Pascal da diverso tempo, cmq ci provo a spiegare per quelli che hanno 
appena scoperto il Free Pascal. Correggimi se trovi inesattezze ;)
Il Free Pascal è il compilatore per il linguaggio Pascal ad oggetti e 
funziona a riga di comando, disponibile per diverse architetture e 
sistemi operativi. Il Free Pascal ha un IDE simile a quello del Turbo 
Pascal per l'editing ed il debugging delle applicazioni.
Lazarus è un tool grafico, ambiente RAD, per lo sviluppo rapido di 
applicazioni che utilizza il compilatore Free Pascal e le librerie GTK+ 
per produrre applicazioni GUI, oltre ad essere un buon editor per il 
Free Pascal. Non è disponibile per tutte le architetture e sistemi 
operativi con i quali si può invece utilizzare il Free Pascal.
L'obiettivo a breve è quello di far girare Lazarus su tutte le 
architetture e sistemi operativi per i quali sono disponibili le 
librerie GTK+.
Con il Free Pascal si possono sviluppare applicazioni grafiche 
utilizzando diverse librerie, non solo le gtk: 
p.es
. si può utilizzare 
le librerie SDL per realizzare giochi, direttamente le librerie X11, le 
ncurses ecc... Ovviamente si dovrà programmare utilizzando direttamente 
l'editor e le api delle varie librerie grafiche, non è così semplice 
come utilizzare il mouse per spostare componenti su una form.
I team di sviluppo di Free Pascal e Lazarus sono diversi, anche se tra 
loro c'è una stretta collaborazione.
Ciao, Dean

Newsgroup: it.comp.lang.pascal
Titolo: stato di un tasto

Ciao a tutto il newsgroup, mi servirebbe una funzione ke mi restituisca una
volta kiamata lo stato di un tasto (se č premuto o rilasciato). Ki mi puň
dare una mano?
Grazie
Cristian


Io proverei con un semplice if keypressed, e se c'è un tasto premuto vai a 
controllare quale. Altrimenti devi costruirtela tu, non mi pare che ci sia 
in lib. standard e non l'ho mai vista in un estensione.
Spero di esserti stato di aiuto.
Ciao ciao.
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

 wrote in message
905C9708Dyup...@212.41.192.21...


 wrote in message
g2cp6.104293$Y93.2...@news.infostrada.it...


>
accludo quella scritta in asm motorola (se a qualcuno serve per il
FreePascal)
Function MyKeyPressed: Boolean; Assembler;
Asm
	movb	$1, %ah
	int	$0x16
	setnz	%al
	movb 	%al, %al
End;
Lo so che non l'avete chiesta ma l'ho trovata e ve la posto =)
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net
Newsgroup: it.comp.lang.pascal
Titolo: Una domanda......

Scusate per la mia ignoranza, ma sono un principiante nel Pascal. La
domanda č: se io ho un questo tipo di programma:
Program prova;
var a: integer;
      b,c:string;
begin
readln(a);
readln(b);
c:=???
Ecco, nel punto in cui devo assegnare il valore a c, io vorrei "unire" una
qualsiasi parola "b" con un qualsiasi numero "a", senza ovviamente che "a"
sia dichiarato come stringa (per esempio b=gigi, a=456 => c=gigi456). Come
faccio?
Grzie per qualsiasi risposta!
Ciao!
Francesco L
i3...@GIGIO.shineline.it
 (togliere GIGIO. dall'indirizzo)
                                (remove GIGIO. from the address)

Grzie per qualsiasi risposta!
Allora:
	Str(a,c);
	c:=b+c;
Che ne dici?
Ciao, Fabio
fabi...@rocketmail.com

faccio?
Devi convertire l'intero in stringa utilizzando la procedura predefinita "str"
In questo modo 
var a : integer;
    a_stringa, b, c : string;
begin
  readln(a); readln(b);
  str(a, a_stringa);
  c := a + a_stringa;
end. 
Un'utilita' maggiore per diverse applicazioni si ottiene scrivendo una routine
apposita nel modo seguente :
var a : integer;
    b, c : string;
function itos(n : integer) : string;
var s : string;
begin
  str(n, s);
  itos := s;
end;
begin
  readln(a); readln(b);
  c := b + itos(a);
end. 
 
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

end. 
Grazie per l'aiuto; penso che userò il primo metodo, in quanto sono ancora
un principiante, ed a scuola siamo appena arrivati agli array.



La procedura Str converte un numero in stringa :
var a   : integer;
    b,c,d : string;
begin
 Readln(a);
 Readln(b);
 Str(a,d);
 c:=b+d;
 Writeln(c);
end.

Newsgroup: it.comp.lang.pascal
Titolo: Costruire un Parser

Mi piacerebbe essere in grado di costruire un parser
per un piccolo linguaggio di programmazione che ho
pensato per compiere alcune operazioni sui testi.
qualcosa tipo 
Trova la prossima linea Contenente la stringa 'Numero di telefono'
se la trovi spostati 2 righe in basso e leggi la parola tra '<' e '>'
FindNextString 'Numero di telefono'
IfFound
Skip 2
Addres.GetStringBetween '<','>'
Poche istruzioni, ma con
gli If then Else e forse potrei includere anche while e for
mi trovo in grossa difficoltà.
Ho guardato degli esempi, ma il codice è piuttosto complesso è mi
trovo in difficoltà.
Più che altro mi piacerebbe conoscere l'algoritmo o gli algoritmi e le
eventuali strutture dati con cui si realizzano parser e compilatore o
interprete.

 pensato per compiere alcune operazioni sui testi.
Io ti consiglierei di leggerti un po' di documentazione su Lex e Yacc, che sono
nativi per Unix e quindi c, ma ce ne sono di versioni anche per Pascal

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
Mancano 48 ore a Capodanno!
		-- Lenny, in diretta su Radio Babboleo,
		   ore 11:25 am del 29/12/1997

bye!
Ringrazio Tutti. Appena ho un minuto guardo se č
ciņ che cerco.
Newsgroup: it.comp.lang.pascal
Titolo: Scomposizione in fattori primi

salve, volevo sapere se io ho un numero N come posso dividerlo in fattori
primi?
Intendo avere una cosa del genere:
160=2^5*5
Come posso fare? Esiste un metodo per vedere se un numero è primo?
Grazie

Oddio heheheh,
hai chiesto di testarlo.... beh...
1) non ha senso scrivere:   10 = 2^1 x 5^1;
2) Se inserisci un numero del tipo: 90545478 (rientra in un longint) il
programma si alluppa e devi riavviarlo;
3) -10 =  NON ACCETTO NUMERI NEGATIVI!!!
azz... guarda che la scomposizione in fattori non dipende dal segno...
quindi la scomposizione in fattori di un numero intero è sempre possibile...
questo andrebbe rivisto.
Cordialmente, Cooper.
PS: Ma... se usavi l'algoritmo standard per la scomposizione in fattori
senza ricorrere ai vettori etc etc... nun facevi prima? :P
Avresti risparmiato si e no un casino di tempo... solo solo nella stesura
del programma.
Comunque a parte questi bug, direi che il programma funziona.
PROGRAMMA, Testato sotto windows2000 pro... bp7 professional.

 ha scritto nel messaggio
news:tdai8.47859$_u5.1...@news1.tin.it...


 > quindi la scomposizione in fattori di un numero intero č sempre


Come complemento, posto la mia versione dell'algoritmo per la scomposizione
in fattori primi (che consiste in una sola function).
Function Primo (X: Longint; Var Flag: Boolean): String;
 Var W: String;  S: String;  P: Longint;
 Begin
  Flag := False;
  If Not (X > 0) Then Flag := True Else
    Begin
     S := ''";   P := 2;
     While X <> 1 Do
      Begin
       If Not (X mod P = 0) Then Inc (P) Else
         Begin
          Str (P, W);
          S := S + W;
          If X div P <> 1 Then S := S + '·';
          X := X div P;
         End;
      End;
    End;
  Primo := S;
 End;
(* Il programma di esempio *)
Var Err: Boolean; S: String;  N: Longint;
Begin
 Readln (N);
 S := Primo (N, Err);
 If Not Err Then Writeln (S) Else Writeln ('errore');
 readln;
End.
Esempio:
 N  = 120
 S  = '2·2·2·3·5'
Cordialmente, Cooper.
PS: L'ho abbozzato velocemente in 10 minuti quindi probabilmente ci sarà
qualche bug... ma l'importante che renda meglio l'idea di come è composto
l'algoritmo :-)
Newsgroup: it.comp.lang.pascal
Titolo: Come comandare una porta?

Salve a tutti! sono Michele e avrei una domanda da farvi: mi potreste dire o
darmi qualche risorsa on-line su come faccio a comandare (con un programma
in pascal) una porta com o anche parallela del mio computer, e in
particolare, per eccitare un relè? Grazie 1000 e nell'attesa faccio gli
auguri di buon anno a tutti!
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

in pascal) una porta com o anche parallela del mio computer, e in
Devi usare l'istruzione port [$indirizzoLPTinEsadeciamle] := dato
generalmente la porta stampante e' a 3F8h (in qualche vecchio IBM
invece e' 3BCh)
Nel seguente sorgente viene inviato un dato memorizzato nella
variabile "dato" all'indirizzo specificato nella costante
"indirizzoLPT"
Il dato va espresso in decimale (quindi fra 0 e 255):
program centronics;
uses CRT;
const 
   indirizzoLPT = $3F8
var
  dato : byte;
begin 
   clrscr;
   write ('Dato da inviare [0..255]:   ');
   readln(dato);
   port [indirizzoLPT] := dato;
end.

Come disse una persona famosa per comandare una porta basta bussare .....
e ti sarà aperto.....
Funziona. Buon 2001

 particolare, per eccitare un relč? Grazie 1000 e nell'attesa faccio gli


Ok, grazie 1000!!
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 


 ha scritto nel messaggio
news:000301c07431$0816b7e0$92531597@michy...


mi interesserebbe anche a me! 
ori...@tin.it
    grazie
Newsgroup: it.comp.lang.pascal
Titolo: Nuovo Aiuto (prenderò 9 in informatica se lo risolvo)

Ho bisogno di sapere come faccio a scrivere un programma con il TP di un
sistema di equazioni come
per esempio:
  _
 |2x+y=5
 |
<
 |8x-5y=-4
  -
Devo riuscire a scrivere la parentesi graffa grande con:
                                                        ......
writelin ('questo programma risolve il sistema "graffa" ......
Grazie.
--
raffaele...@libero.it
r.rav...@tiscalinet.it

sistema di equazioni come
<snip>
program Sistema ;
{ Andrea Laforgia 1999 }
var coeffx1, coeffy1, termnoto1,
    coeffx2, coeffy2, termnoto2 : integer ;
    det, x, y : integer ;
    procedure leggi_dati( var cx, cy, tn : integer ) ;
    begin
      write( 'inserisci il coefficiente della x : ' ) ;
      readln( cx ) ;
      write( 'inserisci il coefficiente della y : ' ) ;
      readln( cy ) ;
      write( 'inserisci il termine noto         : ' ) ;
      readln( tn ) ;
    end ;
begin
  writeln( 'prima equazione :' ) ;
  leggi_dati( coeffx1, coeffy1, termnoto1 ) ;
  writeln( 'seconda equazione :' ) ;
  leggi_dati( coeffx2, coeffy2, termnoto2 ) ;
  writeln ;
  writeln( 'soluzione del sistema :' ) ;
  writeln ;
  writeln( #32#218 ) ;
  writeln( #32#179#32,coeffx1,'x + ',coeffy1,'y = ', termnoto1 ) ;
  writeln( #32#179 ) ;
  writeln( '<' ) ;
  writeln( #32#179 ) ;
  writeln( #32#179#32,coeffx2,'x + ',coeffy2,'y = ', termnoto2 ) ;
  writeln( #32#192 ) ;
  det := ( coeffx1*coeffy2 - coeffy1*coeffx2 ) ;
  x := ( termnoto1*coeffy2 - coeffy1*termnoto2 ) div det ;
  y := ( coeffx1*termnoto2 - coeffx2*termnoto1 ) div det ;
  writeln ;
  writeln('soluzioni intere : ' ) ;
  writeln(' x = ', x ) ;
  writeln(' y = ', y ) ;
end.
--
Andrea Laforgia
andrea_...@bigfoot.com

Newsgroup: it.comp.lang.pascal
Titolo: ERROR 70: unit version mismatch

Sapreste aiutarmi a risolvere questo problema.
Mi serve per poter usare la unit APP.TPU in modo da creare una finestra di
dos.
Se potete scrivetemi
alla mia e-mail 
gmy...@tin.it
Grazie

forse stai usando le unit versione x su un tp versione y.
es stai usando le unit del tp 5.0 sul tp 7.0
ciao
Newsgroup: it.comp.lang.pascal
Titolo: FreePascal: i programmi con esso creati....

Ho scaricato la versione completa del FreePascal per Win32 e ho visto che 
anche la semplicissima applicazione d'esempio Hello, quando compilata, 
occupa ben 76 KB!! Mentre con il Turbo Pascal normale occupa un max. di 8 
KB. Qualcuno sa come configurare questo prg per creare programmi + piccoli?
Ciao!
Vi ringrazio in anticipo.
Il sorgente del programma di esempio da me creato č:
program Hello;
uses CRT;
begin
clrscr;
writeln('Hello!');
end.
Per farvi rendere conto di quanto č piccolo...ma FreePascal forse non 
conosce mezze misure ;-)

piccolo mica tanto: include comunque le unit system e crt. Prova a
rinunciare al clrscr e a ricompilarlo senza crt... dovrebbe diminuire
visibilmente.
Ciao...
Kyle


wrote:

Cioč il FreePascal non ottimizza le unit che vengono utilizate cioč
compilando e includendo nel .exe solo il codice che viene
effetivamente usato?  Il vecchio TP fa proprio questo.
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Robert wrote:

Beh innanzi tutto per compilare questo programma ti conviene usare il FP 
per DOS e non quello per Win .
Poi per generare un sorgente + piccolo devi usare l'opzione -Og (smaller 
code) a discapito di una esecuzione + veloce.
Ciao Claudio.
**************************
http://www.programmare.vai.li
 (fast url)
oppure
http://digilander.iol.it/carmageddon1
Il sito dedicato al Pascal.

Newsgroup: it.comp.lang.pascal
Titolo: Indentazione automatica

Ciao a tutti!
Allora: ho un listato pascal che dovrei indentare. Essendo oltre 4000 linee,
farlo a mano diventa molto lungo. Sapete se esistono programmi per
l'indentazione automatica?
Grazie, Aldo.

Dovresti trovare un Macintosh nel quale sia installato il "Think Pascal" il
quale identa automaticamente le linee di codice , Occhio però, visto che è
automatica e non configurabile potrebbe non piacerti, inoltre alcune istruzioni
non sono compatibili con altri compilatori pascal.
-------------------------------------------------------------------
Alex Delarge:
" 
http://www.geocities.com/SiliconValley/Campus/7397/index.html
"
-------------------------------------------------------------------


Nel mio sito:
http://freeweb.aspide.it/free/bice/Program.htm
-- 
                       \e/
  __o         __o       I
 `\<,        `\<,      `\\,
_O/O_________O/_O______O/_O_     Ciao da Bice !
Newsgroup: it.comp.lang.pascal
Titolo: File...

Voglio fare un programma che crea un file che contiene sia delle stringhe
del tipo STRING [n], sia real...
come devo fare ?
GRAZIE
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

come devo fare ?
type mio_record = record
                    case tipo : byte of
                      0 : ( s : string [50] ) ;
                      1 : ( r : real ) ;
                  end ;
var mio_file : file of mio_record ;
    r : mio_record ;
begin
  writeln ;
  { scrittura }
  assign ( mio_file, 'mieidati.dat' ) ;
  rewrite ( mio_file ) ;
  r.tipo := 0 ;
  r.s := 'leggo il numero : ' ;
  write ( mio_file, r ) ;
  r.tipo := 1 ;
  r.r := 3.141597 ;
  write ( mio_file, r ) ;
  r.tipo := 0 ;
  r.s := ' valore di pigreca ' ;
  write ( mio_file, r ) ;
  close ( mio_file ) ;
  { lettura }
  assign ( mio_file, 'mieidati.dat' ) ;
  reset ( mio_file ) ;
  while not eof ( mio_file ) do
  begin
    read ( mio_file, r ) ;
    case r.tipo of
      0 : write ( r.s ) ;
      1 : write ( r.r:10:6 ) ;
    end ;
  end ;
  close ( mio_file ) ;
end.

 
In che senso??
Stringhe e real a caso, usa il sistema proposto da Andrea.
Se invece vuoi, ad esempio, per ogni real una stringa, oppure
piu' stringhe per ogni real (o viceversa), allora e'
meglio costruire un record "myrecord" e definire il file come
	file of myrecord;
Ciao!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Qualunque sia il risultato di un esperimento, ci sara' sempre qualcuno
pronto a: a) fraintenderlo, b) falsificarlo, o c) credere che sia prodotto
in virtu' della sua teoria preferita", seconda legge di Finagle

file of myrecord;
..............................
Si infatti ho fatto così ........


 
ok.
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Per quanto nascosta sia una pecca, la natura riuscira' sempre a trovarla.",
principio di Benedict (corollario 9 alla legge di Murphy)
Newsgroup: it.comp.lang.pascal
Titolo: Comparazione di record

Non è possibile usare l'operatore "<>" fra record (TP 7.0)... allora
come si fa a comparare due record? Non bisognerà mica comparare tutti
i singoli campi, vero? :)
Regards,
        Cassa
[
http://www.geocities.com/TimesSquare/5167
, ICQ 9016231]

...


Credo che tu debba definirli singolarmente.........................
Bye Bye


Yessir :-)
Ma e' tremenda questa cosa... tra l'altro e' pure ridicola: cosa ci
vuole a chi conosce un po' di ASM a scrivere una funzione che compari
due generiche zone di memoria? Qualcosa tipo:
FUNCTION memcomp(Zona1,Zona2: POINTER; size: LONGINT):BOOLEAN;
Che si potrebbe utilizzare, anche ma non solo, nel caso in questione
passandogli due puntatori ai record da comparare piu' la dimensione
(ancora piu' facile:  SizeOf(PRec^)   ) dei record stessi.
Secondo me qualcosa del genere dovrebbe gia' esistere, qualcuno ne ha
notizia?


...
Credo che tu debba definirli singolarmente.........................
Bye Bye
In cche ssčnzo?? :-)
bye bye anche a te



Notizie precise no... però presumo che sia stata inserita la possibilità di
creare operatori (in C++) per facilitare la scrittura del codice... finché
hai da fare un'uguaglianza dovrebbe andare tutto ok, ma già sommare 2 record
può risultare complesso (dipende dai record) :-)
Ciao


In effetti col C++ si possono (ri)definire gli operatori, ad esempio il '>'
o l'='.
Tuttavia vi è una differenza notevole tra i due linguaggi nel fatto che nel
C++ gli operatori si definiscono tra classi e non tra record (che nel C si
chiamano struct).
Questa possibilità viene, quindi, dalla programmazione ad oggetti.
Ovviamente vi è un motivo se non è permessa la comparazione di due record.
Supponiamo di avere due record, A e B, dello stesso tipo.
Supponiamo ancora che abbiano due variabili intere min e max e, infine, che
abbiano al loro interno un puntatore ad una lista (campo lista).
Come definiamo l'uguaglianza di A con B?
Ci sono due modi:
1) A è uguale a B se A.min=B.min, A.max=B.max e A.lista=B.lista
2) A è uguale a B se A.min=B.min, A.max=B.max e la lista puntata da A.lista
è uguale a quella puntata da B.lista (cioè contengono gli stessi elemnti
nello stesso ordine)
La 1) e la 2) sono diverse. Nel primo caso la lista è unica, ma puntata da
due puntatori (uno appartenente ad A ed uno appartenente a B). Nel secondo
caso le liste sono due, ma contengono gli stessi elementi.
A prima vista le due situazioni sono equivalenti ma, ovviamente non è così..
Quale definizione è quella corretta?
Non esiste: è una questione di definizione.
In un linguaggio didattico (vedi Pascal) certe ambiguità vanno risolte di
volta in volta dall'utente.
Ecco il motivo per cui non esiste la possibilità di confrontare due record.
Scusate se sono stato un tantino prolisso...
-----
  Alessandro Caproni
 
cap...@cifra.it
 
cap...@cli.di.unipi.it
    home page: 
http://www.cli.di.unipi.it/~caproni/intro.html


Già :-)

Newsgroup: it.comp.lang.pascal
Titolo: Cerco programmino di grafica in TP7!

Dovrei fare un prog. che permetta di fare facili operazioni di grafica
utilizzando la graph.tpu. Il prog. dovrebbe permettere di scegliere il
colore da utilizzare, disegnare puntini, tracciare linee, cerchi  e
rettangoli in maniera semplice e veloce. Prima che inizi a farlo io, c'è
qualcuno di voi che lo ha già fatto? Se me lo inviate, mi risparmio di
perderci tempo.
Spero in un vostro aiuto.
Ciao da FABIO!
P. S. Fate presto perché la sera del 16/7 devo partire!

rettangoli in maniera semplice e veloce.
Questo interessa anche a me.In particolare vorrei sapere la sintassi
di 3 o 4 comandi (i + utilizzati) che si possono usare con la unit
graph.tpu
Grazie.
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

Ho fatto il mio programmino.
La sua utilità stà nel fatto che mentre voi disegnate lui memorizza in un
file dat le istruzioni di grafica necessarie a fare quel disegno. In pratica
addio ai noiosissimi calcoli di coordinate da far combaciare per fare i
disegni in grafica.
So di non essermi spiegato molto bene, comunque se siete interessati
scrivetemi e ve lo manderò volentieri (magari potete anche migliorarlo),
credo che potrebbe esservi utile se vi mettete a smanettare con la
graph.tpu.
Ciao da FABIO!

 wrote in message
37CAC9D6...@tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: String

Avrei una domanda da farvi. Ho provato, con successo, a gestire
l'inserimento di una variabile string, carattere per carattere. Il fatto č
che, negli eventuali output successivi, per visualizzare la variabile,
ripeto, di tipo string, devo scrivere un ciclo "for", non posso quindi fare
un output normalissimo.
Guardate il codice:
program prov;
uses crt;
const carmax=8;
var nome:string[30];
    i:byte;
    risp:char;
begin
  clrscr;
  repeat
  write('Nome: ');
  for i:=1 to carmax do
    begin
      nome[i]:=readkey;
      write(nome[i])
    end;
  repeat
  writeln;
  writeln('Confermi il nome? (S/N)');
  risp:=upcase(readkey);
  if (risp<>'S') and (risp<>'N') then
     writeln('Inserire ''S'' o ''N''');
  until (risp='N') or (risp='S');
  writeln;
  until risp='S';
  clrscr;
  write('Ciao ');
  for i:=1 to carmax do
    begin
      write(nome[i])
    end;
  writeln(', buongiorno!');
  readkey
end.
Il programma, funzionante, limita la variabile al numero di caratteri
stabilito dalla costante "carmax". Come potete vedere, nell'output, ho
dovuto fare un ciclo "for", perchč non posso fare un semplice:
writeln('Ciao ', nome, ', buongiorno!'); ?
Ho provato, ma non si visualizza niente...
Soluzioni?
Ciao e grazie!
Filippo

se assegni ad una stringa dei valori carattere per carattere (come se fosse
un vettore) non puoi usarla come una normale stringa. E' assurdo ma per i
progettatori del Pascal è così e non possiamo fare niente.
Io ho sempre imparato a trovare le soluzioni alternative senza mai fermarmi
davanti ad un ostacolo. Te ne suggerisco qualcuna ma rispondimi per dirmi
qual è la migliore:
- per leggere i caratteri di input usa un vettore di caratteri ed alla fine
assegna il vettore alla stringa:
- se utilizzi sempre la stringa, prova ad usare le funzioni di
concatenamento della stringa, cioè alla fine del for di input, esegui un
altro for che faccia la seguente cosa: for i := 1 to <contatore caratteri in
input> do stringa_secondaria := concat(stringa[i])  ed utilizza la
seconda_stringa
Adesso non ho il Turbo Pascal davanti e non posso provare ciò ma non ti
arrendere mai alle prime difficoltà. Inoltre ricorda che l'interfaccia
utente a volte vale più dell'elaborazione stessa del programma e gli altri
apprezzano di più un programma che esteticamente si presenti bene invece di
uno che non sia curato tipo Windows, a parità di efficenza di elaborazione.
Se hai bisogno scrivimi direttamente a 
danilog...@tiscalinet.it

 assegna il vettore alla stringa:
Direi questa!
Ciao!
Filippo

 dovuto fare un ciclo "for", perchè non posso fare un semplice:


> dovuto fare un ciclo "for", perchč non posso fare un semplice:



ehm... come non detto... stava bene prima... >=)))))


Newsgroup: it.comp.lang.pascal
Titolo: Icona all'eseguibile

Salve, utilizzo Turbo Pascal 7 e volevo sapere come faccio a mettere
un icona all'interno del mio eseguibile compilato col Pascal.  Voglio
far sparire quella sorta di icona a finestra che windows 95 da a tutti
gli eseguibili compilati con il Pascal (ovviamente non solo a
questi!!!). e personalizzarlo con una che mi piace di +.
Grazie
 K'z

...

Newsgroup: it.comp.lang.pascal
Titolo: scambio matrice

Ciao, qualcuno mi potrebbe aiutare a fare un listato per scambiare le righe
con le colonne di una matrice. Es. data matrice di 4 x 4 scambiare riga 1
con colonna 1 e cosě via.
Grazie mille
Paolo R.

 ha scritto nel messaggio
news:aoce8b$k1g$1...@lacerta.tiscalinet.it...

For i = 1 to nrighe do
   for j= 1 to ncolonne do
      trasposta[j,i] = matrice[i,j];

Newsgroup: it.comp.lang.pascal
Titolo: Strano problema di divisione per zero

Ciao a tutti,
ho appena cambiato computer e reinstallando il Turbo Pascal (versione 7) mi
sono trovato davanti ad uno strano problema: il programma si avvia
correttamente e funziona bene sinche' non provo ad usare il comando "run". A
quel punto, dopo qualche istante in cui sembra funzionare, il PC torna alla
finestra dell'editor e mi da il messaggio: "division by 0" (che credo sia il
numero 200). Fa la stessa cosa con ogni programma (sia i miei, che prima
funzionavano, che con quelli di esempio inclusi nel software).
Il mio PC e' composto da un PII 266 MHz, motherboard Intel (440 LX),
controller Adaptec 2940 UW SCSI, Diamond Viper e Win95 (osr 2.1). Scrivo
questo perche' mi e' venuto il dubbio che dipenda dall'hardware.
Grazie anticipatamente per ogni suggerimento.
Ciao
Danilo


----------
ATTENZIONE! rimuovere NOSPAM per rispondere in e-mail
WARNING! remove NOSPAM to answer by e-mail
-------------

...


...


Newsgroup: it.comp.lang.pascal
Titolo: Non trovo la funzione giusta

Sembrerà banalissimo quello che vi chiederò, ma per chi come me è alle
prime armi, allora qualche aiutino non si nega: come faccio a
convertire una variabile string in una di tipo char?
Non sono soddisfatto di come TPASCAL 6.0 per DOS gestisce la memoria
per i programmi (anche di tipo grafico): conoscete uno spezzone di
codice che mi permette di gestire la memoria a modo mio sfruttando i
256 MB che ho nel mio computer (non so neanche come rilevare la q.tà
di memoria installata nel mio computer!Sempre in TPASCAL 6.0 per DOS)?
Ciao! Spero di non chiederVi troppo! Rispondetemi presto!
+Vi ringrazio anticipatamente+

256 MB che ho nel mio computer
Come mi hanno risposto qualche post fa, sotto dos non puoi accedere a tutta
la memoria: sei limitato ai 640K!

+Vi ringrazio anticipatamente+
con le crocettine mi sa' di funebre ;-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 la memoria: sei limitato ai 640K!
Permettimi di contestare questa affermazione.
Con Il BP7 compilando in modalita' protetta puo' arrivare a "ben" 40 Mbyte
(circa)(su un sistema che ne ha 128), usando ovviamente l' HEAP , altrimenti
ogni SEGMENTO e' al massimo di 64 Kbyte.
 Basta montare correttamente emm386 ed altre amenità simili... (sotto DOS
puro)
Ciao ;-)
Per rispondere togli SPAMMATISULPANE dell' indirizzo

Avevo sentito... soprattutto perche' con il BP si puo' anche
lavorare in dpmi, e quindi evitarsi molti problemi (anche quelli dei
64kb utilizzando delle specie di puntatori 'far' )
Narra la leggenda che esista un Borland Pascal 8.5...
qualcuno lo ha mai visto ?  sarebbe la gioia di un uomo distrutto :-))

Newsgroup: it.comp.lang.pascal
Titolo: program ASCII

Ciao a tutti,
ho compilato questo programma che stampa ad ogni pressione del tasto 'invio'
il rispettivo carattere ASCII da 1 a 255 !!
Vorrei sapere se è possibile modificarlo facendo visualizzare all'utente il
carattere ascii corrispondente al numero che egli introduce, non in ordine
numerico come quello che ho creato io.
E' possibile fare una cosa di questa ???
Grazie.
--------------------------
program Codici_ASCII;
uses crt;
var n:integer;
begin
TextColor(12+16);
writeln('                           PROGRAM ASCII');
TextColor(7);
writeln('                           ---------------');
TextColor(10);
writeln('      Spampa del carattere ASCII corrispondente per ogni valore
assegnato');
writeln('                   Premere invio dopo ogni carattere');
       for n:=0 to 255 do
       begin
         TextColor(14);
         writeln(n,'',chr(n));
         readln;
       end;
end.
--
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

 ha scritto nel messaggio
news:r1yU5.2173$CH3....@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Kylix

E' un delphi per Unix? Se sě, si puň scaricare?
-=Azathoth=-

Mi rispondo da solo: è la versione linux di delphi, non anciora pronta e
comunque a pagamento :-)
-=Azathoth=-
Newsgroup: it.comp.lang.pascal
Titolo: contatore

Per dire in Pascal
b:=0;
for i:= 1 to length(f) do
b:= " "+1
writeln('gli spazi bianchi sono',b);
--------------------------------
Inviato via 
http://usenet.libero.it


Non si capisce bene cosa cerchi... Puoi riformulare la domanda?
Ciao

writeln('gli spazi bianchi sono',b);
Se non ho capito male, vuoi contare gli spazi dentro la stringa f ?
b := 0;
for i := 1 to length(f) do
	if f[i] = ' ' then b := b+1;
writeln('gli spazi bianchi sono', b);
-- 
La storia insegna che la storia non insegna nulla.
http://web.tiscali.it/mbsoftware

Newsgroup: it.comp.lang.pascal
Titolo: Info ( domande banali )

Qualcuno può dirmi come faccio a memorizzare delle domande e delle risposte
e poi a memorizzare la sola risposta giusta?
Come si fa poi a richiamare l'intera sequenza di domande e risposte?
Io avevo abbozzato una parte del programma ( eccolo qua sotto): un po
rudimentale......
program test;
uses crt;
var domanda,risp1,risp2,risp3: string;
    n,i:integer;
Begin
 clrscr;
 write('Quante domande vuoi immettere? ');
 readln(n);
 writeln;
  for i:=1 to n do begin
  clrscr;
  writeln('Immettere la domanda: ');
  readln(domanda);
  writeln('Immettere le possibili risposte: ');
  readln(risp1,risp2,risp3);
  writeln('La risposta esatta è: ');
  readln;
  write('premere invio...');
 end;
End.
Mi dite anche a che serve la funzione FillChar?

End.
Mmm non
so se la sintassi e' corretta.
--------------------------------
Inviato via 
http://usenet.iol.it
 

Inviato via 
http://usenet.iol.it
 
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: cannot run.. ...please

Salve a tutti e ancora grazie 1000 per tutti i consigli che mi avete dato,
non vorrei ancora scocciarvi ma in alcuni programmi negli examples del tp7
quando provo ad eseguirli mi esce: Cannot run a unit. Perchč?
Grazie infinite e CIAO!!
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000601c074bb$f922fce0$75ef1597@michy...

Newsgroup: it.comp.lang.pascal
Titolo: Runtime error 205

Nell' esecuzione di un programma di calcolo numerico mi trovo il 70/80%
delle volte di fronte ad un RUNTIME ERROR 205 , qualcuno saprebbe spigarmi
il perchè ?
Grazie 1000 !!!

 Grazie 1000 !!!
Dalla guida del TP7:
A floating-point operation produced a number
too large for Turbo Pascal (or the numeric
coprocessor, if there is one) to handle.
in pratica i numeri generati sono troppo granbi da gestire...
non posso dirti di piů sensa il listate dei programmi.. e senza vedere 
le opioni di compilazione...
-- 
IL RAZZIATORE,
The Only good Windows is an Unistalled Windows
-----------------------------------------------------
EMAIL: 
razzi...@usa.net
WEB:   
razziatore.dsx.org
 sito in aggiornameto/alestimento
ICQ:   67552596


wrote:

Prova a dichiarare tutte le variabili real come double o addirittuta
extended, ricorda di aggiungere la direttiva {$N+,E+}
Obi-Wan, non concentrarti sulle tue ansie, mantieni la tua attenzione
solo sul momento presente e sulla forza vitale - Qui Gon Jinn

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

Ciao a tutti, ho da poco tempo ripreso il pascal, qualcuno mi puo
consigliare qualche tutorial on-line su come scrivere una classe o come
usare una classe gia esistente. Uso freepascal come compilatore.
Thanks

Vastiu ha scritto:

oltre google:
http://www.turbo-pascal.cjb.net/
http://www.pascallike.too.it/
http://dreadnaut.altervista.org/pascal.php
 ;)
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

"Vastiu" <freevoyager@NOSPAM_gmail.com> ha scritto nel messaggio 
news:q7kq35-...@server.home...

Il nome non lo conosco comunque cerca su google:
Pierotofy Pascal  --> Una guida completa è molto molto ottima
C'è anche una guida di Mariano Bono, tutorial sul pascal
ma non so se ci sia ancora
Personalmete sconsiglio le guide di giobe2000, non spiegano quasi niente, e 
non sono altro che una raccolta in codice assembly, è utile, ma così 
utilizzi un programma che non è più tuo, inoltre ci sono problemi di 
compatibilità etc.
Per quanto riguarda la scelta del freepascal, io ho dei problemi a 
utilizzare l'unità grafica, quindi consiglio il turbo, ma alla fine comunque 
non cambia troppo.
Per qualunque chiarimento, consiglio etc. puoi comunque chiedere a noi. 

Vastiu ha scritto:

Grazie a tutti.
Newsgroup: it.comp.lang.pascal
Titolo: Cercare stringhe

Ciao a tutti,
esiste una istruzione che come il "pos" mi cerchi una stringa all'interno 
di un'altra stringa, ma che non sia case sensitive?
Grazie, Mario

No. La ricerca è case sensitive.
L'unica soluzione è crearla ex novo.... per esempio trasformando le 
stringhe in maiuscolo.
Function UpString(S : String) : String;
Var
   I : Integer;
Begin
   For I := 1 To Length(S) Do S := UpperCase(S);
   UpString := S;
End;
Ora puoi chiamare la funzione pos in questa maniera
Posizione := Pos(UpString(S1), UpString(S2));
Ciao,
David

Scusa la fretta....
il ciclo è
For I := 1 To length(S) Do S[I] := UpCase(S[I]);
Ariciao,
David

Newsgroup: it.comp.lang.pascal
Titolo: Impulsi in input dal microfono.

Ciao, sono uno studente di informatica e vorrei sapere come fare a prendere
in input per un programma Pascal o C degli impulsi provenienti dal microfono
del pc.
Quello che mi interessa maggiormente e riuscire a carpire la frequenza di un
insieme di impulsi, o meglio voglio ad esempio che ad ogni impulso mi scriva
un # sullo schermo, č possibile fare tutto ciň?
Per maggiori informazioni potete scrivermi 
ric...@freemail.it
 io posso
mandarvi un esempio registrato degli impulsi che devo recepire e l'immagine
dell'onda di un impulso.
Spero davvero che possiate aiutarmi.
Grazie tante anticipatamente.

Prova a cercare su google il codice di qualche equalizzatore grafico in
c.....

beh dipende molto dal s.o.  linux ci sara' un device da qualche
parte, quindi non dovrebbe essere complicato... anche sotto
win dovresti poter essere indipendente dall'hardware, se invece
sei sotto dos schietto allora  devi interfacciarti tu con l'hw...
in c potresti trovare il 'cthugha' che aveva src pubblici
--
Dreadnaut
(Life would be easier if I had the source code)

>it.comp.lang.c++,it.comp.lang.pascal,it.comp.programmare
me*da, ci sono cascato... perche' la gente fa sempre xpost ? :-)


Windos, si dovrei farlo con windos, come posso fare?
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:lded8.3921$fa5.1...@twister2.libero.it...


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





raga, non so dove trovare qualcuno che si intenda di dreamweaver..


qualcuno di voi sa a chi posso rivolgermi????


 


grazie a tutti..


 


ps: ciao carletto
-- 


kiakim



mi sembra un pochino OT!
NM

 mi sembra un pochino OT!
lo so, ma non so a chi altro rivolgermi...
sorry per l'OT..
---
kiakim
Newsgroup: it.comp.lang.pascal
Titolo: esercizio strano :(

utilizzando come algoritmo di ordinamento l'insertion sort oppure il
merge sort,
dovrei fornire un implementazione in pascal di una procedura che
effettui l'ordinamento di una lista;
Inoltre non posso modificare i puntatori della lista.
Dopo aver impiegato 2 giorni di tentativi, non sono riuscito neanche a
creare una bozza da postare e per questo
non mi rimane che chiedere un aiuto a qualcuno che sia + competente di
me nella programmazione in pascal .
grazie per l'attenzione.
claudio

 ha scritto nel messaggio
news:53fe2dba.02110...@posting.google.com...


reti
sei perdonato :D
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 sei perdonato :D
TNX
ReDiCuori

Newsgroup: it.comp.lang.pascal
Titolo: Comando Exec sotto Windows

Ho dei problemi ad utilizzare il comando exec sotto W95
se non modifico lo stack (direttiva {$M $4000,0,0 } ) 
il programma rispode dicendo che non ha sufficiente memoria;
se lo modifico un qualche strano conflitto mi blocca tutto.
Premetto che non so cosa modifico con il parametro {$M $4000,0,0 }, ma l'ho
trovata nell'help per poi amaramente scoprire che sotto winsozz 95 non
funziona
grazie in anticipo
bra...@tin.it

E tu programma in DOS... se usi il TP7.0, l'hanno fatto quando ancora
windows 95 non esisteva... come potevano renderlo compatibile!!??
Bye
--
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
VICINI ha scritto nel messaggio <01bd9e92$84d669a0$6d8ad8d4@roberta>...


funziona
La direttiva $M serve ad impostare la quantità di memoria sufficiente al
programma per lavorare.
$4000 è la misura (in esadecimale) dello stack da riservare per il programma,
mentre i due numeri seguenti sono nell'ordine le quantità minima e massima della
memoria heap.
Il fatto che non funzioni sotto win 95 deriva probabilmente da un conflitto di
gestione della memoria tra i due sistemi.
Andrea Laforgia
----------------------------------------------------------------------
Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)
Newsgroup: it.comp.lang.pascal
Titolo: Domande da newbye...

Ho 4216 domande da afrvi, ma mi limiterò a quelle che mi serve sapere
per adesso, ovviamente riferite al Turbo Pascal 7.0. 
1) Se voglio stampare una frase "fissa" e quindi madare in stapa su
Ltp1 una determinata frase x un tempo indeterminato come posso fare? 
Sto studiando è l'istruzione dovrebbe essere simile: 
- WRITELN(LST'La variabile che hai inserito è',A); 
ma non mi funziona, MI DICE CHE L'IDENTIFICATORE (lst) E' SCONOSCIUTO.
Come risolvo? Come rendere infinito il ciclo di stampa? 
2) Come faccio a nascondere il testo digitato dall'utante che poi sarà
il valore della variabile? 
es. 
WRITELN(Inserisci il tuo Nome: '); 
READLN(A); 
quando l'utente digitera il nome questi sarà visibile a schermo, io
vorrei che apparissero degli asterischi come segnaposto, qualè il
comando? 
3) Cosa sono le Unit e come posso sfruttarle? 
In TP7 molti esempi sono di tipo Unit e non possono essere runnate, in
che modo posso testarle x capire cosa fanno? 
GRAZIE.

 che modo posso testarle x capire cosa fanno?
Hai provato a eseguire i tipo Program? :-))
Ciao
 Max

 Mi faresti un esempio?
program prova;
uses printer;
var t:text;
      r:string;
begin
  assign(t,'prova.txt);
  while not eof(t) do
  begin
    readln(t,r);
    writeln(lst,r);
  end;
end.
Questo apre il file prova.txt e lo stampa su lpt1:
Ciao
 Max

Newsgroup: it.comp.lang.pascal
Titolo: FF: irc.. cosi' per fare...

se c'e' qualcuno che non sa' cosa fare... io tengo
una finestra aperta su #turbopascal (
irc.tin.it
 e linkati)
questa sera... chissa..
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)



Vado a vedere con 2 ore e mezza dopo e non ci sei....
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

> Vado a vedere con 2 ore e mezza dopo e non ci sei....
hhiihi in effetti... cmq ogni tanto si potrebbe fissare qualche
appuntamento su irc, cosi' anche per fare due chiacchiere
a vuoto :-)


 hhiihi in effetti... cmq ogni tanto si potrebbe fissare qualche
 appuntamento su irc, cosi' anche per fare due chiacchiere
a vuoto :-)
Io sarei d'accordo (scusate per l'intromissione....)
Newsgroup: it.comp.lang.pascal
Titolo: Gestione file con FPC 2.0

Salve NG.
Sono un nostalgico del vecchio buon Turbo Pascal (che ho studiato ai tempi 
del liceo) ed ho riscoperto oggi con piacere FPC.
Ho deciso di farmi un programmino che dato il numero di pagine di un 
documento crea la sequenza di stampa delle pagine da immettere nelle opzioni 
di stampa per ottenere un fascicoletto in formato A5.
Il punto fondamentale è che sono riuscito ad avere l'eseguibile che gira in 
dos ma non permette di copiare ed incollare la sequenza...costringendomi a 
"trascriverla".
Vorrei fare in modo che pascal restituisse in file testo in cui fossero 
presenti le due sequenze (fronte e retro).
Ho qualche nozione di I/O su file datami da un vecchio testo 
("programmazione in turbo Pascal David W. Carroll) ma i pochi ed infruttuosi 
tentativi mi conducono sempre ad un errore (in Lazarus) descritto così: 
Project raised exception class 'RunError(103)'.
Sapete darmi qualche link utile per capire un po' meglio come utilizzare i 
file?
Grazie a chiunque si interessi del mio caso.

( mauro - news:6zGQe.115902$
fm.76...@news4.tin.it
 )

L'errore 103 e' quello di file non aperto, quindi avrai cercato di 
scrivere su file senza aver utilizzato Rewrite.  Puoi trovare un esempio 
per scrivere su file nella documentazione del freepascal:
http://community.freepascal.org:10000/docs-html/rtl/system/assign.html
Un'altra possibilita' e' quella di non modificare il programma e 
lasciare che scriva i numeri in output normalmente, e lanciarlo con una 
redirezione, i.e.:
c:\>tuoprog 100 > sequenza.txt
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 redirezione, i.e.: c:\>tuoprog 100 > sequenza.txt
Soluzione interessante ma meno "pratica". (se proprio non mi riesce di 
utilizzare la gestione file)
Il pezzo incriminato è questo:
 rewrite(filetesto);
 assign(filetesto,'c:\sequenza.txt');
 write(filetesto,sequenza1);
 write(filetesto,sequenza2);
Dove sequenza1 e sequenza2 sono variabili "string" in cui sono memorizzate 
le due sequenze.
L'errore 102 sembra legato all' "assign".
Grazie per il link! ;-) 

"mauro"
PS: filetesto č un file di tipo text (file of char) 

  assign(filetesto,'c:\sequenza.txt');
ehm... prima assegni il nome del file a filetesto, -poi- lo puoi aprire !
le due istruzioni vanno invertite :) 


 le due istruzioni vanno invertite :)
Ops...sono proprio una frana.
Grazie mille... 

 le due istruzioni vanno invertite :)
Funzionaaaaaaaaaaaaaaaaaaa!!!
PS: ho scoperto anche che per far si che il file oltre ad essere creato 
contenga dati...bisogna chiuderlo!! [ close(file) ] :-p
Che pignolo sto turbo pascal! :-D
Grazie ancora di tutto!
Newsgroup: it.comp.lang.pascal
Titolo: Ancora Irc-Pascal e Sito

Dunque,
ho letto tutti i post e registrato le mail.
Salvo ti ho scritto una mail.
Per tutti gli interessati: ci Vediamo Mercoledi 14/02/2001 sul canale
#turbopascal.
Per ReDiCuori: Ottimo l'aiuto con i Bot ci voleva propio :)
Ora ciao a tutti.
Roberto
Scrivetemi pure a: 
sat...@cybergal.com
Il mio Nick e`: SatURnO

 ha scritto nel messaggio
news:s%Zh6.57486$GM6.2...@news.infostrada.it...


Scusate, se mi capitasse di passare, a che ora ? :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
P.S. indovinate qual'e' il mio nick :-))