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

Mi servirebbe un programmino (da lanciare dall'autoexec.bat o alla chiusura
di windows), che in modo del tutto trasparente all'utente cambi l'immagine
di sfondo del desktop mettendone una predeterminata (quell'infame di mio
fratello mi cambia sempre l'immagine di sfondo, allora vorrei fare un
programma che ad ogni riavvio mi rimetta come immagine di sfondo sempre
la stessa).
So che l'impostazioni dell'immagine di fondo e' memorizzata nel registry
sotto la voce HKEY_CURRENT_USER/Control Panel/Wallpaper ma non so quali
istruzioni usare all'interno di un programma per modificare il registry.
Qualcuno sa realizzarmi un programma del genere o sa darmi qualche dritta ?
P.S.:Gradite risposte tramite email (
dark...@tin.it
)
*eternamente grazie*

dai un'occhiata al file "win.ini" contenuto nella cartella "Windows"...
sotto la voce [Desktop] c'č l'opzione "wallpaper="...se tu lě metti il nome
del file bmp che vuoi come immagine, all'avvio di windows avrai quel file
come sfondo.
Quindi puoi creare un programma che apra "win.ini" come file di testo,
cerchi la linea con la stringa "wallpaper=" e la sostituisca con la linea
"wallpaper=[file.bmp]". Ti consiglio di fare una copia di sicurezza di
"win.ini".
ciao!



Si hanno di fronte due alternative :
1 - attivare piu' utenti per Windows95 e quindi avere ognuno dei due
un desktop diverso a cui accedere.
2 - esportare il ramo HKEY_CURRENT_USER\Control Panel\desktop del file
di registro in un file LAURA.REG in cui vai a modificare il valore di
"Wallpaper" in modo da assegnare il file di sfondo desiderato.
Si copiera' poi laura.reg in c:\ e in autoexec.bat si mettera' il
comando "start laura.reg".

Newsgroup: it.comp.lang.pascal
Titolo: Come le prendo le info di un file?

Salve !!!
Dovrei prendere le info da un file, cioe', 
data creazione, data ultima modifica, lunghezza e tipo.
Come posso fare???
Ciao ciao ciao
--------------------------------------------------------------
EASY and FREE web newsreader at 
http://www.mascanc.net

 ha scritto nel messaggio
