mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Attenzione all'uso di array con TP7 di Borland

Volevo esporre un problema che di cui magari molto sono al corrente,
ma altri no, quindi...
Supponiamo di avere un programma in cui abbiamo dichiarato la seguente
variabile:
	a: array[1..n] of integer; (ovviamente precedente abbiamo 
  	                                       dichiarato: const n=un
			            numero intero)
e di avere una procedura del seguente tipo:
procedure riempivet(var v: array of integer);
var i: integer;
begin
 i:=0;
 randomize;
 for i:=1 to n do v[i]:=random(1000);
end;
e di richiamarla con argomento il vettore a.
Bene, la procedura funziona, ma non correttamente.
Occorre rimpiazzare il for con:
 for i:=0 to n-1 do v[i]:=random(1000);
altrimenti:
 1)la posizione a[1] conterrà sempre l'intero 0;
 2)quando i vale n, il valore random ottenuto in quel passo viene    
    inserito dal compilatore nell'ipotetica posizione a[n+1].
Quello che non capisco è perché non venga segnalato lerrore di "out of
range", specialmente nel caso in cui il vettore viene passato per
referenza e non per indirizzo.
				Ciao a tutti, Giova.

 Ciao a tutti, Giova.
penso che così funzioni, ma non ho provato..
ciao

range", [...]
Cio' perche' la variabile e' v[.] e non a[.]!
Poi nel trasferimento c'e' il passaggio dei valori:
A[1]:=V[0] ( I elem di A := I elem di V   =>   nessun Out of Range)
....
cosi' non definendo il I elem. di V (cioe' V[0]), il I elem. di A
(cioe' A[1]) e' impostato al valore iniziale di ciascuna var creata
dal TP ossia 0 (per i puntatori il val. iniz. e' NIL, ...).
L'inizializzazione e' una caratteristica del Pascal, una delle tante
per le quali e' consigliabile iniziare a programmare con tale
linguaggio.
 e non definendo
Ciao
Andrea C

Andrea C
Grazie mille e buone feste, GIova.
Newsgroup: it.comp.lang.pascal
Titolo: AIUTOOOOOOOOOOOOOOOO ! Installare programma !

C'è qualcuno che possa dirmi come fare in modo che il programmino
creato e salvato su un floppy vada, una volta eseguito ad installarsi
 in una directori con il seguente percorso:         c:\ Prova
Grazie per l'attenzione! Magari un esempio scritto..........
--
Posted from 
f10.ronet.it
 [194.21.213.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 in una directori con il seguente percorso:         c:\ Prova
Occhio, che il seguente programma non l'ho testato (dovrebbe
funzionare, comunque) :
program installazione ;
const nome_prg : array [1..3] of string = ( 'README.TXT',
                                            'GAME.EXE',
                                            'GAME.HLP' ) ;
var buffer : array [1..32768] of byte ; { un blocco di 32 Kb }
    InpF, OutF : file ;
    i : integer ;
procedure copy_file(var dF, sF : file ) ;
var byte_letti : word ;
begin
  {$I-}
  reset( sF, 1 ) ;
  rewrite( dF, 1 ) ;
  byte_letti := word(-1) ;
  while (byte_letti <> 0) do
  begin
    blockread( sF, buffer, sizeof(buffer), byte_letti ) ;
    if ( byte_letti > 0 ) then
       blockwrite( dF, buffer, byte_letti ) ;
  end ;
  close( sF ) ;
  close( dF ) ;
  {$I+}
end ;
begin
  for i := 1 to 3 do
  begin
    assign( InpF, 'A:\'+nome_prg[i] ) ;
    assign( OutF, 'C:\PROVA\'+nome_prg[i] ) ;
    copy_file( OutF, InpF ) ;
  end ;
end.
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
Il mio indirizzo di posta elettronica e' momentanea-
mente fuori uso...
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: JPEG

Qualcuno conosce una Unit per visualizzare delle immagini JPEG col TP7 ?
GRAZIE
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

...


Un bel di' René scrisse:
R> Qualcuno conosce una Unit per visualizzare delle immagini JPEG col TP7 ?
R> 
io no. :-)
Pero' sul sito comunque del NG di Visual Basic, c'e' un qualcosa in VB
per manipolare i jpeg... puoi tradurti quello... :-)
Il sito comune sta qua: 
http://www.murialdo.it/it_lang_vb
bye!
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
"Ogni attrezzo, quando cade, rotola fino al punto piu' inaccessibile
dell'officina", legge dell'Officina

Tradurre ? :-( .... quindi che devo fare ?
Ci do uno sguardo ma ...


Un bel di' René scrisse:
R> Tradurre ? :-( .... quindi che devo fare ?
R> Ci do uno sguardo ma ...
R> 
mah... so che l'avevo scaricato, ma non funzionava...
quindi anch'io non l'ho mai visto.
Era un programmino per gestire i jpeg, sicuramente li visualizzava :-)
Basta prendersi la funzione che visualizza, copiarsela da parte, e tradurre
da VB a Pascal... se e' solo quello, il problema, posso darti una mano :-)
Ciao!
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
Cosa fuma Billa Gates? MS!

Newsgroup: it.comp.lang.pascal
Titolo: [OT]bin

Scusate l'OT, comunque dalla rete ho dei files. Qundo ho estratto
il file.zip, ho visto che c'era un solo file.bin. Come, cosa devo fare?
Grazie delle risposte.

 il file.zip, ho visto che c'era un solo file.bin. Come, cosa devo fare?
Dipende che file č!! Se sai che č un file contente del codice, puoi usare
bin2obj per renderlo un file oggetto da importare in pascal
Newsgroup: it.comp.lang.pascal
Titolo: RICHIESTA AIUTO SUL PASCAL

USO SISTEMA OPERATIVO 
WIN.ME
,HO SCARICATO DAL SITO 
WWW.FREEPASCL.ORG
 IL PASCAL.LE ISTRUZIONI WRITELN E READLN FUNZIONANO MA LA STRUTTURA D\'ASSEGNAZIONE := LE LA SEGNA COME ERRORE QUANDO ESEGUO L\'OPERAZIONE COMPILE CHE DOVREBBE RENDENDERE IL FILE ALL\' ESTENSIONE .
EXE.VI
 PREGO AIUTATEMI!!!
HO SENTITO CHE SUL 
WIN.ME
 INVECE FUNZIONA
------------------------------------------------------------------------
Questo messaggio e' stato inviato tramite i Newsgroup di Punto
http://www.punto.it
------------------------------------------------------------------------


AHIOOOOOOOOO che mal d'orecchie!
Cooper.

calma e sangue freddo:
hai WinME.  hai il freepascal... ok
posta un pezzo di codice o un prog che non ti compila, perche'
cosi' non e' che abbia capito molto :-)
--
Dreadnaut
(Life would be easier if I had the source code)

 Grazie per aver risposto comunque ho risolto il problema


MALEDUCATO!


lui direbbe lo stesso di te probabilmente... caaaalma :-)
cmq a me restera' per sempre il dubbio di quale fosse il tuo problema:
sei sicuro di volermi condannare all'insonnia per il resto della
mia vita ?!?? :-)


                             .
