mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Troppi Controlli.... Come li elimino?

Durante queste brevi vacanze dovevo scrivere un programma che generasse 90
numeri casuali (tipo l'estrazione del lotto) che non accettasse doppioni.
Dopo un po' cominciai a scrivere questo programma che teoricamente è giusto
ma praticamente.... esegue più di 10 miliardi di confronti e ancora non
riesce ad uscire dall'algoritmo, non per loop infinito ma, pechè non riesce
a generare casualmente i numeri che rimangono per riempire l'Array.
Vi invio il sorgente di questo programmino e spero che riusciate a darmi una
spiegazione o almeno una correzzione....
P.s.: Non uso il Randomize prima del Random perchè con il mio Celeron a 433
MHz il Random mi genera un Array di valori tutti uguali.... ;-)
----------------------------------------------------------------------------
----------------------------------
{ Programma Generatore di 90 numeri Random e non accetta doppioni }
Program No_Doppioni;
Uses Crt;
Var I , K : Integer;
    B : Boolean;
    V : Array [1..90] of Integer;
Procedure Evita_Doppioni;
Begin
 For I := 1 To 90 Do
  Begin
   Repeat
    B := True;
    V[I] := Random(90)+1;
    K := 0;
    While ( I > K ) And B Do
     Begin
      If V[I] = V[K] Then B := False;
      K := K + 1;
     End;
    If not B Then Randomize;
   Until B;
  End;
End;
Begin { *Main* }
 ClrScr;
 Writeln('Programma che genera 90 numeri Random e non accetta doppioni');
 Writeln;
 Writeln('Premere un tasto per continuare');
 Readln;
 Evita_Doppioni;
 For I := 1 To 90 Do Write(V[I]:5);
 Writeln;
 Writeln;
 Writeln('Premi un tasto per continuare');
 Readln;
End.
----------------------------------------------------------------------------
----------------------------------
ste...@libero.it

 ha scritto nel messaggio
news:bk_46.239078$hk4.11...@news.infostrada.it...



... ma che che serve generare 90 numeri (senza doppioni) compresi tra
1 e 90???
for i:=1 to 90 do write(i);
ecco fatto =)
se poi il prog deve mettere dei numeri in ordine sparso è un'altro
discorso
P.S. ma il lotto non estrae solo 5 numeri per ruota???