news:9gfmm0$h7v$1...@felicidade.mascanc.net...


 
Non ho il tp7, ho il ppc386, il freepascal compiler... :-(((((
Non ho modo di usare l'help del tp...
E non ho i sorgenti delle units !!! 
Uff ...
Un buon manuale di pascal?
ciao ciao ciao


 ha scritto nel messaggio
news:9gih2c$5pu$1...@felicidade.mascanc.net...


On 16 Jun 2001 13:24:16 GMT, 
sko...@mascanc.net
 (Skolem da Firenze)
wrote:

Beh dato ke nessuno ti ha saputo rispondere approfitto per farlo io :)
Nella unit DOS trovi il tipo SearchRec:
SearchRec
  Fill : Array [1..2] of byte;
  Attr : Byte;
  Time : LongInt;
  Size : LongInt;
  Name : String [12];
  End;
Per usarla utilizza la procedura findfirst in questo modo:
var
Infofile : SearchRec;
...
...
begin
findfirst(paramstr(1),AnyFile,InfoFile);
In questo modo prendi gli attributi del nome del file passato nella
riga di comando e li metti nella struttura InfoFile.
Penso ke per usarla non dovresti avere problemi... ora scappo bye!!!
Newsgroup: it.comp.lang.pascal
Titolo: exec

c'č un sistema per fare andare un programma in "backgroung" tipo lanciato
con l'exec?
Ciņč: io lancio un programma esterno (utilizzando la funzione exec), perņ
finchč lui fa quello che deve fare, lo scermo deve rimanere nero.
E' possibile?
Grazie per l'attenzione

Puoi redirigere l'output su file aggiungendo "> nomefile" dopo il
comando (fai qualche prova da dos )
oppure si poteva cambiare la pagina di visualizzazione... una volta :-)
se ritrovo il codice lo posto
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Grazie mille!
Ho provato e funziona!
Alex
Dreadnaut ha scritto nel messaggio ...


Newsgroup: it.comp.lang.pascal
Titolo: Help per programmino in TP7

Ciao a tutti,
sono uno studente alle prime armi nello studio del Pascal.
Ho problemi nel far girare un programmino: qualcuno sarebbe disposto a
correggerlo?
Ciao!
Luca


Certamente, inviamelo pure via e-mail.
Ciao.
-- 
Andrea Zwirner
wul...@interfree.it
Poni ciň che sei nel minimo che fai.

Newsgroup: it.comp.lang.pascal
Titolo: graph o non graph?

Eccomi ancora qua!Con un altra banalissima e stupidissima domanda,vero?
(domanda ironica rivolta a chi mi rispose in maniera sbruffona).
Effettivamente non sono poi cosě bravo come credevo,,,comunque potrei
diventarlo se riuscissi a far andare la "graph".
l'errore che mi da č il seguente:
BGI Error: Graphics not initialized (use initgraph)
Ora.....
...non č che sono un cretino,,, io initgraph l'ho usato ma credo di aver
sbagliato le "impostazioni" tra parentesi.
l'istruzione č cosě:
initgraph(schedagrafica,modografico,'\tp\bgi');
dove schedagrafica e modografico sono variabili integer.
schedagrafica al limite lo metto :=detect,
modografico come faccio a far sě che sia autorilevante anch'esso?
questo č l'elenco dei file che ho in tp\bgi:
att.bgi
bold.chr
cga.bgi
egavga.bgi
euro.chr
goth.chr
herc.bgi
Ibm8514.bgi
Lcom.chr
Litt.chr
Pc3270.bgi
Sans.chr
Scri.chr
Simp.chr
Trip.chr
Tscr.chr
Vesa16.bgi
Ma dov'č quel file che nomina il mio libro di testo: vga.bgi?
io ho una scheda grafica VooDooł 2000,un processore Pentium3 650 Megahertz e
Windows98.
Credo che questi dati siano sufficienti.
Grazie e ciao!
Salvo.

 ha scritto nel messaggio
news:91lb1l$ng6$1...@nread2.inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: drag and drop

freepascal con wingraph unit, niente oggetti
come posso realizzare la cosa?

 come posso realizzare la cosa?
 
 
per drag and drop che intendi?
Se ï¿œ quello che intendo io, dubito che puoi.

 Se ï¿œ quello che intendo io, dubito che puoi.
 
grazie per la risposta, intendo seleziono e trascino col mouse. potrebbe 
funzionare qualcosa tipo: rilevo le coordinate del mouse, le considero 
come baricentro della mia figura, coloro con lo stesso colore dello 
sfondo la figura precedente e ridisegno partendo dal baricentro la nuova 
figura con il colore voluto?
Newsgroup: it.comp.lang.pascal
Titolo: Tu capisci Pascal?

Ciao a tutto l'NG, finalmente vi ho trovato, era da un pacco che cercavo un
ng sul pascal e finalmente ci sono!!!
A parte questo, vorrei dire, ho da poco installato il Turbo, chi di voi mi
sa dire adesso come lo imparo? (perlomeno dove posso trovare su Internet una
qualche guida alla sintassi dei comandi)
Grazie 1000 a chi mi rispondera'!
Appena realizzo un programma per fare soldi senza fare niente, glielo
spedisco gratuitamente!
;-))
Byezz
Fabio


se non mi ricordo male la la sintassi dei comandi la trovi nell'help
dell'ide

Vai su  
www.manuali.net/download.tutorialtb.zip
 .
Ce  n'è uno abbastanza buono.
                                                            Kosby
--
"Fate mostra di essere
 pronti alla guerra e avrete
 la pace."
"neon" <neon...@NOSPAMhotmail.com> ha scritto nel messaggio
news:o1710t4eneksk5ru3...@4ax.com...

Newsgroup: it.comp.lang.pascal
Titolo: Problema con File Eseguibile!

Sto sviluppando un progetto in cui faccio stampare una matrice in cui si
muove un robot.
La matrice si vede benissimo quando compilo e faccio partire il programma,
ma l'eseguibile, invece, mi apre mezza finestra dos.
Come devo fare per farla aprire in modo intero?
Grazie.

Grazie.
de nada spero di eserti stato utile...
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

> Come devo fare per farla aprire in modo intero?
se per mezza/intero intendi 25/50 righem dovresti poter risolvere
cambiando risoluzione nel tuo programma usando ad esempio
textmode (nella unit crt).  Le costanti per le due risol. sono
  Text25 : word    =   3;
  Text50 : word    = 259;
-- 
Dreadnaut
(Life would be easier if I had the source code)

 textmode (nella unit crt).  Le costanti per le due risol. sono
ho aggiunto TextMode e parenti (stretti) all'help
[ 
http://digilander.libero.it/dreadnaut/sec_pascal/tp7ita/
 ]


Newsgroup: it.comp.lang.pascal
Titolo: Stringhe ed Overflow!!!

In previsione dei prossimi sviluppi di
PAS Math credo che le normali stringhe
di massimo 255 caratteri risultino
molto limitative. Occorrerebbe dunque
servirsi di qualcos'altro come le stringhe
null-terminated e le AnsiString. Cio' che
mi preoccupa e' che, per l'idea che mi
son fatto, il primo tipo sembra piuttosto
complicato da gestire e richiederebbe
uno stravolgimento del programma,
mentre il secondo credo che sia supportato
solo dal FreePascal. Poiche' non ho mai
utilizzato nessuno dei due tipi, vi chiedo
consigli al riguardo.
Vorrei inoltre sapere come posso gestire
gli overflow, impedendo che il programma
termini con un errore di run-time. Ho
provato con la direttiva $Q (che tra l'altro
mi pare funzioni solo per gli interi) ma
senza successo.
Vi ringrazio anticipatamente.
Ciao, Carmelo.

senza successo.
Stima il numero di cifre del risultato con i logaritmi decimali...
Ehi, qualcuno sa se è possibile rilevare un overflow senza scrivere
codice in assembler?
---
Ciao
PV

 codice in assembler?
provavo oggi a "trappare" gli errori runtime, ma anche inserendosi
nella catena di uscita del programma, si riesce ad evitare "l'errore"
inteso come scritta, ma non si evita la terminazione :-\
l'unica cosa sarebbe fare danni tipo modificare nello stack l'indirizzo
di ritorno della procedura di errore, ma funzionerebbe solo su un
compilatore... resta solo l'asm...
oppure potreste rappresentare anche i numeri come n-t, e riscrivere
le operazioni :-)  daiiii numeri di 65000 cifre oppure floating point
con 65000 cifre significative... hehehe pensateci !
[ paranoia finale... si codificano i numeri in base 256 e si sbattono
in vettori di byte... si puo' arrivare a numeri spaventosi, con solo
1Kb si rapresenta con una precisione di 2^-8000 (molto circa)
immaginate con 64kb !! (-: non ho voglia di fare i conti... :-) ]
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Pentium II - III

Posso sapere da dove si prende la crack del TP7 per Pentium II e III e come
si installa?
E' a causa di questa crack che mi da problemi con la unit CRT?
Grazie per le eventuali risposte.
Juan
P.S. Se avete la crack, me la potete anche spedire tramite posta
elettronica.
--
        \\\|///
        ( oo ) By Juan
--oOO--(__)--OOo--

 ha scritto nel messaggio
news:clE96.32$Lh2....@twister2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Consiglio TNX

vorrei leggere un file di testo una riga alla volta
all'interno della riga (stringa), se il primo carattere della stringa è un
carattere da me scelto, cerco un carattere sentinella, una volta trovato
dovrei copiare tutto il resto della stringa in una variabile string.
come posso fare?
GRAZIE
--
Sommella Marco {Skonvols2k}
ICQ # 61968988
somme...@inwind.it
skonv...@iol.it

Questo dovrebbe funzionare:
program riconoscilinea(input, output, testo);
const caratterescelto='g';
var   ch:char;
        testo:text;
        stringa:string;
begin
assign (testo,'d:\testo.txt');
reset (testo);
read(testo);
While not eof(testo) do begin
    read (testo,ch);
    if ch = caratterescelto then begin
        stringa:=ch;
        while not eoln (testo) do begin
            read (testo,ch);
            stringa := stringa + ch;
            end;
        end
        else begin
        readln (testo);
        end;
