mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Chi viene su #turbopascal

Chi viene a farmi compagnia.
Sono solo soletto in mezzo alla rete,non vorrei perdermi.
Accorrete numerosi su #turbopascal .Se non adesso almeno venite alle 22.
Ciao

 wrote

Leggo continuamente "#turbopascal", mi dite cosa rappresenta questa
"sigla"? Come si accede? Bisogna un programma adatto?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

"sigla"? Come si accede? Bisogna un programma adatto?
Si, BISOGNA UN PROGRAMMA ADATTO ;)
Insomma, io uso mIRC e forse che forse si puň accedere a quella "strana
cosa" =) anche da IRC. Mň vedi tu....
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   V   \_/

Newsgroup: it.comp.lang.pascal
Titolo: non so niente

Scusate l'ignoranza ma ho un po' di domande (stupide) da farvi-premetto che
non so nulla :
1   Che differenza c'č tra Pascal e turbp pascal?
2   A che puņ servire conoscerli??
3   Cosa serve per iniziare da ZERO??
grazie !!!!

1: il pascal è il nome del linguaggio; il turbo pascal è  il nome del
compilatore che si usa
2: Dato che è semplice da imparare, è ottimo per fare il primo approccio con
il mondo della programmazione senza troppo bestemmie perchè non si capisce
un c***o!
3 Un manuale;  prova su 
www.manuali.it

 3   Cosa serve per iniziare da ZERO??
 Un compilatore ed un buon libro.

 grazie !!!!
E di cosa?? ;PP
Newsgroup: it.comp.lang.pascal
Titolo: per morse...

vorrei fare un programmino per tradurre da testo normale in morse, quindi, a
ogni lettera e numero devo associare il suo codice morse, come potrei
organizzarmi con pascal?
mi sapete dare qualche input per iniziare?
non so come dire a TP di assegnare ad una data lettera quel dato codMorse e
si riprendere stampare a video la stessa frase digitata ma tradotta!!!
....consigli e pareri.....
Grazie
FM

Ti consiglio di fare un ciclo for che dura per il numero di lettere della
frase e far prendere dal tp lettera per lettera che verrà poi anlizzata da
un costrutto case che assegnerà ad ogni lettera il suo codice. Poi unisci
tutti i codici di tutte le lettere.
La struttura sarà:
for i:=1 to n do
 begin
 x:=a[1];
 case x of
 'a': l:= '...---';
 'b': l:= '--..'
 eccc...
 write (l);
 end;
ove n è il numero di lettere, a è la stringa da tradurre, x è una var char
temporanea e l è una stringa
temporanea
alebe...@iol.it

 wrote in message
8dtB5.50073$3R6.1...@news.infostrada.it...

Io personalmente, farei cosi:
1° la lettura della tastiera viene intercettata (con readkey per sesempio)
2° crei un array di corrispondenza
3°ogni volta che viene premuto un tasto la funzione 1 restituisce l'indice
del tasto premuto
   e analizzando l'array scopri il codice morse!!
4° visualizza a schermo il codice prodotto

organizzarmi con pascal?
Allora io farei cosi:
1) Ceerei un arrai di stringhe con idice char. Una cosa del tipo
Type
  TSimboli=a,b,c ... z, 0,1,2,3...9 
  TCorrispondenza=array[TSimboli] of string;
2)Puoi fare lericerche cosi:
  Intercetti con Redkey e per ogni carattere letto mostri l astringa
coorispondente.
Ciao
  checco

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Cerco Delphi

visto che per motivi di studio sto imparando il pascal mi piacerebbe
scaricare il delphi 5 della borland per provare a realizzare qualche
programma win32 chi mi passa qualche link??
GRAZIE e scusate l'OT
--
---
Marco Sommella {Skonvols2k}
somme...@inwind.it
skonv...@iol.it
************************************

programma win32 chi mi passa qualche link??
www.borland.com
 
Ci dovrebbe essere la versione evaluation del 5.
--
Andrea Laforgia (ICQ 87230455)
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

ovviamente una versione "completa"!!!!!!!! :-)

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

intendevo ovviamente una versione "completa"!!!!!!!! :-)
Comprala.

Newsgroup: it.comp.lang.pascal
Titolo: Come funge INITGRAPH? Aiuto!

#Non sono riuscito a combinare niente!!
Hai indicato il giusto percorso del file .bgi?
Ciao
Andrea C

Per es.
Initgraph(p,m,'c:\tp\bgi');
Ciao
Andrea C