cosi' estraendo 10 volte numeri gia' estratti si otterranno solo 80
risultati =(

 risultati =(
Io non l'ho provato ma mi sembra buono perchč estrae solo 80 numeri se
estrae 10 volte numeri gią estratti ?
Ciao Re Di Cuori


sorry...
mi sembrava che l' i=i+1 fosse fuori dal ciclo
la prox volta staro' + attento =)

 P.S. ma il lotto non estrae solo 5 numeri per ruota???
Questo programma essenzialmente serve ben poco, quello che mi interessava
era sapere se esisteva un modo + efficente del mio per il controllo.
Il metodo suggerito da ReDiCuori funziona, basta apportare un paio di
modifiche altrimenti il compilatore segnala errore, ed è motlo + veloce del
mio codice.
Grazie a tutti
ste...@libero.it
P.S.: Spero che se avrò altri problemi potrò rivolgermi ancora a voi...
Newsgroup: it.comp.lang.pascal
Titolo: [infoIRC] Correzione www.pascalonline.it

Ciao a tutti,
sono SatURnO, volevo farvi sapere che il sto non costera` L.240.000 bensi
L.140.000.
Caratteristiche:
.Dominio: 
www.pascalonline.it
.20 Mb (li possiamo aumentare al costo di L.1000 a Mb)
.20 mail (le possiamo aumentare al costo di L.1000 a mail)
.Traffico Illimitato
.Supporto Real Audio e Real Video
.Supporto Java Servlets
.Supporto MySql
.Supporto SSI
.Supporto PHP3 o 4
.Supporto CGI
Roberto SatURnO

.Supporto CGI
CGI o CGI-BIN? La diferenza è essenziale... se è CGI-BIN accetta anche
file .exe fatti in diversi linguaggi... tra cui anche il pascal
(Delphi)
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

 Non conosco...
Forse era SSL (Secure Server Layer)?

 - ICQ#91902715
www.pascalonline.f2s.com
il sito ufficiale di it.comp.lang.pascal
per collaborare vieni sul canale IRC #turbopascal


oppure FreePascal, perchč suppongo che con PHP/MySQL si tratti di
server unix/linux (SPERO che sia server unix/linux...)



o forse IIS (Internet Information Server)
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

Newsgroup: it.comp.lang.pascal
Titolo: Quanta gente ...

Non mi collegavo da molto in questo news .... ma cosa è successo?
Prima c'era un bel po di gente ,,, coma mai non ci sta più molta gente ?
-- 
Mariano Bono
http://marianobono.alterivista.org
http://marianobono.alterivista.org/pascal
 -- materiale sul pascal
http://marianobono.alterivista.org/pascal/tutorial
  -- tutorial sul pascal

 Prima c'era un bel po di gente ,,, coma mai non ci sta più molta gente ?
Appena lo scopri me lo fai sapere?
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 
Appena torna DoNascimiento lo chiedo a lui ... ^_^
-- 
Mariano Bono
http://marianobono.altervista.org
http://marianobono.altervista.org/pascal
 -- materiale sul pascal
http://marianobono.altervista.org/pascal/tutorial
  -- tutorial sul pascal
Newsgroup: it.comp.lang.pascal
Titolo: CREARE UNO SPRITE

Come potrei (con che programma eventualmente) creare uno SPRITE e magari
tentare di muoverlo....
Per es: immaginiamo che io voglia creare un ometto che muove una gamba....da
dove comincio ????
Help Me Please....
Ciao e grazie
-=Mela=-

dove comincio ????
Suppongo che tu stia utilizzando il Turbo Pascal.
Gli sprite non sono altro che matrici di pixel colorati.
E' per questo che va bene definirli come 
type sprite = array [1..16, 1..16] of byte ;
per avere uno sprite da 16x16 pixel con 8 bit di profondita' per il
colore.
Definisci i vari fotogrammi di uno sprite come costanti e non ti resta
altro che scriverli in memoria video con le routine adeguate...
--
Andrea Laforgia
andrea_...@bigfoot.com

Puoi farmi un esempio ???


Dovresti cercare delle librerie grafiche per il linguaggio di programmazione che
stai usando: anche se potresti in teoria
definire matrici di pixel da stampare su schermo con cicli for annidati:
(esempio in pascal)
y,x : contatori interi
dimensionex,dimensioney : le dimensioni in pixel dello sprite
Coloretrasparenza : indice del colore da bucare
PosX,PosY : le posizioni iniziali dell'angolo in alto sx dello sprite
for y := 1 to dimensioney do
 for x := 1 to dimensione x do if Sprite[y][x] <> Coloretrasparenza then
Putpixel(PosX+x,PosY+y,Sprite[y][x]);
Questa soluzione è però così poco efficiente che non ti consiglio di utilizzarla
se non per scopi didattici:
Il meglio secondo me è costituito da DJGPP V2 + Allegro (la migliore libreria
DOS/LINUX/DIRECTX per la gestione di
applicazioni multimediali / Giochi, completamente free):
trovi tutto su qualsiasi mirror SimTel!
Ciao
 - Pietro -

Newsgroup: it.comp.lang.pascal
Titolo: aiuto per write

Qualcuno sa se c'è un modo per scrivere un carattere e non far avanzare il
cursore alla posizione successiva? Grazie per un'eventuale risposta.

cursore alla posizione successiva? Grazie per un'eventuale risposta.
GotoXY?
-- 
extrabug


una soluzione potrebbe essere 
Write('C', #8); dovrebbe fare al caso tuo...


Potresti usare la funzione gotoXY assieme WhereX e WhereY che ti
restituiscono le coordinate correnti del cursore.
--
ciao, Igor
If you want to write me, delete
 _NOSPAM_ from the address

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

Io uso il Pascal per scuola.
La professoressa che me lo insegna insegna pure matematica.
Io in matematica vado male ma il Pascal vado bene, solo che la professoressa
mi ha contato solo i voti di matematica...

E cosa centra.... prova in it.pro.blemi

Oppure prova It.fan.culo (senza offesa)

anche it.fan.culo.tu
Newsgroup: it.comp.lang.pascal
Titolo: Programmatori o Studenti?

Ciao passavo di qua e cosģ...
ma vi domando: usate Pascal perchč siete studenti (o pe ri fatti
vostri) o qcuno riesce anche a lavorarci?
Io ho usato il mitico TP dalla versione 4.5 alla 7.0, ne sono uscite
di nuove?
Ciao Al3x (ormai passato ai linguaggi Visual...)


No per dos non esce + nulla anzi in america č proprio sparito...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 di nuove?
Uhm.. che sappia io no.. perň posso anche sbagliarmi.
Ciao :)

Newsgroup: it.comp.lang.pascal
Titolo: Complemento a due

Come posso fare a fare un complemento a due di un numero in binario????
Ciao
--
Tim

Timothy in un momento di lucidità (?) scrisse:

Con un xor 
Ciao
Giulio

 ha scritto nel messaggio
news:a365c8$15bckr$1...@ID-56223.news.dfncis.de...

Come ??? (xor di cosa a cosa)
Grazie
Ciao
--
Timothy Redaelli

 
Se io ho:
101(base 2) = 5 (base 10)
se è un integer= 8bit (maxint= 11111111 = 255)
00000101 (base2) xor maxint = 11111010 che è il suo complemento a due
Se non ho fatto casini.
Ciao
Giulio

 Se non ho fatto casini.
Questo è il complemento a *UNO* ovvero un not bit per bit, il complemento a
due è un complemento a UNO + 1(base 2) è il + 1 in problema....
Ciao
--
Timothy Redaelli

 Timothy Redaelli
Forse ho fatto un po' di casino? :-)
Comunque cerca con Google "complemento a due" vedrai che trovi una marea di 
cose...
Ciao
Giulio

 wrote in message
a36nqg$15kjoe$2...@ID-56223.news.dfncis.de...


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

Ciao volevo sapere se c'è una funzione che visualizza la data del giorno con
Turbo Pascal perché intendevo fare un progr. che inserita una data mi diceva
quanti giorni mancavano in base al giorno odierno
Grazie

Prova con la procedura GetDate !!
Byez
Visita il mio sito 
http://spazioweb.inwind.it/richiair/home.htm

Ciao volevo sapere se c'è una funzione che visualizza la data del giorno
Credo sia quello che cerchi:
{GetDate.PAS}
{Sample code for the GetDate procedure.}
{ For Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
il resto nell'help...
extrabug @ 
iname.com
Newsgroup: it.comp.lang.pascal
Titolo: apri file

come diavolo si fa' per arire un file e srciverci delle stringhe (in append)
in pratica se scrivo in vb:
open"nomefile" for append as #1
   write #1, stringa
close #1

 ha scritto nel messaggio
news:95ri2o$fqe$1...@lacerta.tiscalinet.it...

program append;
var
f:text;
begin
 assign (f,'file.txt');
 append (f);
 writeln (f,'sto appendendo');
 close (f);
end.

 ha scritto nel messaggio
news:95ri2o$fqe$1...@lacerta.tiscalinet.it...

mmmmm........ pare essere Basic.... Forse hai sbagliato newsgroup?

mmmmm........ pare essere Basic.... Forse hai sbagliato newsgroup?
manisca', ma sai leggere? ha detto "in pratica se scrivo in VB" :)
*è* basic, voleva sapere se c'è un equivalente in pascal
-- 
January 15, 2028 - Intel announces their new 400THz processor, which 
performs 100 billion floating-point operations in the millisecond before 
it consumes itself in a nuclear explosion. This is a step up from AMD's 
recent processor which simply fries any nearby user with bolts of plasma 
energy. Hobbyists are already looking into ways to overclock the chip.

 *è* basic, voleva sapere se c'è un equivalente in pascal
Ops.......  Sono un PO' fuserello.....

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto x un esercizio

Da to un array di n interi eliminare da essi i numeri dispari sostituendoli
con il primo pari che segue.Si ottiene cosě un array di k interi con k<=n
Esempio
A[1 2 4 5 7 9 8 2] --> A[2 4 8 2]
Grazie a tutti quelli ke mi aiuteranno
Saluti

 ha scritto nel messaggio
news:wWdO7.35863$BA4.1...@news1.tin.it...

program prova;
const n=10;
var v: array [1..n] of integer;
    i:integer;
    k:integer;
begin
{inserimento dati}
for i:=1 to n do
 begin
 writeln('Dammi il valore numero ',i);
 readln(v[i]);
 end;
{elimina i dispari}
k:=1;
for i:=1 to n do
 begin
  if odd(v[i])=false then
    begin
    v[k]:=v[i];
    k:=k+1;
    end;
 end;
{visualizzazione}
for i:=1 to (k-1) do
    writeln(v[i]);
readln;
end.
I primi 2 cicli for possono essere tranquillamente uniti. Li ho tenuti
staccati cosě la comprensione č + rapida...
Ovviamente dato che il vettore non č stato ridimensionato, i valori da v[k]
a v[n] non ha neanche senso considerarli. Motivo per cui sulla
visualizzazione ho messo solo quelli fino a v[k-1].
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------
Newsgroup: it.comp.lang.pascal
Titolo: manuale cartaceo

Qualcuno mi  può indica un buon libro per imparare il pascal?.
Io ho usato 'Imparare il pascal' della Mc Graill(si scrive cosi ,boohhhhh)
serie Schaum's e e secondo me non  è tanto buon ( non parla nè di grafi, nè
di alberi, nè tantomeno di unit e di altri comandi  che vedo si usano
frequentamente, tipo uses crt ed altro).
Vi ringrazio anticipatamente
Spike

 ha scritto nel messaggio
news:97blh8$dje$1...@nreadA.inwind.it...


Il 25 feb 2001 Spike ha espresso la sua creatività scrivendo:

Ciao Spike!
Io non mi stancherò mai di consigliare il mio libro: secondo me il migliore 
sul mercato:
    	Il grande manuale del Turbo Pascal
    	-corso completo con tecniche avanzate di programmazione-
    	Michael Yester
     Edito da Jackson
Io ho la prima edizione (del 1992) ma in seconda di copertina è citata la 
4° ristampa prevista 1999.
Penso sia un libro molto valido: parte dalle basi (con specifici 
riferimenti al GUI del TP) ed arriva alle sopracitate tecniche avanzate di 
programmazione. Ti aiuta a sfruttare ogni peculiarità del Pascal.
Sperando di esserti stato di aiuto t saluto.
CIAO!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."

Si parla di grafi e dell'algoritomo di Warshall?
Spike

Newsgroup: it.comp.lang.pascal
Titolo: File vuoti?

Salve a tutti.
Volevo sapere se e' possibile costruire un file vuoto in pascal. Ossia
uso la procedura assign(nomefile,percorso); dopo uso la procedura
rewrite(nomefile); e infine chiudo il file; e' possibile?
Ma soprattutto, quando lo riapro e leggo gli elementi che contiene,
cosa succede?
Cordiali saluti.
Matteo.

cosa succede?
Idem.
Presumibilmente, si ottiene la segnalazione di EOF, ma potrebbe anche
generarsi un errore di lettura.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

 Matteo.
Ciao.
Simone
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________

 wrote in message 38132cd...@news.tin.it...
| Salve a tutti.
| Volevo sapere se e' possibile costruire un file vuoto in pascal. Ossia
| uso la procedura assign(nomefile,percorso); dopo uso la procedura
| rewrite(nomefile); e infine chiudo il file; e' possibile?
| Ma soprattutto, quando lo riapro e leggo gli elementi che contiene,
| cosa succede?
Perché non fai qualche prova?
Cmq sì, è possibile, per quanto ne sappia...
Quando lo riapri leggerai sicuramente solo il carattere di EOF.
#################
PROGRAM ProvaFiles;
VAR F:text;
         ch:char;
BEGIN
  assign(F,'temp.txt');
  rewrite(F);
  close(F);
  reset(F);
  while not EOF(F) do
        {non entra nel while poiché F è già su EOF, End Of File}
    begin
        read(F,ch);
        write(ch);
    end;
END.
#################
--
Ciao da Pavelo, e che lo sforzo sia con te!
E-mail: 
pi....@bigfoot.com
        (se 'rispondi al mittente', togli NO_SPAM)
HomePage: 
http://web.tiscalinet.it/pavelo
ICQ UIN #37941259
Quella di venirci a trovare e' stata un ottima idea.
Pero' anche la nostra di non aprirvi non e' male.
  Romano Bertola

Newsgroup: it.comp.lang.pascal
Titolo: Fermare esecuzione

E' possibile fermare l' esecuzione di un programma prima che abbia finito?
cioč, se dopo che ho fatto ctrl-F9 voglio fermare il programma , posso farlo
senza dover chiudere il tp con ctrl-alt-canc?
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!

Paolo 83 RE ha scritto:

si basta premere ctrl+pause
executorddd

 wrote in message
7i425p$e1u$6...@pinco.nettuno.it...


Newsgroup: it.comp.lang.pascal
Titolo: Opzioni di lancio

Vorrei che il mio exe si comportasse in un determinato modo a seconda
dell'"opzione di lancio". Per parlare come mangio (che č meglio) intendo una
cosa del tipo:
[dal prompt di ms dos]
mioprogramma -a ciao
manda su schermo la scritta "ciao". Mi pare che in C sia argv...Grazie.
-=Azathoth=-



In pascal paramstr e paramcount fanno al caso tuo ...
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....
Newsgroup: it.comp.lang.pascal
Titolo: A proposito di pascal...

Vorrei sapere se è possibile trovare in rete una versione completa del TP7.
Magari, se esistesse, mi farebbe molto comodo la versione per Windows.

Il Pascal lo trovi al mio sito:
 
http://digilander.iol.it/darkbytes
e la versione x Windows di Pascal diciamo che può essere Delphi...
Ciao Ciao
=))
Andrea700 ha scritto nel messaggio ...



wrote:


diciamo sbagliato.
rhymes
rhy...@tiscalinet.it


Newsgroup: it.comp.lang.pascal
Titolo: *Vi aiuterò*

Salve a tutti,
programmo da molto in Turbo Pascal ed ho sviluppato e distribuito su
commissione, diversi programmi.
Ho letto i vostri messaggi presenti su questo NewsGroup riguardanti consigli
su "come fare per"; per molti posso dare una risposta con consigli ed esempi
pratici.
Se posso esservi di aiuto, mandate le vostre domande (siate il più chiari
possibili ed includete un esempio) direttamente alla mia e-mail:
ar...@freemail.it
 specificando il vostro indirizzo e-mail.
------------------------------
PRINCIPIO DI SHAW
------------------------------
Fai un programma che anche un idiota può
usare, e solo un idiota vorrà usarlo.


Grazie al ca..volo :-)
E noi qui cosa ci stiamo a fare??
Non credi che sia meglio contribuire sul NG, in modo che la soluzione sia
disponibile per tutti, grandi e piccini, e possa eventualmente essere
ampliata e/o criticata??
bai
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAM
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672
Newsgroup: it.comp.lang.pascal
Titolo: FILE NELL'ESEGUIBILE

Come si fa ad inserire un certo numero di file in un eseguibile ?
Dovrei inserire qualche direttiva di compilazione particolare immagino...
E supposto di aver inclusi i file come li posso leggere ?
( per esempio delle immagini e degli sprite ... )
Ciao a tutti e grazie !
PS : Se avete tempo guardate il problema della tastiera per il videogioco
che sto programmando.
Se qualcuno è bravo a fare grafica e ha voglia di collaborare al mio
progetto si faccia avanti senza problemi ( non voglio creare un must ma solo
uno sparatutto decente e completo ma meglio di Raptor se riesco ).
Potete contattarmi a : 
andr...@libero.it


Nel Borland/Turbo Pascal c'e' il programma "binobj" che converte un
qualsiasi tipo di file in .obj....in seguito puoi eseguire il link del file
.obj nel tuo programma con la direttiva {$L nomefile.obj}.
Per altre info, ti consiglio di dare un'occhiata all'help online del Pascal.
:)
Ciao!
Simone.
_____________________________________________
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________


Se non e' troppo grosso puoi mandarmi il sorgente,che melo curioso un po'
ciao
Xbug

 Come si fa ad inserire un certo numero di file in un eseguibile ?
Puoi leggere e scrivere i file .exe come dei
normali binari ...non quelli del treno ;-)
Basta che al termine dell' eseguibile "appendi" un
segnalibro tipo [inizio pippo.bmp] e poi ci attacchi
tutta la spataffiata di esadecimali che compongono
il tuo disegnetto. Alla fine aggiungi [fine selen.jpg].
Se vuoi  aggiungere un altro file, prosegui con lo stesso sistema:
[inizio rutto.wav].....[fine rutto.wav]
Per rileggere il tutto scorri l' eseguibile con
il tuo programmino fino a trovare [inizio ,quindi leggi
il nome del file, dall' estensione puoi desumerne il tipo
e cosi' via...


Ma come faccio a sapere le posizioni esatte se non ho ancora terminato il
programma ?
Se inizio a fare calcoli di lunghezza dei files dalla fine va bene lo stesso
??

 dalla fine va bene lo stesso ??
Si'. Comunque basta provare... ;-)

 
bah... un po' scomodo... :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"A cosa serve fare buone citazioni se non le si puo' modificare?"
		-- Dr. Who
Newsgroup: it.comp.lang.pascal
Titolo: Database

Chi saprebbe dirmi come fare un programma in grado di ricevere,memorizzare,
visualizzare e stampare dati testuali e numerali?
Grazie,
Marco
Scrivete qui: 
mar...@libero.it

Chi saprebbe dirmi come creare un programma che memorizza, visualizza e
stampa dati?
Grazie
Marco
E-mail 
mar...@libero.it

visualizzare e stampare dati testuali e numerali?
program Esempio ;
var a, b, c : integer ;
    n : string ;
begin 
  write('dammi il tuo nome : ' ) ;
  readln( n ) ;
  write('dammi il primo numero : ' ) ;
  readln( a ) ;
  write('dammi il secondo numero : ' ) ;
  readln( b ) ;
  c := a + b ;
writeln('caro '+n+' forse non sai che ',a,'+',b,' fa esattamente ',c);
end.
--
Andrea Laforgia
andrea_...@bigfoot.com

Non ci siamo capiti. Io voglio un programma che sia in grado di
visualizzare, stampare e memorizzare in un file esterno i dati, in modo che
si possano richiamare in qualsiasi momento
Marco

Newsgroup: it.comp.lang.pascal
Titolo: chiarimento: packed

Vorrei sapere che significato ha la parola chiave packed.
Io l'ho trovata in una definizione di un tipo array.
Vorrei sapere se può essere usata anche in altre circostanze e che 
significato assume in questi casi. Grazie.

 wrote in message
8nu9ge$1h3$1...@sirmdpsin16.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: A.A.A. Cercasi funzione che restituisce carattere su schermo

Ciao a tutti,
sto cercando una funzione che dati in input due interi x,y
restituisca il rispettivo carattere stampato su schermo,
e (MAGARI!) anche il colore e lo sfondo.
Nella unit CRT del TP7 non ho trovato nulla.
Se qualcuno ne avesse una simile gli sarei grato se la postasse.
TNX!
NM


Non ho capito...
Cooper

se è in testo fallo direttamente in memoria video
tipo
function carattere(x,y:integer):char;
 begin
  carattere:=chr(mem[$b800:1+160*y+x*2])
 end;
function colorechr(x,y:integer):byte;
 begin
 colorechr:=mem[$b800:160*y+x*2]
end;
le coordinate in alto a destra sono 0:0
non ricordo bene se c'è prima il codice ascii del carattere e poi il colo o
viceversa
i colori sono codificati insieme primopiano sfondo e lampeggiamento ma nn
ricordo di preciso la mask degli 8 bit.
Spero di esserti stato di aiuto CIAO
    Fabio
P.S. è da un pò che nn maneggio il pascal scusatemi per qualche errore di
sintassi


wrote:



wrote:

Ho la mia bella applicazioncina in finestra dos sotto win9x o 2k,
con un pò di gotoxy scrivo un pò di cavolate a destra e manca,
ma poi voglio sapere all'esatto X,Y il carattere, magari il colore
e lo sfondo..
Per esempio:
gotoxy(3,5);
textcolor(12); {rosso}
textbackground(1); {su blu}
write ('CIAOOOO');
lamiafunzione(4,5);
la mia funzione dovrebbe restituire un char e due integer o shortint;

puoi!!??
No esce... Monica Lewinsky che ti dice... ahoo... che stai a toccà??? :DDD
Cooper.

le coordinate in alto a destra sono 0:0
Quindi 0:0 è il char 1,1 ?!



wrote:


 type
  CrtCell = record Ch,At: byte; end;
  CrtMap  = array [1..50,1..80] of CrtCell;
 var
  CrtMem : CrtMap absolute $B800:$0000;
la Mem video in modo testo e' costituita da una serie di pagine
80x25x2 (o 80x50x2) byte, inizia a b800 :-)
ci sono due byte per ogni posizione dello schermo: uno per il carattere
e uno per il colore, codificato come
(lampegg shl 16) + (bacgrnd shl 8) +foreground
intesi come valori boolean / da 0 a 7 / da 0 a 15
Con le strutture sopra ci accedi direttamente in lettura/scrittura piu' o
meno
comodamente... se cerchi indietro nei mex (groups.google ?) c'e' un mio mex
con una spegazione un po' piu' ampia.
cerca una delle strutture sopra e non puoi' fallire :-)
--
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: ma il pas-os????????????????

che fine ha fatto?
Il sito c'è, ma i file (sorgenti ed eseguibili) no!
DrFalken?!?!
NM

 NM
Ciao!
Simone.
--
ICQ# 19598133
http://www.my-store.it
 : hardware e software
Newsgroup: it.comp.lang.pascal
Titolo: Sta' cavolo di stampa non và!

Ciao a tutti. Ho scritto un po' di tempo fa a questo NG chiedendo un aiuto
per quanto riguarda un errore di stampa.
Poiché ho avuto problemi con Windows non ho potuto piů seguire il NG per un
periodo di tempo quindi probabilmente mi sono perso anche eventuali risposte
ai miei mess. Cmq, ho una Hewlett Packard 710C e ogni volta che devo
stampare un listato di programma sotto Turbo Pascal 7.0 della Borland il
programma di gestione della stampante va in tilt e devo obbligatoriamente
riavviare il computer. Insomma se voglio ottenere la stampa di un listato di
programma devo utilizzare altri programmi di videoscrittura. Probabilmente,
se non ricordo male, ho letto da qualche parte che bisogna modificare il
filtro-file "PRNFLTR.PAS" in base alla stampante che possiedo. Ma come devo
fare? Non so dove iniziare a mettere mano!
Grazie a quanti interverranno.
by Joseph'79 ***

Installa la stampante come Generica - Solo testo e usa quella quando devi
stampare da dos mentre per il resto usa il driver 710 che hai già
installato.
Z.

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

Ho appena scaricato la preview di quella che dovrebbe essere l'interfaccia
grafica utente di PasOS.
L'indirizzo e' 
www.pas-os.com
 ( download diretto:
http://web.tiscalinet.it/drfalken/pasos/pasosgpv.zip
 )
Purtroppo il forum e' chiuso per problemi con il server: sara' comunque
riaperto a breve.
Sono benvenuti commenti e collaborazioni di qualsiasi tipo.
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
-=============================-

 ha scritto nel messaggio
news:9b501i$7krl4$1...@ID-58044.news.dfncis.de...


Newsgroup: it.comp.lang.pascal
Titolo: Si può fare?

Mi servirebbe un programma che mi verifichi se una cartella (con relative
sottocartelle e file) è nascosta, in tal caso me la rendi visibile, mentre
al contrario, se visibile me la rendi nascosta, logicamente senza nessuna
perdita di dati!!!!
Si può fare o e fantascienza?
Attendo una Vs cordiale risposta.
P.S. potete rispondere anche tramite il mio indirizzo di e-mail
--
        \\\|///
        ( oo ) By Juan
--oOO--(__)--OOo--

Help del tp7 sotto:  File-Attributes, SetFAttr e GetFAttr
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Pascal & Linux

Forse starò dicendo un'eresia, ma esiste un compilatore Pascal per Linux?
Dove posso trovarla?
Grazie
--
M&C
cln...@tin.it

 Dove posso trovarla?
l'eresia ?  mmmh prova 
linux.box.sk
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Certe distribuzioni lo hanno gia "incorporato" nel OS  :)
--
--omega--
"Hands on"

freepascal (
www.freepascal.org
)
Ciao ciao
--
KNOWLEDGE IS POWER
http://www.sverzat.com
http://www.viruspocalypse.f2s.com

Mark wrote:

ne esistono molti ma il migliore è il Freepascal
che trovi su 
http://digilander.iol.it/carmageddon1
 alla sezione strumenti
Ciao Claudio
Newsgroup: it.comp.lang.pascal
Titolo: x il programmatore di snake

ciao, inannzitutto complimenti per il bel gioco che hai fatto.
vorrei sapere delle semplici cose: che compilatore hai usato? che versione?
quali units? grazie per le eventuali risposte
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

 wrote in message
0Ij%6.6130$u%1.5...@news1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Mouse a 1024x768

Salve a tutti,
                    ho scaricato i driver bgi per TP che mi consentono di
arrivare tranquillamente a1024x768 a 32bit di colore, devo dire ottimi,
unica cosa che non capisco perche' attivando il mouse da una finestra di
winxp dopo l'initgraph si blocca tutto, mentre a 640x480 standard egavga.bgi
di TP con la chiamata a 
reg.ax
 =$0001 e intr($33,regs) il mouse compare e
windows lascia fare che e' una bellezza.
    Come fare per attivare il mouse a 1024x768 in TP sotto winxp senza che
vada in conflitto con winzozz ? Purtoppo l'applicativo e' un viewer
fullscreen di dati provenienti da un DB Access per cui devo rimanere sotto
winzozz.
Grazie per l'attenzione
Mattia

L'unica cosa che puoi fare e disinstallare winxp e mettere winme, win98
o win95 dove il dos funza bene ed anche la grafica.
Sotto winxp non e' possibile utilizzare grafica ad alta risoluzione se
non a rischio di blocchi o di mandare a palle la grafica dell'OS (penso
che vengano sovrascritte le aree di memoria riservate alla grafica).
Cmq, se fai girare il tuo programma fullscreen non dovrebbero esserci
problemi.
Nel caso in cui tu non veda il mouse, scriviti una unit per la gestione
dello stesso con relativo disegnino della freccina.
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: 3 domandine su Lazarus

 
          ciao a tutti,
le domandine sono queste:
1 - Quando metto in debug un programma mi da continuamente questo messaggio:
      Il file "xxxxx.pp" non è stato trovato. Si vuole cercarlo da soli?
     dove xxxxx assume valori diversi. Ho notato che i files che mi segnala sono
files che vengono creati automaticamente all'atto dell'installazione di
Lazarus. Come faccio a farglieli vedere nel momento in cui sono in debug?
2 - Sempre relativamente al debug, come faccio a vedere i valori che hanno
le variabili durante il debug?
3 - Come faccio ad assegnare un'icona al mio progetto? Ho provato a metterla
nella proprietà '"icon" del form ma non mi funziona.
Grazie, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 nella proprietà '"icon" del form ma non mi funziona.
Ho ricevuto una mail nella mailing list di Lazarus riguardo un bug in 
tal senso nel codice di Lazarus
per windows, il bug è stato risolto da Salvatore Coppola un paio di 
giorni fa e la patch è stata applicata in cvs, se fai il checkout da cvs 
e ricompili Lazarus il problema è risolto, altrimenti dovrai aspettare 
la prossima release.
Ciao, Dean

 controllare che i path alle sorgenti del compilatore siano a posto.
Se cerco di entrare nelle opzioni del debugger mi da il seguente errore:
[TCustomForm.SetFocus]:TDebuggerOptionsForm. Impossibile spostare il focus
e quindi non riesco a controllare le path
P.S. Grazie per l'aiuto.
P.S.2 La versione di Lazarus che uso è la 0.9.4 beta



 
Esatto, lavoro in Windows, quindi pazienterò per qualche giorno.
Grazie ancora per l'aiuto, Mario


 P.S.2 La versione di Lazarus che uso è la 0.9.4 beta


 Grazie ancora per l'aiuto, Mario
E' uscita oggi e utilizza la nuova versione del compilatore Free Pascal
1.9.8 (aka 2.0 rc2).
il link per il download:
http://sourceforge.net/project/showfiles.php?group_id=89339
Ciao, Dean

 la prossima release.
Ciao, sai se è stato risolto con la 0.9.6??
Perché io ho sempre lo stesso problema: vado nella proprietà "Icon", assegno
un'icona, ma questa non compare nel momento in cui lancio il programma
compilato. Sbaglio qualcosa io?


Newsgroup: it.comp.lang.pascal
Titolo: Problema di runtime

Runtime error at 0B0040 etc.etc...
Come si risolve?
Avviene quando interagisco con files esterni. L'ho compilato sia con turbo 
pascal che con dev-pascal... niente...
-- 
LuSio 

 Come si risolve?
mmmh credo manchi il numero dell'errore - possibilita' sono:
- path troppo lunghi?  tipo c:\bla bla bla\bla bla\bla\tp\bla
- nome del file sbagliato
- file vuoto
- hai raggiunto la fine del file ?
ma senza il numero dell'errore si puo' dire ben poco :)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: matrici !?

Domanda da 1.000.000 di euro  (eh eh !) :
qualcuno sa aiutarmi a fare un prog che calcoli i determinante di una
qualsiasi matrice ?
Credo  proprio sia un bel lavoraccio... o magari serve solo un'intuizione !
Qualunque idea č ben accetta :)
Grazie,
Starker.

 serve solo un'intuizione !
Guarda... io l'ho fatto l'anno scorso in c (in quarta superiore si lavora
proprio sulle matrici) e non è così' difficile... c'è sia la possibilità
di renderla matrice triangolare tramite determinati procedimenti (per i
quali ti consiglio di vedere su un testo di matematica), oppure sfruttare
la ricorsione possibile nel calcolo del determinante! Comunque difficile
non è! (se vuoi il programma c ce l'ho ancora... magari guardo se riesco a
traformarlo in pascal e lo posto...) (<- oppure te lo mando così, anche
perchè prima della maturità non so quanto tempo libero ho...)
Ciao!
Guido

 qualsiasi matrice ?
Un po' di tempo fa qualcuno del ng mi ha spedito un programma che doveva
calcolare il determinante di una matrice, se vuoi e se interessa a
qualcun'altro lo posto qui sopra

Newsgroup: it.comp.lang.pascal
Titolo: Studente disperato necessita aiuto

Salve,
devo fare un programma che mi ordini un array di stringhe in ordine
alfabetico, troppo preso dai corsi per pensarci. C'è qualche anima pia che
mi può dare una mano? Scrivetemi il prima possibile:
onsla...@geocities.it
Grazie,
in fede
Teotti Enrico

...


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

mi sareste dire quale è l'equivalente di delay in pascal for windows?
grazie.
oppure ditemi come si può far rallentare il funzionamento di un ciclo.
ciao.

 wrote in message
news:hhama.32890$
iy5.9...@twister2.libero.it

nella versione tp for win (16 bit) 
non dovrebbe esistere.
soluzioni:
1) passa al  freepascal: il delay c'e'   :-)
2) nel mio sito: 
http://web.tiscali.it/licciardi
   c'e' nei download + recenti (2003), un file: altro.zip
   che contiene la funzione dalay2(in centesimi di secondo)
   ps:   non e' la soluzione migliore, ma funziona
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:hhama.32890$iy5.9...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: runtime error !!!

 il PAscal ha problemi... può essere quello ?
Può essere: se restituisce un errore 200 dicisione per zero allora è lui, e
devi scaricarti la patch, però non so da dove


Fai un salto alla mia homepage :)
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

Newsgroup: it.comp.lang.pascal
Titolo: Pascal x Windows

Salve qualcuno conosce qualche programma free-ware di Pascal per Windows, se
è possibile anche il sito da dove è possibile scaricarlo .
Alessio
www.aledista.cjb.net

 ha scritto nel messaggio
news:W%Ad7.12948$2L.4...@news.infostrada.it...


Alessio wrote:

Se per programmi intendi compilatori trovi un bel po di link sul mio
sito 
http://digilander.iol.it/carmageddon1
 alla sezione strumenti.
Ciao Claudio.

Newsgroup: it.comp.lang.pascal
Titolo: scusate [OT] ma sono disperato

Qualcuno di buon cuore che possiede una G400 DH può spiegarmi come collegare
un televisore alla mia scheda ?
Grazie ReDiCuori
ancora scuse per OT

Ancora con sto problema RDC?
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

 ha scritto nel messaggio
news:3acf7c5b.9572483@pws...


Newsgroup: it.comp.lang.pascal
Titolo: Pascal Graphical Environment

http://pge.sourceforge.net/
"PGE is a form of graphical Pascal. It is very easy to use and it is
vary modular so that controls can be added very easily. A control can
be a seperate file or added into the main library.  The code is ment
to be as straight forward as possible, but some things are a little
abstract. PGE compiles under Turbo Pascal 7."
Uhm. questo+AnonymOS+PasOS stanno su un dischetto e funzionano tutti e
tre...
Ciao
PV

 tre...
A proposito di PasOS, il nuovo dominio e' 
www.pasos.tk
 ;)
L'ho appena registrato quindi devo sistemare i link ed il forum...
Cmq, vista la mancanza di tempo da parte mia, credo che in giornata
pubblichero' gli ultimi lavori (risalgono a parecchi mesi fa) compresi il
kernel (ancora in stato embrionale)
Ciao!
Simone.

Newsgroup: it.comp.lang.pascal
Titolo: HELP ME (MAELGUN)

Come posso usare la funzione passo passo nel turbo pascal 7.0 for
windows?
Grazie in anticipo!

Come posso usare la modalità di controllo del turbo pascal 7.0 for
windows passo passo?

Come posso usare la modalità di controllo dei programmi "passo passo"
del turbo pascal 7.0 for windows?
Grazie in anticipo!                                          Maelgun

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

Cerco un compilatore turbo pascal 3.x, 4.x, 5.x a linea di comando.
Cerco inoltre un interprete pascal.

Cerco inoltre un interprete pascal.
Dovrei avere il TPC versione 5
Newsgroup: it.comp.lang.pascal
Titolo: programmare le stampanti

In un programma che sto scrivendo ho bisogno di utilizzare qualche
comando di formattazione che dipende dal tipo di stampante che
l'utente avrà.
Mi sembra di avere capito che tutte le stampanti emulano alcuni tipi
fondamentali che sono la Epson, la  Hp e la PostScript, e che quindi
basta programmare per questi tipi fondamentali per averle grosso modo
programmate tutte.
Dove posso trovare i linguaggi di programmazione per tali stampanti?
Mi piacerebbe che l'utente, senza dover sapere qual'è l'emulazione
della sua stampante, scelga da una lista di tutte (o quasi) le
stampanti in commercio che io gli presento quale è la sua e poi
ricavare automaticamente l'emulazione.  Pensate che esista da qualche
parte sulla rete un elenco del genere con stampanti e emulazioni?
grazie Lauro
Lauro Colasanti
Via Lorenzo Valla 40
00152     ROMA
tel/Fax: 06-5895001

>Dove posso trovare i linguaggi di programmazione per tali stampanti?
Quasi tutte le stampanti hanno il set comune a quello della Epson,
quindi puoi usare i suoi comandi.
Questo, comunque, vale per le stampanti ad aghi .
In realtà non si tratta di un vero e proprio linguaggio di
programmazione della stampante (tranne forse per il PostScript) , ma
di comandi che vanno impartiti come sequenze di escape.
In ogni caso, in alternativa a sfogliarti tutti i manuali di tutte le
stampanti nell'elenco, ti consiglio di andare su un motore di ricerca
con una query del tipo "printer programming".
--------------------------------------------------------
Andrea      
--------------------------------------------------------
Richiedete le Domande Frequentemente Domandate di IDF...
--------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Si potrebbe realizzare in Pascal........?

Un file eseguibile che alla sua esecuzione apre una determinata pagina html
e che possa determinarne anche le varie opzioni (es, fullscreen,no
statusbar) ?
Se si, e' possibile fare la stessa cosa per un documento Word o Excel ? Io
purtoppo non so' neanche da dove iniziare !
Grazie.
--
      Ciao.                                             Alex   :-}
  -------------------------------------------------------
                    " Alexandro 'Noel' G "
               ' 
http://www.alexnoel.da.ru
 '
  -------------------------------------------------------
    -      <<  Stò lavorando per voi !  >>      -
  -------------------------------------------------------
  Indirizzo ANTI-SPAM: togli 'nospam' e 'invalid'
  -------------------------------------------------------

Dai un'occhiata alla funzione exec();
rhymes
rhy...@insieme.net
n Wed, 17 Jan 2001 19:19:37 GMT, "Alexandro"


Excel ? Io purtoppo non so' neanche da dove iniziare !
... mentre per questi due potresti scriverti una bella macro in VB...
-- 
Ciaooooo
Mr_Brain

 ... mentre per questi due potresti scriverti una bella macro in VB...
NOn ho mai usato il VB, puoi dirmi come si fa' ?
Grazie

Non ho mai usato il VB, puoi dirmi come si fa' ?
Naturalmente VB = Visual Basic... per vedere cosa si puo` fare con il VB 
fornito con Word puoi fare: Strumenti | Macro | Editor di Visual Basic...
Il Vb non e` particolarmente difficile (a questi livelli), ma bisogna conoscere 
gli oggetti e le proprieta`... percio` fai un uso massiccio della guida in 
linea. (se non ce l'hai, installala! :)) )
-- 
Ciaooooo
Mr_Brain

 Usa Delphi è simile al pascal ma è un liguaggio visuale
Ciao.

Newsgroup: it.comp.lang.pascal
Titolo: division by zero

Qualcuno saprebbe spiegarmi perchč in Turbo Pascal 7.0, se nel programma si
usa uses crt e la funzione di puliscischermo, quando si manda in esecuzione
il programma appare il messaggio d'errore Division by zero ?

 ha scritto nel messaggio
news:e5018.31188$aD.11...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Aiutino...

Sono un newbe, e non sono molto pratico con codesto linguaggio, cmq piano
piano imparo.
Volevo chiedervi se sapete dirmi, come posso fare, se, data una parola io
posso prendere ogni singola lettera e usarla come variabile.
In altre parole faccio readln('laparola')
e prendo ogni singola lettera come variabile chr e gli faccio fare certe
cose per poi riscrivere una nuova parola.
Sapreste aiutarmi?
Grazie

 ha scritto nel messaggio
news:hqZ9c.96540$Kc3.3...@twister2.libero.it...


program Frieda;
{$R+}
var s: string[5];
  i: integer;
begin
write('I miei riccioli sono proprio naturali: ');
readln(s);
for i := 1 to length(s) do
  if (s[i] >= 'b') and (s[i] <= 'z') then s[i] := chr(ord(s[i])-1)
  else writeln('Prr che'' non mi credi');
writeln(s);
end.
-- 
Omega e' omega e basta

Mettiamo LaParola sia la variabile di tipo string su cui hai memorizzato la parola letta
For I := 1 To Length(LaParola) Do
    Begin
        Carattere := LaParola[I];
    End;
Length()         ritorna la lunghezza della stringa passata
LaParola[I]    preleva il carattere in posizione I dalla stringa
--
Ciao,
David (
www.utilityweb.net
)

 ha scritto nel messaggio
news:hqZ9c.96540$Kc3.3...@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: TUTORIAL TP7





Ho scaricato dal web il TP7 e vorrei che mi indicasse qualche 
sito contenente tutorial per questa version(che siano completi),rigrazio tutti 
coloro che sapranno aiutarmi.



 ha scritto nel messaggio
news:000801bff0a6$578f26e0$26871597@cobrakiller...






Grazie per i siti che mi hai indicato sono molto 
interessanti.
Newsgroup: it.comp.lang.pascal
Titolo: Free Pascal beta4 e Operator Overloading

Salve a tutti!
    Da qualche mese sono passato con somma soddisfazione a FreePascal ma ora
ho un problemuccio con l'Operator Overloading.
Ho definito un tipo di dato Vettore ed un tipo di dato Matrice. Quindi ho
definito gli operatori algebrici per questi due tipi.
type
    Vettore = record X,Y,Z : extended; end;
    Matrix = array[1..4,1..4] of extended;
operator := (Valore : extended) Result : Vettore;
operator + (V1, V2 : Vettore) Result : Vettore;
operator + (M1, M2 : Matrice) Result : Matrice;
eccetera...
In tutti gli operatori i valori numerici sono definiti come EXTENDED. Non ci
sono altri tipi di dati numerici.
La unit viene compilata senza problemi ma quando ho scritto il programmino
per il test mi sono trovato di fronte ad un messaggio di errore alquanto
insolito:
Var
    V1, V2 : Vettore;
    M1, M2 : Matrice;
begin
    V1 := 2; {Assegna alle componenti di V1 il valore 2 }
    V2 := V1 * 2;
    M1 := IDENTITA * 2; { Matrice identica moltiplicata per 2 }
    M2 := IDENTITA * 4;
Alla terza e alla quarta riga mi genera i segg. errori :
test.pp(31,12) Error: Incompatible types: got "MATRICE" expected "LONGINT"
test.pp(32,12) Error: Incompatible types: got "MATRICE" expected "LONGINT"
Ora la mia domanda č : PERCHE' CON I VETTORI NON CI SONO PROBLEMI?
Se invece di 2 e 4 scrivo 2.0 e 4.0 il programma viene compilato senza
problemi ed eseguito correttamente.
Qualcuno ha gią avuto lo stesso problema?
Grazie per l'attenzione.
Michele

Era un bug del compilatore che č stato di recente corretto.
Michele
Newsgroup: it.comp.lang.pascal
Titolo: EOF: come si fa a inserirlo?

E' una domanda idiota , come le altre che ho fatto.
Ho , per esempio:
BEGIN
....
READ (a)
WHILE Not Eof DO
   BEGIN
      b := b + a;
      cont := cont + 1;
      read (a)
    END;
......
END.
Inserisco , quando faccio andare il programma, un po' di numeri e ....
e poi come faccio a dirgli che ho finito di inserire dati?	
Ciao. Fabrizio.
FreePascal (ide 0.9.2, compiler 1.0.6, debugger 5.1.1) 
Win ME, P4 1 Ghz, 320 RAM

CTRL + Z corrisponde al codice EOF
bye, Cereal



provato non funzia e mi da errore se insisto.
Io ne esco pazzo. 



Io ho provato il tuo codice una volta che hai letto n numero al successivo
prompt premi Z tenendo premuto CTRL vedi che funziona, se non vedi output
dall'ide del turbo pascal premi ALT+F5
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

Ciao ReDiCuori
Facciamo conto che state parlando con un bambino scemo :
- io faccio partire il programma
- inserisco in sucessione dei numeri , per es: 34 45 23
- se schiaccio invio non succede nulla
- se schiaccio CTRL + Z,  non succede nulla
- se lo rischiaccio mi da errore
Riprovo in un altro modo
- faccio partire il programma
-inserisco un numero 
- schiaccio invio
- inserisco un altro numero 
- schiaccio invio
- vado avanti un po' così
- schiaccio CTRL + Z
- niente
- rischiaccio CTRL + Z
- mi da errore
Non sarà che c'è qlc a monte , tipo qlc errore nell'installazione di
freepascal o qlc del genere.
Grazie
p.s. leggete la firma, per favore , c'è scritto che ide uso , il
compilatore ,etc..


 - mi da errore
ehm... Ctrl-Z (come tutti i Ctrl-lettera) genera un carattere
che viene gestito in un modo speciale... in questo caso
Ctrl-Z genera credo 27h (o dec ? booh) e poi devi darlo
al programma... quindi.... Invio ! :-))
schiaccio Ctrl-Z
schiaccio Invio :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

schiaccio Invio :-)
Allora , Io faccio:
- partire il programma
- inserisco un numero
- schiaccio invio
- inserisco un altro numero
- schiaccio invio
- .....
- inserisco l'ultimo numero
- schiaccio CTRL + Z
- schiaccio invio
- e non succede nulla
Fate conto che sia ancora piů scemo .
Grazie


 - e non succede nulla
mmmh molto strano...
numero-Invio-Ctrl-Z-Invio ?  :-)


numero-Invio-Ctrl-Z-Invio ?  :-)
Mi da errore.


> Mi da errore.
boh, strano... e se invece di Eof usi un valore speciale per
sapere la fine dei dati ?  tipo -1 o 0 o qlcs ? :-)


sapere la fine dei dati ?  tipo -1 o 0 o qlcs ? :-)
Dici tipo mettere a posto di di " while not eof do"
qlc tipo "while valore = 0 do" ?
Se č cosě mi da 'nessun valore letto' , cioč il risultato della IF nel
caso in cui il contatore sia minore o uguale a 0.
E che l'esempio che ho preso va bene in TP , ma comincio ad avere il
dubbio che non possa andare in Free Pascal.



Confermo : ho provato il codice con TP e funziona.
Scusate ancora.
Esiste TP  a 32 bit ?