end;
writeln (stringa);
readln;
end.
ciao ciao ^___^

 ha scritto nel messaggio
news:qLeH6.1582$FS.1...@news1.tin.it...


 ha scritto nel messaggio
news:3aede9c0$1...@news.edisons.it...


Newsgroup: it.comp.lang.pascal
Titolo: come posso modificare un record in un file?

Sto creando un programma che gestisce una rubrica di persone.
In un file vanno salvati i vari record con i vari
campi:nome,cognome,indirizzo,citta,e-mail ecc.
Inoltre il programma dovrebbe essere in grado di:
1) aggiungere una persona
2) ricercare una persona
3) modificare i dati di una persona
4) cancellare una persona
Supponiamo sia:
type persona=record
          nome,cognome,indirizzo,citta,e_mail:string[50];
          end;
var datipers:persona;
       f:file of persona;
....
Per i primi due punti tutto ok:
I problemi nascono con gli altri due. Non è possibile modificare i dati di
una persona con la semplice istruzione write, supponiamo che decida di
modificare il record n-esimo:
Con write(f,datipers) non farei altro che aggiungere un altra persona dopo
l'n-esima.
Esiste forse un'istruzione (della quale io ne sono all'oscuro) che permette
di cancellare un dato in un file?
Un metodo alternativo ce l'avrei (però è lungo e sfrutterebbe tanta memoria
inutile).
Consiste nel copiare tutti i record del file in un array di record
effettuare le varie modifiche in tale array ed alla fine cancellare il
vecchio file e copiarci dentro l'intero array.
Attendo con fiducia una vostra risposta.
Grazie.
Skyj...@libero.it

 vecchio file e copiarci dentro l'intero array.
tienitelo in mente sto metodo perchè ti servirà...
UAHAHAHAHAA !
Newsgroup: it.comp.lang.pascal
Titolo: grafici con la grafica

come posso realizzare istogrammi con la grafica ?
Gallù


con BAR e BAR3D
Ciao
--
fabioma...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: play_16.tpu

Dove cazzo stà???
ciao
Pex

 Dove cazzo stà???
Vorrei solo ricordarti che questo e' un newsgroup...

Newsgroup: it.comp.lang.pascal
Titolo: albero binario help!

Mi sono imbattuto in questo programma in pascal...qualcuno sa
compilarmelo?
grazie.
giuseppe.
Scrivere un programma in pascal che consenta di inserire in un albero
binario i caratteri letti da un file esterno fino al suo esaurimento, in
modo che ,ripercorrendo opportunamente l'albero stesso,si possa,alla
fine,ottenre il numero totale di caratteri diversi ed il numero totale dei
caratteri uguali,quest'ultimo per ciascuno dei caratteri presenti nel file e
SOLO PER ESSI.
Le procedure per il caricamento dell'albero e per la sua visita dovranno
essere dotate degli opportuni parametri.

Studi a Bari??
Ciao, Dom

 ha scritto nel messaggio
news:4AKrc.316479$rM4.13...@news4.tin.it...


Quella che hai scritto è una tipica traccia d'esame da prof. Refice...
Che io sappia comunque non ha mai fatto pascal a lezione nè chiede pascal in
sede d'esame (solo C).
Ciao, Dom

Newsgroup: it.comp.lang.pascal
Titolo: Trovare i valori

Ho un esercizio che mi chiede di trovare i valori per:
-Il minimo intero negativo (no -maxint);
-Il massimo valore reale;
-Il minimo valore di |x| distinto da zero , x reale;
-il minimo valore di 'e' tale che il computer possa distinguere tra 1
e 1 + 'e';
Voi come procedereste ?.
Ciao. Fabrizio.
FreePascal (ide 0.9.2, compiler 1.0.6, debugger 5.1.1) 
Win ME, P4 1 Ghz, 320 RAM

 Voi come procedereste ?.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

PS: non sarebbe piu' divertente trovarsi gli algoritmi da soli??!!!
Sicuramente si , tant'è che non ho messo tutto l'esercizio, mi
interessava vedere il modus operandi.
Un grazie infinite , magari appena risolvo tutto ve lo faccio sapere.

Newsgroup: it.comp.lang.pascal
Titolo: Come si possono importare i dati con readln?

Ho visto che tanta gente ben disposta frequenta questo NG che mi son detto
che forse qualcuno avrebbe potuto darmi una  risposta.
Il quesito:
 letta con readln una riga input dallo schermo,trasformare i caratteri letti
in
una stringa di valori esadecimali corrispondenti?
Ossia letto 'ab cd' ottenere stringa con '
6162206364
'.
Con le funzioni  ord chr val str non ci sono riuscito.
La risposta penso (e temo per il tempo che ho io perso) sia semplice e per
questo ringrazio chi mi vorrà chiarire le idee.
    rob
 anche via e-mail  
rc...@tiscalinet.it

 wrote in message
7ocf17$fim$1...@aquila.tiscalinet.it...

Function AtoH(St: String): String;
const
     Hex: array[0..$f] of char='0123456789abcdef';
var
   l  : word;
   out: string;
   b  : byte;
Begin
     out := '';
     for l:=1 to length(St) do
         Begin
              b := Ord(St[L]);
              out := out+Hex[b SHR 4]+Hex[b AND $f];
         End;
     AtoH := out;
End;
_______________________________________________________
Iscriviti alla mailing list sul linguaggio Assembler inviando una e-mail a :
 
ml_assemble...@egroups.com
oppure saltando all'URL:
 
http://web.tiscalinet.it/drfalken/links/mailing_list.htm
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
ICQ#: 19598133
_______________________________________________________
Join my mailing list about Assembler sending a mail to:
 
ml_assemble...@egroups.com
or jumping to:
 
http://web.tiscalinet.it/drfalken/links/mailing_list.htm
Visit my homepage :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks for
Windows 9x, misc. Software...
_______________________________________________________

 
con ord() arrivi ad avere il numero decimale corrispondente al carattere,
poi credo con hex() si ottenga il "numero" esadecimale (in una stringa).
Quindi credo sia:
	var s, t: string;
            i: integer;
        begin
         readln (s);
         t := '';
 	 for i:=1 to length(s) do
            t := t + hex (ord (s[i]));
         writeln (t)
        end.
