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

E' possibile in pascal creare un file ? Per esempio un file di testo o
un file html.
Io vorrei immagazzinare i dati di una classifica all' interno di un
file di testo, ma vorrei fare in modo che l'utente che usera' il mio
programma non debba crearsi il file in questione.

Zekka wrote:

Le cose caro "Zekka" stanno così:
Per prima cosa devi dichiarare una variabile di tipo text ( es : var f :
text; ).
D'ora in poi f indicherà una variabile di tipo text mentre nomefile una
variabile string con il nome del file come valore.
Per creare o sostituire un file di nome nomefile devi usare i comandi
assign(f,nomefile);
Rewrite(f);
Così facendo il file verrà creato o sovrascritto.
Per scrivere nel file basterà usare la procedure standard di output
writeln nel seguente formato : writeln(f,dato);
così verrà scritta una linea nel file f contenente dato.
Per chiudere il file basta usare il comando :
close(f);
N.B.
tutto ciò funziona in Turbo Pascal!!
Per il pascal standard al posto di
Assign(f,nomefile);
rewrite(f);
bisogna usare:
rewrite(f,nomefile);
Per quanto riguarda il comando close(f) in pascal non esiste un
equivalente,il file verrà chiuso automaticamente alla fine del programma.
Spero di essere stato d'aiuto.
 Tanti saluti da Airex ( 
ai...@tiscalinet.it
 )

 wrote in message
39187d94...@news.galactica.it...


               Attenzione all'anti-spam XXX
Non tutti gli uomini che bevono sono poeti.
Alcuni di noi bevono perche' non sono poeti.

Newsgroup: it.comp.lang.pascal
Titolo: Torneo P-Robots

 si
organizza un torneo di P-Robots, ossia della programmazione di una
strategia e un sistema di fuoco in Pascal che ha come scopo quello di
distruggere i suoi avvversari, tanto per non pensare al maledetto
porting ai 32 bit :=)

 ha scritto nel
messaggio news:3bccad27...@news.libero.it...



In realta' non ho capito cosa intendi con "a livello organizzativo",
scusami e se vuoi precisami quello che volevi dire... tento di
rispondere cmq - se organizzazione sinonimo di strategia - allora da
questo punto di vista si' P-Robots ricalca CRobots a parte il
linguaggio con cui tale strategia viene costruita.
'notte o 'giorno quale sia il tuo fuso
down air
Newsgroup: it.comp.lang.pascal
Titolo: programma per log della tastiera

Vorrei fare un programma residente in memoria che mi faccia il LOG dei primi
20 tasti premuti sulla tastiera e me li salvi in un file. Avete qualche
idea?

 idea?
Ci sono già tanti programmini del genere, molto belli e funzionanti,
perché perdere tempo a fare qualcosa già fatto?
MaTTeO.


Perchè di tutti questi "bei programmi" non ho neanche un sorgente in pascal.

 MaTTeO.

perché perdere tempo a fare qualcosa già fatto?
Esatto in un certo senso
Ma a noi programmatori il gusto della sfida contro
noi stessi, le nostre capacità e gli altri non è mai mancato........
Tanti auguri x il tuo progetto.......
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee

 Ciaoo!
Beh i gusti sono gusti!
MaTTeO.

 Lawrence Oluyede  <-- Scusa non mi faccio mai i fatti miei! Di dove sei?

Newsgroup: it.comp.lang.pascal
Titolo: Puntatori

Sono uno nuovo del linguaggio e non riesco a capire quale è l'utilità dei
puntatori e a cosa serve la procedura new(puntatore). Grazie a chi risponde.
SAVE

> puntatori e a cosa serve la procedura new(puntatore). Grazie a chi
risponde.
L'utilità dei puntatori è principalmente quella di poter utilizzare la
memoria solamente quando ti serve.
Mi spiego meglio: tutte le variabili che uno dichiara (var nomevariabile:
tipo) devono occupare al max 64 Kb di memoria. Quindi basta fare un paio di
array abbastanza capienti di string ad esempio et voilà, tutti i 64 Kb
occupati.
Inoltre la memoria viene occupata quando avvio il programma e che usi o no
le var, la mem rimarrà sempre occupata.
Usando i puntatori io invece posso creare la mia varibile quando voglio e
quandio occupare la memoria in un punto preciso del programma. Quando la
variabile nn mi serve +, basta che la distruggo ed ecco che libero memoria.
Non so se mi sono spiegato bene...
Inolte serve anche ad altre cose: puoi ad esempio puntare ad una allocazione
di mem ben precisa e modificarla se vuoi...
(Su questo ci sarebbero un paio di cose da dire cmq)
New(puntatore)=crei la variabile (varibile dinamica)
Ciao,
Alex

 (Su questo ci sarebbero un paio di cose da dire cmq)
Cosa comporta modificare una porzione di memoria sbagliata, o cmq della
quale non si conosce lo scopo? Volevo poi fare una domanda un po' OT:
qualcuno sa dove posso trovare una "guida" sul registro di windoz? GRASZIE

 qualcuno sa dove posso trovare una "guida" sul registro di windoz? GRASZIE
http://www.pokebook.it/registry/indice.php
Ma basta che fai una rapida ricerca su google e ne troverai molte altre,
anche di migliori.
Ciao,
Alex
Newsgroup: it.comp.lang.pascal
Titolo: esercizio strano

ecco ciò che devo svolgere:
creare un prog che preso in input un numero (decidiamo noi
il valore max) restituisca il corrispondente in caratteri.
es.  345-----trecentoquarantacinque
secondo me la prof è pazza perchè ci vorrebbe un case
gigantesco...voi che ne pensate??come lo fareste?
grazie
--
L'importante della vita sono le scelte...c'è sempre un
futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

> ecco ciò che devo svolgere:
La parte più complessa sta nella fase di descrizione del problema.
Poniamo come numero massimo 999. Quindi il programma dovrà essere in grado
di convertire da cifre a lettere tutti i numeri compresi fra 0 e 999.
Ci sono tre diversi casi:
-    unità (uno, due, ... nove)
-    prima decina (dieci, undici, ..., diciannove)
-    altre decine (venti, ..., novanta)
I numeri superiori a 99 si formano aggiungendo alla cifra delle centinaia
trasformata in lettere, la parola "cento" (tranne che per i numeri compresi
fra 100 e 199 dove viene scritto solo cento e non uno-cento).
Tieni conto dei casi speciali (i numeri che terminano per 1 e per 8), in
quanto bisognerà elidere l'ultima lettera delle decine (venti-uno diventa
ventuno, venti-otto diventa ventotto).
Poi non dovrai fare altro che unire le stringhe ottenute (duecento -
trenta - quattro = duecentotrentaquattro).
Per quanto riguarda la parte operativa non è difficile, prova a tenere conto
di queste considerazioni (ne mancano altre? Ho fatto tutto in fretta...).