Da qualche settimana programmo (si fa per dire) in Pascal. Ora ho la
versione 5.5 (la 7 la ho canc x sbaglio!!!)
Mi sto bloccando sulle funzioni grafiche. Vorrei disegnare un punto rosso
sullo schermo (cosi' per provare) in modalita' VGA 640x480 a 16
colori......... come faccio? Con il seguente prog ho fallito numerose volte:
program punti;
uses crt,graph;
var xs,ys,m,p:integer;
begin
clrscr;
p:=detect;
m:=detect;
InitGraph (p,m,'');
putpixel (100,100,red);
closegraph;
end.
Non sono riuscito a combinare niente!! E' anche probabile che nel mio prog
non ci sia una riga giusta? C'e' qualche anima buona che mi sa illuminare
(pfv scrivete tutto il codice dopo il begin, se no non ci capisco nulla...
grazie)?
GRAAAAZIE
Ciao
Lorenzo

Da qualche settimana programmo (si fa per dire) in Pascal. Ora ho la..
prova a spiegare cosa accare dopo run.


-=> NeGuS <=-
www.geocities.com/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Versione aggiornata di TP

Dove posso trovare la versione pių aggiornata del Pascal?
Maurizio Falavigna
famiglia...@libero.it

 
famiglia...@libero.it
Puoi trovare il FreePascal al sito 
www.freepascal.org
Tale compilatore è compatibile con il borland, ma manca totalmente di
interfaccia grafica, inoltre è pienamente a 32 bit


Se intendi Turbo/Borland Pascal, l'ultima versione e' la 7.0 (o 7.01?...boh,
non l'ho mai vista), **forse** la trovi in qualche sito pirata.....tempo fa
circolava il thread di un tizio che aveva messo il BP7 in un sito.(prova con
Deja)
Non credo che Inprise (Borland) commercializzi ancora il Pascal.(anzi,
nell'ex-sito Borland ci trovi la versione 1, 3 e 5.5.....quest'ultima e'
sicuramente un buon punto di partenza (per uno che ha iniziato a programmare
con il Turbo Pascal 2.03b))
Tra TP e BP ti consiglio quest'ultimo in quanto come ambiente di sviluppo e'
completo. (ci puoi fare di tutto)
Ciao.
Simone.
Newsgroup: it.comp.lang.pascal
Titolo: Tipi di files: di record... ?

Ciao a tutti!
Sul mio libro dice che uno dei tipi di file più usati è quello di record
(per i programmi gestionali, ovvero per creare tabelle recordXcampi). Ma che
altri tipi di files esistono? e come si usano?
Grazie!
Ciao
Elio

Esistono anche i file di testo.
Si dichiara con
     VAR nomevar: text;
La differenza principale è che i file di record sono di tipo diretto, quindi
puoi accedere ad un record direttamente, invece quelli di testo sono di tipo
sequenziale

 ha scritto nel
messaggio news:GGwmb.65157$vO5.2...@twister1.libero.it...

in realtà il tipo text è predefinito come se lo dichiarassi file of string.
viene letto come se ogni record fosse un stringa pascal-style il cui
delimitatore sul file è la solita sequenza CR LF.
Non so dire se sia supportato il file Unix che ha soltanto il CR alla fine
delle righe.
In ogni caso hai tutti i limiti della stringa pascal-style di 255 caratteri
per riga e credo proprio che non riesci a tornare indietro di una riga,
quindi l'accesso è sequenziale e tuttal+ devi ricominciare daccapo. E'
comodo come metodo ma inefficiente per fare certe cose.
Se lo vuoi elaborare direttamente devi dichiararlo file e basta. In tal caso
puoi leggere n bytes alla volta a tua discrezione, allocarli in un vettore o
in un'area dinamica di memoria, elaborarlo come preferisci ecc ecc.

> in realtà il tipo text è predefinito come se lo dichiarassi file of string.
argh. fitta. Ecco... non proprio :-)
Un file di testo e' predefinito come TTextRec, che e' una cosa piu' complessa
e piu' o meno equivalente ad un device a caratteri + un driver che lo gestisce.
Ma qua ci incasiniamo :-)  un file di testo e' una sequenza di caratteri, che
termina con il simbolo speciale EOF (volentieri il carattere ^Z).
Come lo leggi puo' cambiare un poco le cose, ma il tp ti mette a disposizione
la read (che fa' parte della "driver" per il device "file di testo") che
permette piu' metodi differenti:  read(file,char) e puoi leggere carattere
per carattere(compresi ritorni a capo); read(file, <formato numerico>) che
ti permettere di "provare" a covertire direttamente in numeri, oppure
readln(file, stringa) che prende un'intera riga.  Con il metodo a caratteri
puoi leggere righe lunghe quanto vuoi... ma in generale non c'e' bisogno
che il file abbia delle righe ( o, se vuoi, puo' essere un'unica riga ).
Non puoi tornare indietro ok, ma questo e' insito nei device a caratteri,
loro sputano una sequenza continua di singoli caratteri, sta a te elaborarli
in modo strutturato. Un file normale di nuovo e' una sequenza di caratteri
che poi leggere ed elaborare, in modo strutturato o meno, ma la cosa piu'
importante e' l'accesso casuale.
-- 
Dreadnaut
(signless perche' sono le 3 di notte)

 importante e' l'accesso casuale.
è una sequenza di bytes, più genericamente parlando.
Che poi tu li tratti da caratteri, da interi o da record sta a te deciderlo
dopo che li hai letti dal file dentro al tuo buffer

 è una sequenza di bytes, più genericamente parlando.
mmh si, "caratteri" dev'essere uscito per il sonno :-)
saluti
-- 
Dreadnaut
( Life would be easier if I had the source code )
Newsgroup: it.comp.lang.pascal
Titolo: Alberi binari di ricerca

Salve gente, sono nuovo di qui...
Volevo chiedervi una cosetta semplice semplice... che pero' non mi riesce  
di fare!
Ho bisogno di una procedura che passato come parametro il puntatore  
all'elemento radice di un albero binario di ricerca, cancelli  
completamente l'albero, ricorsivamente...
Utilizzo questa struttura dati:
type
	tipoalbero=^nodo;
	nodo=record
		info:integer;
		sx,dx:tipoalbero;
	end;
ho creato la procedura, ma non funziona, alla prima esecuzione della  
stessa setta l'elemento radice a 0, senza toccare i nodi figli, alla  
seconda ho un errore di segmentation fault...eccola:
procedure delete_all(var a:tipoalbero);
begin
	if a<>nil then
	begin
		delete_all(a^.sx);
		delete_all(a^.dx);
		dispose(a);
	end;
end;
-- 
"First make it work, then make it fast"
-Bruce Eckel-

 procedure delete_all(var a:tipoalbero);
boh, mi sembra giusta...  il nodi sono allocati con New ?
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

> procedure delete_all(var a:tipoalbero);
Forse dico un cavolata è da molto che non scrivo codice in pascal ! Prova ad 
eliminare il var dal parametro formale
Ciao ReDiCuori
-- 
L'informatica è un' arte
---------------------------------------------------------
www.pascallike.too.it
http://utenti.lycos.it/pascallike
il sito sulla programmazione pascal
sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
-------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Segmenti ?

Sto facendo un programmino di geometria.
Sto inserendo tutti i dati relativi agli oggetti (punti, rette, circonf,
etc) in degli array, uno per ogni tipo.
es. PUNTI : array [1..20] of array [0..2] of real;
Per dirgli la posizione del primo array o fatto cosě...
Si inserisce la lettera corrisp. al punto (es. A).
oggetto_numero:=Ord(lettera)-64;
Facciamo finta che le coordinate sono (5;6)....
PUNTI [oggetto_numero][1]:=5;
PUNTI [oggetto_numero][2]:=6;
Spero sia chiaro...
La questione č questa: come posso fare la stessa cosa per i segmenti ?
Il mio problema č assegnare l' oggetto_numero partendo dalle lettere dei due
vertici.
Avevo pensato di fare...
oggetto_numero:=Ord(primo_vertice)-64+Ord(secondo_vertice)-64
ma in questo modo i segmenti CD (3+4) e BE (2+5) avrebbero lo stesso
identificativo...
Spero troviate una soluzione....
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

vertici.
Implementa un array [bottom..top] of integer ; a cui accedere tramite
la formula :
indice := (ord(c)-ord('A')+1)*256+ord(d)-ord('B')+1 ;
dove 
bottom := 257 + ord('B') ;
top := 25*256 + 27 ;
Pero' in questo modo tieni presente che AB e BA hanno indici diversi.
(ma se fai in modo che BA venga ordinato in AB avrai lo stesso
risultato).

Vediamo se ho capito ...
In pratica invece di dirgli quande celle deve avere aumentano man mano ?


6169 ? Ma sau quanti byte sono se ad ognuno di quelle celle associo 3
variabili real ?
Io avevo pensato di fare...
numero1:= ODR ('A')-64;
numero2:= ODR ('B')-64;
numero_segmento:=numero1*10+numero2.
diverrebbe array[1...300] circa....
non č meglio ?


non è meglio ?
No, perche' (ovviamente) moltissimi valori verrebbero a collidere.
Giusto per farti un esempio AM e BC avrebbero lo stesso numero.
A (65) - 64 = 1
M (77) - 64 = 13
1 * 10 + 13 = 23
B (66) - 64 = 2
C (67) - 64 = 3
2 * 10 +  3 = 23
A questo punto ti converrebbe implementare una tabella hash.


Che roba è ? Si mangia ? :-)


Che roba è ? Si mangia ? :-)
Ok, come non detto ;)
Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal per Windows

