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

ha la necessità da un programma dos compilato in pascal di fare un arresta
sistema di windows quando questo programma termina.qualcuno sa darmi una
dritta?
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 dritta?
rundll32 user.exe,exitwindows

Newsgroup: it.comp.lang.pascal
Titolo: OT: Cambio di indirizzo e-mail....

Per tutti coloro che fossero interessati (ma chi?????) ho cambiato indirizzo di
e-mail nel seguente:
matri...@libero.it
Aggiornate le vostre rubriche.............
Ciao e a presto

Scusa... per caso sei riuscito ad avere un'altra e-mail con libero?
Dimmi come ti prego!
E' da settembre che dicono che è disattivato "per motivi tecnici" questo
servizio!!!!
Please fammi sapere anche per e-mail 
hot...@libero.it
Grazie,
Alessandra

Newsgroup: it.comp.lang.pascal
Titolo: CERCO PROGRAMMATORE per semplice ed interessante progetto.

Salve a tutto il gruppo.
Sto cercando un programmatore ( anche modesto ) che mi aiuti nel mio
semplice progetto.
Il progetto potrebbe anche rivelarsi molto interessante, in quanto
potrebbe far guadagnare anche qualche soldo, ma questo per ora lo escludo.
Purtroppo io non so programmare, per cui mi serve qualcuno che riesca
ad applicare le mie semplici idee.
Il fine e' quello di studiare statisticamente un metodo scientifico da
applicare al gioco del LOTTO ( e successivamente a quello del super
enalotto ).
Niente a che vedere con tutti i programmi di sistemistica ( o di pronostici
) che circolano in rete.
Per cominciare ho solo bisogno di un programmino che simuli 5000 /
10000 / 100000 estrazioni. Dopodiche' verranno applicati diversi metodi di
gioco a queste 5000/10000/100000 estrazioni e ne studiero' i risultati.
Sono convinto che non servano enormi capacità di programmazione,
se avessi tempo farei un corso ma purtroppo non ne ho.
Ringrazio anticipatamente tutti coloro che vorranno aiutare e 
sostenere il mio progetto.
Ciao.
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]
via Mailgate.ORG Server - 
http://www.mailgate.org

Niente a che vedere con tutti i programmi di sistemistica ( o di pronostici
) che circolano in rete.
... recitano tutti la stessa frase i sistemi che circolano in rete! .. e'
una specie di tormentone!
 ;-)
Newsgroup: it.comp.lang.pascal
Titolo: MOLTO URGENTE

Salve a tutti, vorrei chiedere una cortesia .
Ecco il mio problema: ho creato un file di testo per inserire delle
informazioni da database, quando chiudo li file e lo coglio riaprire, devo
mettere PER FORZA o rewrite o reset e poi posso riaprire e riscrivere sul
file ma cosě facendo perdo i dati precedentemente memorizzati.
In conclusione vi voglio chiedere se č possibile chiudere un file,
riaprirlo, riscriverci senza perdere i dati precedenti, quindi vi chiedo se
esiste qualche funzione che mi fa scrivere sul file dalla posizione finale e
non da quella iniziale(reset,quindi vorrei sapere qual'č il contrario di
reset).
Rispondetemi presto č molto urgente, ne vale il voto di Informatica a
scuola!!!
(Ho solo 17 anni, per cui aiutatemi...)
Grazie per l'attenzione.
P.S. Potete anche scrivermi tramite posta elettronica
juanv...@ciaoweb.it
--
        \\\|///
        ( oo ) By Juan
--oOO--(__)--OOo--


le richieste sul NG ricevono risposte sul NG
Ciao ReDiCuori

riaprirlo, riscriverci senza perdere i dati precedenti, 
Close per chiuderlo salvandolo, va usato sempre, per sicurezza.
Append per aggiungerci dati alla fine. rewrite lo riscrive del tutto.
extrabug @ 
iname.com

Newsgroup: it.comp.lang.pascal
Titolo: scritte riscritte

ho un problema:
qual'è l'istruzione che permette di scrivere un dato a video
sovrapponendolo a un altro: write lo scrive dopo, writeln lo scrive
nella riga sotto, ma come faccio a scrivercelo sopra (sempre nella
stessa posizione) senza cancellare le altre cose sullo schermo?
grazie,
Olivier.

 wrote in message
38C5625D...@libero.it...


 ciao
ok, funziona perfettamente.
grazie 1000 (Š1999 Max Pezzali, 883)
--
Olivier
ICQ# 47308980
Per rispondremi, togli LE DITA DAL NASO.

Newsgroup: it.comp.lang.pascal
Titolo: stringhe - caratteri: un utopia?

salve volevo sapere un'informazione: quali operazioni posso usare per
trasformare una stringa di lunghezza 1 (ottenuto con il copy) in un char,
per usare cosě le funzioni ad esso correlate???

Se la strigna č davvero di lunghezza 1 allora fai cosě:
    var    c: char;
             s: string;
begin
            ....
            ....
            ....
            (* S ora contiene un solo carattere *)
            c:=s[1];
end.
ORIENA PAPALINI ha scritto nel messaggio ...


Non serve sbattersi con il 'copy'.
Per prendere un carattere all'interno della stringa basta
considerarla come un'array di caratteri (come poi e')
e usare
carattere := stringa[posizione_nella_stringa];
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Grazie a tutti!!!
Newsgroup: it.comp.lang.pascal
Titolo: Certe discussioni sono riprovevoli... FINIAMOLA!

Da un periodo di tempo mi capita di leggere fra i posts di questo NG -
comunque interessante e composto da persone molto preparate (salvo rare
eccezioni che mi rifiuto di considerare) - riprovevoli messaggi di offese e
ripicche varie. Non voglio fare né nomi né cognomi né altresì voglio
dilungarmi oltre; questa credo che non sia la sede adatta a fare
pettegolezzi, scazzottate, ripicche, ecc..., per fare questo esiste il
telefono o la posta elettronica e NON il NG.
Credo che su questo NG si debba discorrere in modo pacato e civile di
argomenti coerenti, come suggerisce anche la NETIQUETTE, senza usare
turpiloqui o uscire dai binari della correttezza e del rispetto reciproco;
nessuno deve dimostrare nulla a nessuno, siamo tutti bravi, belli e
intelligenti, e, soprattutto, siamo qui per IMPARARE o INSEGNARE ma sempre
con MODESTIA ed UMILTA'.
Saluti, Marco

 wrote in message
98b2rk$677$1...@lacerta.tiscalinet.it...


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