Il Manchester United mi incantava con il suo gioco quando
Cristian
(aba...@NOSPAMemail.it) mi interruppe asserendo:

era più o meno come lo pensavo io, ma viene abbastanza
lungo...no??
cmq grazie mi è servito il tuo discorso!


 lungo...no??
Di certo non è come fare la somma di due numeri :-)

 Di certo non è come fare la somma di due numeri :-)
ok ora provo a farlo poi tra qualche giorno lo posto per
fartelo vedere

Newsgroup: it.comp.lang.pascal
Titolo: costruzione di un albero sintattico

Sono un programmatore ed ho un non facile problema, se potete consigliarmi
sul da fare ve ne sarei grato.
Pierluigi
vi mando la traccia:
Grazie alla procedura nextToken implementata nella prima parte siete in
grado di trasformare il file di input
in una sequenza di tokens. In questo secondo modulo dovrete trasformare
questa stringa di tokens in un
albero sintattico. Ci preoccuperemo di gestire espressioni aritmetiche
contenenti variabili,
numeri, parentesi e le sole operazioni di addizione e moltiplicazione.
Ad esempio, quindi, l'espressione
    a * b + c
dovrà essere trasformata  nell'albero sintattico
    (+  (*  a  b)  c)
oppure l'espressione
    (a + 3) * 5 + b
dovrà essere trasformata nell'albero sintattico
    (+  (*  (+  a  3)  5)  b)
Il vostro albero sintattico deve essere implementato con una struttura a
puntatori. Al limite, se lo ritenete
opportuno, potete arricchire il tipo di dato token utilizzato nel primo
modulo facendolo diventare una cosa
del tipo:
    type albero = ^token;
    type token = record
            tipo: integer;
            id: string;
            val: integer;
            sinistro, destro: albero;
        end;
Questo è solo un suggerimento; l'importante è che l'albero sintatico venga
implementato tramite puntatori.
Per mettere a punto il vostro programma dovete trasformare la seguente
grammatica in una serie di
procedure:
    E ->  T + E  |  T
    T ->  F * T | F
    F ->  (E)  |   id   | num
Per fare questo, ad ogni simbolo non-terminale dovete far corrispondere
delle procedure, secondo questo
schema
    isExpression        deve  corrispondere ad   E
    isTerm                   deve  corrispondere a     T
    isFactor                 deve corrispondere ad     F
Come visto in classe queste funzioni devono scandire la sequenza di tokens
data in input tramite chiamate
a nextToken. e trasformarla in un albero sintatico. Una volta costruito
l'albero sintattico, il suo contenuto
deve essere stampato riga per riga  su schermo (o in un file, come
preferite) in in-order, seguendo la
convenzione adottata nel primo modulo. Ad esempio,  quindi,l'albero
    (+  (*  alfa  beta)  333)
sarà stampato come:
    +
    *
    1 alfa
    1 beta
    2  333

 wrote in message
TRnO6.4971$h9.7...@news.infostrada.it...


 ha scritto nel messaggio
news:UspO6.1458$225....@news1.tin.it...


Idem come per RdC,
quotate con calma :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Pascal DPMI

Qualcuno sa indicarmi un compilatore pascal che giri in DOS, capace di
creare eseguibili in modalità protetta?
Fedan

 creare eseguibili in modalitą protetta?
Il Borland Pascal 7 di sicuro... altri non so'...
-- 
Dreadnaut
(Life would be easier if I had the source code)


il tmt pascal

 il tmt pascal
cos'è e dove lo posso trovare?
Grazie
Fedan

 cos'è e dove lo posso trovare?
www.google.it/search?q=tmt+pascal
il primo link...
-- 
Dreadnaut
(Life would be easier if I could use Google...)
Newsgroup: it.comp.lang.pascal
Titolo: Division by zero? errore in Crt :: ClearScr()

è un problema noto, vero? come si risolveva?
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++  
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r  tv--  
b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

 č un problema noto, vero? come si risolveva?


scaricando la solita patch!
apriti cielo! qualcuno m'ha risposto... da dove?


Newsgroup: it.comp.lang.pascal
Titolo: Perchè????

Il problema è questo:
Acquisisco un vettore di caratteri però quando vado a visualizzare il
vettore non mi esce il primo carattere.
program prova;
type caratteri=array[1..20] of char;
var i,n:integer;
      a:caratteri;
begin
        read(n);
        for i:=1 to n do begin
             gotoxy(1,1+i);readln(a[i]);
             gotoxy(20,1+i);write(a[i]);
        end;
end.
Se per esempio acquisisco A, B, C, D
quando vado a visualizzare esce  B C D
dove sbaglio?
Grazie.

 Acquisisco un vettore di caratteri perň quando vado a visualizzare il


 quando vado a visualizzare esce  B C D
spiega un attimo meglio...
se ho capito bene, tu inserisci:
A <invio>
B <invio>
C <invio>
D <invio>
mentre invece, visto che all'inizio devi leggere anche n, dovresti inserire:
4 <invio>
A <invio>
B <invio>
C <invio>
D <invio>
Ho capito giusto?

 ha scritto nel messaggio
news:atncan$nto$1...@newsreader.mailgate.org...


 > Acquisisco un vettore di caratteri però quando vado a visualizzare il


         read(n);
[risposta euristica 1]
provato a mettere readln anche qua ?
-- 
Dreadnaut
(Life would be easier if I had the source code)

Grazie.
Ho risolto il problema.
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:PbKL9.25292$Ou4.7...@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Dove posso scaricare TP7??

Gratis ovviamente!!!
Grazie
Kjo.

Newsgroup: it.comp.lang.pascal
Titolo: Manuali cartacei

Come da soggetto, mi servirebbe un buon (ottimo possibilmente :-)) manuale
cartaceo per imparare il pascal, qualcosa come "C corso completo di
programmazione" di Deitel&Deitel, facile e completo.
Esiste qualcosa del genere?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