bye ;-)
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Non discutere mai con un idiota: la gente potrebbe non notare la
differenza", prima legge del Dibattito

 > questo ringrazio chi mi vorrà chiarire le idee.

Newsgroup: it.comp.lang.pascal
Titolo: help help help

Ragà avrei bisogno di uno consiglio.
Sono iscritto presso l'Università di Bari a Informatica e sto seguendo il
corso di programmazione. Il prof. mi ha consigliato il seguente testo
E.B. Koffmann: Turbo Pascal, Addison-Wesley
Trattandosi di un testo in inglese volevo chiederti se avete un'alternativa
in italiano.
Del seguente testo ("Pascal" Laboratorio di programmazione, McGraw-Hill)
proposto su 
programmazione.it
 cosa ne pensate?
Sapete dove posso inoltre reperire un compilatore per Windows? Da noi usano
"Turbo Pascal for Windows ver 1.5, Borland" ma mi sembra obsoleta.
Grazie mille per eventuali suggerimenti e indicazioni.

"Turbo Pascal for Windows ver 1.5, Borland" ma mi sembra obsoleta.
Il Pascal E' un linguaggio obsoleto.
Io ti consiglio di non acquistare alcun libro, ma di scaricare qualche
buona guida da internet. 
Se proprio devi farlo, acquista testi inglesi.
Salutami tutti i barlettani che conosci ;)

 Sono iscritto presso l'Università di Bari a Informatica e sto seguendo il
Ciao, concittadino !
Mi sapresti dire comè quest'università visto che dovrò frequentare anch'io
informatica ?
buona fortuna

informatica ?
Iscriviti a tuo rischio e pericolo ! ;)


Materiale scarso ? Professori teste di c@$$0 ? Struttura inefficente ?
Cos'ha che non va bene ? E quali sarebbero le alternative ?
Ciao

 "Turbo Pascal for Windows ver 1.5, Borland" ma mi sembra obsoleta.
Mi sembra l'ultima che è uscita, altrimenti devi passare a Delphi, che usa
un pascal un po' più complesso, l'object pascal, anche se mantiene tutte i
costrutti tipici del pascal

 informatica ?
Non funziona come dovrebbe, ci sono tantissime cose storte e ti fanno il
culetto così

E quali sarebbero le alternative ?
Studiare fuori.
La facolta' di informatica di Bari non ti dara' assolutamente NULLA.

Ippopapero Acquatico <NoM...@nOmAiL.com> wrote in message
38d88841....@diesel.cu.mi.it...

Vabbè ho capito, ma chissà forse fra qualche anno...
Infondo c'è ne vuole di tempo !

Infondo c'č ne vuole di tempo !
         ^^^
Eh gia' ! ce ne vuole proprio tanto !!! ;))

 Mi sembra l'ultima che è uscita, altrimenti devi passare a Delphi, che usa
un pascal un po' più complesso, l'object pascal, anche se mantiene tutte i
costrutti tipici del pascal
In effetti con Delphi si possono ceare anche applicazioni di tipo CRT come
se si stesse usando il comune Pascal per Dos (i programmi girano in una
finestra di Windows che emula un terminale CRT), e in questo caso volendo si
puo' benissimo fare a meno di usare gli oggetti.  Se ti interessa nel numero
di marzo di computer programming e' allegato un cd rom con il delphi 2 (e
ringrazio chi ha postato questa informazione in qualche thread precedente).
Claudio

Newsgroup: it.comp.lang.pascal
Titolo: TURBO PASCAL 7

Vorrei sapere dove posso trovare la versione 7 del Turbo Pascal !!
E'
freeware???
--------------------------------
Inviato via 
http://usenet.iol.it

io ho trovato con 
www.google.com
--
PIERLUIGI
email:
Pierlui...@libero.it
"Daviducciox" <aass...@a.aa> ha scritto nel messaggio
news:217Z57Z87Z89Y9...@usenet.iol.it...

Newsgroup: it.comp.lang.pascal
Titolo: Files ad accesso random

Salve
esistono in pascal i files ad accesso random cosě come sono in qbasic,
visual basic e company ?
Grazie
Milliken

visual basic e company ?
In Turbo Pascal esistono 3 tipi di file:
i file di testo, che sono sequenze di caratteri organizzati in righe
{ var nomefile: text;}
i file non tipizzati, usati per accedere ad ogni file su disco,
indipendentemente dalla sua struttura
{ var nomefile: file;}
i file tipizzati, che sono una successione di elementi dello stesso
tipo (quindi di uguale lunghezza) numerate a partire da 0
{ var nomefile: file of tipo_componente;}
i  file random dovrebbero essere questi ultimi (non sono un bravo
programmatore in Qbasic, ma sto scrivendomi un Qbasic Assistant con
Delphi).
Ciao
PV

milliken wrote:

se vai su 
http://digilander.iol.it/carmageddon1
 alla sezione tutorial
trovi le info sui vari tipi di file in Pascal.
Ciao Claudio.

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

un exe compilato con il modulo crt vecchio si puo aggiustare
per farlo funzionare su un pc veloce ?
senza avere il sorgente ovviamente, io ho provato a confrontare
due prog compilati nelle due versioni ma non ci ho capito molto
le differenze erano troppe.
ciao
  Bart

 wrote in message
h9os3.675$_%5.8...@typhoon.libero.it...


 le differenze erano troppe.
http://start.at/tp-links
chapter "patches". 
Look for Pedt Scragg's NEW CRT units! You find it in the bottom 
line of the RTE200 subchapter.
Use TPUMOVER to insert it into TURBO.TPL
:-)
-- 
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: Linguaggio Ada

C'è nessuno che sappia dirmi se esiste e dove trovare un ng per
programmatori ADA '95???
grazie mille



Esiste un comp.lang.ada, sia 
libero.it
 che mc-link dovrebbero averlo.
Il server 
news.tin.it
 l'ha, dovrebbe averlo anche news1.tin.it...
Ciao
PV

Grazie davvero!!
Phosphorus :-)
Newsgroup: it.comp.lang.pascal
Titolo: help per tabella