Ragazzi ho un problema, dovrei leggere un file di testo questa ne è
una parte
mese1^ 1400 2000
mese2^ 2000 2300
mese3^ 3000 1000
mese4^ 1000 2333
ecc. ecc.
In pratica tra questi mesi devo prelevarne 3 i quali hanno il maggior
attivo primo numero-secondo e riscriverli in un secondo file. Io ho
trovato difficoltà a leggere dal primo file, come leggo il rigo?
Grazie

> trovato difficoltà a leggere dal primo file, come leggo il rigo?
readln(f,s)
       ^
       |  | - una stringa
       |- - - il descrittore del file
se ricordo bene...

Newsgroup: it.comp.lang.pascal
Titolo: chi mi aiuta?

spiegandomi questo passaggio?
 if (n and 1)=0 then t:= '0'+t
                     else t:= '1'+t;
grazie in anticipo :)
--
=Omega======================
"Hands On"
============================

                      else t:= '1'+t;
dev'essere colpa mia o sbaglio ? :-)
Questo pezzo era nel codice che da un numero costruiva
una stringa con la sua rappres. binaria ?
L'espressione n and 1 calcola l'and bit a bit fra i due
operandi e quindi "taglia" il primo bit da n: se questo e'
zero lo aggiungo alla stringa, altrimenti ci aggiungo un 1
[ and 1 in fondo equivale a "mod 2" ]
[ 
http://digilander.libero.it/dreadnaut/sec_pascal/
/la smette di piovere.html per ulteriori info sull'uso degli
operatori bit a bit ]
-- 
Dreadnaut
(Life would be easier if I had the source code)

 operatori bit a bit ]
Tnx
Grazie di cuore dread....il mio amore verso di te cresce di giorno in giorno
:PPP
:)))))


 giorno
beh ecco... non potresti rivolgerlo ad esempio verso l'altro
sesso o verso le arti, o verso il castrante assembler... :-)


Newsgroup: it.comp.lang.pascal
Titolo: COME UTILIZZARE I FILE IN PASCAL?

Ciao a tutti,
c'è la possibilità di utilizzare file strutturati in Pascal?
Che cosa sono le T.T.BOX in pascal???
Grazie Claudio


file di record. per avere un'idea vai sul sito in firma
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990
Newsgroup: it.comp.lang.pascal
Titolo: Algoritmi di riduzione

Salve a tutti.
Poichè sono ormai giunto al termine di un programma scritto in Turbo Pascal
7.0 e Turbo Vision 2.0 in grado fra l'altro di gestire pronostici,
statistiche, etc. per vari giochi (Totocalcio, Totogol, Totosei, Lotto,
SuperEnalotto, Tris, etc) ed avendo interesse a perfezionare le tecniche di
riduzione, appunto, dei sistemi dei
giochi suddetti volevo sapere se qualcuno aveva del materiale adatto allo
scopo o potesse darmi qualche spunto e volesse attuare uno scambio di
tecniche implementative !
Ciao Berny ;-)

 giochi suddetti
scusa, cosa intendi per riduzione? migliorare il rendimento diminuendo il
rischio (nel caso di sistemi "fatti male")?
ciao
-- gabri

 ha scritto nel messaggio
news:8v9l3o$3s4nj$1...@ID-53993.news.dfncis.de...


 di ordinare in maniera efficiente l'insieme di partenza [cut]
come ordinare? ma non si tratta di un insieme?
scusami ma non ci ho capito una mazza...:)
ciao,
-- gabri

 ciò mi e' oscuro... connessi in che modo?

Newsgroup: it.comp.lang.pascal
Titolo: Help me