mmm mi sa che mi devo arrangiare da solo, grazie lo stesso

Newsgroup: it.comp.lang.pascal
Titolo: Chiarimento condizione

 
          Ciao a tutti,
vi chiedo un chiarimento:
ho un sorgente fatto da un mio ex collega che ha questa specifica:
if (searchResult.attr and faDirectory) = faDirectory
siccome non ho mai usato un condizionamento del genere, qualcuno mi sa
spiegare il senso di
(searchResult.attr and faDirectory)
Lo chiedo perchè "searchResult.attr" è un longint e "faDirectory" vale
"$00000010"
e non capisco se quello che c'è tra parentesi equivale a dire
(searchResult.attr = faDirectory)
oppure se c'è qualche differenza.
Spero di essermi spiegato bene ....
Grazie, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

la AND in questo caso fa un lavoro bit a bit di numeri e ottieni un
numero,
che viene chiesto se e' = ad un altro numero, e torna qundi un bool
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

And si utilizza per mascherare i bit che non interessano. In questo caso 
serve in quanto attr puo' essere l'insieme di più attributi (es achivio 
e readonly)
Mi spiego:
Valore = $00;
Imposto ad uno due bit (il primo ed il secondo per la precisione)
Valore = Valore Or $01 Or $10;  // ora valore sarà $0011
Ora per sapere se è stato impostato il bit 2 eseguiro'
(Valore And $10) = $10  oppure (Valore And $10) <> 0
mentre per il primo bit sarà:
(Valore And $01) = $01  oppure (Valore And $01) <> 0
Spiego:
Valore = $0011
Maschero tutti i bit escluso il secondo
Valore And $10 che equivale a scrivere $0011 and $0010 ovvero il 
risultato sarà $0010
Ora testo il valore di uscita
() = $10 oppure () <> 0
Ricorda che AND ritorna 1 se tutti e due i bit sono ad 1, 0 negli altri casi
Ciao,
David

( MBulu - 
news:62Z108Z225Z151Y...@usenet.libero.it
 )
direi che ti han gia' spiegato tutto, io posso solo aggiungere:
"Bit, maschere e shift"
http://dreadnaut.altervista.org/pascal/la%20smette%20di%20piovere.html
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

Grazie a tutti per le risposte, leggendole e cercando altro materiale, ho
elaborato questa semplice spiegazione. Fa l'esempio con Lazarus, ma il
ragionamento vale lo stesso anche col pascal.
Per vedere bene la tabella, visualizzatela con il carattere "Courier"
Lazarus | Esadecimale | Decimale | Binario
----------------------------------------------
faReadOnly | $00000001 | 1 | 1
faHidden | $00000002 | 2 | 10
faSysFile | $00000004 | 4 | 100
faVolumeId | $00000008 | 8 | 1000
faDirectory | $00000010 | 16 | 10000
faArchive | $00000020 | 32 | 100000
faAnyFile | $0000003f | 63 | 111111
Supponiamo che "searchResult.attr" contenga 10001, questo vuol dire che č
riferito ad una directory di sola lettura.
(searchResult.attr and faDirectory) equivale a fare un confronto bit a bit
tra le 2 variabili in formato esadecimale usando AND come operatore di
comparazione.
AND restituisce 1 se i 2 bit che comparo sono 1, 0 se almeno uno dei 2 bit č
0. Quindi:
10001
10000
---------
10000
da cui deriva che
(searchResult.attr and faDirectory) = faDirectory
diventa:
10000 = faDirectory
il che risulta vero.
Ciao e grazie ancora, Mario

Newsgroup: it.comp.lang.pascal
Titolo: Calcolo del determinante di una matrice

Ciao a tutti,
chi sa dirmi come impostare un programma che calcoli ricorsivamente il
determinante di una matrice quadrata?
Cioč, č possibile impostare una funzione o procedura che calcoli, per
esempio, il determinante di una matrice di 4 ordine passando attraverso il
complemento algebrico (che sarebbe una matrice di 3 ordine) di ogni elemento
della prima riga?
Grazie e ripondetemi presto!





Si, e' possibile :-)
ed e' esattamente il procedimento che fai a mano
quando calcoli il determinante
mmmh ah questo punto la sai fare da solo ? :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: ora e bios

Sapete mica come posso far leggere al pascal l' ora corrente dal bios del
sistema?
Kosby

 sistema?
Usa GetTime...dovrebbe andare....guarda l'help per i parametri da passare.
Ciao
--
DeViL!
=====================================
Togliere ILDISTURBO per rispondere :-)
=====================================
--------------------------------------------------------
"in tutti i tipi di unione, ciascuno dovrebbe comportarsi
secondo la sua naturale inclinazione" (Vatsayana)
--------------------------------------------------------


