mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: aiuto pascal...

Ciao a tutti!
Sfogliando l'archivio del gruppo ho trovato il programma ke vi mando
sotto e serve a estrarre 5 numeri senza doppion, a mo di lotto...
Ora io dovrei fare delle modifiche, tuttavia non conosco alcune cose
usate in qst programma:   Ins: Set Of Byte; (Not (N In Ins)); Inc(I);
Qualcuno mi potrebbe spiegare a cosa servono il set, ln e Inc in
quanto le variabili dichiarate nn sn ne In e neanke Inc.
Questo programma lo dovrei implementare facendo l'estrazioni per ogni
ruota ottenendo alla fine il classico quadrato delle estrazioni con
ruote e numeri.
Pensavo di aggiungere un array del tipo :
const
      ruote: ARRAY [1..11] of string [10]=
 
('bari','cagliari','firenze','genova','milano','napoli','palermo',
      'roma','torino','venezia','nazionale');
Oltre questo fare anche una matrice con 5  colonne e 11 righe in modo
che vengano fuori i numeri estratti in nun unico array.  Cosa ne
dite?   è tanto complicato fare una cosa del genere ?
Program Lotto;
Uses Crt,Dos;
Const
   Sleep= 60000;
   {Aumenta Questo Valore Per Aumentare Il Tempo
   Tra L'Estrazione Di Un Numero E L'Altro}
Var
   Ins: Set Of Byte;
   I,N:Byte;
   A: Array [1..5] Of Byte;
Begin
  Clrscr;
  I:=0;
  {Inizio Ciclo}
  {Fare Questa Procedura N Volte, Racchiudendola In Un Ciclo For
  Per N Volte Tante Quante Sono Le Ruote}
  Repeat
    Randomize;
    N:= Random(90)+1;
    If (Not (N In Ins)) Then
    Begin
      Ins:= Ins+[N];
      Inc(I);
      A[I]:= N;
    End;
  Until I=5;
  Writeln('Generazione Lotto');
  For I:=1 To 5 Do
  Begin
    Delay(Sleep);
    Write(A[I],' ');
  End;
  {Fine Ciclo}
  Readln;
End.

 Qualcuno mi potrebbe spiegare a cosa servono il set, ln e Inc ...[CUT]...
Iniziamo con Inc, è una procedura che ti incrementa la variabile (in 
questo caso) i in pratica è l'equivalente di i:=i+1;
Ins: Set of Byte => è un tipo di dato creato dall'utente, in pratica si 
definisce che Ins può contenere un gruppo di dati di tipo Byte (nessuno, 
uno, due, tre... ovviamente restando nell'intervallo del tipo Byte)
(leggi 
http://www.marcocantu.it/epascal/ch04udt.htm#Tipi%20Set
 per 
qualche chiarimento)
if (Not (N in Ins)) ecc...
puoi tradurlo come se N non è presente in Ins :)
Ciao
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.pascal
Titolo: Devo usare il VAL..ma come?..





ciao a tutti..vi espongo il mio problema:
io 
devo inserire un prezzo, e voglio
fare un controllo in modo ke
nn vi siano 
lettere al suo interno..
e fin qui la mia procedura sembra funzionare..
ma 
se poi dopo il controllo voglio fare delle operazioni
con i valori ke ho 
controllato nn posso!!!...
mi spiego meglio..da quel ke so' il VAL 
funziona
solo se il valore ke devo controllare e' string..
ma se subito 
dopo voglio fare totale:=prezzo x clienti 
e poniamo caso ke clienti e' 
integer nn posso..
come faccio?!?!?!..grazie e ciao...


 


 


 


PROCEDURE TestInput; 


 


VAR
errore,n : integer;
s : string;


 


begin
  repeat
   write ('Inserisci il prezzo: 
');
   readln(s);
   val(s,n,errore);
   
if errore <> 0 then
   writeln ('Le lettere nn fanno parte 
dei prezzi');
  until errore=0;
  
end. 




come faccio?!?!?!..grazie e ciao...
StrToInt()
-- 
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

> ciao a tutti..vi espongo il mio problema:
Osserva il seguente listato, identico al tuo
nel quale ho aggiunto   writeln(n);  alla fine...
PROCEDURE TestInput; 
VAR
errore,n : integer;
s : string;
begin
  repeat
   write ('Inserisci il prezzo: ');
   readln(s);
   val(s,n,errore);
   if errore <> 0 then
   writeln ('Le lettere nn fanno parte dei prezzi');
  until errore=0;
  writeln(n);
end. 
e-mail: 
matteo....@tiscalinet.com
__________________________________________________________________
Abbonati a Tiscali!
Con VoceViva puoi anche ascoltare ed inviare email al telefono.
Chiama VoceViva allo 0143 434343
http://voceviva.tiscali.it
-- 
Posted from 
mail-4.tiscalinet.it
 [195.130.225.150] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: TP7 quasi originale

Se qualcuno ha scaricato tp7 da spippolatori (e mi è stato detto di 1000 e
più download), abbia buon cuore e mi invii i files
Grazie
fm...@sistemia.it

 wrote in message
7sih92$c1u$1...@fe2.cs.interbusiness.it...



1000 download ? mecoj...
Io cel'ho gia' il tp7 pero' sono andato a curiosare ma gia' non c'era piu'.
Volevo vedere se era uguale al mio.
comunque qualcuno che telo manda lo troverai sicuramente.
ciao
Xbug

hai trovato turbo pascal 7?
mi potresti inviare il file?
grazie mille!
enrico
Newsgroup: it.comp.lang.pascal
Titolo: qualcuno può aiutarmi?

Ciao a tutti,
ho un problemino... ho scritto un programma con record, array e matrici che
simula una rete neurale. Siccome mi serve una rete molto grossa, ho fissato
le costanti che regolano le dimensioni degli array, matrici e record (e
quindi della rete) a valori molto grandi. Durante la compilazione un
messaggio d'errore dice che le strutture sono troppo "large".
Chiedo a voi, se avete tempo e voglia di dedicarmi tempo:
quanti byte di memoria vengono allocati ad un array, record e matrice
durante la compilazione? quanti byte occupa l'elemento più piccolo di
ciascuno di queste strutture?
Grazie
Angelo

 ciascuno di queste strutture?
Mi sembra che allochi solo la somma di tutte le vairiabili dell'array.
comunque non credo che sia questo il problema, ma il fatto che, mi sembra
(ho una memoria di ferro, io:-) ) il pascal non riesca a gestire array,
strutture object o simili maggiori di 64k. potresti allocare piu' di una
struttura per singolo array e giostrarti con i puntatori. ma forse e' meglio
se guardi sul manuale del pascal. vedi se riesci a trovare il modello di
memoria in uso e poi cambialo, se riesci, in  Huge. secondo consiglio: usa
freepascal. 
www.freepascal.org
. essendo un prodotto nuovo forse non ha
queste limitazioni.

Newsgroup: it.comp.lang.pascal
Titolo: LEGGIMI Creiamo un Canale irc del Pascal

Ciao a tutti,
la mia vuole essere una proposta seria per la creazione di un gruppo di
discussione ancora piu` attivo di quello che c'e` sul newsgroup.
Se creiamo il Canale irc #TurboPascal potremo discutere piu` velocemente e
magari ancor piu` costruttivamente che qui, non che il news sia male ma
potrebbero nascere discussioni piu` attive e magari tutti insieme potremo
creare anche un sito con una community :)
Bhe che ve ne pare??
rispondetemi o qui o in privato e a chi interessa Domenica dalle 22:00 il
canale #TurboPascal sara` aperto e mi troverete li.
Per chi non lo sapesse per accedere all'irc basta il famoso programma mIRC
scaricabile da 
www.mirc.co.uk
Ciao a tutti e spero appoggierete la mia proposta.
Roberto
Socio S.T.I.C. n.5082 A
Nick-name I.R.C. : SatURnO
I.RC. e-mail: 
sat...@cybergal.com
Principal e-mail: 
frob...@tiscalinet.it
---------------------------------------------------------
Negli angoli di casa cerchi il mondo,
nei libri e nei poeti cerchi te,
ma il tuo poeta muore e l' alba non vedrà
e dove corra il tempo chi lo sa?
                        (F. Guccini da "Un altro giorno è andato" )