Scusate innanzi tutto il titolo banale.
Ho un problema con l'utilizzo della funzione FindFirst: i 3 parametri da
inserire sono
Findfirst('*.*',Archive, DirInfo);
dove:
*.* è l'estensione dei file da elencare
Archive indica solo file
Dir info è la variabile (SearchRec) dove immagazzinare i dati;
fin qui tutto bene, ma se al posto di Archive voglio mettere Directory (per
fargli leggere l'elenco delle cartelle) mi chiede un '.' con il sottocampo.
Cosa devo mettere?
Grazie
El Dono

>  procedure FindFirst(Path: PChar; Attr: Word; var F: TSearchRec);
il secondo parametro e' una di queste costanti:
 Dos Constant | Value
 -------------+--------
 ReadOnly     |  $01
 Hidden       |  $02
 SysFile      |  $04
 VolumeID     |  $08
 Directory    |  $10
 Archive      |  $20
 AnyFile      |  $3F
se non ti prende Directory puo' darsi che tu l'abbia ridefinita
da qualche altra parte (nel tuo prog o in qualche unit che usi)
puoi metterci direttamente il valore, cioe' $10
se vuoi cercare piu' cose contemporaneamente basta che
sommi le costanti, a.e. System+Hidden
cmq con Archive non prendi tutti i files ma solo quelli con
attributo archive (cioe' il 99,99999% :-) )
--
Dreadnaut
(Life would be easier if I had the source code)

Ho controllato, ma non l'ho ridefinita in nessun punto del mio programma nè
in nessuna unit, può essere dovuto a uno "scontro" tr i moduli, uso i moduli
crt, dos e strings; l'errore che mi da è che mi chiede un sottocampo, come
se fosse un record. Ho provato a mettere $10 al posto di directory, ma mi
elenca tutti i files, come se avessi scritto archive.

per il Directory col punto non lo so'... ho provato ma non sono riuscito ad
ottenere lo stesso problema... prova a postare il codice :-)
Per l'elenco dei file, e' vero !  le costanti scapocciano e funzionano piu'
o
meno solo quelle del VolumeID, mentre per le altre ottieni <costante> piu'
tutti gli altri file... boh... puoi rimediare in questo modo:
se F : SearchRec metti un controllo dopo FindFirst/Next del tipo
if (F.Attr and Directory) <> 0 then <e' sicuramente una dir>


Bene, ho risolto il problema (ero stato talmente stupido da chiamare
directory anche il programma....) però ora me ne si presenta un altro: con
il comando finfirst/next directory, non solo mi trova le directory, ma anche
i file senza estensione e poi cerca di cambiare dir in quei files, dandomi
quindi errore, come devo fare per ovviare a ciò?

if (F.Attr and Directory) <> 0 then <e' sicuramente una dir>
oppure con un cosa del genere
 Function DirExist(DirName: String): Boolean;
  var
   s : string[64];
  begin
   GetDir(0,s);
  {$I-}
   ChDir (DirName);
   ChDir(s);
  {$I+}
   DirExist := (IOResult = 0) and (DirName <> '');
  end;
che e' una leggera modifica di quella per i file nell'help del tp

Newsgroup: it.comp.lang.pascal
Titolo: Help sulle funzioni sui file del TP

Mi servirebbe uno schema riassuntivo di tutte le funzione sui file (come
assign, rewrite etc...) che ha il Turbo Pascal con relativa spiegazione.
Qualcuno sa dirmi dove lo posso trovare?
Grazie!!!

you wrote:

Sull'Help del Turbo Pascal c'e' tutto.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Qualcuno sa dirmi dove trovo un compiler Pascal gratis?

Come da soggetto.
hotel.i...@dnet.it
Grazie.

 wrote in message
7fi4m9$cjh$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.pascal
Titolo: svuotare buffet tastiera

Ciao,
vorrei sapere come si fa a svuotare il buffet tastiera e a cosa serve
esattamente
ciao
Pex
--
------------------------------
Campa cavallo che l'erba cresce, e quando č scresciuta fumala!!!
------------------------------


Leggendo il buffer, è possibile sapere che tasto è stato premuto,
semplicemente questo!
Se poi ti riferisci ad un altra cosa, specifica meglio!
MaTTeO.

               Attenzione all'anti-spam XXX
La vita, qualunque cosa sia, e' sempre meglio della morte.

Newsgroup: it.comp.lang.pascal
Titolo: come si usa l'assembly con il pascal?

Qualcuno sa dirmi come si inserisce un codice assembly
in un programma pascal? Ho provato ad inserirlo tra
"asm" e "end", ma non funziona, mi da msgg di errore.
Il programma che vorrei inserire è il seguente:
MOV AH,02
MOV DH,0C
MOV DL,22
MOV BH,00
INT 10
MOV AH,09
MOV AL,43
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,23
MOV BH,00
INT 10
MOV AH,09
MOV AL,45
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,24
MOV BH,00
INT 10
MOV AH,09
MOV AL,52
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,25
MOV BH,00
INT 10
MOV AH,09
MOV AL,43
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,26
MOV BH,00
INT 10
MOV AH,09
MOV AL,48
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,27
MOV BH,00
INT 10
MOV AH,09
MOV AL,49
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,28
MOV BH,00
INT 10
MOV AH,09
MOV AL,45
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,29
MOV BH,00
INT 10
MOV AH,09
MOV AL,54
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,2A
MOV BH,00
INT 10
MOV AH,09
MOV AL,54
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
MOV AH,02
MOV DH,0C
MOV DL,2B
MOV BH,00
INT 10
MOV AH,09
MOV AL,4F
MOV BH,00
MOV BL,17
MOV CX,0001
INT 10
INT 20
L'ho eseguito con il debug del dos e funziona perfettamente:
al centro dello schermo compare "CERCHIETTO" in
caratteri bianchi con sfondo blu.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
 
33813...@tim.it
Bye byte, Cerchietto
La vita, senza una meta, è vagabondaggio
(Seneca)
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_


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: Lettura file

Si può leggere un file carattere dopo carattere? E cinque caratteri alla
volta?
Se qualcuno lo sa, posti su questo NG la risposta o all'indirizzo
bg...@mercurio.it

volta?
var f : file;
      buffer : array [1..5] of byte;
begin 
    assign(f, 'MIOFILE.DAT'); 
    reset(f, 1);
    while not eof(f) do
         blockread(f, buffer, 5);
    close(f);
end.
---------------------
Andrea,
mica uno qualunque...


"if something can go wrong,be sure it will go wrong!"
------------
Warning! remember to delete NOSPAM to answer by e-mail!

a che serve quella close che hai messo alla fine?
In parole semplici a non lasciare il file aperto.
E' sempre bene chiudere un file dopo averlo aperto (e si apre con
"Reset" se già esistente o "Rewrite" se se ne crea uno nuovo, o si
sovrascrive uno già esistente).
Andrea
-----------------------------
"E ora tutti a divertirci..."

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e win98

Vorrei sapere se la versione 7.0 del Turbo Pascal č compatibile con Win 98,
se sě da dove posso scaricare questo programma?? Nel sito della Borland non
l'ho trovato!
Help me!
Grazie sin da adesso.
Corrado

se sì da dove posso scaricare questo programma?? Nel sito della Borland non

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto spostare un file

Buongiorno a tutti.
in turbo pascal sto creando un programmino che se digito 1 e invio,
prende un file da c:\windows\system di nome key.key e lo sposta sul floppy
in a:
con il nome leggimi.txt
mentre se digito 2 e invio, prende il file leggimi.txt dal dischetto e lo
sposta
in c:\windows\system con il nome key.key.
le 2 procedure le ho chiamate Sposta_CA; e Sposta_AC;
mi potete aiutare?
Vi ringrazio per il vostro aiuto.

 ha scritto

Puoi utilizzare BlockRead e BlockWrite
Questo č l'esempio dell'help:
program CopyFile;
{ Simple, fast file copy program with NO error-checking }
var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Char;
begin
  Assign(FromF, ParamStr(1)); { Open input file }
  Reset(FromF, 1);  { Record size = 1 }
  Assign(ToF, ParamStr(2)); { Open output file }
  Rewrite(ToF, 1);  { Record size = 1 }
  Writeln('Copying ', FileSize(FromF), ' bytes...');
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  Close(FromF);
  Close(ToF);
end.
Newsgroup: it.comp.lang.pascal
Titolo: scomposizione in fattori primi

ciao,
leggendo i vecchi post ho trovato quello che richiedeva come si poteva fare
un programma in pascal che scomponesse un numero intero n in fattori.
Essendo anche io un principiante della programmazione ho deciso di provare a
farlo senza leggere i suggerimenti e i listati già postati.
mi sapete dire cosa ne pensate? cioè se è giusto, se c'erano modi migliori
per farlo, come migliorarlo, ecc.
grazie mille!
program scomposizione;
uses crt;
var
n, n2, i: longint;
k: byte;
label fine;
begin
clrscr;
write('Inserisci il numero da scomporre: ');
readln(n);
k:= 0;
n2:= n;
for i:= 2 to n do
    begin
    while n2 mod i = 0 do
          begin
          k:= k + 1;
          n2:= n2 div i;
          end;
    if (n2 <> 1) and (k <> 0) then
       if k <> 1 then
          write(i, '^', k, ' * ')
          else
          write(i, ' * ')
       else
       if k <> 0 then
          if k <> 1 then
             write(i, '^', k)
             else
             write(i);
    k:= 0;
    if n2 = 1 then goto fine;
    end;