ciao,
vuoi leggere l'ora dalla cmos o vuoi utilizzare una delle funzioni del bios?
che poi più o meno e' la stessa cosa.
eccoti un esempio.
program tempibrutti;
{uses? no grazie!}
{scrive l'ora sullo schermo dai valori bcd passati dalle due
procedure per ricavare il tempo}
procedure writetime(h,m,s:byte);
function bcd(n:byte):string;
begin
bcd := chr(48+ n shr 4) + chr(48 + n and 15);
end;
begin
writeln(bcd(h),':',bcd(m),':',bcd(s));
end;
{ricava l'ora dal bios. interrupt 1a}
procedure biostime;
var
h,m,s : byte;
begin
asm
xor al,al
mov h,al
mov m,al
mov s,al
mov ah,2
int 1ah
jc @errore
mov s,dh
mov m,cl
mov h,ch
@errore:
end;
writetime(h,m,s);
end;
{ricava l'ora direttamente dalla cmos}
procedure cmostime;
var
h,m,s : byte;
function getcmos(i:byte) : byte; assembler;
asm
pushf
cli
mov al,i
out 70h,al
in al,71h
popf
end;
begin
h := getcmos(4);
m := getcmos(2);
s := getcmos(0);
writetime(h,m,s);
end;
begin
write('ora dal bios: ');
biostime;
write('ora dalla cmos: ');
cmostime;
writeln('ora basta');
end.
invece la funzione gettime del pascal si rifà all'int 21, ora controllata
dal  sistema operativo che inizialmente la ricava dal bios o dalla cmos.
comunque ci sarebbero altre sfumature da controllare, ma nella maggior parte
dei casi basta in questo modo.
ti rimando alla lista degli interrupt di ralph brown dove potrai trovare
informazioni sull'int 1a e sulla cmos.
non chiedermi l'indirizzo perche' dovrei fare un casino per andarlo a
prendere. fai una ricerca e ti spunteranno fuori un miliardo di siti con il
caro ralph in mezzo.
Ciao!
Giuseppe
Newsgroup: it.comp.lang.pascal
Titolo: Novellino- Come creo l'eseguibile??

sono un novellino non so come creare l'eseguibile con TP6.0
Dal menu "Compile" se accanto alla voce "Destination" e' visualizzato
"Memory", cliccaci su: verra' visualizzato "Disk" (ripetendo
l'operazione ricomparira' "Memory" ). 
Brevemente:     Alt+C, D.
Per creare l'exe: ancora dal menu "Compile" seleziona "Compile" o
"Make". 
Brevemente:     Alt+F9 opp. F9.

sono un novellino non so come creare l'eseguibile con TP6.0
.......      grazie!!!!!!

Newsgroup: it.comp.lang.pascal
Titolo: Incontriamoci tutti concerto OFFSPRING Milano

Ok, ci penso e per la prossima befana te lo faccio sapere
Comunque se non mi si dovesse riconoscere io sono quello con i pantaloni alla
zuava ....
Andrea (mica uno qualunque...)
------------------------------
(se mi mandi la spam ti metto un'aspirina nella fanta...)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org




Ci sono ancheio!!!!!!!!
Ciao!!!

Newsgroup: it.comp.lang.pascal
Titolo: GNU Pascal o FreePascal ???

Quale mi consigliate???

 Quale mi consigliate???
FreePascal (
www.freepascal.org
)
Inoltre, per il Framework GUI puoi usare Lazarus
(
www.lazarus.freepascal.org
)
Enjoy-it !
-=SIMO=-

freepascal: 2
GNUpascal: 0
=)
Newsgroup: it.comp.lang.pascal
Titolo: Riguardo al C++

Salve a tutti.
Ho cercato un newsgroup riguardo a questo tipo di linguaggio, ma non l'ho
trovato; se ne conoscete qualcuno vi pregherei di consigliarmelo; volevo
sapere dove potevo scaricarmi un manuale di C++ e magari una versione
recente del compilatore.
Grazie mille
ciao

prova con
it.comp.lang.c++

you wrote :
#Ho cercato un newsgroup riguardo a questo tipo di linguaggio, ma non l'ho
#trovato; se ne conoscete qualcuno vi pregherei di consigliarmelo; volevo
#sapere dove potevo scaricarmi un manuale di C++ e magari una versione
#recente del compilatore.
Il ng si chiama it.comp.lang.c++ ed il compilatore lo trovi alla
pagina 
www.delorie.com/djgpp/
 (compilatore C/C++ a 32 bit in modalita'
protetta).
Utilizza il servizio ZipPicker per prelevarne l'ultima versione, da
poco disponibile.
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------


Sbaglio o manca dell'editor video ?
io l'ho prelevato tempo fa ma sembra funzioni solo
da riga di comando in dos.
Xbug

you wrote :
#Sbaglio o manca dell'editor video ?
#io l'ho prelevato tempo fa ma sembra funzioni solo
#da riga di comando in dos.
No, esiste l'ambiente di sviluppo RHIDE, che assomiglia molto
all'ambiente del Borland Turbo C++ ma e' molto piu' potente.

Newsgroup: it.comp.lang.pascal
Titolo: Creazione Calendari Calcio

Salve NG,
Vorrei un consiglio:
Ho N Squadre di calcio dove (per fortuna) N è sempre pari. Dovrei simulare
la creazione di un calendario di calcio con andata e ritorno... E fin qui
tutto ok, o meglio mi blocco ad un punto.
Supponiamo che N valga 4, avrò 4 squadre che giocheranno 3 giornate
all'andata e 3 giornate al ritorno.
Supponiamo che i nomi delle squadre siano "A" "B" "C" "D", le combinazioni
possibili sono:
(andata)
A vs B
B vs C
C vs D
D vs A
A vs C
B vs D
(ritorno)
C vs A
D vs B
A vs D
B vs A
C vs B
D vs C
E fin qui tutto ok, riesco a generare tutte le combinazioni.
Adesso vorrei un consiglio su come generare un algoritmo che mi raggruppi
queste combinazioni in (N-1)*2 gruppi (cioè 6 gruppi in questo caso) in modo
che ogni gruppo contenga tutte le N squadre senza nessuna ripetizione.
Esempio: NON va bene A vs B e B vs C perchè la B gioca due volte nella
stessa giornata ma VA BENE A vs B e C vs D perchè sono tutte diverse.
Ovviamente l'algoritmo non ha una logica ben precisa e quindi vorrei un
consiglio su come formare le combinazioni in modo che si rispecchi il
funzionamento di un calendario di calcio.
Il problema non finisce qui, molto probabilmente riscriverò per la seconda
fase, ma per ora vi chiedo un aiuto sulla prima fase, altrimenti non potrò
procedere alla seconda.
Ciao e GRAZIE.
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

 tutto ok, o meglio mi blocco ad un punto.[tagliato]
Il problema è piuttosto interessante, e sto pensando ad un bell'algoritmo. 
Intanto, dato che questo credo che non sia un ng molto frequentato, prova 
su it.comp.programmare, o al max (anche se saresti un pelino OT) su 
it.comp.lang. Aumenteresti il numero di thread interessanti in quel (solo 
uno, non cross-postare) ng. Sono troppi pochi purtroppo ;-). Ciao.
-- 
Andrea Bergia - studente
Linux Registred User #281550

 Intanto, dato che questo credo che non sia un ng molto frequentato...
pochi ma buoni no?
Cereal

 --
Pensa pensa...
Un aiutino mi farebbe molto comodo...
Io un'idea ce l'avrei pure ma richiede un calcolo lunghissimo... E inoltre
in caso di errore sarebbe da sbatterci perchč l'algoritmo č piuttosto
lungo...
Ciao e grazie.
Newsgroup: it.comp.lang.pascal
Titolo: Numeri casuali: dove trovare informazioni????

Salve a tutti!!
Sto preparando un progetto per l'università che intendo basare sui numeri
casuali, e vorrei chiedervi dove potrei trovare un po' di informazioni!!
Grazie in anticipo

 ha scritto nel messaggio