---------------------------------------------------------

 creare anche un sito con una community :)
Giusto! io sono d'accordo.
Io frequento molto IRC e potrei dare una mano.
Purtroppo però la mia conoscenza di Pascal si ferma alle unit graph e crt,un
po' anche DOS.
più che altro potrei dare una mano a costruire il sito,lì sì che non ho
problemi.
ciao a tutti.
Roberto,io sono disponibile a 
sal...@tin.it
 e comunque domenica vengo a
trovarti nel canale. ok?
ciao a tutti.


Anzi! sono già al lavoro.
Contattami appena puoi!
Newsgroup: it.comp.lang.pascal
Titolo: Mi serve guida

Ragazzi mi servirebbe uncompleta di Pascal dal 1° livello in su. Dove posso
trovarla?

 wrote in message
vXE07.3830$rh.1...@news6.giganews.com...


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

Salve,
sono nuovo del ng, vorrei sapere come faccio a calcolare
il complementare a 2 di un numero binario in input.
Grazie

 il complementare a 2 di un numero binario in input.
In pascal????

 il complementare a 2 di un numero binario in input.
cos'e' il complementare a 2 ??
ciao,
-- gabri

 ha scritto nel messaggio
news:946vk4$es$1...@lacerta.tiscalinet.it...


 wrote in message
news:JHMa6.108160$eB2.8...@news.infostrada.it...


> cos'e' il complementare a 2 ??
E' un metodo per rappresentare i numeri negativi senza usare un bit in più per
il segno: in un msg più sotto è spiegato come funziona

Newsgroup: it.comp.lang.pascal
Titolo: UNIT SOUND BLASTER FM (SORGENTE)

Mi scuso con tutti per aver mandato un messagio con Attachment...
-- 
IL RAZZIATORE,
The Only good Windows is an Unistalled Windows
-----------------------------------------------------
EMAIL: 
razzi...@usa.net
WEB:   
razziatore.dsx.org
 sito in aggiornameto/alestimento
ICQ:   67552596

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
"Ci sono tre modi principali per perdere denaro: vino, donne, ed ingegneri.
I primi due sono i piu' piacevoli, mentre il terzo e'  il  piu'  certo."
		-- Baron Rothschild, ca. 1800

 end. {FM}


 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
	In principio  era  il  caos.   Il  casino.   Insomma,  la  sopraelevata
di Genova subito dopo un incidente.  E il Verbo era presso Dio.  Avverbi,
Preposizioni e compagnia erano rimasti bloccati sulla sopraelevata.  Dio
disse: "Sia fatta l'ACI".  Qualcuno capi' "Luce", e la luce fu: Big Bang!
Comparvero  l'universo,  lo  spazio,   il   tempo,   Mike   Bongiorno...
	Passo' qualche	miliardo  di  anni,  e	qualche  scarichetta  elettrica