fine:
readln
end.

 label fine;
Nel Pascal non bisogna assolutamente usare le etichette (Label) e i
GoTo!!!

Prova prima a riscriverlo senza label e goto e dopo potremmo dare un
occhiata all'algoritmo!
Ciao
MaTTeO.

program scomposizione;
uses crt;
var
n, n2, i: longint;
k: byte;
begin





    k:= 0;
    if n2 = 1 then break;
    end;
readln
end.

Ma perchè tutti sono contrari all'utilizzo del goto?
Io lo trovo molto utile....
--
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Spiegazione Tecnica:
In quanto non si attiene al tipo di programmazione del Pascal, cioè una
programmazione strutturata!
E rende il programma più "debole".
Spiegazione da programmatori:
Già si fatica a comprendere dopo un mese un programma fatto bene se non
ci sono commenti, ma uno che utilizza GoTo si fatica a capiro anche
commentato, e poi è veramente difficile da leggere, non essendo lineare!
Ciao
MaTTeO.

 ha scritto nel messaggio
news:39A7B464...@libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Elevamento a potenza in Pascal

, il
giorno 1 Aug 1997 11:18:43 GMT hai scritto:
#Mi e' capitato tra le mani un manuale (di molti anni fa)
#di Turbo Pascal 3.0.
#
#Leggendo la parte che riguarda gli operatori algebrici,
#non ho trovato il classico ** del fortran o ^ del basic che
#consentono l'elevamento a potenza.
#
#E' ovvio che il problema potrebbe essere bypassato in
#modo semplice, pero' la cosa mi pare curiosa.
#
#Qualcuno puo' aiutarmi.
#
#Maurizio
Infatti i Pascal NON esiste ne' un operatore ne' una funzione gia'
pronta per l'elevamento a potenza; ma si rimedia in fretta :-)
function Pow (num: Real; esp: Integer): Real;
begin
  if esp > 0 then Pow:= num * Pow (num, esp-1)
  else Pow:= 1;
end;
Cosi' ognuno si sceglie la sua versione preferita; io ti ho scritto la
piu' corta (versione ricorsiva).
ciao,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **

Mi e' capitato tra le mani un manuale (di molti anni fa)
di Turbo Pascal 3.0.
Leggendo la parte che riguarda gli operatori algebrici,
non ho trovato il classico ** del fortran o ^ del basic che
consentono l'elevamento a potenza.
E' ovvio che il problema potrebbe essere bypassato in
modo semplice, pero' la cosa mi pare curiosa.
Qualcuno puo' aiutarmi.
Maurizio

...


Maurizio
Ciao,
Luigi
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it

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

Devo fare un programma in grado di simulare una partita al gioco Forza 4...
Qualcuno ha qualche suggerimento o aiuto?
DI GRAFICA NON SO UN ... niente ok?
VI PREGO... ANCHE AIUTI SPIRITUALI SONO BENE ACCETTI :)
AL...@bigger.com

Se è solo per la grafica.... hai 2 soluzioni:
1) Ti leggi la guida (e soprattutto gli esempi) alla unit graph. Non è
complicato come sembra.
2) Non usi la grafica e lo fai solo testuale utilizzando delle O colorate o
delle O e X come pedine. Per il resto della griglia usa uno sfondo colorato
che distingua bene le colonne, ma soprattutto i bordi.
Ciao, Matteo
rma...@geocities.com
http://rossini.home.ml.org
Newsgroup: it.comp.lang.pascal
Titolo: Scrivere in modo grafico...

Ho un problema con Tp: come posso fare per stampare sullo schermo un numero
memorizzato in una variabile numerica quando ho lo schermo in modo graico,
cioè con il colore dello sfondo e del testo che voglio io?
--
Grazie,
       Spinus.
Icq#: 29149421

 cioè con il colore dello sfondo e del testo che voglio io?
Usando quindi OutTextXY?
Basta assegnare ad una variabile stringa il valore della variabile numerica.
Cioè, se la variabile numerica vale 234, la stringa dovrà contenere '234'.
Per ottenere ciò occorre usare la funzione:
Str(n, s);
dove n è la variabile numerica e s la variabile stringa che contiene il
numero (come nell'esempio precedente).
L'istruzione di scrittura sarà:
OutTextXY(x, y, s);
dove x e y sono le coordinate della scritta e s la stringa che contiene il
numero della variabile numerica n.
Se non sono stato abbastanza chiaro riscrivi al newsgroup.
Marco Malentacchi

Grazie.


http://www.penguinpowered.com/~ecesena
Se solo Dio mi desse un segno chiaro!  Come fare un grosso deposito a mio
nome in una banca svizzera...
		-- Woody Allen, "Without Feathers"
Newsgroup: it.comp.lang.pascal
Titolo: alberi binari

Qualcuno sa come copiare un albero binario in una lista(deve essere creata)? 
Come si copiano le sole foglie dell'albero nella lista(la lista deve essere 
sempre creata)?La procedura deve essere fatta tramite record e puntatori (vale 
sia per gli alberi che per le liste)
Grazie

Qualcuno sa come copiare un albero binario in una lista ?(deve essere creata)
Come si copiano le sole foglie in una lista?Naturalmente il tutto deve essere 
fatto tramite record e puntatori
Grazie

Un bel giorno, tutt'a un tratto, 
jocca.ce...@flashnet.it
, non so se mi
spiego !, si mise a scrivere :

Ti ho scritto il seguente codice :
uses crt;
type  ptr_foglia = ^foglia;
      foglia     = record
                      N  : word;
                      L  : ptr_foglia;
                      R  : ptr_foglia;
                   end;
      ptr_nodo   = ^nodo;
      nodo       = record
                      N  : word;
                      Next : ptr_nodo;
                   end;
procedure lista_inserimento(var First : ptr_nodo; N : word);
begin
  if (First = nil) then
  begin
    new(First);
    First^.N := N;
    First^.Next := nil;
  end
  else
    lista_inserimento(First^.Next, N);
end;
procedure lista_distruggi(var First : ptr_nodo);
begin
  if (First^.Next <> nil) then
     lista_distruggi(First^.Next);
  dispose(First);
end;
procedure lista_scrivi(First : ptr_nodo);
begin
  if (First <> nil) then
  begin
    write(First^.N, '; ');
    lista_scrivi(First^.Next);
  end;
end;
procedure albero_inserimento(var Root : ptr_foglia; N : word);
begin
  if (Root = nil) then
  begin
    new(Root);
    Root^.N := N;
    Root^.L := nil;
    Root^.R := nil;
  end
  else
  if (N <= Root^.N) then
     albero_inserimento(Root^.L, N)
  else
  if (N > Root^.N) then
     albero_inserimento(Root^.R, N);