. Powered By Mandrake Linux 8.2                .
. On a Piii 733@852 with 4x20Gb Raid 0+1  .
......................................................................

 ha scritto nel messaggio
news:a8pu2g$fdv$1...@pegasus.tiscalinet.it...

vabe il concetto è quello



sapessi..... cosa sento dire io..... hihihihi
Cooper.

Newsgroup: it.comp.lang.pascal
Titolo: pascal per linux?

Esiste? e se si dove lo scarico?

...


 Esiste? e se si dove lo scarico?
Certo che esiste :)
Guarda su 
www.freepascal.org
, oppure, se vuoi fare prima, 
http://gd.tuwien.ac.at/languages/pascal/fpc/www/download.html#Linux
-- 
KNOWLEDGE IS POWER
Linux: the choice of a GNU generation!
http://www.sverzat.com

Esiste? e se si dove lo scarico?
Esiste il p2c ("Pascal to C"), che compila anche vecchi sorgenti UCSD
Pascal; poi c'č il Free Pascal; e infine credo che esista anche una
versione del Virtual Pascal, vp4linux:
http://www.trantor.de/joerg.pleumann/
vedi, per il Free Pascal,
http://www.freepascal.org
e per il p2c guarda ad esempio Red Hat o Suse o Debian o Slackware o
dove ti pare (forse anche sul CD della tua distribuzione...)
http://www.redhat.com/swr/src/p2c-1.22-3.src.html
PV

Salve
allora per Linux esista il Kylix  che tipo delphi, è un ottimo sitema di
sviluppo ide forse il migliore presente su linux, ed è pure gratis te lo
puoi scaircare dal sito della borland, ti devi registrare, ma non costa
nulla, so che esiste pure il pascal tradizionale, anche se non mi ricordo
come si chiama, in alcune distribuzioni di linux fa parte dei packages
standard
--
{G}eppo
Panther Power 3D Studio - Coder of GBA Team
www.panther3d.com
L'uomo utilizza solo il 10% del suo cervello
il restante 90% è file di swap del sistema operativo
Newsgroup: it.comp.lang.pascal
Titolo: Programmino PASCAL

Salve a tutti!!!
Qualcuno è in grado di dirmi perchè il seguente codice
non restituisce output in compilazione?!?!?
PROGRAM p (input,output);
VAR x,somma: integer;
BEGIN
     somma := 0;
     WHILE NOT eof DO
        BEGIN
           WHILE NOT eoln DO
              BEGIN
                 read(x);
                 somma := somma+x
              END; {eoln}
           readln
        END; {eof}
     writeln(somma)
END.

Cioè, intendevo in ESECUZIONE,
sorry!!!

 Qualcuno č in grado di dirmi perchč il seguente codice


 Cioè, intendevo in ESECUZIONE,
e mi pareva!! :-))
Ho provato il codice con TP7....non si ferma mai...penso faccia anche a te
così
Io sono rimasto un po' scettico a dire il vero, perchè ho sempre applicato
le funzioni EOF e EOLN su file con questa sintassi EOF(<nomefile>) o
EOLN(<nomefileditesto>), del resto anche la guida di TP lo fa, e
sinceramente non ho mai visto nulla scritto come il tuo codice...tanto è
vero che credevo che il mio compilatore mi linciasse...
Quindi non capisco il tuo intento (se volete chiamatemi pure tutti
ignorante, ma io non ho capito il significato del codice)...quelle due
condizioni (not EOF e not EOLN) come condiizioni del ciclo, se, almeno
secondo me, non si verificheranno mai...????
A questo punto vorrei io dei chiarimenti : a che diavolono servono quelle
funzioni non applicate ai file??
Mah!

 sorry!!!
forse lo restituisce ma passa subito dopo la fine dell'esecuzione all'ide del
pascal. Pr0va a mettere readln dopo il writeln e prima del end.

 - rimuovi XXX x rispondere    ICQ #8814554
E Dio creo' la luce, visto che le prime foto erano venute troppo scure.
		-- Da it.hobby.umorismo

 parentesi...(è una cazzata vero?)
Ma non lo sono già??

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