news:8v5rnb$au8$2...@nslave2.tin.it...


 In bocca al lupo per il progetto universitario.
Crepi 'sto bastardo!!!

 Grazie, ma questo lo sapevo già: a me interessa implementrare


Lo scopo del progetto (che non ha un testo suo...) č quello di confrontare
diversi algoritmi per la generazione dei numeri casuali per trovare qual'č il
milgiore e quali possono essere i miglioramente da apportare agli algoritmi
presi in esame.
Dal momento che devo implementare io gli algoritmi mi servirebbe qualche
esempio, un po' di teoria su cui rifarmi!!
Ecco tutto
Grazie a chiunque riesca ad aiutarmi!!

Caro Morpheus se sei aiutato non vale...
Propongo la squalifica
Professoressa Verriiiiiiiiiiiiiiiiiiii..... stia attenta!
Morpheus bara... E mo' che ho fatto la spia, non ho + bisogno di fare il
progetto, IO!
Mors tua vita mea
:-P
Superpaippo

 Mors tua vita mea
Aspetta che mi tocco; sai, tante le volte...........

Newsgroup: it.comp.lang.pascal
Titolo: Help-TPascal 7

Spero qualcuno possa aiutarmi a capire perchè con le istruzioni USES CRT e
CLRSCR,
i programmi si piantano e compare "ERROR 200: Division by zero".
 Grazie.

 i programmi si piantano e compare "ERROR 200: Division by zero".
E' un bug del Turbo Pascal, abbastanza famoso, in pratica con i processori
Pentium superiori a 100 Mhz si verifica questo bug.
Per correggerlo esistono delle patch ed esistono delle unit CRT alternative.
Comunque per cancellare lo schermo ti basta scrivere questo:
Procedure ClrScr(); Assembler;
  Asm
    Mov Ax, 03h
    Int 10h
  End;
:-P


oppure
for k:=1 to 25 do
  for j:=1 to 80
    write(' ');
gotoxy(1,1);
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

 gotoxy(1,1);
No.
gotoxy è una funzione che si trova nella unit CRT, dunque non la puoi usare
se non hai la unit patchata.
Mentre la soluzione data da me, non richiede la unit CRT.

 gotoxy(1,1);
se scrivi un carattere nella posizione 25.80 lo schermo "shifta 
automaticamente" di una riga, verso l'alto.
-- 
     __         ____         | We don't need no education.
 __ / /__  ___ / __/__ __ __ | We don't need no thought control.
/ // / _ \/ -_) _// _ \\ \ / | All we need is another brick in the wall
\___/\___/\__/_/  \___/_\_\  | ICQ UIN: 61571298

La patch la trovi nel sito in firma sezione tools
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

 automaticamente" di una riga, verso l'alto.
quindi non c'e' bisogno del gotoxy...
--
Ciao
Gianfranco Marchese
e-mail: 
dgr...@tin.it
    UIN ICQ 117743990

Newsgroup: it.comp.lang.pascal
Titolo: non mi funziona questo programma in TP

ho provato a scriverlo sia sulla versione 6 che su quella X ma non va
a nessuna delle 2...
tra l'altro non trova errori nella fase di testing, ma solo quando
pigio "run".
il programma è quà sotto
spero che qualcuno mi possa trovare l'intoppo (l'ho trovato su un
tutorial...)
program tutorial15;
var
  infile, outfile: text;
  inputchar: char;
begin
  assign(infile, 'data.txt');
  reset(infile);
  assign(outfile, 'upcased.txt');
  rewrite(outfile);
  while not eoln(infile) do
    begin
      while not eoln(infile) do
        begin
          read(infile, inputchar);
          write(outfile, upcase(inputchar));
        end;
      writeln(outfile);
      readln(infile);
    end;
  close(infile);
  close(outfile);
end.

   rewrite(outfile);
cambia qui
while not eoln(infile) do <-- eof(inline)
ciao
Al


   reset(infile);
il prog cerca di aprire questo file... esiste ?  non e' in qualche
directory con un nome troppo lungo o pieno di spazi ?
-- 
Dreadnaut
(random spam sign. 
http://digilander.libero.it/dreadnaut/
 )

 
fatto... era un errore di battitura... il programma originale diceva
EOF, ma così parte e finisce senza dare alcuna importanza al ciclo...
WHY???

 directory con un nome troppo lungo o pieno di spazi ?
prova a creare nella cartella dove hai riposto il programma un file
txt e chiamalo Data.txt
e riprova sostituendo la riga buggata che ha corretto il "tizio" che
ha risposto qui in alto!

 e riprova sostituendo la riga buggata che ha corretto il "tizio" che
il "tizio" comunque ha un nome...
;-)
Alfredo

 WHY???
Ma sei sicuro che nel tuo file ci siano caratteri?
Non č che stai lavorando su un file vuoto?
Al

 Alfredo
il fatto è che con google non sono ancora abituato a scrivere sui NG
(prima utilizzavo Tin)
cmq, dato che sono unm po' inesperto e non mi va di rispondere a 2
msg, mi puoi dire che significa quello che hai scritto sopra, ALFREDO
?

> ha risposto qui in alto!
Niente è solo che come leggi sopra mi hai definito "tizio" e io
semplicemente ho risposto con il mio nome...
ciao
Al

Newsgroup: it.comp.lang.pascal
Titolo: bgi error

ciao a tutti...
sono riuscito finalmente a trasformare un programma da .pas a .exe...
pero' quando lo faccio girare mi dice graphic not initialized ...come mai?
quando faccio partire lo stesso programma dal pascal non mi da errori e
funziona perfettamente......
mi sapete aiutare perfavore?
grazie in ogni caso

L'ambiente di sviluppo sà dove prendere i driver BGI per la grafica l'exe
non lo sà. Allora o metti il driver nella directory del'exe oppure nella
InitGraph specifichi il percorso del driver come terzo parametro, altra
soluzione è quella di linkare il driver all'exe dopo averlo convertito da
BGI in BIN

...

Newsgroup: it.comp.lang.pascal
Titolo: [SITO] Ho deciso...

Lo so che non è molto democratico...
ma visto che il sito "ufficiale"  non avanza... ho deciso di
ricominciare da capo... percui se qualcuno vuole puo' unirisi a me e
spedirmi tutto quello che vuole (tutorials, Domande, risposte ecc) che
le mettero online... cmq lo appogero PROVISORIAMETE sul mio sito sul
server Tiscalinet, quando sara finito, voterete se vi piace + il mio o
quello "ufficiale"
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