end;
procedure albero_distruggi(var Root : ptr_foglia);
begin
  if (Root <> nil) then
  begin
     albero_distruggi(Root^.L) ;
     albero_distruggi(Root^.R) ;
     dispose(Root);
  end;
end;
procedure albero_lista(Root : ptr_foglia; var First : ptr_nodo);
begin
  if (Root <> nil) then
  begin
     albero_lista(Root^.L, First);
     lista_inserimento(First, Root^.N);
     albero_lista(Root^.R, First);
  end;
end;
var Radice_Albero : ptr_foglia;
    Testa_Lista   : ptr_nodo;
    I             : word;
begin
  clrscr;
  Radice_Albero := nil;
  Testa_Lista   := nil;
  writeln('Creazione albero.');
  for I := 1 to 30 do
      albero_inserimento(Radice_Albero, random(1000));
  writeln('Creazione lista.');
  albero_lista(Radice_Albero, Testa_Lista);
  writeln('Distruzione albero.');
  albero_distruggi(Radice_Albero);
  write('Lista : ');
  lista_scrivi(Testa_Lista);
  writeln;
  writeln('Distruzione lista.');
  lista_distruggi(Testa_Lista);
  writeln('Operazione completata.');
end.
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.pascal
Titolo: Qual è?

Qualè la differenza tra funzione e procedura?
Non posso eseguire entrambe le stesse operazioni e chiamare altre procedure?

Ciao EMILIANO PEZONE un uccellino stamattina mi ha detto che il 19 gen


Non vorrei dire sciocchezze ma una funzione ti restituisce sempre un solo 
valore, una procedura anche più di uno
PS: Se sto dicendo sciocchezze corregetemi e illuminatemi TIA :)
-- 
  ^  ^
 (  .y)-~~
 ----------Valefatina ©
 La coscienza non ti
 trattiene dal compiere
 un peccato, però ti
 impedisce di godertelo
 ----------------------
 
Rispondimi via SMS
http://www.smsatme.com/sma/sms.php?auth=:A6:19:E6:DE:A0:87:EB:1E

PS: Se sto dicendo sciocchezze corregetemi e illuminatemi TIA :)
Le funzioni restituiscono un valore. Le procedure non restituiscono
NESSUN valore. Entrambe possono modificare, se assegnate con la
clausola var, qualsiasi quantità di parametri.
-- 
(*metallikop*libero*it*)
{
http://digilander.iol.it/metallikop
}

> Qualè la differenza tra funzione e procedura?
Una funzione può restituire un valore:
ESEMPIO
function somma(a,b:integer):integer;
begin
  somma:=a+b;
end;
quando chiamata, restituisce un valore intero dato dalla somma di "a" e "b"
e può essere usata in differenti modi:
write('La somma di ',a,' e ',b,' e'' ',somma(a,b));
oppure
totale=totale+somma(a,b);
Una procedura non restituisce direttamente valori, ma si può ovviare, ad
esempio, in questo modo:
procedure dividi(a,b:integer; var risultato,resto:integer);
begin
  risultato:=a div b;
  resto:=a mod b;
end;
Ovviamente con una procedura non puoi fare una cosa tipo questa:
totale:=totale+dividi(a,b,ris,res)
ma puoi fare così:
dividi(a,b,ris,res);
writeln('La divisione tra ',a,' e ',b,' da risultato ',ris,' e resto
',res,'.');
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 clausola var, qualsiasi quantità di parametri.
Grazie per l'illuminazione O-:) 

Newsgroup: it.comp.lang.pascal
Titolo: INSERIRE UNA PAUSA

Avrei bisogno di una procedura che mi crei una pausa.
Non voglio utilizzare il comune DELAY xkè a seconda
di come gli "gira" (mi pare sia qcsa legato alla velocità del processore),
non attende mai lo stesso tempo nelle varie esecuzioni. Ho provato anke con
una procedura
in assembler ke ho trovato in giro, ma niente visto ke
uso windoz XP. Esiste un modo alternativo per creare
sta benedetta pausa che si mantenga fissa sempre?
Se ad es. dico 1 secondo vorrei ke sia 1 sec. smpre e
non una volta 80 cent. e un'altra 1,5 sec.   GRAZIE

 ha scritto nel messaggio
news:EdNl8.42927$%g7.13...@twister2.libero.it...

Delay (1000) = 1 sec
Facevi cosi?
Cooper.

 Cooper.
non so lui.. io si ma non funziona mai..
metto una costante che la cambio da
pc a pc.. mi sembra una grande, strepitosa, gigantesca cazzata..
altrimenti?
ciao, augustus

 ha scritto nel messaggio
news:EdNl8.42927$%g7.13...@twister2.libero.it...


> non una volta 80 cent. e un'altra 1,5 sec.   GRAZIE
hai provato con una roba del tipo
gettime(...);
repeat
delay(1);
gettime(...);
until [NON č passato effettivamente un secondo]
l'orologio integrato non dovrebbe sballare... anche se in questo modo
impalli  il compilatore con chiamate GetTime... non efficientissimo...

Newsgroup: it.comp.lang.pascal
Titolo: no subject

Ciao a tutti.... la mia richiesta è insolita
Volevo sapere se esiste un programma, tipo il frontpage, che permette,
tramite opzioni, ecc ecc, di creare programmi in turbo pascal...
praticamente ad esempio: io inserisco un pulsante, e il programma genera
automaricamente il codice tp.
Grazie a tutti!!

 ha scritto nel messaggio
news:9bhhb5$s02$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Problemi con l'input

Salve a tutti!!!
Ho 3 problemi urgentissimi.
1) In un ciclo WHILE per leggere un input da tastiera (un carattere per
volta), dove devo posizionare
    l'istruzione  "read (c)" ?!?  ( "c"   è una variabile di tipo char)
    Ossia:
              WHILE NOT eof DO
                       BEGIN {eof}
                             WHILE NOT eoln DO
                                     BEGIN {eoln}
                                            ....
                                         IF c IN ['a', 'b', 'c'....]   THEN
                                         CASE c OF
                                                            'a':     na :=
na+1
                                                            'b':     nb :=
nb+1
                                             ....
    Ebbene, dove devo mettere l'istruzione read(c)?
    Fuori dal ciclo o dentro il ciclo?  E dove esattamente? All'inizio o
alla fine?
2) Mi potreste dire tutti i modi per il comando di EOF da tastiera?
    Non riesco a concludere un programma perchè non so quale sia la