Nessuno puņ passarmi Turbo Pascal per Windows o mi sa indicare un sito dove
scaricarlo?
Grazie
Ciao

 scaricarlo?
Guarda che sono un 25 Mb..
--
_________________________________
#ICQ: 17079401
http://quartaa.cjb.net
_________________________________
-->René<--
:-)

 > Nessuno può passarmi Turbo Pascal per Windows o mi sa indicare un sito


 > > scaricarlo?


Newsgroup: it.comp.lang.pascal
Titolo: puntatori e liste

dove posso trovare un tutorial sulle liste gestite tramite puntatori o un
sorgente??

Prova un po sul sito in firma vedi se il tutorial ti soddisfa
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

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

http://happyportal3000.tux.nu
http://happyportal2000.3000.it
http://happyportal2000.da.ru
http://happyportal3000.cjb.net
àA
àA
Aà
VB
B
RBà
W BV
W
WA
BVò
AWVò
AWVB
A

Talmente scioccante che l'hanno rimosso... :-)

Newsgroup: it.comp.lang.pascal
Titolo: Ordinamento file di record::velocizzare

Per ordinare un file di record (ogni record ha circa 20
variabili/voci), con circa 6-7000 records, ho usato un
algoritmo del tipo:
prendi il file(file1)
crea un nuovo file vuoto (file2)
CICLO1:
prendi un record
confrontalo con tutti gli altri records
   se è il minore, aggiungilo nel nuovo file e segnalo come già
   spostato.
ripeti il ciclo1 finche non hai aggiunto tutti i records del file1 nel
file2 ordinati.
cancella il file1 e rinomina il file2 come il file1
Il sistema funziona perfettamente ma per ordinare tutto il file di
circa 6 mega, ci mette mezz'ora....
esiste un algoritmo più veloce per l'ordinamento di grossi file di 
records?
Phones
 
 

 ha scritto nel messaggio
news:3b38aac9...@news.tiscalinet.it...



non ho mai usato una struttura ad albero,
poi come lo ordino, come passo da un nodo all'altro?
Phones

 Per ordinare un file di record (ogni record ha circa 20
Forse ti conviene leggere tutti i record del tuo file in una lista (spero ke
tu sappia di ke si tratti) gestita tramite puntatori.
Poi ordini la lista in modo da avere i record nell'ordine ke ti interessa e
riscrivi tutto... l'ordinamento sarà fatto in memoria e non accederai ogni
volta al file... alla fine riscriverai tutto solo quando gli elementi
saranno ordinati...
Spero ke questa soluzione ti aiuti.
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
    /\   /\
\_/  V   \_/

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

scusate. mi potreste spiegare perche' quando utilizzo il seguente comando
(lst) per stampare qualche cosa, alla fine il foglio non mi esce ma rimane a
meta'? devo inserire qualche particolare istruzione? grazie in anticipo
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
per il replay togliere NOSPAZZATURA

 ha scritto nel messaggio
news:5BpT6.9878$Cq3.1...@news2.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: guida su pascal standard

ciao,
scusate se vi rompo ancora, però vorrei sapere se qualcuno di voi può
dirmi dove scaricare una guida più o meno completa (anche in inglese)
al pascal standard.
il problema è che in università si usa quello e tutte le guide che
trovo parlano di turbo pascal e sono un po' troppo sul pratico, mentre
a me serve qualcosa di molto teorico per sostenere l'orale...
grazie!!!!
http://www.geocities.com/SiliconValley/Sector/4934
ICQ: 25795934

In libreria prova a comprare qualcosa di Wirth, come "Algoritmi + struddure
dati = programmi". Costa 25.000 L.
-=Azathoth=-

a me serve qualcosa di molto teorico per sostenere l'orale...
Cosa ti interessa sapere ?
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Sostituire una lettera dell'alfabeto

Ciao a tutti,
avrei un problema, devo sostituire una lettera dell'alfabeto con la
successiva, la precedente ecc... a seconda di ciò che viene dichiarato. Ad
esempio -1? La precedente, +2? quella che viene due volte dopo...
Qualcuno mi può dare una dritta???
Tnx
Dark Angel - MoF

es: per 2 lettere sucessive:
nuovalettera:=chr(ord(vecchialet)+2);
oppure fai una funzione ricorsiva... fai tu come ti pare
puoi usare anche le funzioni succ e pred
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it
"Dark Angel - MoF" <goldangel@NO_SPAM_tin.it> ha scritto nel messaggio
news:Mm8Q6.15480$WT5.5...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: funzione random con tutti i caratteri

ciao a tutti, mi servirebbe per un programma una funzione random che
estragga non solo numeri, ma tutti i caratteri (formato char)...è possibile
farla? e come si fa?
grazie


a:=random(26)+65 (le lettere maiuscole dalla A alla Z in codice ASCII)
e poi char(a) ti restituisce il carattere corrispondente.
Ciao

 Ciao
cosě perň ora ho solo caratteri, se io volessi contemporaneamente caratteri
o numeri?
grazie
Newsgroup: it.comp.lang.pascal
Titolo: Provate il mio PROGRAMMA

Essendo oramai giunto ad un buon punto nella compilazione di un mio
programma per il pronostico/sviluppo/statistiche etc. per i giochi a
pronostici
vi invito a visitare il mio sito ed a scaricare il demo.
Sarei grato a quanti vi invieranno il loro parare sullo stesso o vorranno
suggerirmi miglioramenti o nuove tecniche da implementare.
Ciao Berny ;-)