Come non detto il sito "ufficale" si sta sfegliano percui un sito
paralelo non giova a nessuno...

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!!!procedura d'inserimento.

qua sotto potrete ammirare un tentativo di costruzione di un albero
binario di interi con valori immessi da tastiera....almeno queste
erano le mie intenzioni...
c'e' una procedura INS che serve a inserire gli elementi
dell'albero,pero' ho problemi con il primo elemento da inserire,cioe'
quando faccio il primo controllo alla riga 15 non capisco come possa
avvenire.cioe' come fa k ad essere < di root^.chiave se quest'ultimo
ancora non esiste????????? ripeto che il problema si verifica solo
quando vado a inserire il primo elemento....anche se poi non so come
possa andare perche' ancora non ho risolto questo problema,ma credo
che una volta che inserisco bene il primo la procedura funzioni bene
per i successivi....
1  type tree=^puntatorenodo;
2     puntatorenodo= record
3                               chiave:integer;
4                               sx,dx:tree;
5                               end;
6  var kappa:integer;
7  var root:tree;
8  PROCEDURE INS(root:tree;k:integer);
9  var appoggio:tree;
10  begin
11    new(appoggio);
12    appoggio^.chiave:=k;
13    appoggio^.sx:=nil;
14    appoggio^.dx:=nil;
15    if k<root^.chiave then root^.sx:=appoggio
16    else root^.dx:=appoggio;
17  end;{END INS}
BEGIN {*****************************************}
new(root);
writeln('immetti albero binario,di interi =');
n:=0;
repeat
   begin
   readln(kappa);
   INS (root,kappa);
   n:=n+1
   end;
until n=5;
END.
oppure potrei aver sbagliato nel chiamare la procedura INS,come faccio
all'inizio del BEGIN{**************************************}
ma credo di no.
grazie per tutto il tempo che avrete perso.
ciao
[federico|end] 
ogal...@iol.it
 ,remove "ogalu." before reply
Key fingerprint = BB 82 C6 18 2B A2 77 44  48 E0 CC E5 BF EC 67 9E
"la Scienza e' un'equazione differenziale ; 
la Religione e' una condizione al contorno"
Alan M. Turing

ciao
Se non capisci qualcosa, non funziona, non era quello che volevi,
trovi degli errori o qualunque altra cosa scrivimi.
Ciao
Luigi
P.S.: mi sono accorto di un paio di piccole sviste che ho modificato.
Quindi ho mandato un messaggio di cancellazione di due messaggi
precedenti e ho inviato questo. Spero di non aver fatto casini.
Inoltre mi e' ritornata l'e-mail spedita a 
ogal...@iol.it
.
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it


Ciao,
Luigi

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal

Scusatemi se sono OT ma non conosco questo newsgroup e volendo essere
più specifico possibile forse ho frainteso il titolo.
Cmq io volevo chiedere se era possibile reperire in rete un
compilatore per pascal, cioè correggetemi se sbaglio un programma che
converte i file *.pas in exe. 
Grazie X favore in E-mail
E-MAIL 
bert...@libero.it
----------------------------------------
La vita è uno stato mentale...
----------------------------------------
ICQ 21834750
My home page: 
http://digilander.iol.it/bertone
My home page: 
http://go.to/berto
Irc: #italia, #giovani, #venezia

 wrote in message
38037f66...@news.libero.it...

Turbo Pascal 5.5 direttamente da Inprise (Borland ai bei vecchi tempi)
all'url:
http://community.borland.com/museum/borland/software/TP55.zip
Ciao!
Simone.
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________

 wrote in message 7u5d3d$knd$1...@nslave1.tin.it...


C'e' il free pascal!!!
Non mi ricordo dove lo puoi trovare ma basta che tu vada su 
www.hotbot.com
e metta come chiave di ricerca free pascal e il gioco è fatto


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

Devo fare un programma in Fortran per la tesi.
Avevo trovato un compilatore per Win,
che ora non posso piu' usare avendo
cancellato il file mmd.386 che sembra
indispensabile quanto irreperibile sulla rete.
Domando
1) Qualcuno di voi possiede questo file ?
oppure
2) Esistono compilatori (free) Fortran per Win?
oppure
3) Esistono compilatori (free) Fortran per Linux?
oppure
4) Esistono compilatori (free) C per Win e, 
   se cononosco il Fortran, faro' molta fatica ad imparere il C?
Se qualcuno mi puo' aiutare mi fa un enorme favore.
Siccome e' un po' urgente se mi rispondete anche via e-mail
mi fate un favore ancor piu' grande.
Alessandro Antonucci 
af...@inwind.it

    se cononosco il Fortran, faro' molta fatica ad imparere il C?
Non per fare pubblicità all'Infomedia... comunque sul CD che trovi allegato
al numero correntemente in edicola di Computer Programming trovi il
GnuFortran g77 per Win9x.
Puoi comunque reprirlo all'indirizzo  
ftp://ftp.star.le.ac.uk/pub/fortran/
Ciao.
Newsgroup: it.comp.lang.pascal
Titolo: exit procedurale

ho sentito dire che inserire un exit come uscita non è corretto potreste
spiegarmi per quale motivo??
grazie

spiegarmi per quale motivo??
Ogni funzione e procedura dovrebbe avere 1 unico punto di uscita.
Il codice diventa maggiormente controllabile.
In ogni caso, la Exit, a volte, torna utile.
Un esempio:
Io potrei scrivere:
function EseguiDivisione(A, B: Real): Real;
begin
  if (B = 0) then
  begin
    WriteLn('ERRORE ! DIVISIONE PER ZERO !');
    Exit;
  end;
  EseguiDivisione := A/B;
end;
Ora, nel caso vi fosse comunque un'operazione da compiere, all'uscita
dalla funzione, sei obbligato a replicare il codice:
function EseguiDivisione(A, B: Real): Real;
begin
  if (B = 0) then
  begin
    WriteLn('ERRORE ! DIVISIONE PER ZERO !');
    { codice eseguito comunque, prima di uscire }    
    Exit;
  end;
  EseguiDivisione := A/B;
  { codice eseguito comunque, prima di uscire }