Dovrei fare una tabella in pascal dove inserire
questi dati
      i1 i2 i3 i4 i6 i12
      0,0500 0,0250 0,0167 0,0125 0,0083 0,0042
      0,0600 0,0300 0,0200 0,0150 0,0100 0,0050
      0,0700 0,0350 0,0233 0,0175 0,0117 0,0058
      0,0800 0,0400 0,0267 0,0200 0,0133 0,0067
      0,0900 0,0450 0,0300 0,0225 0,0150 0,0075
      0,1000 0,0500 0,0333 0,0250 0,0167 0,0083
come posso fare

In data astrale 23:14, giovedě 29 novembre 2001, il membro gino ginetti 
(
gino...@rocketmail.com
) della nave stellare it.comp.lang.pascal, scriveva 
sul diario di bordo:

Puoi usare una matrice di reali:
type
  Tcolonne=array[1..NUMEROCOLONNE]of real;
  Tmatrice=array[1..NUMERORIGHE] of Tcolonne;
Dichiarazione equivalente sarebbe:
type
  Tmatrice=array[1..NUMERORIGHE] of array[1..NUMEROCOLONNE]of real;
Altra dichiarazione equivalente sarebbe:
type
  Tmatrice=array[1..NUMERORIGHE,1..NUMEROCOLONNE]of real;
Ciauz
-- 
KNOWLEDGE IS POWER
http://www.sverzat.com

visto che sono alle prime armi direi che dire di capire poco sarebbe troppo
come posso fare a sviluppare la tabella
Grazie ancora

 come posso fare a sviluppare la tabella
Prima devi impratichirti con i vettori e poi puoi passare alle tabelle
(vettori bidimensionali) e successivamente a dati ancora più complessi.
Per capire come funzionano i vettori c'è l'help (voce "array") e, nel caso
resti qualche dubbio o sorga qualche domanda, ci siamo qui noi :-)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO KYLIX

Salve,
sto sviluppando un programma in pascal con kylix, ho bisogno di
lanciare un eseguibile, ma non riesco a trovare l'istruzione adatta.
Qualcuno potrebbe aiutarmi?
Grazie
--------------------------------
Inviato via 
http://usenet.iol.it



 Grazie
Scusa ma lo stai sviluppando 2 volte ????

"ReDiCuori" <emiliog...@NOSPAMemail.it> ha scritto nel messaggio
news:Bx6H8.76987$CN3.2...@news2.tin.it...

Capita ogni tanto, problemi di Outlook o altri programmi(non c'è bisogno di
rispondere). Ho visto un messaggio postato 4 volte per errore. Già che ci
sei potresti rispondere: exec(nomeprogramma, parametri) se supporta la
sintassi TP7, altrimenti non so e ti conviene andare su un ng kylix, se
esiste(penso di sì) o se no delphi(abbastanza affine). Comunque penso che il
mio consiglio dovrebbe funzionare. Ciao!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

 Grazie
Libc.system (devi includere Libc nella uses)
es.
if Libc.system ('ls') = -1 then
begin
  ShowMessage ('non riesco a fare ls');
end;
-- 
j.b. linux user sec
linorg
per l'indirizzo togliere rim
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto... stringhe pascal...

Ciao Andrea,
ti ringrazio per i consigli che mi hai scritto.
ma ho sempre un problema che mi affligge.
Quando tu dici:
es.:
se leggi dal file la seguente antipatia:
andrea Filippo
allora la tabella delle antipatie, sara':
antipatia[1,3]:=true;.
Come faccio a leggere e a memorizzare in un array la stringa < andrea
Filippo >?
Mi spiego meglio.
Come faccio a leggere il primo nome, individuare quale indice ha nell'elenco
memorizzato immediatamente prima, saltare lo spazio, e leggere il secondo
nome, individuando sempre il suo indice?
Ho provato in tutti i modi e non riesco. ho la testa che mi scoppia. ho
sfogliato libri e appunti e non ho trovato nulla a riguardo.
Scommetto che sara' una stupidata. ma non riesco ad arrivarci.
Il mio problema è questo: leggere da una riga di un file nomi (stringhe) che
stanno di per sé in un array.
Spero che tu mi possa dare una mano.
Grazie
Simone

stanno di per sé in un array.
Il seguente programma ti da' un'idea di come leggere una stringa ed
ottenere le diverse sottostringhe :
program Word ;
var s : string ;
function GetNextWord( var s : string ) : string ;
var w : string ;
begin
  w := '' ;
  if ( s <> '' ) then
  begin
    while ((s <> '') and (s[1] = ' ' )) do
      delete( s, 1, 1 ) ;
    while ((s <> '') and (s[1] <> ' ')) do
    begin
      w := w + s[1] ;
      delete( s, 1, 1 ) ;
    end ;
  end ;
  GetNextWord := w ;
end ;
begin
  readln( s ) ;
  while ( s <> '' ) do writeln( GetNextWord( s ) ) ;
end.
--
Andrea Laforgia
andrea_...@bigfoot.com

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

Anzi, sto cercando IL libro di Pascal, cioè "Pascal: Manuale e standard del
linguaggio", di Kathleen Jensen e Niklaus Wirth...qualcuno di voi mi sà dire
se si può trovare da qualche parte? Io ho provato da Feltrinelli, ma per
loro sembrava che parlassi arabo...
Ciao by
Daniele


in italiano vedi 
http://www.futura-ge.com/servizi/Libri/schede/1815/
in inglese 
http://www.cs.inf.ethz.ch/~wirth/books/Pascal/
http://hallwebtools.com/languages_tools/281.shtml
http://www.emsps.com/oldtools/books.htm
Ciao
PV

 wrote in message
3c24c1f...@news.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: R: Aiuto per stampa-output!!

 
Scrivo qui, perche' non ho il msg originale.
Devi fare in modo che il programma emetta come output anche il tuo input,
ovvero, dopo che hai immesso i dati, scriva:
Matrice 1:
  1 2 3
  4 5 6
Matrice 2:
  3 4 5
  6 7 8
Somma:
   4  6  8
  10 12 14