> vi invito a visitare il mio sito ed a scaricare il demo.
posta il sito!
bye:)
-- gabri

 ha scritto nel messaggio
news:8vest5$48oc4$1...@ID-53993.news.dfncis.de...


ti segnalo che ci sono problemi col link di ted.exe
bye
-- gabri

 ha scritto nel messaggio
news:8vjq0n$4mi0o$1...@ID-53993.news.dfncis.de...


Newsgroup: it.comp.lang.pascal
Titolo: Stringa to Double

Ho un problemino con uno script pascal, devo convertire una stringa in
un double. Il problema è che la stringa non contiene il valore
'decimale' del double ma la sua rappresentazione binaria sotto forma di
array di char. Perchè? Limitazioni dell'ambiente di script. Non mi
viene in mente niente che funzioni.
Devo calcolarmi mantissa e esponente? Non è un po lentino?
Grazie in anticipo 
Paolo

Datemi un'idea...per andare avanti sto per darmi all'assembler inline

 Devo calcolarmi mantissa e esponente? Non č un po lentino?
mmh non sono certissimo di aver capito, intendi che la stringa e' sempre esattamente di 8 byte 
e contiene esattamente gli stessi byte che sarebbero in un double ?
nel caso, puoi provare a dichiarare un double come "absolute" rispetto alla stringa:  le due 
variabili condivideranno la stessa zona di memoria, ma con due tipi diversi.

Si esatto.
Sono un po arrugginito sul pascal, come faccio a dichiararli absolute?

 Sono un po arrugginito sul pascal, come faccio a dichiararli absolute?
http://dreadnaut.altervista.org/pascal/tp7ita/05DC.html

Grazie. Visto però che l'ambiente di Script è limitato ed è
difficile ampliare le funzionalità non è che
ti viene in mente qualche altro approccio?

 ti viene in mente qualche altro approccio?
beh, una funzione che prende l'array e ci appiccica un double absolute non dovrebbe essere un 
grande problema da aggiungere.  Altrimenti puoi copiare la memoria sopra un double ( 
memcopy ?  bcopy ?  non ricordo :-\ ).  Se non passi per la conversione automatica, ti tocca 
quella manuale, e li e' piu' sbattito.

Ok grazie
Newsgroup: it.comp.lang.pascal
Titolo: Programmini DOS col Delphi

Sapete se col Delphi (io ho la versione 3) è possibile creare e compilare
dei programmi per dos (quelli che creaiamo normalmente col TP), usando
quindi le mitiche funzioni readln, writeln, clrscr??
end.


wrote:


quindi le mitiche funzioni readln, writeln, clrscr??
{$APPTYPE CONSOLE} prima di Program
oppure qui avrei un tutorial intitolato "Delphi Does Dos" che spiega come 
usare i vecchi compilatori 16 bit per creare programmi DOS (magari, 
azzardo, si potrebbero persino creare programmi per Windows 3.x con il 
compilatore dos...)
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++  
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r  tv--  
b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

Newsgroup: it.comp.lang.pascal
Titolo: aiuto:procedure Random

Richiesta d'aiuto:
Qualcuno mi puņ aiutare a creare una procedura per l'estrazione casuale di
numeri  da un  range di qualsiasi dimensione (da decidersi di volta in
volta)?
Come posso poi controllare che sia veramente un'estrazione random?
Grazie
Cristina

 Qualcuno mi puň aiutare a creare una procedura per l'estrazione casuale di


 Innanzitutto sarebbe una Function, così:


 Cristina
Stai solo facendo un sacco di confusione! Guarda se questa soluzione ti
piace:
Es.: Devi estrarre un numero compreso tra 0 e 1 reale.
     Vuoi troncarlo alla seconda cifra dopo la virgola (0.21).
     Non esistendo l'estrazione di un numero reale, estrai un numero
intero      compreso tra 0 e 100 e poi dividilo per 100.
     In tal modo ottieni il risultato cercato senza complicarti la vita!
Se non hai capito fammelo sapere!
Ciao
MaTTeO.

 wrote in message
3950F7A1...@libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: [OT, Statistiche] Sono primo!!!

Sono il primo (complimenti al secondo: RdC) nelle statistiche del
gruppo ringrazio i partecipanti forse (e dico forse) a novembre mi
potete battere
per vedere le statistiche
http://newsstat.musicoff.com/it.comp.lang.pascal/200210.html
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 potete battere
Peccato che la maggior parte di quello che dici sono scemenze ;))
--------------------------------
Inviato via 
http://usenet.libero.it

 per vedere le statistiche
Scherzi??? E il terzo non merita niente?
Grazie vi amo tutti.
Ciao :-)

Peccato che la maggior parte di quello che dici sono scemenze ;))
Senti da ke pulpito viene la predica


 Senti da ke pulpito viene la predica
Si dice "che" pulpito ;)..... le vogliamo contare ? :)


Senti da ke pulpito viene la predica
LOL flame Laforgia vs. Razziatore in arrivo :)
--
Rhymes (
rhymes_...@myself.com
)
http://www26.brinkster.com/rhymes
http://bw-crema.blogspot.com

 LOL flame Laforgia vs. Razziatore in arrivo :)