end;
Invece, con un unico punto di uscita, potresti avere:
function EseguiDivisione(A, B: Real): Real;
begin
  if (B = 0) then
  begin
    WriteLn('ERRORE ! DIVISIONE PER ZERO !'); 
  end
  else
  begin
    EseguiDivisione := A/B; 
  end;
  { codice eseguito comunque, prima di uscire }
end;
-- 
Andrea Laforgia
#exclude <windows.h>

 grazie
perche' infrange una delle regole principali della programmazione in pascal,
il fatto di essere un linguaggio strutturato, invece di usare queste
scorciatoie, cerca di combinare tutte le strutture che conosci, un modo lo
troverai di sicuro. chesso', invece di utilizzare un ciclo for, utilizza un
repeat, dove la variabile contatore si autoincrementa e metti come
condizione d'uscita il valore massimo che deve assumenre il contatore, e
assieme a questa vaie ed eventuali condizioni da te previste
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

Newsgroup: it.comp.lang.pascal
Titolo: Grafici in Pascal

E' possibile fare grafici di funzioni con il TP7 , ci vogliono librerie
particolari?
Grazie 1000

xchè non mi  risponde nessuno?

 ci vogliono librerie particolari?
No.

 ha scritto nel messaggio
news:8vuee1$gum$1...@nread1.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: Esiste un istruzione che resetta il Pc?

Mi chiedevo se esiste un'istruzione pascal che resetti completamente
la macchina in cui è in esecuzione, a modi ctrl+alt+canc, esiste?
qualè?
Ricordo che si poteva anche far lampeggiare i led della tastiera
(blocknum Cap etc..) come si può ottenere tale effetto?

 (blocknum Cap etc..) come si può ottenere tale effetto?
interessante...qualcuno sa niente?
Grazie.
--
________________________________
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo! ;-)
________________________________
   FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere NOSPAM

 ha scritto nel messaggio
news:v%xQb.276189$vO5.11...@twister1.libero.it...


 (blocknum Cap etc..) come si può ottenere tale effetto?
i led della tastiera sono controllati da 3 bit alla posizione $0040:$0017.
Qua c'e' un esempio (primo link di google con 'keyboard led pascal'...
http://www.programmersheaven.com/zone24/cat579/4233.htm
-- 
Dreadnaut
(Life would be easier if I had the source code)

 (blocknum Cap etc..) come si può ottenere tale effetto?
Bisogna cambiare i valori di una determinata porta (mi pare), se mi
ricordassi quale...


http://www.programmersheaven.com/zone24/cat579/4233.htm
Questa non la sapevo anche i led sono mappati nella memoria.... {
Intel mette dei flag del processore nella tastiera e la tastiera mette
dei falg in memoria... tipica archidettura caotica che piace tanto
agli ingegneri }
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: component-oriented

Salve a tutto il newsgroup!
Qualcuno conosce per caso qualche versione component-oriented del Pascal (ho
sentito parlare di Component Pascal) e mi sa dire in breve in che anno è
stata fatta e le sue caratteristiche? Mi serve per una ricerca...
Paolo

Ma non è che si tratta di delphi?
Ambiente object oriented ,che si
avvale del pascal.

Newsgroup: it.comp.lang.pascal
Titolo: OT: Siti PASCAL

Dove posso trovare guide, esempi, programmi, etc etc su pascal ? Ciao ,
Grazie

 wrote in message
xU7y4.6781$O3.6...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: simulazione della pressione di un tasto

come posso, in turbo pascal, simulare la pressione di un tasto?
mi spiego: per esempio, quando windows esegue uno screen saver, con la
pressione di un tasto l'esecuzione viene interrotta. Io voglio interrompere
l'esecuzione AUTOMATICAMENTE, tramite la simulazione della pressione di un
tasto.
Quali sono le istruzioni? al limite anche in assembler
grazie, ciao

Quali sono le istruzioni? al limite anche in assembler
  Ma che assembler, basta la unit Crt e le sue funzioni KeyPressed e
ReadKey:
  KeyPressed:Boolean ti da True se e' stato premuto un tasto,
  ReadKey:Char ti da il tasto premuto. Se chiami ReadKey quando KeyPressed
e' False, essa aspettera' finche' non viene premuto un tasto.
  Eccoti un esempio al volo:
Program Albe;
uses
  crt;
Var
  StopNow : Boolean;
  Ch : Char;
begin
  StopNow := False;
  while not StopNow do
  begin
    Write('Ciao Albe'' - ');
    if KeyPressed then
      begin
        StopNow := True;
        Ch := ReadKey;
      end;
  end;
  Writeln;
  Writeln('Hai premuto "',Ch,'"');
end.
  Ciao,
 Mabu.


INT 16 - KEYBOARD - STORE KEYSTROKE IN KEYBOARD BUFFER (AT/PS w enh
keybd only)
        AH = 05h
        CH = scan code
        CL = ASCII character
Return: AL = 00h if successful
             01h if keyboard buffer full
Note:   under DESQview, the following "keystrokes" invoke the
following
          actions when they are read from the keyboard buffer:
                38FBh or FB00h  switch to next window (only if main
menu
                                popped up)
                38FCh or FC00h  pop up DESQview main menu
                38FEh or FE00h  close the current window
                38FFh or FF00h  pop up DESQview learn menu
SeeAlso: AH=00h,AH=71h,AH=FFh,INT 15/AX=DE10h

Newsgroup: it.comp.lang.pascal
Titolo: Librerie matematiche

Ho programmato sempre in C, ora volevo passare a qualcosa di diverso e
usare il Free Pascal. Mi chiedo, che librerie matematiche ci sono? e
come si fa adisegnare grafici? su che siti trovo il materiale per
Linux?
Ciao Marco.


Nel sito stesso di FP ci dovrebbero essere numerosi esempi, e librerie 
aggiuntive, spulcia la documentazione
-- 
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
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

Ok forse ho capito. Tu intendi la documentazione su 
freepascal.org
 lo
farò.
Una cosa che non ho ancora capito. Il free pascal è una estensione del
Pascal? comprende così anche tutte le funzionalità del Turbo Pscal e
Pascal precedenti?
oppure occorre inziare da zero? io il Turbo Pascal lo conoscevo un pò.


Piena compatibilità con il Turbo Pascal, con estensioni del modello ad
oggetti Delphi e altre aggiunte. Compatibilità con Delphi al 99%.
Per altre librerie matematiche vedi anche questo sito:
http://www-rab.larc.nasa.gov/nmp/nmpCode.htm
Ciao,
Dean
Newsgroup: it.comp.lang.pascal
Titolo: Compilatore per uso scuola secondaria superiore

Chi mi segnala un buon compilatore (free) per uso didattico (scuola 
secondaria superiore) su sustemi Windows 32 bit (XP e Vista) dotato di buone 
librerie grafiche?
Ho sentito parlare bene di Free Pascal 2.2.0, confermate?
Grazie.
Maurizio

 Ho sentito parlare bene di Free Pascal 2.2.0, confermate?
si.
-- 
A list is only as strong as its weakest link.
Donald Knuth

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

ciao ragà..siccome non ricordo l'algoritmo dell'ordinamento di un
array potreste mandarmi la procedura? ringrazio anticipatamente!!bye
all

ragà..ciao !! siccome non ricordo la procedura dell'ordinamento di un
array...in ordine crescente e decrescente potreste scrivermela..?? :))
anche in e-mail: 
p_bi...@libero.it
 	bye e grazie a tutti!!!