qualcuno mi spiega bene come funziona sto tasto a me
a:=random(100)
a: sempre a 0
uffa :-( ciao e grazie###

 qualcuno mi spiega bene come funziona sto tasto a me
^^^^^^^^^^^
comando scusate

la funziona random...come dice la parola...genera un valore compreso tra n
ed n-1...quindi se scrivi
a:= random(100) ...potrrà metterti in a un numero compreso tra 0 e 99
Nel tuo caso...ti compare sempre 0..perchè la funzione random è sempre un
algoritmo...affinchè le "possibilità " sia davvero casuali...devi porre
prima della chiamata alla funzione...la dicitura randomize...cosi:
randomize;
a:=random(200)
ok?
Davide
--
=======================
Non approvo ciò che tu dici,
ma difenderò a costo della
mia vita il tuo diritto a dirlo ( Voltaire )
=======================
Newsgroup: it.comp.lang.pascal
Titolo: Sempre stesso programma sui file di testo

Ho aggiunto un'altra procedura ma chiaramente non funziona. Non riesco a
leggere carattere per carattere all'interno del file e a confrontare ogni
carattere con uno prefissato.
In pratica la procedura (carattere) dovrebbe contare il n. di caratteri
uguali ad uno inserito dall'utente e dovrebbe essere parametrica.
Lo so che sto diventando scocciante ma se potete aiutatemi.
grazie, daniela
PROGRAM FileDiTesto (input, output, testo);
USES WINCRT;
TYPE
     lineaarray = string [80];
VAR
     linea : lineaarray;
     testo : text;
     cont  : integer;
     caratt: char;
PROCEDURE CreaFile;
BEGIN
     assign (testo, 'testo.txt');
     rewrite (testo);
     writeln ('Inserisci il testo (* per terminare)');
     readln (linea);
     WHILE linea <> '*' DO begin
           writeln (testo, linea);
           readln (linea);
     END;
     close (testo);
END;
PROCEDURE VisualizzaFile;
BEGIN
     clrscr;
     reset (testo);
     WHILE not eof (testo) DO begin
           readln (testo, linea);
           writeln (linea);
     END;
     close (testo);
END;
FUNCTION GetLine : LongInt;
VAR
   NumeroLinee: LongInt;
BEGIN
   reset(testo);
   NumeroLinee :=  0;
   REPEAT
         readln (testo);
         NumeroLinee :=  NumeroLinee + 1;
   UNTIL eof (testo);
   close (testo);
   GetLine :=  NumeroLinee;   (* Ritorna le linee *)
END;
PROCEDURE Carattere;
VAR
     l: integer;
BEGIN
     reset (testo);
     write ('Inserisci il carattere da ricercare: ');
     readln (caratt);
     WHILE not eof (testo) DO begin
           WHILE not eoln (testo) DO begin
                 read (linea);
                 IF linea = caratt THEN cont:= cont+1
           END;
           readln;
     END;
     write ('Il carattere ', caratt,' è presente ',cont,' volte');
END;
BEGIN
     CreaFile;
     VisualizzaFile;
     writeln;
     writeln ('Linee : ',GetLine);
     writeln;
     Carattere;
END.

 grazie, daniela
Scusami se non la guardo la procedura....
function ContaCarattere (var iFile : text; chKey) : integer;
var n,i : integer;
       s : string;
begin
    reset(ifile);
    n:=0;
    while not eof(ifile) do
        begin
           readln(ifile,s);
           for i:=1 to lenght(s) do
              if s[i]= chKey then n=n+1;
      end;
     ContaCarattere:=n;
end;
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

grazie.
"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:VBpZ6.24707$8R5.6...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: RICHIESTA IFO SU SITO PASCAL

Sto cercando un sito con un corso su pascal, c'e' qualcuno che mi puo'
aiutare con qualche indicazione?
Mi servirebbe un sito simile a quello di ferrux per visual basic.
grazie !!

 wrote:

Purtroppo non c'e' nessuno che ti puo' dare un indicazione valida!!
Edoardo ORAZIO >:-)
e-mail: 
e.or...@comune.livorno.it
----------------------------------
In medio, tam quam in media, stat virtus !!
Newsgroup: it.comp.lang.pascal
Titolo: programma da risolvere..AIUTO!!!

Scrivere un programma che risolva il seguente problema:
Nel corso di un mese in cinque città viene rilevata e memorizzata la
temperatura
massima e la temperatura minima (una volta al giorno). La temperatura non è
rilevata necessariamente ogni giorno del mese. Si vuole:
i) definire e creare l'opportuna struttura dati (utilizzando solo array e
record),
inserendo i dati relativi ad un mese;
ii) la temperatura massima assoluta (con città e giorno) e la temperatura
minima
assoluta (con città e giorno);
iii) l'escursione termica massima (con città e giorno);
iv) per ogni giorno, l'elenco delle città con la temperatura minima;
v) per ogni città, la temperatura media mensile;
L'esame si ritiene superato se sono implementati e funzionano correttamente
almeno due dei punti di cui sopra; si deve quindi implementare il punto i) e
scegliere
tra i punti ii), iii), iv) e v).
La valutazione dipende anche dal modo di utilizzo delle variabili globali e
locali, di
procedure e funzioni, dalla leggibilità del codice.

 La temperatura non è rilevata necessariamente ogni giorno del mese.
ok, nelle temperature o ci teniamo giorno e temperatura oppure
usiamo un qualche valore per indicare temperatura mancante
quindi o 
- array di record
           nomecitta'
           minime : array di integer
           massime : array di integer
(viene bene con valore per no-temperatura, e.g. MAXINT)
oppure
- array di record
           nomecitta'
           temperature : array di record
                                   giorno,
                                   minima,
                                   massima : integer
(che viene meglio tenendo solo i giorni per i quali esistono misurazioni)
poi c'e' anche il metodo molto-database di fare un'unica array di record
 Misurazioni(nomecitta', giorno, minima, massima)
alcune query vengono meglio, ma non so' se piace ai prof...
Intanto pensa a questo, scrivi qualcosa, poi se hai ancora dubbi ripassa :-)
-- 
Dreadnaut
(Train would be warmer if they had heating)

> Scrivere un programma che risolva il seguente problema:
In terza superiore la nostra prof ci diede un esercizio praticamente
identico.
Fantasia 0 eh? :-)
Newsgroup: it.comp.lang.pascal
Titolo: [info]#turbopascal incontro

Ciao a tutti,
con sommo piacere ho visto che la proposta mia e di Salvo vi e` piaciuta
tanto e che ReDiCuori ha fatto un ottimo lavoro inserendo i Bot sul
canale (ma non sono un po` troppi 11 Bot ?__? ).
Ci incotreremo dunque questa sera verso le 22:00, spero saremo in molti.
Chi non conosce l'irc segua le istruzioni del post precedente o provi a
dare un'occhiata su 
www.tuttoscript.net
 :)
Per il Sito internet ci stiamo organizzando io e Salvo (ne parleremo
comunque meglio, per chi fara` parte della consulenza grafica, sul
canale irc magari inviandoci qualche immagine come bozza grafica) e
avevamo pensato di metterlo su un server che da spazio gratis, prendendo
poi un dominio di primo livello (quelli che non ricordo quale soceta`
da` gratis) reindirizzandocelo; che ne dite?
Bisognerebbe poi creare due squadre una per quanto riguarda il livello
contenutistico ed una per il livello grafico, ok?
Ci sentiamo tutti su #turbopascal questa sera alle 22:00.
--------> Ciao Ciao
N.B. il mio nick e` SatURnO
Roberto Ferraro
E-m@il: frob...@NOSPAMtiscalinet.it
             sat...@NOSPAMcybergal.com

 Ci sentiamo tutti su #turbopascal questa sera alle 22:00.
famo domani pl
Volevo aggiundere due cose
1) Troviamo un oggetto per questi post che ne so [INFOIRC]
2) il canale è in prova mi raccomando frequentatelo  altrimenti chiude !!!
Salvo domani sera collegati che ti addo !
Ciao ReDiCuori
Ps.: Il mio nick è ReDiCuori

 Ci sentiamo tutti su #turbopascal questa sera alle 22:00.


 Ci sentiamo tutti su #turbopascal questa sera alle 22:00.


 - ICQ#91902715