Nessun flame (temo che il mio "avversario" non ne avrebbe i mezzi :), e'
solo che dopo un po' ci si stanca di leggere le stupidaggini scritte sempre
dalla solita gente :)


dalla solita gente :)
ps. scusate L'OT
tempo fa ti ho scritto una mail ma non hai mai risposto :) t'è
arrivata almeno?


 arrivata almeno?
Ho un sistema di posta che scarta automaticamente le mail provenienti da
indirizzi che non sono compresi nella mia white-list. Questo per evitare la
spam dai ng e per consentire di ricevere posta solo da chi decido io o in
seguito a richieste esplicite da parte mia.
Sicuramente non ho letto il tuo messaggio, perche' e' stato scartato prima.


Sicuramente non ho letto il tuo messaggio, perche' e' stato scartato prima.
Wow e allora se Fuller ti manda un'email con scritto che ti assume
alla Borland che fai la scarti :P ? fammi sapere quando entro nella
tua white-list


fammi sapere quando entro nella tua white-list
Manda pure.


Manda pure.
Boh ora nemmeno mi ricordo più che c'era sscritto cmq mi sembra
trattasse di Python for Delphi


 cavolata :) Mi immagino quante email significative tu possa perdere
Se permetti sono affari miei e finora questo sistema ha funzionato
EGREGIAMENTE.
Dall'indirizzo di posta che inserisco nei ng non ottengo quasi mai cio' che
tu intendi come e-mail "significative". La politica di gestione di QUELLA
cassetta di posta e' fatta proprio per evitare che qualcuno possa scrivermi,
senza che io ne abbia dato il consenso. Senza offesa, s'intende. La posta
torna indietro con un messaggio che ti indica che c'e' il blocco e che se
vuoi scrivermi devi usare una stringa particolare nel subject. Ora che so di
cosa volevi parlarmi posso dirti: guarda su Google, c'e' un mare di
documentazione in proposito.


documentazione in proposito.
Io volevo la tua opinione ma non ci sono problemi, google is our
friend

Newsgroup: it.comp.lang.pascal
Titolo: Cerco funzione

Chi sa dirmi una funzione per copiare in una variabile char un carattere in
posizione specifica di una stringa?Grazie

 ha scritto nel messaggio
news:GYvUb.261174$_P.89...@news4.tin.it...


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

Ciao raga,
mi sapreste consigliare il miglior manuale completo hce c'è in circolazione
per il turbo pascal?

 ha scritto nel messaggio
news:90r1sv$kg0$1...@pluto.sm.dsi.unimi.it...


grazie 1000 kosbi, ma io vorrei un manuale completo e non una introduzione!

 mi sapreste consigliare il miglior manuale completo hce c'č in


Newsgroup: it.comp.lang.pascal
Titolo: Uso moderno del Pascal

Ammesso che ci sia ancora qualcuno volevo chiedere :
Oggi in che contesti di programmazione viene usato ancora il Pascal ?
Il Delphi rappresenta il proseguimento del Pascal ? Quindi di fatto il 
Pascal non e' finito ?
Grazie 

 ha scritto:

contrariamente a quanto molti credono, il pascal è vivo. qui
http://www.freepascal.org/
 c'è un ottimo progetto e, ad esempio, peazip è
scritto proprio in free pascal. un'altra informazione: le olimpiadi di
informatica, che coinvolgono gli studenti di tutto il mondo, permettono ai
partecipanti di usare indifferentemente il pascal o il c++. 
il delphi si può considerare l'evoluzione del pascal orientato ad oggetti,
vedi lazarus all'interno di free pascal.
ciao

 partecipanti di usare indifferentemente il pascal o il c++.
A proposito di Olimpiadi, sai per caso se ci sono gare del genere per 
persone piu' grandi ? Cioe' no studenti
Ciao 

 
scusa se ti rispondo solo ora. che io sappia non ci sono competizioni del
genere per adulti ma se dovessi sapere qualcosa di nuovo in merito, non
mancherò di comunicarlo a te e a chiunque fosse interessato.
ciao

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

Ciao a tutti,
    qualcuno ha un listato, con qualche commento, dove possa capire come
fare ad usare l'effetto dissolvenza?
Grazie


ciao,
cerca su un motore di ricerca i tute di Denthor, lě viene spiegato come
realizzare il fading in pascal e c.
Se non li trovi fammi sapere che te li mando
bye
Albe
Newsgroup: it.comp.lang.pascal
Titolo: vettore di stringhe...

Ciao a tutti dovrei creare un vettore contenente delle strighe,ho provato i 
questo modo ma il compilatore esce al primo inserimento...non capisco dove 
sbaglio:
type parole=string;
type vettore=array of parole;
var v:vettore;
    frase:parole;
    i:integer;
begin
 for i:=1 to 5 do
  begin
   writeln('Inserisci una frase, digita 0 per terminare: ');
   readln(frase);
    if (frase<>'0') then
      v[i]:=frase;
  end;
end.

 sbaglio:
setlength(vettore,5);
for i:=0 to 4 do eccetera eccetera

Alberto ha scritto:

Dovrebbe mancare solo la dichiarazione del tipo dell'indice dell'array:
type vettore=array[1..5] of parole;

I vettori devono essere inizializzati.
La dichiarazione vettore=array of parole significa che dichiari un 
vettore a cui non hai associato il numero di elementi per cui se tenti 
di inserirne uno si pianta con errore.
Hai due possibilità:
1) Dichiara la lunghezza
type
   vettore = array[1..6] of parole
2) Continua ad usare un vettore non inizializzato ma setta la dimensione 
a runtime (questo non ricordo se in pascal era lecito - in Delphi si)
Type
   vettore=array of parole;
Begin
   SetLength(vettore, 5);
   for i:=1 to 5 do
    begin
      writeln('Inserisci una frase, digita 0 per terminare: ');
      readln(frase);
      if (frase<>'0') then v[i-1]:=frase;  (* nota il -1 *)
    end;
alla fine dell'utilizzo rilascia la memoria con finalize(vettore)
Ciao,
David

Newsgroup: it.comp.lang.pascal
Titolo: Data di nascita del Pascal

Qualcuno si ricorda quando e' nato il Pascal?
Grazie.
------------------------------
Antonio Donatiello
SANPAOLO S.p.A.
----------------------------
** REMOVE ANTI-SPAM **