ragą..ciao !! siccome non ricordo la procedura dell'ordinamento di un


Newsgroup: it.comp.lang.pascal
Titolo: scomposizione in fattori

Ciao, qualcuno sa come risolvere questo problema:
scrivere un programma in pascal che scomponga un numero, dato da tastiera,
in fattori primi.
Ciao e mille grazie
Paolo

 in fattori primi.
E' un problema non banale... cmq potresti dimostrare che i fattori primi di
n, n non primo sono minori di sqrt(n), quindi puoi provare facendo un ciclo
da 2 a sqrt(n) e verificare quali di questi scompone n, se nessuno di questi
lo scompone n è primo, altrimenti otterrai i fattori primi

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

Ciao a tutti!!!
Vorrei porti dei quesiti, spero potrete rispondermi:
1) Perchè il chr(7) emette un suono metallico? Cos'è?
2) Dove posso trovare informazioni sull'uso delle units Crt e Graph?
3) Come funziona precisamente EXEC? Cosa fa partire?Un eseguibile per
windows anche?
4) Come si possono disegnare curve?
5) C'è un metodo "fisso" per disegnare con l'Ascii Code? Ti spiego, sto
partecipando ad un progetto per l'implementazione di un generatore di
cruciverba
    e alla fine la matrice su cui verrà generato il cruciverba voglio farla
per bene con l'Ascii Code, come fare?
Grazie a tutti!

 5) C'č un metodo "fisso" per disegnare con l'Ascii Code?
per Ascii Code intendi le cornicette ?
-- 
Dreadnaut
(Life would be easier if I had the source code)

 per bene con l'Ascii Code, come fare?
cioè vorresti fare la cornice con le caselle per il cruciverba?
su uno schermo solo testo contanto i caratteri "rubati" dalla cornice viene 
una matrice di circa 40x12 alla risoluzione standard di 80x25.
puoi usare i caratteri ascii non standard ( codice > 127) per disegnare le 
cornici. per vederla poi correttamente su PC diversi devi avere la stessa 
tabella di caratteri che carichi da DOS con
DEVICE=DISPLAY.SYS,039,437
..vado a memoria, non ricordo se è proprio così la sintassi, ma la sostanza è 
ci deve essere la stessa riga su tutti i PC.
Cmq come alternativa potresti scrivere un file .html e coi TAG giusti fare una 
tabella. la grafica risulta più bella, e non è per niente difficile da 
implementare.
Ciao
-- 
Ranger! 
www.rossi.eu.com
aggiungi .it alla mail x rispondermi
Newsgroup: it.comp.lang.pascal
Titolo: Esercizio per Lunedì...

per lunedi' devo fare il seguente esercizio:
creare una funzione che converta una stringa da minuscolo a maiuscolo usando
il codice ascii (logicamente senza usare upcase)....mi aiutate???
grazie.

esistono gia' pronte le funzioni
ord(char): byte  e  chr(byte): char
che convertono i caratteri nel loro codice ascii e viceversa.
c'e' una differenza fissa fra le maiuscole e le minuscole (tipo +32 o
qualcosa
del genere)  fai un paio di prove la scopri.
Poi leggi la stringa e sostituisci ogni lettera minuscola con la
maiscola
ottenuta con chr( ord (minuscola) + differenza_fra_maiusc_e_minusc)
-- 
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Borland Pascal o Turbo Pascal?

Ciao.
Che differenze ci sono tra il Borland Pascal e il Turbo Pascal?
Inoltre dove posso trovare in rete quest'ultimo?
Grazie ciao!
¨¨°º©o¿,,¿o©º°¨¨°º©  Mr. GiMa ©º°¨¨°º©o¿,,¿o©º°¨
------------------------------------------------------------------------------
             WEB: 
http://come.to/gima
            MAIL: 
gim...@freemail.it
             UIN: 2685398
------------------------------------------------------------------------------
Togliere NOSPAM dal mio indirizzo per rispondere


Non mi sembra che ci dovrebbe essere alcuna differenza tra i 2 in quanto è
la Borland che ha creato il Turbo Pascal che si differisce dal Pascal
normale dal fatto che la compilazione avviene direttamente in memoria e non
su disco (come il Clipper) il tutto rendendolo estremamente veloce (Turbo
appunto!).

 
Please allow to answer in English, my Italian is too poor.
TP 7 is a straight DOS compiler, it creates DOS executables.
BP 7 was a package of a DOS compiler and a Windows compiler,
often named BPW 7. BP was treated as a "professional" package.
DOS programs written with BP 7 could use the protected mode
with the DPMI interface to access > 640kB of memory.
And BP 7 included the RTL library, with most units as a
source file.
BP 7 and BPW 7 is no longer available from Borland. The successor
of Turbo Pascal is named Delphi, it is made for Windows. The new
name was chosen so that people "forget" the old DOS-based TP.
Franz Glaser

Inoltre dove posso trovare in rete quest'ultimo?
Borland Pascal puņ avere due significati:
a) l'intero pacchetto Borland Pascal with Objects che contiene vari
programmi tra cui Borland Pascal (in senso stretto) e Turbo Pascal .
b) il programma di sviluppo integrato  che gira in modo protetto  e
genera applicazioni in Dos modo reale, Dos modo protetto e Windows
3.1.
Turbo Pascal č lo stesso programma ma gira in Dos modo reale e genera
solo applicazioni Dos in modo reale.
Ciao Lauro