http://www.matteomoro.com
 [.
cjb.net
]
"...i am immortal, i have inside me
blood of kings..." (c)fm
-- 
Posted from 
tagliamento.sci.uniud.it
 [158.110.43.10] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Infatti credo che Ieri pomeriggio credo che non abbia funzionato tutto come
doveva funzionare:
pur essendo stato addato non funzionava ! ! ! !
a stasera!
Salvo

OK, farň del mio meglio per esserci.
Vediamo di fare una bella cosa per questo bel NG.
IL mio nick č Wulf23
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciň che sei nel minimo che fai."
Newsgroup: it.comp.lang.pascal
Titolo: manuale TurboPascal 7

cerco un manuale in ITALIANO per Turbo Pascal 5, 6 o 7.
grazie

 grazie
Pascal, guida alla programmazione di Andrea Guidi e Nazario Renzoni
McGraw-Hill, (436 Pag + CD-ROM), prezzo di copertina 42.000 lire



In poco + di 810 pagine trovi "La Guida completa Turbo Pascal 7" della
MacGrawHill scritta da Stephen K. O' Brien e Steve Nameroff per "sole"
90k ma ne vale la pene
cosi per farti capire ti riporto l'indice:
PRIMA PARTE - Il Linguaggio
  Capitolo  1: Struttura di Turbo Pascal
  Capitolo  2: Tipi di dati primitivi
  Capitolo  3: Tipi di dati complessi
  Capitolo  4: Sottoprogrammi
  Capitolo  5: Strutture di controllo
  Capitolo  6: Puntatori, allocazioni dinamica della memoria e
polimorfismo
  Capitolo  7: Gestioni file
  Capitolo  8: PRocedure esterne e codice Inline
SECONDA PARTE - Gli ambienti
  Capitolo  9: L'ambiente di sviluppo: IDE di DOS e di Windows
  Capitolo 10: L'Object Browser in DOS e di Windows
  Capitolo 11: Il Resource Workshop
  Capitolo 12: Il Debug in DOS e in Windows
TERZA PARTE - Liberie standard di Turbo Pascal
  Cap. 13: Le unit system
  Cap  14: Le unit Crt e WinCrt
  Cap  15: Le unit DOS e WinDOS
  Cap  16: La grafica in DOS e in Win
  Cap  17: Il turbo vision
  Cap  18: Object Windows
QUARTA PARTE - Scrittura di applicazioni
  Cap  19:  Libreria di procedure e Funzioni
  Cap  20: Strutture dati complesse
  Cap  21: Fusione, ordinamento e ricerca
  Cap  22: Int, Telecomunicazione e programmi residenti
  Cap 23: Ottinazione dei programmi
 
QUINTA PARTE - Apendici
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: Da codice macchina a codice sorgente?

Newsgroup: it.comp.lang.pascal
Titolo: Volete provare una roba?

Ciao ragazzi,
 ho scritto, in turbo pascal, un modulo per creare avventure testuali
interattive. Avete mai provato un'avventura testuale? Sono quei giochi in
cui bisogna impartire da tastiera delle azioni che poi l'avventuriero svolge
(es. "apri la porta").
 Con il mio modulo diventa semplicissimo creare avventure di questo tipo,
basta leggere il piccolo manuale che ho scritto (in fretta, chiedo scusa per
gli eventuali errori di battitura...).
 Mi farebbe piacere sentire una vostra opinione a proposito, per cui se
volete che ve lo invii basta dirlo!
Andrea Schiavinato
end.

Interessante....
l'hai scritta con tp7?
inviamela a 
Phon...@hotmail.com
Se fai una versione migliore del manuale, mandami pure quella..
Ph.


 wrote in message
Ch%%6.20448$F85.6...@news.infostrada.it...


Potresti mandarmelo anche a me per fav?
Grazie e ciao
Alex
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

Potete ora visitare il mio sito:
www.andreasch.cjb.net
che contiene il modulo aggiornato, più altre mie creazioni col Pascal.
Newsgroup: it.comp.lang.pascal
Titolo: Come gestisco l'output??

Ciao a tutti..Credo che questo mio problema accomuni molti programmatori
che come me sono ancora inesperti..
Ho creato un array stringa di lunghezza 10 e, usando readkey,
immagazzino volta per volta un carattere..Ho utilizzato questo metodo
per evitare di usare READLN perchè in questo caso l'utente può scrivere
anche più di 10 caratteri, 'distruggendo' così la mia maschera di
output..Il problema è solo visivo perchè poi comunque la READLN
immagazzina nella variabile stringa solo i primi 10 caratteri..Vorrei
implementare i tasti speciali come le freccette, il tasto CANCELLAZIONE,
il tasto INSERIMENTO, il tasto BACKSPACE, il tasto INIZIO e il tasto
FINE, ma con questo metodo credo che la funzione diventi illeggibile..
Lo stesso problema mi si presenta anche quando lavoro con variabili
integer, real e via dicendo..
Esiste una funzione in pascal per risolvere questo problema o un metodo
d'implementazione più semplice??
Ogni suggerimento è ben accetto..
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 Ogni suggerimento č ben accetto..


 ha scritto nel messaggio
news:207bb282973a84dd0a2...@mygate.mailgate.org...


Ho postato più volte perché non sapevo come funzionava la Mailgate e il
webmaster non mi ha mai risposto alla mia mail di aiuto.. Poi ho avuto
Outlook che non riusciva a collegarsi al server.. Cmq non ti preoccupare,
non succederà più.. Grazie per l'aiuto..
PS Ma come mai dopo aver scaricato i sorgenti dal sito 
www.pascallike.too.it
non riesco a scompattarli??WinRar mi da' l'errore METODO SCONOSCIUTO..
Ciao Davide

 ha scritto nel messaggio
news:alusn5$li0$1...@newsreader.mailgate.org...