Cosi', lanciando da DOS il tuo programma, puoi redirigere l'output
direttamente verso la stampante, oppure in un file, che poi provvederai
a stampare:
per stampare direttamente (il risultato NON e' assicurato)
	mioprog.exe > lpt1
per redirigere l'output in un file
	mioprog.exe > miofile.txt
Ciao!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Un esperto e' una persona che evitando tutti i piccoli errori, punta dritto
alla catastrofe", definizione di Weinberg
Newsgroup: it.comp.lang.pascal
Titolo: da java a fpc/delphi

salve, 
in java esistono le parole chiavi "this" e "super".
Conoscete le loro equivalenti in fpc/delphi? esistono?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
per this c'è "self" e super non c'è bisogno c'è basta che all'interno 
del metodo chiami la prola chiave "intherted".
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Newsgroup: it.comp.lang.pascal
Titolo: Libreria net

Se qualcuno è presente in lista può consigliarmi una libreria per la
gestione dei socket anche a basso livello.
Grazie.


-- 
cc = callcc {|cc| cc.call cc}; cc.call cc

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

Dunque sto facendo un programmino in cui ho la necessità di riconoscere i
caratteri di punteggiatura di un testo che viene letto.
Purtroppo non riesco a trovare il modo di fargli riconoscere l'apice ( ' ).
Se avete consigli ve ne sarei grato
Diego

 wrote in message 8hgka0$npb$1...@nslave2.tin.it...


 - rimuovi XXX x rispondere    ICQ #8814554
Un tipo rientrato a tarda notte, ubriaco, si sveglia la mattina e chiede
alla moglie: "Cara, ma aprendo la porta del bagno, la luce si accende
automaticamente?".  "No, caro, perche'?".  "Allora ieri sera devo averla
fatta nel frigorifero!".
		-- Da it.hobby.umorismo

Newsgroup: it.comp.lang.pascal
Titolo: prova! Ignorare

Questo è un allegro messaggio di prova

 ha scritto nel messaggio
news:9h0crp$7vc$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e dos

E' possibile far partire un comando DOS all'interno di un programma
Pascal ??
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054


SI
fabi...@rocketmail.com

.

Potresti farmi un piccolo esempio pratico?
Non riesco a far funzionare nessun comando dos all'interno di un prog
in pascal.
Per esempio come faccio a scrivere un programma che ad un certo punto 
mi fa il chkdsk dell ' HD ?


...


 Pascal ??
   Dipende dal compilatore nel borland si scrive(va) 
    Execute("CHKDSK");
--
Posted from [195.103.11.226]
via Mailgate.ORG Server - 
http://www.mailgate.org

>Pascal ??
Certo che e' possibile.
Questo e' il metodo :
uses dos;
{$M 8192, 0, 0}
begin
  SwapVectors;
  Exec(GetEnv('COMSPEC'),'/C dir /w | more');
  SwapVectors;
end.
Ricordati sempre di riservare la memoria per il programma con la direttiva $M e
di utilizzare la procedura "SwapVectors".
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]


di utilizzare la procedura "SwapVectors".
Non potresti mettere un "commentino" vicino alle righe che hai
scritto? Per esempio, non capisco queste:
{$M 8192, 0, 0}
 Exec(GetEnv('COMSPEC'),'/C dir /w | more');
che comandi sono "getenv"  e "comspec"  ?


che comandi sono "getenv"  e "comspec"  ?
'comspec' e' il nome di una variabile di sistema, 'getenv' e' una funzione.
la funzione "getenv" restituisce il contenuto della variabile di sistema
"comspec" (che sta per COMMAND specification) e cioe' il percorso completo del
file 
COMMAND.COM
.
Nel mio caso essa restituisce C:\WINDOWS\
COMMAND.COM
Quindi in pratica stiamo eseguendo l'interprete dei comandi del s.o.
Il parametro /C serve ad indicare all'interprete che cio' che segue nella
stringa e' un comando da eseguire.


.
Grazie 1000 !!!!!



Non so se conosci la procedura EXEC dell' unit DOS... con essa è
possibile eseguire un programma con le relative opzioni.
    Sintassi : Exec( FileEseguibile, Parametri : string);
Non so neanche se conosci l'opzione /C del 
COMMAND.COM
 che esegue il
comando desiderato.
    Sintassi : COMMAND /C comando
PROGRAMMA :
{$M 8192,0,0}
uses Dos;
var Command: string[79];
begin
  Write('Inserisci il comando DOS: '); Readln(Command);
  if Command <> '' then
    Command := '/C ' + Command;
  SwapVectors;
  Exec(GetEnv('COMSPEC'), Command);
  SwapVectors;
  if DosError <> 0 then
    Writeln('Impossibile eseguire 
COMMAND.COM
');
end.
La funzione GetEnv('COMSPEC') ritorna il path di 
COMMAND.COM
, cioè se
il nostro 
COMMAND.COM
 e nella cartella C:\WINDOWS allora scrivere
"GetEnv('COMSPEC')" o "'C:\WINDOWS\
COMMAND.COM
'" è la stessa cosa.
:-) Spero che ti sia stato di aiuto, ma in ogni caso la mia e-mail è : 
amle...@hotmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Problemi con FPC su Mandrake

Ciao a tutti, ho installato fpc sulla MDK 10.1 e quando uso "graph" mi da un
errore che la documentazione risulta essere la mancanza dikke svgalib.
Dopo aver installato tutte le librerie svga che ho trovato, l'errore
persiste.
Qualcuno ha un'idea?
Grazie anticipate.
                                Lucio

( Lucio - news:gsNJd.455957$
b5.21...@news3.tin.it
 )

installate ok, ma i path sono a posto ?  le trova il compilatore ?
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
Dove si trova il file di configurazione, se è /etc/fpc.conf, come si
inseriscono i path?
Grazie tante per la risposta tempestiva
                                        Lucio

 inseriscono i path?
Vedi  se questo link fa al caso tuo 
http://www.freepascal.org/docs-html/user/userse6.html#x10-200002.3
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
------------------------------------------------------- 

 ReDiCuori
Grazie
                                Lucio

Newsgroup: it.comp.lang.pascal
Titolo: Chi lo può testare??

Non riesco a capire per quale motivo questo semplice programma(**che dovebbe
scomporre una lista di interi in pari e dispari**), il primo valore lo
stampa in entrambi i casi qualunque esso sia.
program spezzain2;
uses crt;
type lista =^elem;
elem = record
     info: integer;
     next:lista;