combinazione di tasti!!!
    Datemi pure tutti i tipi di combinazione (x win, dos, mac, unix...... le
proverò tutte!!!)
3) In un'istruzione IF - THEN - ELSE, se l'ELSE contiene più di
un'istruzione devo mettere un
    BEGIN - END?!? Perchè se lo metto mi dà errori in esecuzione???

Perchè se lo metto mi dà errori in esecuzione???
   Dipende da come strutturi le condizioni.
  Comunque di solito è tutto un "gioco" di Begin - End
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee

     BEGIN - END?!? Perchè se lo metto mi dà errori in esecuzione???
 OVVIAMENTE!!
TI sei dimenticato di qualche end  probabilmente oppure hai messo un ; dopo
un end prima di un
ELSE

Newsgroup: it.comp.lang.pascal
Titolo: Dove posso trovare Turbo Pascal

Ciao Ragazzi sono Giuseppe e d tempo cerco un sito dove posso scaricare il
Turbo Pascal e non l'ho mai trovato.
Sarei felice se qualcuno di voi mi potesse dire dove lo posso trovare.
Vi ringrazio
Giuseppe!!!

 ha scritto nel messaggio
news:%dH96.83130$eB2.6...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: potenze, exp, ln

Avevo letto sul ng di qlc tipo exp ( potenza * ln (base))
Non sono riuscito a sfruttarlo; qualcuno potrebbe spiegarmi come usarlo e se
non è un problema, anche spiegarmi un attimo cosa indicano exp e ln ??
Grazie
--
Paolo '83 RE
gher...@iname.com
CIAO!

Grazie
Allora
Exp(x)   =   e^x     dove e=2,718281...   numero di Nepero
Ln(x)   e' la funzione inversa di Exp(x)
in pratica   Ln( exp(x) ) = x
queste du funzioni possono essere sfuttate per calcolare una qualsiasi
potenza:
a^b  =   exp ( b * ln( abs(a) ) )
dove   abs(a) = |a|   il valore assoluto di a
Ciao,  fabio
--
fabi...@rocketmail.com

non è un problema, anche spiegarmi un attimo cosa indicano exp e ln ??
EXP(x) ti calcola e elavato a x
LN(x) calcola il lagaritmo naturale (= in base e) di x
Se tu vuoi calcolare una potenza con una base diversa da e,
chiamiamola ad es a, allora devi usare:
EXP(x*LN(a)) : a elevato x
Se vuoi calcolare un logaritmo in un'altra base, ad es a, devi usare:
LN(x)/LN(a) : log in base a di x
Tutto cio' si ricava dalle proprieta' dei logaritmi e degli
esponenziali.
Spero di essere stato chiaro...
Cya!
<<* Vegeta *>>
               | Internet: 
veg...@mindless.com
               | ICQ#    : 6907362
               | 
http://www.geocities.com/Tokyo/Garden/4313
** La piu' grande beffa che il Diavolo abbia mai fatto all'umanita'
** e' stata quella di far credere a tutti che lui non esiste.