Ma no, non sei stato scortese..Il vero problema è che voi parlate di regole
da rispettare nella mailgate ma purtroppo queste non sono scritte da nessuna
parte;la stessa cosa vale per il loro funzionamento..
Cmq i sorgenti che ho provato a scaricare sono: tasti.rar, gmouse.rar,
tbmp.rar ..Ho il WinRar versione 2.60
Con la gestione dei tasti speciali e la gestione del mouse ho risolto grazie
ai tutorial..
Grazie e Ciao
Davide

Newsgroup: it.comp.lang.pascal
Titolo: Manuale (un po' [OT]?)

Ciao a tutti, potreste consigliarmi un buon libro per apprendere i concetti
fondamentali dell'assembler? Grazie a tutti
Cristian

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

Newsgroup: it.comp.lang.pascal
Titolo: Un po' di grafica

Salve,
qualcuno conosce qualche sito dove posso imparare qualcosa sulla grafica
(elementi di base e 3d) semplicemente con esempi di codice?
Es: come disegnare un cubo in prospettiva e farlo ruotare...ecc...
Grazie

...

Scaricati DelphiX, una libreria di componenti per usare le DirectX.
Le trovi su DSP o su Torry.
Ciao,
Stefano
PS: ci sono anche esempi su come far ruotare un cubo :-)
Newsgroup: it.comp.lang.pascal
Titolo: inizializzare puntatori

ma come faccio a inizializzare un array di puntatori tutti "vuoti"?
grazie...


type p = ^tipo {qui mettici il tipo che vuoi};
var a : array[1..lunghezza] of p;
ciao,
-- gabri

 wrote in message
news:93l8h8$as7d3$1...@ID-53993.news.dfncis.de...

ooops... per inizializzarli vuoti, fai
for i := 1 to lunghezza do
 a[i] := NIL;
ciao,
-- gabri

Newsgroup: it.comp.lang.pascal
Titolo: immagini ascii

Devo far scorere un "immagine" ascii per lo schermo
ma non ho la più pallida idea di come si faccia
mi date una mano?
grazie 
					Atomo