end;
var l,m,q:lista;
    x:integer;
procedure leggi(var l:lista;x:integer);
var p:lista;
begin
writeln('inserire interi');readln(x);
while x<>0   do
begin
new(p);
p^.info:=x;
p^.next:=l;
l:=p;
readln(x);
end;
end;
procedure scomponi(s:lista; var d,t:lista);    (*separa i pari dai dispari*)
var f:lista;
begin
if s<>nil then
begin
   if (s^.info mod 2)=0 then
   begin
   d:=s;
   scomponi(s^.next,d^.next,t);
   end
      else if (s^.info mod 2)<>0 then
   begin
   t:=s;
   scomponi(s^.next,d,t^.next);
   end;
end;
end;
procedure scrivi(m,q:lista);
begin
WRITELN;
writeln('LISTA DI PARI');
while m<>nil do
      begin
      writeln(m^.info);
      m:=m^.next;
      end;
begin
WRITELN('LISTA DI DISPARI');
while q<>nil do
      begin
      writeln(q^.info);
      q:=q^.next;
      end;
end;
end;
begin
new(m);
new(q);
l:=nil;
m:=nil;
q:=nil;
clrscr;
leggi(l,x);
scomponi(l,m,q);
scrivi(m,q);
readln;
end.


Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

Ok grazie mille!!!
ReDiCuori <redicu...@NOSPAMlibero.it> wrote in message
2CKP6.7730$WT5.2...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Perché alcuni programmi non funzionano?

Salve volevo chiedervi una cosa...
...come mai il mio compilatore per pascal, non riconosce alcuni programmi?
(che ho preso da esempi di alcuni libri) quando gli compilo segnala degli
errori Io non  credo che siano sbagliati i programmi che copio, voi che
dite?
Grazie a tutti quelli che mi aiuteranno.

 ha scritto nel messaggio
news:kaam7.2501$ul3....@news.infostrada.it...


> quando gli compilo segnala degli errori
mmmh... essere un po' piu' specifico potrebbe aiutare :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Ecco sì, molto probabilmente sono le librerie che mi mancano. Dove le posso
trovare? mi spieghi essenzialmente come funzionano?
Grazie
Un saluto
Marchese Gianfranco <dgr...@tinNOSPAZZATURA.it> wrote in message
dcam7.122304$TS4.1...@news2.tin.it...


 Un saluto
nelle librerie, come ad esempio crt, trovi delle procedure e delle funzioni
che puoi richiamare nel tuo programma senza bisogno di ricompilarle, per
questo motivo e' necessario dichiararle nell'apposita sezione uses.
naturalmente puoi crearle anche tu (come? vai sul sito
www.pascallike.cjb.net
 ), creando cosi' delle procedure o delle funzioni che
utilizzi spesso, senza bisogno di compilarle ogni volta. oppure puoi creare
delle unit tanto per alleggerire il codice e scaricare buona parte del
codice in file esterni. dove trovarle? vai all'indirizzo in firma, vi sono
diversi link

Newsgroup: it.comp.lang.pascal
Titolo: cobol

ciao a tutti, chi mi spiega in modo choaro perchè si usano i ursori in cobol?
è solo per una stampa virtuale dei dati di un database?

 ha scritto nel messaggio 
news:79d1fff.05041...@posting.google.com...


Grazie Dona, hai inteso alla perfezione la mia richiesta che č stata
esaudita come meglio non potevo chiedere.
Ora č tutto piů chiaro, infatti non capivo il motivo dell'utilizzo del
cursore a differenza della select,essendo abituato al cobol che si
studia a scuola, e non quello + sql.
grazie ancora e siccome 6 girl,baci.

Newsgroup: it.comp.lang.pascal
Titolo: P-robots

Salve figli dei fiori (in barba al superserio signor Pascal), qualcuno
di voi si diverte a giocare con Probots? So che in rete qua e la'
fanno dei tornei di Crobots ma di P propio niente, boh, fatemi sapere.
"Ricorda, dalla tua concentrazione viene la tua realta'" -
Qui-Gon-Jing

Io non riesco a scaricare il programma...
tutti i links che trovo sono spariti...
Sai dove lo posso trovare ?
grazie
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
--
Quarantaquattro Pentium,
in fila per 6 col resto di 1.9999458374...
--

,
e' anche patchato per il crt division zero error.
Ciao.

Grazie :-)


Di che si tratta?

Di che si tratta?
Il gioco consiste essenzialmente di un compilatore Pascal con alcune
istruzioni aggiunte che permette di programmare i movimenti e il
cannoncino di un robot virtuale che combatte con altri a gruppi di 2,3
o 4. NB: non e' un gioco interattivo. Bye.
Che il sole sorga sempre sul vs sentiero

Newsgroup: it.comp.lang.pascal
Titolo: Come si aggiungono...

Volevo sapere come si posso aggiungere degli elementi decorativi di grafica
al un programma pascal e come si fa a far cambiare il colore del testo?
Grazie
Saluti

EMILIANO PEZONE  ha scritto
come si fa a far cambiare il colore del testo?
Puoi  usare l'istruzione
textcolor(n)
dove n č un numero intero che varia tra 0 e 15. Ad esempio 0 indica il nero,
1 indica il blu, 2 il verde, 15 il bianco. Ora non ricordo gli altri.
Grazie
Prego
Saluti
Idem

 ha scritto nel messaggio
news:9uatmi$tsb$1...@nreada.inwind.it...


 ha scritto nel messaggio
non so cosa sono le uses crt e poi dova inserita l'istruzione textcolor?
 Grazie
L'uses crt, va richiamata subito dopo la riga di intestazione. Cioč
PROGRAM        somma;
USES                  crt;
VAR                    a,b:integer;
....
Questa serve per rendere disponibili le istruzioni del modulo crt appunto,
tra cui c'č anche textcolor. Textcolor devi inserirlo dal punto in cui vuoi
che il testo assuma il colore  selezionato. Chiaro?

 ha scritto nel messaggio
news:pX7O7.217435$sq5.10...@news.infostrada.it...


 tra cui c'è anche textcolor. Textcolor devi inserirlo dal punto in cui