non è un problema, anche spiegarmi un attimo cosa indicano exp e ln ??
Allora, forse ti riferisci alla richiesta di Nicola, il quale mi
chiese come si potesse trovare la radice cubica di un numero.
Io risposi che la cosa era fattibile scrivendo :
radice := exp (1/3 * ln(numero));
Il pascal non possiede un operatore di elevamento a potenza ma
l'ostacolo e' facilmente aggirabile usando appunto le due routine exp
e ln.
Dire exp(x) equivale a dire e^x (dove e e' il numero di Nepero) cioe'
e' la funzione esponenziale con base e.
Dire invece ln(x) equivale a dire logaritmo naturale di x, ovvero
logaritmo in base e di x, ovvero l'esponente che bisogna dare ad e
perche' si ottenga x.
Supponiamo di voler calcolare un generico base^esponente.
Se base^esponente = k e' anche vero che esiste uno ed un solo x tale
che e^x = k.
dire 
e^x = base^esponente 
significa dire 
e^x = e^ln(base^esponente) 
ovvero 
e^x = e^[esponente * ln(base)]
cioe' base^esponente = e^[esponente * ln(base)]
E' per questo che si scrive in pascal :
k = exp(esponente*ln(base))
Spero di essere stato chiaro, ma se hai dubbi chiedi pure.
Newsgroup: it.comp.lang.pascal
Titolo: HO VERAMENTE ESTREMO BISOGNO DI AIUTO!!!

SONO DI NUOVO IO,
PER FAVORE AIUTATEMI DEVO ASSOLUTAMENTE RIUSCIRE A CAMBIARE LA PALETTA DEI
COLORI A 256 IN TURBO PASCAL E NON CI RIESCO.
PER FAVORE MANDATEMI LE VOSTRE SOLUZIONI AI SEGUENTI INDIRIZZI!!!:
mir...@comune.re.it
vino...@tin.it
E' URGENTISSIMO!!!!

Miriam wrote:

 Ciao,
puoi usare la procedura SETRGBPALETTE che permette di cambiare la
palette.
Uso : SetrRGBPalette (Color,Red,Green,Blu);
dove Color e` il numero corrispondente al colore che vuoi cambiare,
Red e` il valore del rosso (varia da 0 a 63)
Green e` il valore del verde (varia da 0 a 63)
Blue e` il valore del blu (varia da 0 a 63)

Newsgroup: it.comp.lang.pascal
Titolo: R: STRINGHE

 wrote in message
s2kr4.12501$317.1...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: dfdsf@fsdf.it

sdfd
Newsgroup: it.comp.lang.pascal
Titolo: Programma gira in Finestra DOS, ma non in Dos reale (problema di Interrupt)

Ho scritto un piccolo programma che controlla costantemente lo spazio
sul disco.
Per far questo ho utilizzato l'interrupt $1c per controllare
periodicamente l'hard disk e L'INT $21 per leggere le informazioni
neccessarie (se utilizzo DiskFree il programma si pianta anche nella
finestra DOS).
Non è un programma TSR, semplicemente ho definito una procedura FAR che
viene "automaticamente" chiamata 18 volte al secondo (INT $1C).
Vorrei capire perchè funziona SOLO in una finestra DOS, e cosa posso
farlo funzionare sempre.
Grazie,
Giuseppe.
--
Automatic posted from 
alice.cli.di.unipi.it
 [131.114.11.37]
via Mailgate Server - 
http://www.mailgate.org

cele...@cli.di.unipi.it
 wrote:
: Ho scritto un piccolo programma che controlla costantemente lo spazio


posta il sorgente sul newsgroup o inviamelo via mail altrimenti 
si possono fare sono solo inutili supposizioni.
mailto: 
dar...@zoo.diaedu.unisa.it
 
jer...@mbox.starnet.it

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

Scusate l'off topic, ma nel NG mi e' capitato di leggere dei post in cui
si parla di Delphi 1.0 che borland avrebbe reso gratuito.
Qualcuno sa dirmi se e possibile scaricarlo da qualche sito???
Grazie per l'eventuale aiuto.
-- 
el rasune'
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> [Da dove si scarica Delphi1 della Borland?]
 
 
http://www.borland.com
 
http://www.inprise.com
 Certo, devi aver cercato tanto......

 Certo, devi aver cercato tanto......
ehm... non si trova proprio
controlla tu stesso
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1
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------

> ehm... non si trova proprio controlla tu stesso
 
 L'avran tolto provvisoriamente, poco tempo fa' c'era!
 Forse vogliono mettere la versione 2...speriamo!
 Comunque, se controlli le riviste di programmazione
 in edicola, mettono spesso la versione Free1.0 o 2.0
 e/o la Trial5.0.... ;-) Cosi` ti risparmi anche un
 mega-download!





Grazie, ma no, non ce proprio...


 


Comunque ho letto gli altri post di risposta e 
cerchero anchio in edicola.


 


Ciao a tutti e grazie....


 


 


El rasune'


 


 



 controlla tu stesso
Allora prova su 
http://community.borland.com
 devi iscriverti, ma nell'area
download dovrebbe esserci!
Newsgroup: it.comp.lang.pascal
Titolo: TP7 - Calcolare la differenza in giorni tra due date

Ho necessità di trovare qualche idea per realizzare questa funzione.
Chi può darmi qualche dritta?
--
Davide Prati
davide...@tin.it
http://web.tiscalinet.it/davideprati
----------------------------------------

Chi può darmi qualche dritta?
1. Considera se l'anno e' bisestile o meno.
   Se e' bisestile assegna BIS = 1 altrimenti BIS = 0
2. I giorni dei mesi li racchiudi in un array :
   var gg : array [0..12] ;
   e lo inizializzi coi valori :
   0, 31, 28+BIS, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
3. Estrapoli il mese m e i giorni g e calcoli i giorni passati
dall'inizio dell'anno:
   gg_p := gg[m-1] + g ;
4. Ripeti la stessa cosa per la seconda data e sottrai il valore piu'
piccolo dal piu' grande.
 
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Lettura dell' ESC da ASCII

Vorrei che quando viene richiesta l'immissione di una variabile, se viene
premuto ESC sia come se sia stato premuto un tasto e quindi torni al menu
principale. Ecco uno spezzone del programma:
begin
found:=false;
write('Digitare la targa dell''auto che si vuole vendere: ');
readln(tar);
begin
p:=primo;
if p^.targa=tar then found:=true ecc ecc.
Io vorrei che alla lettura di TAR, se viene premuto ESC esca dalla procedura
ma non so come fargli leggere il codice che rappresenta il tasto esc.Ho
visto che si deve usare readkey ma non so neanche cos'è. Help me
please...prima possibile xche lo devo consegnare x lunedi. Grazie

credo che l'esc sia semplicemente #27... ora purtroppo non ho
tempo di controllare... altrim con una cosa del tipo
repeat
 c := readkey;
 writeln ( c, ' - ', chr(c) );
until c = 'q';
puoi sapere tutti i codici che vuoi :-)
[ occhio che i tasti `speciali` restituiscono prima uno #0 e
poi il codice esteso ]
-- 
Dreadnaut
(Life would be easier if I had the source code)

mmmh asp ho riletto meglio :-)
le procedura read[ln] ritorna solo se premi invio, quindi non c'e' modo
con essa di ottenere un "Esc" o simili.  se proprio devi puoi scrivere
una tua proc. equivalente +/- alla read e gestire la pressione del tasto
Esc, pero' devi gestire anche l'input :-)
se devi leggere solo stringhe potebbe essere una cosa simile:
[ scrivo +/-... non ti fidare troppo :-) ]
function miaRead: string;
 var
  c: char;
  s: string[255];
  n: byte;
 begin
  miaRead := '';
  n := 1;
  c := readkey;
  while c <> #13 do
   begin
    case c of
     #8: if n > 1 then Dec(n);
     #27: exit;
     else
      begin
       s[n] := c;
       inc(n);
      end;
    end;
    write(c); {chissa se va bene per il backspace :-) }
    c := readkey;
   end;
  s[0] := char(n);
  miaRead := s;
 end;
che credo funzioni heheheh  readkey e' una funzione che restituisce
l'ultimo carattere premuto, o due caratteri un dopo l'altro (#0 +
 codice esteso) per tasti strani.
-- 
Dreadnaut
(Sign. would be the same if I was home)
Newsgroup: it.comp.lang.pascal
Titolo: LAN

Ciao NG,
io mi connetto da casa a questo newsgroup da un po' e leggendo i post da voi
scritti ho imparato un sacco di cose...
poi ho deciso di farlo anche dal lavoro, cosi posso sempre seguirlo, (non ho
praticamente mai tempo di farlo da casa) e con mia grande sorpresa ed
immenso rammarico non sono riuscito a farlo!!!!
(( 
Mi chiede l'autenticazione per connettermi al newsgroup!!!!!
sapete darmi qualche consiglio?????
Come mai fo ciň???
ciao NG,
iosephus, ego locutus

 ha scritto nel messaggio
news:9237c7$s8n$1...@pluto.sm.dsi.unimi.it...

Dovresti provare a controllare se l'abbonamento internet che hai sul lavoro
usa lo stesso server per i newsgroup di quello che hai a casa. a volte ad
esempio si possono scaricare le domande dei newsgroup solo se usi una
determinata connessione o server.

 Come mai fo ciň???
Che server di news usi?????

dal lavoro uso una rete dedicata (adsl), ed io sono solo uno dei tanti a
connettersi attraverso un client.
Sono in una lan e per me il problema è questo... il NG non gestisce le LAN,
perchè ho provato a connettermi ad altri newsgroup e non ho nessun
problema... ma io voglio stare in questo!!!
Le autenticazioni del server dove lavoro le ho tutte... si può far
qualcosa???
iosephus, ego locutus





uso news.dsi.unimi.it...


qualcosa è sbagliato?

Newsgroup: it.comp.lang.pascal
Titolo: Quali sono i comandi per la unit crt?

Salve, volevo sapere quali sono i comandi per la unit crt, e magari anche
per quella graph.
grazie a tutti anticipatamente!
--
 ____________________
 概壯孚RicDisaster概壯孚
 秤秤秤秤秤秤秤秤秤秤
E-Mail:
rick...@tin.it
ICQ: #48897454

Hanno inventato l'indice:
Basta aprirlo e scegliere la unit/comando che interessa per avere una
spiegazione esaurienza e "abbastanza" chiara dei comandi ed una lista
completa dei comandi per le unit!!!!!

Newsgroup: it.comp.lang.pascal
Titolo: Problema con il PentiumIII

Salve a tutti.
C'è qalcuno ke mi sappia dire xkè su un PentiumIII i programmi compilati con
TP7
danno un errore di Run-Time 200.
Da notare ke gli stessi prog. su macchine diverse dal PentiumIII funzionano
regolarmente.
Grazie in anticipo,
Fabio

 wrote in message
7v11f0$3bp$1...@nslave1.tin.it...


regolarmente.
Incompatibilità della unit CRT del TP7 con i nuovi processori.
In giro per la rete ci sono diverse patch di risoluzione del problema.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

Ti ringrazio un milione di volte. ho scaricato la patch e ora tutto
funziona perfettamente. E pensare che mi si poneva l'alternativa
abbandonare i programmi faticosamente costruiti in tanti anni o abbandonare
la velocità del Pentium
Grazie ancora.
DG ha scritto nel messaggio ...

Newsgroup: it.comp.lang.pascal
Titolo: Richiedo aiuto: calcolo del determinante tramite function ricorsiva....

Qualcuno mi potrebbe fare un esempio di come si calcola il determinante di
una matrice tramite una function ricorsiva nella maniera piů semplice
possibile? 
Grazie per qualsiasi aiuto!
--
Francesco L
togliere "GIGIO" dall'indirizzo e-mail.
ICQ: 44990549 

Francesco L wrote:

Prova ad andare nel miosito: 
web.tiscalinet.it/Airex
 . C'č un file zip con
tutto ciň che ho scritto in Pasal sulla gestione di operazioni
matematiche...ci sono anche units per le matrici. Spero di esserti stato
d'aiuto.
Bye Bye

d'aiuto.
Ok stasera ci darň un'occhiata. Grazie!

Newsgroup: it.comp.lang.pascal
Titolo: File in pascal standard iso

Salve a tutti, mi chiamo confution,
Sto studiando il pascal standard ISO che e' una tra le piu' antiche
versioni del pascal.
sono arrivato a studiare i file, e sto cercado di scrivere alcuni
programmi.
Il mo problema e' quello di dover gestire nel programma un errore, ovvero
se io chiedo di aprire un file in lettura, ma questo file in lettura non
esiste come devo gestire la situazione ? 
Vi saluto tutti e vi ringrazio anticipatamente per la lettura di questo
messaggio.
e-mail: 
conf...@altanet.it

...


Saluti
Perche' non ci dite quali routine avete a disposizione per l'I/O ??
Puo' darsi che si trovi una soluzione...
--------------------------------------------------------
Andrea      
mica uno qualunque...
--------------------------------------------------------

Con il TP 7.0 si utilizzano le "direttive del compilatore"
{$I+} e {$I-}.
Con la {$I-} disattivi l'interruzione del programma a seguito di errori (ma
vengono comunque rilevati e salvati nella variabile "doserror"), poi metti {$I+}
(per sicurezza) e gestisci gli errori a seconda del valore di doserror.
Vedi se c'è qualcosa del genere.
Emanuele Cesena
gma...@tin.it

Newsgroup: it.comp.lang.pascal
Titolo: Win 32 API

Hello ng !
Sono uno studente e attualmente sono alle prese con il Turbo Pascal 7.0,
avrei bisogno di sapere se e come posso fare chiamate alle Win 32 API
per crere un'interfaccia grafica in un programma TP, o, in alternativa,
se esiste un toolkit grafico che mi permetta di fare ciň.
Ringrazio preventivamente tutti quelli che mi risponderanno ... č il mio
primo post qui spero in un po' di feedback ;-)

 wrote in message 37481437...@tin.it...

Assolutamente NO!, puoi mandare in esecuzione un programma Dos in W95/NT, ma
non puoi
interagire in alcun modo con Win 32 (il 32 spiega tutto).
Se guardi il problema dalla parte opposta, puoi utilizzare Delphi per il
quale esistono delle librerie
(CRT32 o simili) che emulano la unit CRT per il modo testo.
Fammi sapere meglio a cosa ti serve.
Saluti e buon lavoro.
Davide

 Davide
Non devo fare niente di particolare: semplicemente poichč solitamente programmo
in Java vorrei usare il Pascal, che bene o male maneggio a scuola, per qualche
programmino di basso livello e per qualche supporto con prestazioni piů elevate
di quelle ottenibili con un linguaggio interprtato; purtroppo cosě com'č e
inusabile come interfacce grafiche, mentre il supporto mi pare OOP discreto.
P.S scusa se ti č finita qualche reply in mail ma ho avuto un problema con il
client news
Newsgroup: it.comp.lang.pascal
Titolo: Read e Readln

Qualcuno mi saprebbe spiegare perché se utilizzo read, a volte, il computer
non aspetta l'invio? Con il readln va tutto bene e invece con il read non
aspetta l'invio e va avanti come se avesse già letto. Come mai?
Io sapevo che l'unica differenza consisteva nel mandare a capo il cursore,
però evidentemente non è così...
Grazie
Marco

 Andrea Laforgia        (
andrea_...@bigfoot.com
)

you wrote :
#Qualcuno mi saprebbe spiegare perché se utilizzo read, a volte, il computer
#non aspetta l'invio? Con il readln va tutto bene e invece con il read non
#aspetta l'invio e va avanti come se avesse già letto. Come mai?
#Io sapevo che l'unica differenza consisteva nel mandare a capo il cursore,
#però evidentemente non è così...
Perche' l'input normalmente viene bufferizzato e svuotato alla
presenza della sequenza "invio".
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------

aspetta l'invio e va avanti come se avesse già letto. Come mai?
Dopo una procedura READ, una nuova chiamata (read o readln) riprende
da dove e' terminata la prima.
Con READLN, invece, il buffer e' "svuotato".
Per esempio con le istr. che seguono
read(charvar);
read(strvar);            (* anche readln *)
digitando: abcdef + [invio] si ha: 
charvar='a'
strvar='bcdef'
Ciao
Andrea C

 Io sapevo che l'unica differenza consisteva nel mandare a capo il cursore,