devo spostare immagini tipo:
    .
   / \
   | |  
   |.|     
   |.|            
   |:|      __
 ,_|:|_,   /  )
   (Oo    / _I_
    +\ \  || __|
       \ \||___|
         \ /.:.\-\
          |.:. /-----\
          |___|::oOo::|
          /   |:<_A_>:|
         |_____\ ::: /
          | |  \ \:/
          | |   | |
          \ /   | \__
          / |   \____\
          `-'

 grazie 
Non so quali siano le tue esatte esigenze, dici di dover fare scorrere
un'"immagine" ASCII, cioè gruppi di caratteri ASCII sullo schermo, ma non
dici in quale contesto, nè se lo schermo è vuoto oppure contiene altro
testo su cui far scorrere l'immagine, nè se hai bisogno di uno scorrimento
molto rapido, nè se le immagini sono a più colori o di un 
solo colore noto. Nel dubbio ti mando un programma che avevo già scritto
tempo fa che ho adattato alle tue esigenze. Fa scorrere l'immagine che hai
inviato come esempio orizzontalmente nello schermo, da sinistra a destra.
Sfrutta istruzioni ottimizzate di scrittura diretta nella memoria video,
poichè penso che tu abbia bisogno di uno scrolling il più possibile veloce
e anche se l'immagine che usa è di un solo colore, può gestire
immagini a più colori. 
-- 
Alibrandi Luigi
E-mail:
lalib...@mail.eniware.it
alib...@usa.net
begin 600 ascii.pas
<encoded_portion_removed>
end

Newsgroup: it.comp.lang.pascal
Titolo: Interr. ex novo

Mi servirebbe un programma che va ad installare in un interrupt libero una
mia routine. Oltre ad una parte di codice, deve rimanere residente anche una
tabella di dati di circa 100byte.
Mi serve solo l'impostazione.
ciao
  Carlo

Guarda negli help la funzione  keep() . ;-)
Newsgroup: it.comp.lang.pascal
Titolo: Come passo da .pas a .exe?

Ciao a tutti,
    volevo chiedere un consiglio; č da poco che sto iniziando ad utilizzare
il Pascal e non riesco a trasformare i file .pas in file .exe in modo da
essere eseguiti senza l'uso del compilatore Pascal. C'č qualcuno che mi
saprebbe dire come devo fare?
Grazie, Claudio.
c.cam...@tiscalinet.it



Se usi il Turbo pascal batsa che setti la compilazione su file invce
che in memoria
Ciao
  checco

1: Prima bisogna che salvi il file in formato pas (normale!);
2: vai su compile - destination memory
3: fai il compile normale
4: vai su compile e sciegli destinatio disk
sulla dir dove hai prima salvato il file in formato pas ora c'č il file in
formato exe!
ciao

 saprebbe dire come devo fare?
Vai nel menů Compile e vedrai una voce Destination e a fianco Memory, clicca
su Destination e vedrai che č cambiata in Destination Disk. A questo punto
compili un file exe

Ciao,
sono Claudio, grazie a Francesco, Morpheus e Alex per il consiglio,
finalmente sono riuscito a creare il mio primo programmino Pascal in formato
eseguibile.
Bye, bye.

> saprebbe dire come devo fare?
C:\>tpc file.pas
Newsgroup: it.comp.lang.pascal
Titolo: Uscita dal ciclo

Qualcuno mi sa dire x' il programma che ho scitto sotto non mi da errori di
compilazione, ma non riesce ad uscire dal ciclo while? 10Q
var numero,i,x,divisore:integer;
    fattore: array [1..100] of integer;
    primo:boolean;
procedure controllo;  {Controlla se il numero inserito dall'utente è primo}
var divisore,resto:integer;
    divi:real;
    begin
    resto:=numero mod 2;
    if resto=0 then
       begin
       divi:=(numero/2);
       divisore:=trunc(divi);{Trova la metà del numero inserito, x snellire
i calcoli}
       end
    else
        begin
        divi:=trunc((numero+1)/2);
        divisore:=trunc(divi);
    end;
    {Divide il numero per il divisore finchè il resto
    è uguale a 0 oppure il divisore è uguale a 2 compreso;
    la variabile primo assume il valore TRUE se il numero è primo
    e FALSE se il numero non è primo}
    while (divisore>1) and (resto<>0) do
          begin
          resto:=numero mod divisore;
          dec(divisore);
    end;
    if resto<>0 then primo:=true else primo:=false;
end;
procedure scrivi;
begin
   for x:=1 to 3 do
   begin
   write('',fattore[x], ' * ');
   end;
end;
procedure scomponi;
var resto:integer;
   begin
   divisore:=2;
   while (resto<>0) and (numero<>1) do
   begin
         resto:=numero mod divisore;
            if resto=0 then
            begin
            fattore[i]:=divisore;
            i:=i+1;
            numero:=round(numero/divisore);
            end
            else
            divisore:=divisore+1;
    end;
end;
begin
i:=1;
write('Scrivi il numero da scomporre: ');
readln(numero);
controllo;
      if primo=false then
      begin
           while numero<>1 do
           begin
           scomponi;
           end;
           scrivi;
      end
      else
          writeln('Il numero che hai scelto '#138' un numero primo');
readln;
end.

Scusate, problema risolto: nella procedura scomponi bastava mettere OR  al
posto di AND nelle condizioni del  ciclo while...
GRAZIE COMUNQUE
Newsgroup: it.comp.lang.pascal
Titolo: Stringhe e ord/chr

Salve a tutti...Mi rivolgo a questo ng per proporre un problema
relativo all'utilizzo delle stringhe e in modo particolare delle 
funzioni ord/chr. Bene, ecco il listato che mi da problemi:
**variabili**
const
a=1;
var
x,y:integer;
stringa:string;
n:char;
**fine variabili**
------->
y:=ord(stringa[x]);
y:=y+a;
n:=chr y;
write(n);
<-------
Praticamente devo 'shiftare' di a posizioni una stringa. questa è 
la soluzione che ho pensato io[trovo la posizi ascii di ogni carattere
con ord, aggiungo a e trasformo la posizione, y, in carattere] pero'
maledizione mi da errore su questa riga --> n:=chr y;
E' un problema di sintassi, l'unica che io conosco per il chr e'
var:=chr(intero) tipo alfa:=chr(65); ...che mi potete dire?
ps lo so, stile di programmazione sotto 0, le variabili potevano 
essere di meno, ma almeno per ora non mi interessa la compatezza..
Grazie a tutti per l'interessamento, 
Federico
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> n:=chr y;
Che errore ti da ?
Prova a mettere le parentesi n:=chr(y);
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

Penso che il listato che cerchi tu sia una cosa del genere:
(***************************)
{costanti}
const
a=1;
{variabili}
var
x,y:integer;
stringa:string;
n:char;
{corpo del progz}
begin
write('inserisci la stringa: ');
readln(stringa);
for x:=1 to length(stringa) do begin
write(chr(ord(stringa[x])+a))
end;
readln;
end.
(*****************************)
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:8WO%8.116199$Jj7.2...@news1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: da Pascal ad assembly ?

Con quale comando potrei vedere come il compilatore TP ha tradotto il mio
prog. in assembly ? Mi interessa vedere come sono state espanse le chiamate
di
proc. e funzioni.
Grazie, Gianmaria Samori'.

 di proc. e funzioni.
con un disassemblatore

o un debugger
puoi cercare, se vuoi una cosa sempre Borland, il Tasm
che contiene assembl. e debugger
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: download turbopascal

mi potete dire dove posso trovare una versione di turbopascal scaricabile
gratuitamente grazie

 ha scritto nel messaggio
news:KcPP7.323$X_3....@twister2.libero.it...


 ha scritto nel messaggio
news:KcPP7.323$X_3....@twister2.libero.it...


> mi potete dire dove posso trovare una versione di turbopascal scaricabile
Sul sito della borland dovresti trovare il compilatore
Se però non ti è indispensabile il TP, ti consiglio di scaricarti il
freepascal (
www.freepascal.org
) che è migliore rispetto al TP ed al BP.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 ha scritto nel messaggio
news:KcPP7.323$X_3....@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: classica domanda

Ecco qui la classica domanda del classico apprendista programmatore.
Premessa:    Uso il pc da anni x lavoro e studio (capisco abbastanza di
hardware) ma non alcuna esperienza di programmazione ed il mio obbiettivo
finale č padroneggiare il c++
Da quale linguaggio iniziare?
Coloro ai quali ho sottoposto l'arduo quesito si sono divisi in 2 gruppi
1-Mi hanno caldamente consiglitato di iniziare da linguggi + soft quali il
Pascal oppure il Visual Basic e poi passare al c++
2-Mi hanno invece detto che il pascal essendo obsoleto, č  attualmente non +
didatticamente valido come lo era una volta x cui tanto vale iniziare subito
dal c++ magari con l'ausilio di un ottimo testo x neofiti (SI MA QUALE?)
Voi cosa mi consigliate?
Sono in attesa dei vostri consigli
Postatemi a 
dt...@hotmail.com


Io partirei dal Pascal che obbliga il programmatore ad una certa rigidità e precisione.
La differenza fondamentale tra Pascal e C++, secondo me, sta nella portabilità del C++ rispetto al
Pascal.
Una volta imparato (per bene!) il Pascal, per passare al C++ devi soltanto imparere una grammatica e
una sintassi un pò diversa, ma il problema si ferma principalmente lì.
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....

una sintassi un pň diversa, ma il problema si ferma principalmente lě.
Ma stiamo scherzando ?
Imparare il C++ e' molto piu' difficoltoso che imparare il pascal.
Non sto qui a dilungarmi sulle differenze logiche e fisiche che a
differenza di quanto dici sono **abissali**, ma mi limito a dire che
e' meglio dedicarsi ad un linguaggio+ambiente di programmazione.
Ideale e' ObjectPascal+Delphi.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 Ideale e' ObjectPascal+Delphi.
Secondo me una volta imparati quattro o cinque linguaggi per imparane
uno nuovo bisogna solo quardare il codice di qualche prog almeno io la
maggior parte dei linguaggi li ho imparati cosě =)

maggior parte dei linguaggi li ho imparati cosě =)
Ma per piacere ! cerchiamo di essere seri.
E' evidente che non conosci la complessita' del C++.


2-Mi hanno invece detto che il pascal essendo obsoleto, è  attualmente non


Java sono praticamente identici al C. 
Io credo che sia molto meglio cominciare a programmare direttamente in
C++. La difficolta' e' trovare un testo che prescinda dalle conoscenze
di base del C. Il C++ ha coperto nel tempo alcuni buchi del C e lo ha
quindi migliorato, provvedendo inoltre con la libreria standard a
fornire degli strumenti che hanno sollevato i programmatori dalle
fatiche di gestione delle stringhe, degli algoritmi, dei vettori,
ecc...ecc.... In quanto al Java, la sua somiglianza e' piu' che altro
con il C++, che con il C, tranne per il fatto che e' totalmente
orientato agli oggetti (mentre il C++ e' un linguaggio
multiparadigma). In quanto al Pascal, non e' proprio vero che cambi
solo la sintassi rispetto al C. Quest'ultimo ha moltissime differenze
non solo dal punto di vista sintattico. E' sicuramente piu' facile
passare al C dopo un'esperienza in Pascal, che arrivarci da zero.
Inizia col C++.

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Scusate l'intrusione nel newsgroup, ma devo chiedervi un favore.
Devo dare un esame di informatica e ho bisogno di sapere se esiste qualche
sito (possibilmente italiano) che mi introduca al Pascal o che comunque
tratti di questo linguaggio.
Grazie
Alessandro


wrote:

Forse piu' che un sito Web, l'ideale sarebbe un buon libro (ad es. il
classico Wels-Elder) e tanta pratica davanti ad un computer.
Per i problemi poi c'e' sempre questo ng :-))
Buon lavoro.
Alessandro C.

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

Sono un programmatore alle prime armi. Vi sarei molto grato se mi rispondete
a questa domanda il + presto possibile: come devo dichiararla una variabile
che superi i 16 bit? Le integer arrivano a +32767, mi servirebbe un tipo di
variabile che superi questo limite.
Grazie a tutti.
--
davser - 
dav...@libero.it
 - Wapsite:
http://space.tin.it/io/anserro/index.wml
ICQ 19930061

scusate, e' questo il mio nick! Non sono Jessica!

 ha scritto nel messaggio
news:I2hR5.23928$wW2.7...@news1.giganews.com...


Sennò REAL.
Filippo

 tipo di variabile che superi questo limite.
 Interi:
 
 longint -> -2^31 .. +2^31
 word    ->  0 .. 2^16
 Reali:
 Sono tutti in grado di visualizzare numeri grandi:
 real, single, double, extended, comp
 Se ti servono variali moooolto grandi, es per scopi
 crittografici, devi cercarti apposite librerie...

Grazie a tutti.

Newsgroup: it.comp.lang.pascal
Titolo: FINALMENTE MI SCRIVI...

Finalmente ti decidi a scrivermi... sono appena tornato dalla sala dove ti 6
lamentata (come al solito) ke nn ti scrivo!!!
ke pizza ke 6!!!
Dai, skerzo, perň adesso nn farmi aspettare tanto quanto ti ho fatto
aspettare io a scriverti per rispondermi!!!
CIAO LESA

 ha scritto nel messaggio
news:60uk8.23025$1S3.6...@twister1.libero.it...


 aspettare io a scriverti per rispondermi!!!
...certo che confondere un'e-mail con un newsgroup ce ne vuole :)
--
KNOWLEDGE IS POWER
http://www.sverzat.com

> Dai, skerzo, perň adesso nn farmi aspettare tanto quanto ti ho fatto


Newsgroup: it.comp.lang.pascal
Titolo: Download Ia.n.i.!!! It's free!

Download Ia.n.i. RemoteControlSystem 1.2 beta. It's free!!!
New site: 
http://jump.to/IaniProject




Newsgroup: it.comp.lang.pascal
Titolo: Algoritmo con random su ambito vincolato, come?

salve a tutti.
Dovrei scrivere un programmino che mi permetta di fare una cosa di questo 
tipo:
Leggi input
se input e' A allora
scegli una lettera random tra B, C, D, rispettando le percentuali di 
probabilita': 50% B, 30% C, 20% D;
se input e' B allora ....
etc etc
qual'e' la sintassi per un'istruzione del genere????
ah, che funzioni su ThinkPascal 4.5d4 su MacOS...
grazie a chi puo' aiutarmi...
-- 
CreActive
==============================================================
 Posted with Hogwasher. For a free Test Drive click on: 
 
http://www.asar.com/cgi-bin/product.pl?58/hogwasher.html
 
==============================================================

 ha scritto nel messaggio
news:01HW.B8B552270...@powernews.libero.it...


 ciao
Grazie e mille
provo subito ma pare non faccia una grinza...
-- 
CreActive
Suzuki GS750D 1977 "Barabba"
http://www.enricogbotta.com/moto/
ICQ 17991120
togliere "MENOquesto" dalla mail per rispondere
================================================================
 Hogwasher: You don't have to sacrifice friendliness for power
 
http://www.asar.com/cgi-bin/product.pl?58/hogwasher.html
 
================================================================

 etc etc
mmmmmm..... mi sa che dovrò fare un corso per veggenti... qualcuno mi
consiglia??? hahahahah :P
Azz... ma io dico.... come faccio a sapere quello che dovrebbe fare se
l'input è B o C ? :P
Potrei dire... se l'input è B allora stampa: "Ho Fame" e se è C allora
stampa "HO SETEEEE !!!- No? :-))
A parte lo scherzo.... ma secondo me dovresti essere più completo... cosi
non dici nulla se non quello che hai già detto.... altrimenti mi dovrò
andare a fare un corso per veggenti :PP
Cooper.

 ha scritto nel messaggio
news:b_Mj8.60767$_u5.1...@news1.tin.it...


 ha scritto nel messaggio
news:01HW.B8B5560E0...@powernews.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: files

cari amici, con il pascal ho qualche difficoltà e letteratura ne ho vista
poca. Avrei due questioni da proporre alla vostra pazienza:
1. Un file lo apro in lettura, in scrittura, scrivo e leggo. Il problema
nasce invece quando devo aggiungere record o meglio accodare oppure
modificare un record esistente. Come si tradurrebbe in pascal un'apertura
del tipo Open ..... for Append? e come si puo puntare su un record,
modificarlo ed aggiornarlo?
2. Come vengono tradotte in pascal le classiche funzioni left, right, mid,
len, per una tradizionale gestione delle stringhe?
3. È possibile intercettare un errore? ad esempio variabile dichiarata
INTEGER ma imputata come STRING. Si può evitare che pascal  generi
un'eccezione in runtime?
Grazie per l'ascolto. Senza questo ng non credo proprio che certe cose
peculiari sul pascal si possano reperire facilemente in giro.
Alessandro

 un'eccezione in runtime?
mmmh questo mi fa' venire il dubbio che tu stia lavorando su file
di testo :-\   se e' cosi' per aggiungere in fondo al file basta aprirlo
proprio con Append invece di usare Reset/Rewrite... per modificare
record sono cavoli amari, dovresti riscrivere l'intero file, oppure
troncarlo (Truncate) una riga prima e riscrivere da li in poi
[ la 2a cosa sembra piu' facile ma se non sai dove troncare temo
ti tocchi leggere due volte il file prima per vedere dove, poi per
tornare sul punto dove troncare :-\ ]
cose tipo Invalid Numeric Format possono essere evitate solo
o leggendo sempre stringhe e poi convertendo eventualmente
  in interi
o sostituendo alla readln una tua procedura di scanning che
  legge char per char e costruisce il risulato
[stasera magari aggiungo all'help anche Seek e compagnia]
-- 
Dreadnaut
(Life would be easier if I had the source code)

> [stasera magari aggiungo all'help anche Seek e compagnia]
aggiunto Seek, FilePos e FileSize... ma ho (tristemente) scoperto
che la Truncate non funziona su file di testo, quindi l'unico
modo per modificare una riga a meta' di essi e' riscrivere il
file (o fare manovre sporche aprendolo non come un file di
testo ma e' _troppo_ sporca)


 un'eccezione in runtime?
Esiste una funzione VAL(....) che ti permette di intercettare gli errori piů
classici del tipo VARIABILE INTEGER ma in input si passano caratteri
ALFANUMERICI...... Ora la sintassi mi sfugge (ma ho le mie attenuanti :-p)
per cui te la dovresti cercare sull'help del Pascal.....
Se proprio non riesci a trovare nulla, posta di nuovo, che ti aiuterň meglio
:-)
DAVIDE
Newsgroup: it.comp.lang.pascal
Titolo: Pascal on line, nofa grafica by BriVidO

Salve a tutti, dopo grande fatica :) ho realizzato questa cosa per il sito
del pascal, naturalmente è ancora da finire, ma ditemi cosa ne pensate,
rispondendo a questo post oppure a 
bri...@cybergal.com
 :)
GRAZIE a tutti e fatemi sapere :)
P.s Il sito è ottimizzato per explorer 5.0 e NN 6.0  :)
L'indirizzo è : 
http://www.pascalonline.f2s.com/online/index.htm

Non mi piace molto la grafica BLu su bianco cmq č OK...
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

 Non mi piace molto la grafica BLu su bianco cmq è OK...


Re perchè hai postato sotto questo post ? (scusa il gioco di parole) BriVidO
:)
"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:4GHq6.59221$Xj7.7...@news.infostrada.it...


Grande ! Peccato che non ci siano ancora contenuti ......

Newsgroup: it.comp.lang.pascal
Titolo: "File not found graph.tpu"

Ogni volta che scrivo un programma con la grafica in Initgraph inserisco la
directory dove ci sono i driver per la grafica (e dove c'è anche il file
"graph.tpu") però mi dice sempre "file not found graph.tpu", così ho provato
anche le altre directory che ci sono nella cartella del tp ma nulla. Cosa
posso fare?
Grazie in anticipo
Slider

 ha scritto nel messaggio
news:qFSd8.9737$Ns4.4...@news2.tin.it...



wrote:

Newsgroup: it.comp.lang.pascal
Titolo: Boolean

Ciao, č da poco che ho cominciato con il pascal e vorrei sapere che
cosa sono le variabili di tipo boolean e come si usano.
                Grazie
**************************************
Stefano Guidotti
E-Mail: 
ste...@mbox.vol.it
Home-page: 
http://www.geocities.com/
SiliconValley/8192
Climbing the Island: 
http://www.geocities.com/Colosseum/
Track/4002
*************************************

cosa sono le variabili di tipo boolean e come si usano.
Dunque, i boolean sono variabili che possono assumere due soli valori:
vero (True) o falso (False). Possono essere usati nelle selezioni o
noi cicli. Ad esempio:
var
  TuttoAPosto : Boolean;
if TuttoAPosto then (*istruzione 1*)
else (*istruzione 2*);
In questo caso è sottinteso "if TuttoAPosto = True".
var 
  Finito : Boolean;
Finito := False;
repeat
  (*istruzioni*)
  (*ad un certo ciclo potremmo aver finito di fare quello che dobbiamo
fare; ad esempio se dobbiamo scomporre un numero in fattori primi
eseguiremo un ciclo che si arresterà quando il dividendo è 1; a quel
punto inseriremo un'istruzione del tipo Finito := True*)
until Finito;
(*se Finito è True, il ciclo viene interrotto, altrimenti no*)
Un boolean può essere utile anche in altri casi: ad esempio se si ha
una condizione che può assumere due sole forme: vero o falso, oppure
sì e no, oppure 0 e 1, ecc. Un boolean ad esempio può essere utile per
memorizzare lo stato di un'opzione nel proprio programma: attivata o
disattivata.
Una costante di tipo Boolean si definisce così:
const
  Variabile1 = True;
  Variabile2 = False;
Se hai bisogno di altri chiarimenti, scrivimi.
Ciao,
Mauro Molinari
(Pascal programmer & musician)
Internet e-mail: 
maur...@tin.it
 / 
maur...@mbox.vol.it
Digital Things Home Page: 
=> 
http://www.geocities.com/SiliconValley/Bay/8251
=> 
http://space.tin.it/musica/gvettora
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://www.musicnation.com/home/digital_things
*** To send me an e-mail, select the right address.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto.

cosa sono le variabili di tipo boolean e come si usano.
una variabile boolean č una variabile che puň contenere solo due
valori: True (vero), False (falso).
E' molto utile nelle diramazione o decisioni che il programma deve
prendere,   per esempio:  
var
     Affamato:Boolen;
begin
(*  
 qui ci deve essere un'assegnazone di true o false ad Affamato  
*)
 
   if Affamato 
   then Writeln('Mi cucini un bue, per favore')
   else  Writeln ('Vorrei solo un caffč, grazie')
end.
Ciao Lauro 


------------
Warning! remember to delete NOSPAM to answer by e-mail!