produsse i primi amminoacidi.  La carenza di ossigeno  favori'	la  loro
evoluzione da brodo primordiale a minestra, poi a zuppa  di  plancton, a
nutrimento macrobiotico,  e  cosi'  via...   Arrivarono  le  piante,  la
clorofilla, l'ossigeno, e quindi gli animali.  Prima i pesci, poi  toro,
ariete, capricorno, gemelli, bilancia...   Gli	anfibi	si  trasferirono
permanentemente sulla terra ferma, diventando chi stivaletti e chi mezzi
dei Vigili del Fuoco, e,  per  raffinamenti  bottom-up	successivi,  dai
rettili si arrivo' ai retti (in piedi), ovvero all'uomo.  E proprio  dal
primo animale ritenuto autocosciente (o autoincosciente, se pirata della
strada) si diparte la nostra breve avventura.  [...]
		-- Andrea `Zuse' Balestrero, "La vera storia delle
		   dispense di Ingegneria"
Newsgroup: it.comp.lang.pascal
Titolo: lettra file tabella

salve a tutti
sono un principiante ed uso boland 7.0; non riesco a far legere in modo 
corretto una tabella inserita in un file utilizzando un array.
---------------------------------------------------------
program leggifile ;
uses crt,dos;
type
  nun = array [1..2,1..10] of integer;
var
pippo,pippi: file of nun;
num: nun;
i,j:integer;
begin
clrscr;
assign (pippi, 'a:\pippi.css');
assign (pippo, 'a:\pippo.wrs');
reset (pippi);
read (pippi,num);
for i:=1 to  2 do begin
write ('num: ');
for j:=1 to 10 do begin
write (' ',num[i,j]);
end;
writeln;
end;
rewrite (pippi);
write (pippi, num);
close (pippo);
close (pippi);
end.
-------------------------------------------------------------------------
questo è quello che ho usato, l'output che mostra durante il caricamento ed 
il watch  dell'array hanno valori strani, sembra che aggiungano il 
carattere di separazione al numero. Quello che trovo nel file in uscita è 
lo stesso di quello in ingresso, il problema è che io devo elaborare questa 
tabella.
Ho provato anche ad immettere un ray di numeri da tastiera e scriverli in 
un file, bene quello che poi ho trovato sono caratteri ascii ovvero le 
faccine.
Grazie per la risposta RobertoL
se possibile preferisco in
email:r.lom...@tiscalinet.it

 ha scritto nel messaggio
news:95b9f0$msv$1...@pegasus.tiscalinet.it...


 l''input e l'output del programma
se puoi prova a fare un file con due righe tipo:
0,1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1,0
e leggi l'output e/o il watch di "num", quello che vedo è 
xxxx0
xxxx1
.......
xxxx9
dipende dal carattere separatore
Saluti RobertoL


 ha scritto nel messaggio
news:95giki$ibu$1...@lacerta.tiscalinet.it...


ReDiCuori wrote:
Ciao a tutti....
si è vero, facendo come indichi tutto fila lisci, ma il mio punto di 
partenza è un altro:
1) il mio file è già pronto, generato su foglio elettronico (tipo exel) o 
editato con un normale editor; si tratta comunque di una tabella di circa 
99x35
2) lancio il mio programmino in pascal chelegge il file, fa una ulteriore 
elaborazione di dati riscrivendo i nuovi valori su di un nuovo file formato 
*.csv
3) riprendo il file e lo visualizzo di nuovo in un foglio elettronico o 
editor qualunque.
Cosa succede, se uso il pascal dovrei inserire 3500 numeri da tastiera col 
rischio di sbagliare, ed il tempo necessario?
Se non riesco a leggere file di questo tipo (con numeri interi) dovrò fare 
una applicazione in visual basic da far girare su staroffice o exel ma 
l'idea non m piace, la sintassi è un casino!
Saluti RobertoL
mailto:
r.lom...@tiscalinet.it

Newsgroup: it.comp.lang.pascal
Titolo: la funzione eof....(AIUTO!)

Ciao a tutti!Premetto che sono alle prime armi col Pascal.
Per motivi di studio quest'oggi sto provando a capire come diavolo faccio a
terminare l'immissione di dati in questo programma!
program esemp83 (input,output);
var
lettercount,digicount:integer;
character:char;
begin
lettercount:=0;
digicount:=0;
while not eof(input) do
begin
read(character);
if ('a'<=character) and (character>='z') then
lettercount:=lettercount+1
else if ('0'<=character) and (character>='9') then
digicount:=digicount+1
end;
write(lettercount,'letters,',digicount,'digits');
writeln
end.
ho provato ad immettere eof seguito da invio ma il programma continua a
chiedermi dati come se nulla fosse senza arrivare mai in fondo!
Aiutatemi per favore!

"Alessio B." wrote:

Prova a premere CTRL-Z. In dos dovrebbe essere il carattere di EOF.
Airex

 ha scritto nel messaggio
news:3A98FC0D...@tiscalinet.it...

CTRL-Z non funzione o meglio interrompe il flusso del programma
ma.............non arrivo ai risulatati!
Grazie 1000 cmq!

 wrote in message
1L7m6.53681$k55.1...@news.infostrada.it...


ma.............non arrivo ai risulatati!
A me funziona, pero' hai sbagliato le "<" ">".
extrabug @ 
iname.com

 ha scritto nel messaggio
news:evbm6.13893$Mx3.2...@twister2.tin.it...

...scusa la mia ignoranza vero o presunta che sia ma nessuno dei
suggerimenti ha dato esito positivo...ma dove diavolo sbaglio!?
AIUTO.

 ha scritto nel messaggio
news:97bh70.3...@xtrlcl.local...

Dove ho sbagliato le "<" ">"?
Ha te funziona premendo CTRL-Z?


if ('a'<=character) and (character>='z') then
questo equivale a character maggiore di a e maggiore di z, il che e' impossibile.
lo stesso per la riga dopo, correggendole funziona.
Anche il CTRL-Z funziona.
extrabug @ 
iname.com

-----------
Program esemp83;
Var	lc, dc: Integer;
	c: Char;
Begin
	lc:=0;
	dc:=0; { se non sbaglio il pascal al contrario di altri
		linguaggi inizzializza le variabili a 0, quindi puoi
		togliere anche questo }
	while not eof(input) do
	Begin
		Read(c);
		if (c >= 'a') and (c <= 'z') then Inc(lc)
		else if (c >= '0') and (c <= '9') then Inc(dc);
	End;
	Write(lc,' letters, ', dc,' digits.');
	ReadLn;
End.
Questo e il codice che dovrebbe funzionare.
Così capisci dove hai sbagliato i < >
Ciao...
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net
Newsgroup: it.comp.lang.pascal
Titolo: [Trigonometria] Come fate a definire la tangente in Pascal

Per definire la tangente ho qlc problema.
IO faccio :   Tan (x) = (sin(x)) / (cos(x))
Per esempio dato x = (pi / n), scrivo:
**********************
Tan : real;
....
Tan := (sin(pi / n)) / (cos(pi / n))
.....
*********************
Va bene cosě ? Voi come fate ?
Ciao. Fabrizio.
(FreePascal 0.9.2, Win ME, P4 1 Ghz, 320 RAM)

Dipende se tu hai gia' l'angolo in radianti o se devi calcolare la
tangente di un angolo in gradi.
In questo caso devi fare angolo:=angolo*Pi/180 (cosi' lo trasformi in
radianti).
A questo punto:
Tan:=sin(angolo)/cos(angolo);
Facendo i raffinati dovresti fare prima un controllo sull'angolo (se e'
multiplo di 90° la tangente va all'infinito!)
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao
Grazie per l'ottimo ripasso , il mio dubbio derivava dal fatto che non
avevo trovato nessuna funzione sul libro, dove  sto studiando pascal,
sulla tangente.
Grazie ancora , sei molto disponibile.
( in Free pascal ho poi scoperto , andando a spulciare la guida in
linea, la funzione Tan )
Ciao. Fabrizio.
FreePascal (ide 0.9.2, compiler 1.0.6, debugger 5.1.1) 

Newsgroup: it.comp.lang.pascal
Titolo: estrazione di lettere dopo contatore

program frase;
type Frase = string[150];
var f : Frase;
     i,j : integer ;
     v,l,b,c,a,ap : integer ;
const
   vocali:set of char= ['A','E','I','O','U','a','e', 'i','o','u'];
   consonanti:set of char =['b','c','d','f','g','h','l','m','n',
                               'p','q','r', 's','t','v','z',
                               'B','C','D','F','G','H','L','M', 'N',
                               'P','Q','R','S','T','V','Z'];
   accentate:set of char = [ '…','‚','Š',' ','•','—'];
   apostrofi:set of char = [ ''''];
begin
  clrscr;
  write;
  write('Inserisci la frase: ');
  readln(f);
  write;
  write('Hai scritto: ');
  LowVideo;
  writeln('"',(f),'"');
  writeln;
  NormVideo;
  l:=0;
  for i:=1 to length(f) do
    l:=l+1;
  writeln('i char + i blank sono : ',l);
  writeln;
  b:=0;
  for i:= 1 to length(f) do
    if f[i] = ' 'then
      b:=b+1;
    writeln('gli spazi bianchi sono: ', b);
    writeln;
   v := 0;
   for i:= 1 to length(f) do
       if f[i] in vocali then
          v:=v+1;
  writeln('Le vocali sono: ', v);
  writeln;
  c:=0;
  for i:= 1 to length (f) do
     if f[i] in consonanti then
        c:= c+1;
  writeln('Le consonanti sono: ', c);
  writeln;
  a:=0;
     for i:= 1 to length (f) do
           if f[i] in accentate then
        a:= a + 1;
  writeln('le vocali accentate sono: ', a);
  writeln;
  ap:=0;
  for i:= 1 to length (f) do
      if f[i] in apostrofi then
       ap:=ap+1;
   writeln('gli apostrofi o accenti sono: ', ap);
 end.
 
--------------------------------
Inviato via 
http://usenet.libero.it

   writeln('"',(f),'"');
le parentesi stanno ad indicare una sottoespressione: in questo
caso puoi anche scrivere solo 'f' perche' non ci sono problemi
di precendenze.
visto che devi controllare tutte le lettere della stringa e i vari
insiemi sono disgiunti, puoi eseguire i vari conteggi allo
stesso tempo in un unico ciclo :-)
a := 0; b := 0; c := 0; v := 0; ap := 0;
for i:= 1 to L do
 if f[i] = ' ' then b := b + 1 { e' un blank }
  else if f[i] in vocali then v := v + 1
   else if f[i] in consonanti then c := c + 1
    else if f[i] in accentate then a := a + 1
     else if f[i] in apostrofi then ap := ap + 1;
{ else <non e' negli insiemi precedenti> }
writeln('gli spazi bianchi sono: ', b);
writeln;
writeln('Le vocali sono: ', v);
writeln;
{ etc etc }
[ parentesi - "come strafare", da leggere giusto se non hai
niente da fare... pericoloso ! non seguire questi esempi :-) ]
un bell'insieme enumerazione e una bella array di contatori
 type
  tipicaratt = (consonanti, vocali, <etc> );
 var
  contatore : array[tipicaratt] of integer;
che ti permette di scrivere ad esempio
 contatore[vocali] := contatore[vocali] + 1;
poi non so' anche
 const
  nometipo : array[tipicaratt] of string =
  ('consonanti', 'vocali', <etc> );
con cui puoi scrivere
var
 i : tipicaratt;
for i := consonanti to apostrofi do
 writeln ('Ci sono ',contatore[i],' ',nometipo[i]);
-- 
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: GKS for pascal

I am writing programs include commands like setpixel.
How can I download GKS Graphical Kernal system for Turbo pascal 6?
How I add this library to Pascal library ?


It appears his question was answered in comp.lang.pascal.borland .
Newsgroup: it.comp.lang.pascal
Titolo: cerco turbo pascal 7.0

Come in oggetto cerco turbo pascal 7.0. sapreste dirmi da dove lo posso
scaricare?
rispondete anche alla mia e-mail 
marc...@tin.it
grazie !

...


 scaricare?
 ancora per qualche giorno (5/6) poi lo levo. ;-)
 
www.spippolatori.com/memberspp/master/xcarlo/tp.exe
 
www.spippolatori.com/memberspp/master/xcarlo/tp.c00
 
www.spippolatori.com/memberspp/master/xcarlo/tp.c01
 
www.spippolatori.com/memberspp/master/xcarlo/tp.c02
 
www.spippolatori.com/memberspp/master/xcarlo/tp.c03
 affrettarsi. :))
(autoscompattante ace32 .. ogni file e' di 400k ca)
se volete anche ace32
www.spippolatori.com/memberspp/master/ace32.exe
 (180k ca)

Newsgroup: it.comp.lang.pascal
Titolo: help: Immagini in pascal;



Newsgroup: it.comp.lang.pascal
Titolo: info su delphi

e' ormai da uqlche mese che programmo in pascal, notando pero' le sue basse
potenzialita' ne campo grafico, per questo vorrei passare al delphi, e per
questo vorrei chiedervi se conoscete dei siti da dove scaricare dellle guide
su questo, grazie (ps la versione e' la 5)
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

 su questo, grazie (ps la versione e' la 5)
Uhm... il pascal non ha basse potenzialità sulla grafica, ma ne ha esattamente
quante il c++. Per utilizzare qualsiasi risoluzione grafica devi utilizzare
le Vesa, cerca su internet qualche documento.
Per quanto riguarda il Delphi, puoi utilizzare le OpenGL o le DX, ma sono
librerie
complesse e non si studiano il qualche giorno..
Cmq ecco il miglior sito per queste librerie per delphi
http://www.delphi3d.net/download.php
.
Byez
-- 
Posted from  [62.123.0.37] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: grafica aiutoooo !!!!

Sto cercando di utilizzare la grafica in pascal...
Fin poco tempo fa... avevo Windows 98 ... e tutto andava bene... La grafica
funzioanva a meraviglia...
Da poco ho installato windows 2000 professional....
Facendo girare questo prg (che con win98 andava)... mi diche che non riesce
a trovare il file del driver: egavga.bgi
eppure nella cartella c:\bp\bgi tale file esiste AZZZ !!!
AVETE QUALCHE CONSIGLIO DA DARMI ????
Program provagrafica;
uses crt,Graph;
var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
begin
clrscr;
 grDriver := Detect;
 InitGraph(grDriver, grMode,'c:\bp\bgi');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { Do graphics }
   Line(0, 0, GetMaxX, GetMaxY);
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln;
End.
Grazie mille per l'attenzione..
Forte Alberto
gino...@yahoo.com


Personalmente non ho mai usato i bgi del tp...
Il mio consiglio è quello di farti una libreria grafica da solo, in
rete trovi un sacco di tutorials che spiegano come fare.
Alcuni li trovi al sito 
http://www.gpi.infomedia.it
e credo ci sia qualcosa pure su 
http://www.programmersheaven.com

 ha scritto nel messaggio
news:91irnn$1ih$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Error 200

Buongiorno a tutti.
Ho un piccolo problema. Quando vado ad eseguire un qualsiasi programma con 
il tp come risultato ho un "error 200 division by zero".
Premetto che è da tanto che nn programmo più in pascal. Può dipendere dal 
sistema operativo? Nel mio caso XP?
Vi ringrazio anticipatamente.
Cordiali Saluti e Buon Natale! 

 Cordiali Saluti e Buon Natale! 
altrettando. colgo l'occasione per salutare lettori occasionali e lettori 
piu' assidui. P, Omega, Il Razziatore, Re di Cuori, lo so' che siete li 
che leggete... Buone feste !!
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Buon Natele e Felice 2005 anche a te Dread
-- 
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
--------------------------------------------------------- 

 che siete li che leggete... Buone feste !!
Mi scuso per il ritardo,
Auguri di Buon Natale e un Felice 2005 Dread...
e ovviamente a  tutti
--
=Omega============
Hands On
==================
Newsgroup: it.comp.lang.pascal
Titolo: CRC

Ciao raga,
tempo addietro avevo un libro di Sistemi del quinto superiore. Lě c'era
spiegato ben bene l'algoritmo del CRC con un esempio. Se non ricordo
male viene qualcosa tipo una divisione... ma ora mi serve urgentemente.
Il libro non ce l'ho piů... dove posso trovare qualcosa che me lo
spieghi con tanto di esempio??????
Grazie in anticipo!!!!!!
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN!!!!!!

Chi non muore si rivede :-)
Che ne hai fatto della roba che ti ho mandato ?
... ho perso l'url :-) e non trovo piu' il sito ehehehehe
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

ciao
Aučččč... quanto tempoooo
scusa cos'č che mi mandasti???
Ho ricevuto sorgenti e documenti da tutti... non ricordo cosa mi mandasti
tu....
Cmq l'url hai fatto bene a perderlo. Il sito non esiste piů...
Ho cancellato tutto perchč stavo preparando un sito sulle rom dell'Amiga e
sui giochi in genere...
Perň ora sto progettando un Sistema operativo e un gioco 2D...


\_/  \/   \_/
si ma la M e' di  Majin Vegeta :-)


 > scusa cos'è che mi mandasti???
no era gia tutto sul sito (con broken links a stecca :-)) ) l'ultima
volta che lo visto... ma dici non lo vedro' piu ?
ciao again


volta che lo visto... ma dici non lo vedro' piu ?
Ho già risposto ad un'altra e-mail del NG... dato che sto rileggendo le
e-mail e qualcuno fa ancora riferimento al mio sito, ho deciso bene di
ripubblicarlo e di proseguire solo con la sezione PASCAL... e magari se
posso con quella dell'assembler.
Magari ci mettiamo tutti quanti a collaborare... pubblicando sorgenti nostri
e costruiamo tutti insieme un bel gioco 2D...
Se vi va (parlo anche a tutti gli altri)....
E cmq lo so che la M è di Main Vegeta... che è la versione che più mi
piace... BASTARDO FINO IN FONDO!!!!!!!!
Ciao a tutti i Pascalerz!!!!!

Newsgroup: it.comp.lang.pascal
Titolo: Conversione Binaria Difficile

Mi scuso anticipatamente per qualche imprecisione nei termini
che
potrò aver adottato. Ad ogni modo il mio problema è che non riesco a
risolvere la seguente questione. Mentre non incontro alcuna difficoltà nel
convertire un numero binario in un numero decimale e viceversa, la questione
risulta, almeno per me, impossibile allor quando voglio operare la
conversione diciamo "mista". Mi spiego meglio con un esempio:
Prendendo una coppia di numeri 0 e 1 posti su tre colonne con essi si
possono formare le seguenti 8 associazioni:
01
01
01
000,001,010,011,...,111 <---> 0,1,2,3,...,7
Prendendo ora una coppia di numeri 0,1 e 2 posti su tre colonne con essi si
possono formare le seguenti 27 associazioni:
012
012
012
000,001,002,010,...,222<---> 0,1,2,3,...,26
Il mio problema adesso è risalire per esempio al numero decimale
corrispondente alla seguente associazione:
1
1
1
Qui, mentre nel sistema ternario puro, esso corrisponderebbe al numero 13
(1*3^2+1*3^1+1*3^0).
In un sistema diciamo "misto" dove ipotizzo di utilizzare due coppie e una
terna di numeri posti su tre colonne:
01
012
01
si possono formare 12 associazioni
000,001,...,121 e quindi corrisponderebbe al numero 9.
Ora in che modo occorre procedere per operare la conversione?
Grazie.
Berny

Non so se si possa fare ciò che chiedi.
Quando tu converti da una base all'altra un numero... hai bisogno di sapere
la base appunto del numero da convertire... se è mista cosa usi come punto
di riferimento?
Es.
101 base2 = 5 base10
per convertire da uno all'altro hai le basi che ti indicano il "formato" del
numero.... ma se è misto.
Cmq forse qualche matematico può aiutarti.
chiedi su it.scienza.matematica
Ciao
Luigi

 ha scritto nel messaggio
news:3b609...@news.dada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per una traduzione da QBASIC A TP7.0 o C

devo eseguire la stessa funzione che svolge questo programma in QBASIC in
TP7.0
....
5 DEF SEG = 64: a = PEEK(8) + PEEK(9) * 256: OUT a, 0
....
1010 FOR n = 1 TO passi
1020 OUT a, xa
1030 xe = xa: xa = xb: xb = xc: xc = xd: xd = xe
1040 FOR m = 1 TO numero.di.giri: NEXT m
1050 NEXT n
1060 OUT a, 0
Oppure dove posso trovare un compilatore per QBASIC ????
GRAZIE!!

, dal "Linux
		   Gazette Edizione Italiana" n. 7, settembre 1997

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

Volevo sapere che software usare per far girare file scritti in Pascal.
Grazie

> Volevo sapere che software usare per far girare file scritti in Pascal.
credo ti stia riferendo al compilatore, che crea l'eseguibile che puň essere
eseguito ( ... ), se č cosě allora credo che i piů usati siano Turbo Pascal
e Free Pascal

 ha scritto nel messaggio
news:a2hj5r$obp$1...@gossip.excite.it...

Newsgroup: it.comp.lang.pascal
Titolo: Auguri

Auguri a tutti. Buon Natale
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

Auguri a tutti !
ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------
"Marchese Gianfranco" <d.g.r.u.m.a.@VediInFirma.it> ha scritto nel messaggio
news:Wk1O9.21943$Q%4.69...@news1.tin.it...


come sopra :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

come sopra :-)
Idem con patate
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
Newsgroup: it.comp.lang.pascal
Titolo: Due cose da..........

Prima cosa non riesco a dare il valore 1 su un readln quando non viene
immesso il dato dall'utente.
.................
a,b,......,y,z:real;
..................
readln(y);
.................
e qui voglio darli un valore 1 in case che si prema enter senza immettere
dati.
Seconda cosa, cerco un accenno.
Un modo da creare un "menu" che mi richiama il tipo di formula da richiamare
con il suo inserimento dati specifico.
Grazie!!!

dati.
uses crt;
var y   : real;
    s   : string;
    err : integer;
function get_string(var s : string) : boolean;
var c : char;
begin
  s := '' ;
  c := readkey;
  while (c <> #13) do
  begin
    s := s + c ;
    write(c);
    c := readkey;
  end;
  writeln;
  get_string := not (s = '');
end;
begin
  if get_string(s) then val(s, y, err) else y := 1;
  writeln(y:0:0);
end.
Skyscraper (apprezzatelo adesso : eviterete la coda)
----------------------------------------------------
 
andrea_...@bigfoot.com
----------------------------------------------------
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

con il suo inserimento dati specifico.
Non e' che abbia capito tanto. Interpreto.
Scrivo un po' di righe al volo:
function  f1(r:real):real;
begin
	f1:=r*r
end;
function f2(r:real):real;
begin
	f2:=sin(r)
end;
function f3(r:real):real;
begin
	f3:=log(r)
end;
begin
	writeln;
	writeln('  1.    calcola quadrato');
	writeln('  2.    calcola seno');
	writeln('  3.    calcola logaritmo');
	writeln;
	write('Scegli: ');
	repeat
		c:=readkey;
		if c=#0 then c:=readkey
	until  (c in ['1','2','3']);
	writeln(c);
	writeln;
	write('Dato = ');
	readln(r);
	case c of
		'1'  :   r:=F1(r);
		'2'  :   r:=F2)r);
		'3'  :   r:=F3(r)
	end;
	writeln;
	writeln('Risultato = ',r)
end.
(la variabile c e' un char)
Fabio
fabi...@rocketmail.com

dati.
Ti converrebbe usare una variabile stringa nel readln e dopo
verificare se la lunghezza della stringa e' diversa da zero. Dopo
converti la stringa in un valore real.
Piu' o meno il codice potrebbe (speriamo bene!!) essere:
.......
type buffer : string;
        code : integer;
        valore : real;
.......        
readln(buffer);
if buffer <> "" then  // oppure strlen(buffer)>0
  begin
  Val (buffer, valore, code);
  if code <> 0 then
     valore := 0;  // valore da dare se il numero immesso e' errato.
  end
else 
  valore := 1;  // valore da dare se l'input e' nullo.
Bye.
Jo Parrello - OWL/C++ Programmer
http://www.geocities.com/SiliconValley/Hills/8145
(
jopar...@geocities.com
)
Newsgroup: it.comp.lang.pascal
Titolo: MANUALE TURBO PASCAL

Ciao a tutti..... sono un principiante, ma mi piace da impazzire la
programmazione in TURBO PASCAL, soprattutto l'idea di fare un bel programma
gestionale, rivenderlo ad un azienda, e farmi un bel pò di soldi.....
HARHARHAR!! Ma il punto è che sono un principiante.... Qualcuno saprebbe
indicarmi dove posso trovare una guida per una persona che è ancora alle
prime armi?
Grazie a tutti.

 wrote in message
9b74mj$5fi$1...@lacerta.tiscalinet.it...


Prova anche su 
www.dsi.uniroma1.it/~prog2a
 da qualche parte c'è un manuale
da scricare mi sembra con estenzione Post Script. E inoltre trovi anche un
po' di esercizi non proprio da principianti , ma che ti potranno essere
utili.
ciao ciao ^____^
Newsgroup: it.comp.lang.pascal
Titolo: Domanda originale

Salve a tutti, per la serie F.A.Q.:
avrei bisogno di un libro che "mi impari"  il pascal mooooolto bene, perchè
da quanto ho sentito dopo è moooolto più facile imparare il C+++ (i più sono
tre perchè finchè c'arriverò io ci sarà questa versione), quindi che libro
mi consigliate (le basi c'è l'ho ma anche uno che incominci dall'inizio non
mi fa schifo).
Grazie a tutte le milioni di persone che mi insulteranno per aver fatto per
la 354554754 volta questa domanda :-)

da quanto ho sentito dopo č moooolto piů facile imparare il C+++ (i piů sono
Impara direttamente il C++, ci perderai un po' piu' di tempo, ma ci
metterai comunque meno che passando dal pascal (assolutamente inutile
ormai).

Newsgroup: it.comp.lang.pascal
Titolo: problema con NT

  Ciao a tutti coloro che mi potessero dare una spiegazione.
Ho caricato Pascal su una macchina a 450 mz con sistema
operativo Windows NT 4 service pack 5  tutto sembrava procedere
bene anche perche ho risolto il classico bugfix
pero succede una cosa strana dopo aver compilato ctrl+f9 il mouse
non risponde piu e tutto sembra come impiantato. 
C'e' qualcuno che mi sa dire il perche'.
grazie Alessandro
--
Posted from 
mta10-acc.tin.it
 [212.216.176.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 - rimuovi XXX x rispondere    ICQ #8814554
L'uomo ama la compagnia, anche se e' solo quella di una candela che fuma.
		-- Georg Cristoph Lichtenberg (1742-1799)

Newsgroup: it.comp.lang.pascal
Titolo: FAQ di questo NG

Ciao a tutti volevo sapere se esistono le faq di questo N.G.?
Se la risposta č si potete postarmele.
Ciao e grazie in anticipo.

 Ciao e grazie in anticipo.
Ci stiamo lavorando in questi giorni.
Presto avrai l'URL
genyo
ge...@inwind.it

 ha scritto nel messaggio
news:96ffea$1t7$1...@nreadB.inwind.it...


> Ci stiamo lavorando in questi giorni.
Chi ci lavora???? Se vi serve mano, dite pure!!

Newsgroup: it.comp.lang.pascal
Titolo: Scusate l'intrusione

Esistono newsgroup sul linguaggio assembler??

 Esistono newsgroup sul linguaggio assembler??
news:borland.public.tasm
-- 
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: problemi con t:text

salve ho un problema con un programmiello che dovrebbe (!!) leggere un
file di testo immesso da tastiere e restituirne il contenuto in output
sulla tastiera...
mi sono perso la lezione all'università l'altro giorno (mea culpa) se
qlc mi potesse dire dove sbaglio...
ecco il codice che nonmi funziona:
program leggi (input,output);
var
t:text;
nomefile:string[10];
stringa:string[80];
begin
write('nome del file: ');
readln(nomefile);
assign(t,nomefile);
reset(t);
while eof(t) do
readln(t,stringa);
writeln(stringa);
close(t);
end.
tnx...

> ecco il codice che nonmi funziona:
se magari spiegassi anche che errore ti dà....

 close(t);
[...]
prova a sostituire quel pezzo con:
------CUT-------
while not eof(t) do
    begin
    readln(t,stringa);
    writeln(stringa);
    end;
close(t);
------CUT-------
ps.
nn dirmi ke all'università fate davvero queste cose perchè in tal caso resto
alle superiori...
:-D
Ciauz

Newsgroup: it.comp.lang.pascal
Titolo: binobj.exe?

Ciao, ciao!
Qualcuno puň spiegarmi nella maniera piů chiara possibile a cosa serve e
come si usa il binobj.exe del tp7?
Grazie da FABIO!
--
Fabio Feuli
E-Mail 
fe...@libero.it
Nick-Name Bacco
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)

Il BinObj.exe č un programma che permette di trasformare un file in
formato binario .bin in un file formato oggetto .obj, che puoi linkare
all'interno delle tue applicazioni. in pascal per linkare usi {$L
nomefile da linkare}


Newsgroup: it.comp.lang.pascal
Titolo: Immettere l'icona nell'eseguibile

Come si fa a mettere un icona in un programma pascal .exe?

Che io sappia l'icona di un eseguibile qualunque deve essere contenuta
nel file stesso, ma io non so come si possa inserircela.
	Un barbatrucco per assegnargliene una puo' essere quello di creare un
collegamento. Dopodiche' occorre cliccare col tasto destro sull'icona
del collegamento e selezionare "proprieta'". Nella sezione
"collegamento" della finestra delle proprieta' premere il tasto "Cambia
icona" e quindi "sfoglia".
	Le icone hanno estensione .ico o .dll, ma si possono anche usare quelle
degli altri eseguibili semplicemente selezionandoli nella finestra
"sfoglia".


 wrote in message
37c9111...@news.pisoft.it...


all'interno del file.

Newsgroup: it.comp.lang.pascal
Titolo: Perspective Pascal

Ciao,
   qualcuno mi sa dare informazioni sul Perspective Pascal (cos'e',
eventuali Tutorial, compilatori ecc...)
So che difficilmente ricevero' qualche risposta...
Ciao,
    Enrico B.A.

>    qualcuno mi sa dare informazioni sul Perspective Pascal (cos'e',
internet e' abbastanza avara di notizie su di esso...
sembra una qualche versione che gira su macchine con processori
motorola... ma boh... c'e' traccia solo di qualche prog per (?!) controllo
aereo via radar...  mmmh...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 aereo via radar...  mmmh...
Piu' che avara di notizie non c'e' assolutamente nulla se non qualche
Curriculum. Ma e' possibile che manco le case produttrici dei
compilatori lo pubblicizzino ? Comunque l'unica cosa che so e',
appunto, che e' usato in campo aereonautico (gestione del sw di bordo)
Ciao,
    Enrico B.A.



Da 
http://www.giarron.com/
:
---begin
PPF (Perspective PASCAL Pretty Printing Formatter) – Applicazione
della teoria delle grammatiche ad attributi per la semantica di un
Pretty Printer per un dialetto del Pascal per macchine VAX
---end
E questo è il risultato migliore che ho trovato...
Dovrebbe esserci una pagina simile a questa:
---begin
Oh teach us about perspective Pascal Haakmat (
phaa...@marketique.nl
)
Sat, 22 Feb 1997 16:55:39 -0800 Messages sorted by: [ date ][ thread
][ subject ][ author ] Next message: Norbert Schatz: "Re: A l...
---end
all'indirizzo
http://wais.sensei.com.au/macarc2/semper_fi/9702/1617.html
purtroppo i miei dns non mi permettono di caricare la pagina.
Facendo una ricerca, ho trovato una persona che si chiama Pascal
Haakmat... forse è colpa sua!
Comunque, se io avessi un VAX, non vorrei comprare un compilatore per
usarlo. Ho un Olivetti Prodest PC 128 e vorrei trovare un compilatore
Pascal per programmarlo, ma è un altro discorso...
Temo che non esista niente di interessante. E' stato più facile
trovare un interprete dell'UCSD Pascal. :-(
Ciao
PV
Newsgroup: it.comp.lang.pascal
Titolo: informazioni turbo pascal

Ciao a tutti.
Mi sono appena iscritta al newsgroup e vorrei sapere dove posso scaricare 
gratuitamente il turbo pascal 7.0.
Aggiungo che ho un sistema operativo win xp.
Mille grazie a chiunque mi aiuterą.
Vale

 
Bah!!, a me risulta,se parli del Borland Turbo Pascal 7, che non e' 
gratuito ma viene ancora venduto dalla Borland, certo che se fai una 
ricerca con Google e utilizzi il mulo lo trovi.
Ciao Jack

Grazie mille Jack.
Vale 

 Vale
io ti dico che non è pagamento lo trovi su milioni di siti basta
ricercarli con google e poi se immetti il nome su emule lo trovi
tranquillamente..raga vi volevo chiedere un paio di cosette..
1: ho scritto un programma dove ci sono molte operazioni però mi
mancano la potenza di un numero, il m.c.m e la radice cubica

In tal caso devi farmelo vedere.
Per la potenza di un numero, non è difficile, basta un semplice ciclo
"n" è il numero, "e" è l'esponente, "a" è la potenza.
e,n,s,a,i:real;
a:=1;
i:=0;
if e=0 then
begin
a=0;
end
else
begin
repeat
a:=a*n;
i:=i+1;
until i=e;
end;
Se però si vuole fare anche l'elevazione a numeri negativi, allora si può
fare:
e,n,s,a,i:real;
if e<0 then s:=1;
e:=abs(e);
a:=1;
i:=0;
if e=0 then
begin
a=0;
end
else
begin
repeat
a:=a*n;
i:=i+1;
until i=e;
end;
if s=1 then a:=1/n;

 scaricare gratuitamente il turbo pascal 7.0.
Se non vuoi problemi, scaricati invece FreePascal 
(
http://www.freepascal.org/
). Oltre ad essere compatibile con TP7, è più 
moderno (non genera solo codice per il 286!) e non ha problemi a 
funzionare su macchine recenti (TP7 ha bisogno di una patch non 
ufficiale o alcune routine non funzionano su processori più veloci di un 
PII...)
Luigi D. Sandon
--- posted by geoForum on 
http://www.delphiedintorni.it

ricercarli con google e poi se immetti il nome su emule lo trovi
Per trovarlo lo trovi, trovo anche le foto di tua sorella, 
probabilmente. Solo che stai commettendo un reato...

Newsgroup: it.comp.lang.pascal
Titolo: Sito abandonware

Qualcuno può consigliarmi un sito abandonware dove possa trovare, oltre al
TP7 CON IL PROG D'INSTALLAZIONE, altri linguaggi Borland (tipo Borland Turbo
C++?)

 wrote in message
10p6f3u$of2$1...@fe2.cs.interbusiness.it...


 wrote in message
KDvz4.30843$O3.3...@news.infostrada.it...


Non vorrei confondermi ma mi pare che il compilatore Borland C++ 5.5 sia
free (è quello che sta sotto BCB4)...
Cmq su Inter.Net di Marzo (o Febbraio) c'era il CBuilder 3 standard
completo...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 wrote in message
95314674...@melissa.energy.it...


 mi fido di piu di un bel cd masterizzato...
Fatti curare... ;-)
e soprattutto vedi di tutelarti in qualche modo altrimenti ti spediremo le
arance virtuali a ta...@SanVittore.it


 versione 2.01 (ca 1mb) e C++ Free Compiler (7 mb)
Dov'è 'sto Museum (URL) ? Grazie !

 ha scritto nel messaggio
news:10pbmls$hm8$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.pascal
Titolo: unit crt

Salve
Tempo fa fu postato un msg in cui c'era il link ad un sito di un membro di
questo ng in cui era possibile scaricare la unit crt corretta...
č possibile riavere questo sito?
Grazie a chiunque risponda
--
=Omega======================
"Hands On"
sentinellaomega[at]hotmail[dot]com
gnamos[at]email[dot]it
www.handson.tk
handson.too.it
============================

 è possibile riavere questo sito?


 Ciao ReDiCuori
Grazie :) Ciao

Newsgroup: it.comp.lang.pascal
Titolo: incompatible types:got"booleans" expected "longint"

Ciao a tutti
Sto scrivendo un programma in cui ci sono molti cicli, ma sia se uso
repeat..until sia se uso while..do, mi da l'errore in oggetto per ogni
ciclo. Ma cosa vuol dire quell'errore?Da che č dovuto? Ciao

 ciclo. Ma cosa vuol dire quell'errore?Da che è dovuto? Ciao
Posta i cicli in cui ti da problemi così vediamo dov'è l'inghippo.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;


Allora il programma non lo posso postare tutto perche č troppo lungo (600
righe) comunque consiste in 9 cicli simili a quello postato sotto. Prima ho
provato con while ..do..end; ma mi dava l'errore in oggetto per tutti e nove
i cicli sulla riga di ogni while...do. Poi ho provato con repeat....until
(come sotto) ma mi da sempre l'errore in oggetto per tutti e 9 i cicli sulla
riga di until. Cmq io non so che cosa vuol dire quell'errore, anche perche
non mi era mai venuto prima (mi sembra)
repeat
randomize;
unoa:=random(6)+1;
unod:=random(6)+1;
if unoa>unod then
begin
a:=a;
d:=d-1;
end
else
begin
a:=a-1;
d:=d;
end;
until a=1 and d=1;
(a questo punto dopo until riinizio con repeat per il ciclo dopo)
Ciao

L'errore potrebbe essere dato dal fatto chele condizioni dell'unitl nn sono
fra parentesi... prova con
until (a=1) and (d=1);
Nn so, č una mia idea... CIAO CIAO

> until a=1 and d=1;
Sarà una mania da C++ ma io mettere le parentesi: until((a=1)and(d=1))
Prova :)



Grazie a te e a Torbo, ho risolto, bastava mettere le parentesi vicino alle
condizioni di until unite da and,
grazie
ciao


Di nulla.


 Nn so, è una mia idea... CIAO CIAO
sucuramente èquello

Newsgroup: it.comp.lang.pascal
Titolo: [Freepascal] assembler: non mi riconosce "mov ah,1h"

ho scaricato da Pascallike il tutorial sui cursori: nel listato c'è un
istruzione assembler (3 mov e un int) ma non mi riconosce nè AH, nè CX, nè i
valori in esadecimale che vengono assegnati; come mai? mi da, durante la
compilazione "unknown identifier", ma come è possibile??
Nemesis

[ non sono sicuro perche' non ho il freepas...]
il tp usa una notazione non proprio standard per le procedure
scritte completamente in assembler che forse non e' riconosciuta
dal freepascal... prova ad aggiungere un blocco begin/end
attorno a quello asm/end della procedura, e se si lamenta ancora
elimina anche dall'intestazione la parola chiave assembler...
se ancora non funziona... beh... non so' :-)
--
Dreadnaut
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:K99i8.7451$%d1.1...@twister2.libero.it...



non ho mai usato FP, ma azzardo...non è che magari usa la sintassi at&t?
bye
Albe



Il FreePascal usa di default l'assembler at&t non l'intel, per passare
a quest'ultimo devi aggiungere la direttiva {$ASMMODE Intel}
Omega e' omega e basta.
Newsgroup: it.comp.lang.pascal
Titolo: [?] Come si utilizza GotoXY

come da oggetto qualcuno mi potrebbe spiegare con un esempio?
Grazie in anticipo
Pippo

 come da oggetto qualcuno mi potrebbe spiegare con un esempio?
ad esempio le istruzioni
gotoxy(10, 20);
write('ciao');
servono per scrivere ciao alla colonna 10 e riga 20.
Ciao

> come da oggetto qualcuno mi potrebbe spiegare con un esempio?
lo schermo in modalita' testo e' composto da 80 colonne per
25 o 50 righe a seconda della risoluzione.
 GotoXY (a, b);
posiziona il cursore (cioe' dove apparira' il prodotto della prossima
write, read, etc) nella riga a-esima, al b-esimo posto da sinistra
 GotoXY (1,1);
ti riporta nell'angolo in alto a sinistra dello schermo
Per sapere in che posizione si trova il cursore in un dato momento
ci sono WhereX e WhereY
-- 
Dreadnaut
(Life would be easier if I had the source code)