o mi potrebbe dire dove trovarli?
Nessun errore manca semplicemente la patch
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: giochino di master mind

Ciao, volevo chiedervi un aiuto su un programma:
Dato un numero di al massimo 5 cifre non noto (che un altro non deve
vedere), immetterne un'altro e per ogni numero giusto stampare un' O, e per
ogni numero sbagliato stampare X. Il programma di deve fermare finchè non si
indovina il numero.
Ciao e grazie mille
Paolo

 wrote in message
9v83o4$ogo$1...@pegasus.tiscalinet.it...



E la domanda qual'è?
Non vorrai mica che risolviamo il problema per te, vero?
Se hai qualche problema con il codice, posta la parte interessata e saremo
lieti di aiutarti.
Ciao ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 Non vorrai mica che risolviamo il problema per te, vero?
Anke xkč nn mi sembra cosě difficile ;)
ciao ciao

 Anke xkè nn mi sembra così difficile ;)
Appunto :-)
Ciao


 Appunto :-)
Rispono lo stesso :)
Tutto questo in un istruzione repeat:
Prendi un array di tipo numerico [1..5] e ad ogni variabile fai assegnare un
valore da 1 a 9,
poi fai inserire all'utente 5 numeri e li memorizzi in un'altro array[1..5],
a quel punto confronti se qualche valore inserito corrisponde come valore e
posizione a
quello dell'array, se (if) il numero corrisponde aggiungi 1 alla variabile
X,
altrimenti (else) verifichi se il numero č uguale a qualche altro valore, se
si aggiungi 1 alla variabile O,
( č chiaro che non c'č bisogno di ripetere questa istruzione per 5 volte ).
a questo punti visualizzi le eventuali x e le eventuali o.
Se X=5 esci dal ciclo.
Cosě il risultato di X e O č sempre simile a questo XXOOO se invece volevi
qualcosa del titpo XOXXO ti basta sostituire le variabili X e O con un array
di tipo char e in serire X e O al posto della cifra corrispondente.
Ciao.

 Così il risultato di X e O è sempre simile a questo XXOOO se invece volevi



Per questo non ho dato il codice già tutto fatto sul NG...
Newsgroup: it.comp.lang.pascal
Titolo: ancora lotto

Grazie soprattutto all' aiuto di molti di voi, ho fatto il programmino per
calcolare dei terni secchi. Lo riporto più sotto
Io come criteri ho messo solo che siano diversi tra loro (ovvio) e che non
siano in successione.
quali altri criteri posso usare?
Io avevo pensato a "non siano nella stessa decina" , ma come fare per
decidere se due numeri sono nella stessa decina? Io avevo pensato di
dividere i due numeri per 10 e vedere se il risultato è sempre quello
program lotto ;
uses crt;
var i, j, k : integer ;
begin
clrscr;
  for i := 1 to 90 do
      for j := 1 to 90 do
            for k := 1 to 90 do
If     (i <> j)   and (j <> k)   and (i <> k)
   and (i <> j+1) and (j <> k+1) and ( i <> k+1)
   and (i <> j-1) and (j <> k-1) and (i <> k-1)
then writeln(i:3, j:3, k:3);
readln;
end.
--
Paolo 83 RE
gher...@iname.com
 (text only)
CIAO!


A e B sono nella stessa decina se:
	(A div 10) = (B div 10)
Fabio
--
fabi...@rocketmail.com

 
ma come mai tutte 'ste cose??
Non sai che i numeri sono equiprobabili?? :-))
Ciao ciao!
Ema


Ho dato un'occhiata al tuo programmino, credo sia meglio modificare il ciclo
di FOR che hai fatto con questo:
    For i:=1 to 88 do
           For j:=i+1 to  89 do
                  For k:=j+1 to 90 do
                         begin
                         if .....  then ...
                         end;
In questo modo eviti:
a) di calcolare più volte le stesse combinazioni ed eviti un controllo
(quello per numeri uguali);
b) per via del punto A il calcolo é più veloce.
Se hai dubbi preferirei che scrivessi al newsgroup più che nella mia
casella.
Ciao da Andrea 77 SS

Newsgroup: it.comp.lang.pascal
Titolo: Dev Pascal e consol dos application Help Win xp;

Salve,
qualcuno usa il Dev Pascal con applicazioni in consol dos.
Dopo aver scritto il programma, compilato e lanciato con Eecute, la finestra 
Dos si
apre istantaneamente e poi scompare.
Ho provato nelle proprietą del programma .exe le varie compatibilitą ma lo
steso non funziona.
Qualche suggerimento ?
Grazie

 Grazie
Prova a mettere una readln(); alla fine del programma o in alternativa
esegui il programma da shell di windows
Ciao
ReDiCuori
-- 
-- 
L'uomo non sa perchè si innamora, l'uomo viene travolto e basta
------------------------------­---------------------------
www.giordanoemilio.altervista.org
------------------------------­---------------------------
www.securitygroup.it
Società di servizio che opera nel campo
della sicurezza aziendale
------------------------------­---------------------------
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
------------------------------­-------------------------

 ha scritto nel messaggio 
news:gDZVe.33788$hV3....@nntpserver.swip.net...

Newsgroup: it.comp.lang.pascal
Titolo: Libri di informatica

Che libro mi consigliate per prepararmi alle olimpiadi dell'informatica
selezioni regionali, come linguaggio vorrei usare il Pascal (conoscete
qualche libro anche per questo?).
Grazie e Ciao!!
P.S.: ma alle olimpiadi si usa Turbo Pascal 7.0 o Pascal 1.5 for Windows o
altro?
Ciao

 altro?
In genere dipende dalla scuola dove si svolge la prova ma quasi tutti usano
TP7.
Ciao

 siano appena selezioni regionali.
Grazie per l'aiuto, ma mi puoi mandare i testi, scegli o al newsgroup oppure
al mittente (l'indirizzo è corretto)!!
Grazie ancora e ciao.

Newsgroup: it.comp.lang.pascal
Titolo: Serial Number

Esiste un PRG. od una UNIT(a 16 bit) che legga il serial number dell'hard
disk ?.
Ringrazio anticipatamente .....

 wrote in message
8ag6ak$m7g$1...@serv1.iunet.it...