Qualcuno si ricorda quando e' nato il Pascal?
Fine anni '60 credo.
------
Andrea
------

...

No è no giusto. Era in 1983.
This is not right. It was in 1983.
c...@gmx.net

This is not right. It was in 1983.
Stai scherzando ?
Forse stai parlando di qualche compilatore.
Il Pascal e' molto piu' vecchio.
--------------------------------------------------------
Andrea      
mica uno qualunque...
--------------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Cosa c'e' che non va in'sto programma? - dma6.pas (1/1)

begin 644 dma6.pas
<encoded_portion_removed>
end

begin 644 dma6.pas
<encoded_portion_removed>
end

Newsgroup: it.comp.lang.pascal
Titolo: Qualcuno ha il file WinCrt.Tpu ?

Il mio compilatore ne è sprovvisto se qualcuno ha questo file può
inviarmelo? grazie.
fab...@libero.it

 ha scritto nel messaggio
news:JOMn7.41282$ul3.1...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: La smette di piovere ?

get_color:= (CrtMem[y,x].at - ((CrtMem[y,x].at DIV 16)*16));
equivale a  get_color :=  CrtMem[y,x].At and $f;  :-)
mentre il col di background e':
 CrtMem[y,x].At shr 4
e se vuoi togliere il bit lampeggiamento diventa:
 CrtMem[y,x].At shr 4 and 7;
(shr e and hanno la stessa precedenza, quindi si applicano da sx a dx)
--
Dreadnaut
(Life would be easier if I had the source code)

...[cut cut cut]...
beh.. se ogni volta che piove fai un tutorial
a me conviene che dalle tue parti piova di
continuo ;-)
Grande Dreadnaut...
Cereal
ps: anche qui a Beramo piove cappero..

si ma fra un po' mi fa la muffa il pc :-)


> si ma fra un po' mi fa la muffa il pc :-)
dai dai..
non piace la pioggia, però come dici tu
"Life would be easier if I had the source code"
in questo caso per noi! dai scherzo..
Ciao!
Cereal
ps:
hai visto le date? mi hai risposto un minuto dopo..
stile chat.. grande!

> -\eof\- 05/04/02 - (c) 2002, Dreadnaut production :-ţ
ehm... ops... il copia-e-incolla non risistema la data... era 08/05/02
ma al tempo stesso mi accorgo che sono un po' fuori, perche'
anche quella era sbagliata... era 05/05/02 :-)
[ ma potrei bossarmela dicendo che e' all'inglese :-p ]


 "Life would be easier if I had the source code"
mmmh asp... ^K-F, "setPioggia(true);"
un Dreadnaut che una volta c'era #turbopascal...
--
Dreadnaut
(Life would be easier if I had the source code)

 --
un bel po' di tempo fa però...sigh
bye
Albe

> mmmh asp... ^K-F, "setPioggia(true);"
ahahah! dai!! grande!
application.terminate();
bye.
Cereal

> un bel po' di tempo fa però...sigh
ma... io la butto li... intorno alle 21:30, era 
irc.tin.it
 vero ? :-)


Newsgroup: it.comp.lang.pascal
Titolo: [test]

Pls se mi legete mandate una mail a 
l.le...@inwind.it
 grazie.

 ha scritto nel messaggio
news:N7f48.5453$761.1...@twister1.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Cancellare testo in modalità grafica

Salve, ora vi spiego il mio problema.
Se con la funzione outtext(x,y,'testo') scrivo una riga, magari sotto un
grafico, come faccio poi per cancellarla?
Ad esempio se io con la stessa procedura ci vado a scrivere sopra, a
differenza di come succede in modalità testo, le scritte si sovrappongono.
Grazie. Ciao.
____________________________________________ 
regalati una e-mail - 
http://www.freemail.it
 
--
Posted from [195.216.158.30]  by way of 
qma...@hermes.evo.it
 [194.184.29.10]
via Mailgate.ORG Server - 
http://www.mailgate.org

differenza di come succede in modalità testo, le scritte si sovrappongono.
Riscrivila con il colore dello sfondo.
setcolor ( 15 ) ;
outtextxy(x, y, 'testo') ;
setcolor ( 0 ) ;
outtextxy(x, y, 'testo') ;

 
In generale, sarebbe meglio intervenire a priori, calcolare
l'area in cui la scritta verra' (scusate il gioco di parole)
scritta, e salvare il colore dei pixel dello sfondo in una matrice.
Poi, per cancellare la scritta, si riscrive lo sfondo.
Ovviamente, se lo sfondo e' di un solo colore, e' inutile
tutto cio' :-)
Un'altra soluzione, e' di ristampare *tutto* lo sfondo...
criticabile, ma in certi casi efficace :-)
bye!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"La durata di una riunione aumenta col quadrato del numero dei presenti",
legge di Shanahan


Allora si potrebbe fare cos'  (anzi, in genere lo si fa):
Si fa una copia in memoria dell'area che la scritta andra' a
'sporcare' tramite la procedura  GETIMAGE.
Poi si fa la scritta.
Quando si vuole cancellare la scritta si utilizza la procedura
PUTIMAGE inserendo cosi' immagine copiata.
Per calcolare l'area che occupera' la scritta si utilizzano le due
funzioni TEXTHEIGHT  e  TEXTWIDTH.
Saluti,	fabio
--
fabi...@rocketmail.com

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

Ciao a tutti,
     come da oggetto, qualcuno mi potrebbe spiegare con qualche esempio la
procedura SetRGBPalette.
Ringrazio in anticipo.

 wrote in message
Tytj8.6886$%g7.1...@twister2.libero.it...

se inizializzi la grafica a meno di 65k è possibile scegliere la tonalità
per ogni colore.
esempio se inizializzi la grafica a 256 colori puoi scegliere le tonalità
dei 256 colori
SetRGB serve a questo
ad esempio se vuoi una scala di 256 grigi
inizializzi i valori da 0 a 255 in questo modo
for i:=0 to 255 do SetRGBPalette(i,i,i,i)
però se non ricordo male la scala dei valori rgb a 256 colori varia da 0 a
63 quindi se fai il ciclo come ti ho detto ottieni 4 volte la scala di 64
grigi
Ciao.
Newsgroup: it.comp.lang.pascal
Titolo: liste e file

ri - ciao a tutti!
ho un secondo problemino: mi danno in ingresso due liste ordinate di numeri
e dovrei inserirli in un file ordinati... mi serve la dichiarazione delle
variabili e la codifica in pascal...
grazie a chiunque riesca a darmi una soluzione!

La maniera piu' semplice č quella di utilizzare una terza lista di appoggio e poi ordinarla con un qualsiasi algoritmo
(per esempio il bubble sort).
Mi spiego....
Type
   VetElementi : array[1..100] Of Integer;   (* sia 100 che integer č solamente per farti capire *)
Procedure Ordina(Vettore1 : VetElementi; Vettore2 : VetElementi; NumeroElementi1 : Integer; NumeroElementi2 : Integer;
Var Finale : VetElementi; Var NumeroElementiFinale : Integer);
Var
   Appo : Integer;
   I        : Integer;
   Ok    : Boolean;
Begin
    (* Inserimento elementi *)
    For I := 1 To NumeroElementi1 Do Finale[I] := Vettore1[I];
    For I := 1 To NumeroElementi2 Do Finale[I+NumeroElementi1] := Vettore2[I];
    NumeroElementiFinale := NumeroElementi1+NumeroElementi2;
    (* Controllo che ci siano almento 2 elementi *)
    If NumeroElementiFinale > 1 Then
       Begin
           (* Ordinamento vettore finale *)
           Repeat
               Ok := True;
               For I := 1 To NumeroElementiFinale-1 Do
                     If Finale[I] > Finale[I+1] Then
                        Begin
                            Appo := Finale[I];
                            Finale[I] :=  Finale[I+1];
                            Finale[I+1] := Appo;
                            Ok := False;
                        End;
           Until Ok;
       End;
End;
Ora in Finale hai la lista contenente tutti gli elementi ordinati e puoi scriverla su file.
Ovviamente questo č solo un esempio (utilizza un numero limitato di elementi); se non conosci il numero complessivo
degli elementi puoi usare delle liste dinamiche (puntatori) per memorizzare ed ordinare i campi oppure puoi direttamente
ordinarli sul file finale (in questo caso la dichiarazione del file deve essere F : File Of miorec - dove miorec č la
struttura record)
--
Ciao,
David (
www.utilityweb.net
)

(per esempio il bubble sort).
Quando le due liste iniziali sono gia' ordinate e' molto piu'
conveniente usare il MergeSort, ossia: prendi un elemento da ciascuna
lista, li confronti, scrivi su file il minore, leggi dalla lista
l'elemento successivo a quello appena scritto, e ricominci da capo.
-- 
Omega e' omega e basta
Newsgroup: it.comp.lang.pascal
Titolo: esiste una patch per tp7?

ciao a tutti, sono Benjamin ho soltanto reiniziato ad usare il mio vecchio
nick: Andrew_82. Mi scuso se avete già risposto ad una domanda simile...
sono tornato dalle vacanze ieri :( e sono tornato al mio pentium 2 333 che
naturalmente da errore di run-time 200 con gli exe compilati da tp7 (il
portatile con processore amd che avevo in vacanza non dava questo problema).
Lo so che c'è in giro una patch che aggiorna i file eseguibili compilati dal
tp7 e risolve il problema ma mi chiedevo esiste una patch che aggiorni turbo
pascal 7 che gli faccia compilare in modo corretto per i pentium 2?
sono agli inizi con il pascal e prima di scrivere correttamente un programma
lo devo modificare e ricompilare parecchie volte... e aggiornare ogni volta
l'exe e molto scomodo. Voi come fate a risolvere il problema?
ho provato ad usare freepascal ma non funziona bene... mi da lo stesso
problema che da a Solid Snake.
grazie mille!
ciao
Andrew_82

Andrew_82 ha scritto:

Io ne ho una per pentium III e per risolvere il problema con l'untia CRT.... ma
se ti sta bene lo stesso...
------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
http://www.geocities.com/il_razziatore/
ICQ:   67552596
--------------------------------------------------

 se ti sta bene lo stesso...
ciao, è proprio al problema con la unit CRT che mi riferivo... penso che
possa andare bene lo stesso. Me la potresti inviare per e-mail?
grazie mille!
ciao
Newsgroup: it.comp.lang.pascal
Titolo: [OT] Algoritmo picchetto

Salve a tutti,
inserisco il tag OT in quanto non è problema proprio del pascal... ma visto
che sempre programmazione è provo a chiederlo anche qui :-)
Mi servirebbe un algoritmo che sia in grado di restituire il picchetto di
una partita di calcio (probabilità che esca in schedina 1, X o 2), prendendo
in considerazione i seguenti elementi:
-    forza stimata della squadra;
-    reputazione della squadra;
-    andamento nelle ultime N partite in casa (per stimare l'andamento fra
le mura amiche della squadra di casa);
-    andamento nelle ultime N partite in trasferta (per stimare l'attitudine
della squadra ospite di vincere in trasferta, a parità di condizioni (forza,
reputazione, motivazioni), ha più probabilità di vincere in trasferta una
squadra che ottiene spesso un risultato utile fuori casa);
-    motivazioni (se la squadra lotta per un obiettivo, dovrebbe essere un
dato fornito in input, non mi interessa che il programma valuti la
classifica e restituisca un valore, anche perché possono esserci componenti
psicologiche nella squadra che non possono essere valutate arbitrariamente).
Il risultato in output dovrebbe essere il seguente:
1    (xx%),    X (yy%),    2 (zz%)
Qualcuno ha qualche idea sul come strutturare un algoritmo del genere?
Grazie a chiunque voglia aiutarmi.
Cristian

lo vedo abbastanza inca**nato... se non infattibile o cmq totalmente
inaffidabile (nel senso che se funzionasse, sarebbe gia' stato fatto in
larga scala). Modellizzare il calcio e' tremendo, tutti quei valori che
tu hai citato vanno ricondotti a costanti addittive/moltiplicative
per la probabilita' di vittoria, ma non saprei proprio come...
se l'hai gia' fatto, beh hai praticamente finito il programma.
Se non l'hai ancora fatto... beh... buona fortuna :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 Se non l'hai ancora fatto... beh... buona fortuna :-)
Grazie, aspetto l'aiuto della provvidenza! :-)

 credibili per giocare il totocalcio! :-)
ehhehe immaginavo :-)



poi ce lo passi, vero? :-))))
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

> poi ce lo passi, vero? :-))))
Direi che faresti prima (e meglio!) a comprarti (o scaricarti... decidi tu!)
Scudetto 4! :-)

 qualche matematico entusiasta ed amante di queste cose paranoiche
Chissà... proverò a postare in it.scienza.matematica... sempre che qualcuno
non mi tiri qualcosa dietro! :-)

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

Salve molto presto ho un'esame ma prima devo consegnare un progetto !!
Trovare se esiste l'algoritmo di EULERO !! Ho trovato il procedimento ma non
riesco ad implementarlo...
NE HO UN'URGENZA ASSOLUTA,,,  SAREI INFINITAMENTE GRATO A CHI MI RIUSCISSE A
DARE UNA MANO O MI SPEDISSE IL PROGRAMMA... GLI SAREI INFINITAMENTE GRATO E
SE POSSO FARE QUALCOSA PER COLUI CHE MI RISOLVERA' QUESTO INGHIPPO LO FARO'
DI CERTO.
Ci sentiamo tramite e-mail
alex...@telcanet.it
AIUTOOO

...

Newsgroup: it.comp.lang.pascal
Titolo: help!

ho una procedura mergesort
sort (l.r.x)
if l<r then
    begin
      m:=(r-l+1)div 2
      sort(l,m,x)
      sort(m+1,r,x)
      merge(l,m,r,x)
    end;
chi ha un'idea per poterla fare iterativa??? Grazie a tutti!

mmmmmmh... merge sort...
DISI ?
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> ho una procedura mergesort
se non sbaglio devi usare una pila per tenerti i limiti degli insieme ancora non
ordinati, ma è abbastanza complessa come funzione; ASD1??

Newsgroup: it.comp.lang.pascal
Titolo: IDE del freepascal

Ciao a tutti!! Ho iniziato da poco a programmare in Pascal, me la cavo
piuttosto bene vista l'esperienza sul Qbasic, Vbasic e (un pochino) C...
Ancora da meno tempo uso linux e ho provato a scaricare FreePascal per
linux... Ma non c'è un editor interno come nel FreePascal per Dos/Win?
Devo usarne per forza un'altro? Il JED va bene?
Grazie a tutti, scusate l'ignoranza...

 linux... Ma non c'č un editor interno come nel FreePascal per Dos/Win?


 ha scritto nel messaggio
news:aEhcb.112848$hE5.3...@news1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Games & Pascal - pacman.pas (0/1)

 
Mi hanno passato alcuni giochi in pascal
ma durante l'esecuzione si fermano tutti
x' mi danno un errore
BGI Error : Graphics not initialized (use InitGraph)
ma io non so come si inizializza l'InitGraph
visto che non ho mai dovuto usare la grafica in Pascal
fino ad ora
Vi allego il source di uno dei giochi se vi uo' aiutare
(ah se volete anche gli altri - 11 giochi - basta chiedere)
Grazie in anticipo
rhymes
 
 
Cio che sono e' cio
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :))

 wrote in message
38a4426d...@news.tin.it...



Manca il file EGAVGA.BGI nella directory del tuo gioco...
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....




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

Ciao a tutti mi chiamo Alessia!!!!!
Qualcuno mi potrebbe dare dei consigli su come creare una rubrica
telefonica, in cui per ogni persona corrisponde un codice di
identificazione?
Grazie!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
Sono un piccolo danno ma è il primo anno che studio Pascal!!!!!
Ciao a tutti!!!

identificazione?
Il punto di partenza e' questo :
type TPersona = record
                  Nome    : string ;
                  Cognome : string ;
                  ID      : string ;
                end ;
Puoi generare l'ID concatenando data e ora di immissione del record in
tabella.
Newsgroup: it.comp.lang.pascal
Titolo: Testo normale a colori

Come faccio a scrivere un testo normale (intendo non in grafica) a colori?
GRAZIE
Nicola

Come faccio a scrivere un testo normale (intendo non in grafica) a colori?
In TP :
uses crt ;
...
textcolor ( colore ) ;
writeln ( 'ciao' ) ;

 
with the CRT unit:
TextColor(red);
BackgroundColor(lightgray);
or simply:
TextAttr := $74;
0=black, 1=blue, 2=green, 3=cyan, 4=red etc....
$80=blinking.
TextAttr := $9E; will produce blinking yellow characters on a blue
background.
You can read the TextAttr variable, eg. to save the actual colors in a
local variable and later restore it:
Procedure IdleProc;
Var OldX, OldY, Attr : Byte;
Begin
  OldX := WhereX; OldY := WhereY; Attr := TextAttr;
  TextAttr := $1E; GotoXY(70,2);
  Write(clockstring);
  GotoXY(OldX,OldY); TextAttr := Attr; {restore}
End;
If you are using the "Window" procedure, you can also save the
WindMin and WindMax words on other local words and restore them
later.
:-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

Newsgroup: it.comp.lang.pascal
Titolo: [Req] Lista unit

Ragazzi mi potete postare la lista delle unit presenti nel Turbo Pascal 7.0
Grazie ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------


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

 Ragazzi mi potete postare la lista delle unit presenti nel Turbo Pascal 7.0
Ecco la mia... spero che sia ciň che volevi.
APP.TPU
COLORSEL.TPU
DIALOGS.TPU
DRIVERS.TPU
EDITORS.TPU
GRAPH.TPU
GRAPH3.TPU
HISTLIST.TPU
MEMORY.TPU
MENUS.TPU
MSGBOX.TPU
OBJECTS.TPU
OUTLINE.TPU
STDDLG.TPU
STRINGS.TPU
TEXTVIEW.TPU
TURBO3.TPU
VALIDATE.TPU
VIEWS.TPU
WINDOS.TPU

 ha scritto nel messaggio
news:9ebgs8$620$6...@nreadA.inwind.it...


e' il pacchetto del tp7, anch'io ho le stesse
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)