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

Salve
avrei necessita' di utilizzare alcune funzioni web all'interno di un
programma FP. In particolare vorrei da codice riuscire ad accedere al
codice html di una pagina remota e poter scaricare un file.
Grazie per l'attenzione
Giacomo

milliken,

Hai a disposizione diverse librerie ad alto livello:
lNet (asincrona):
http://wiki.lazarus.freepascal.org/lNet
Synapse (socket bloccanti)
http://synapse.ararat.cz/
Indy (ancora in fase di porting):
http://www.indyproject.org/Sockets/fpc/index.EN.aspx
oppure anche il binding Pascal della libreria libcurl:
http://curl.haxx.se/libcurl/pascal/
Ciao,
Dean

Newsgroup: it.comp.lang.pascal
Titolo: ancora help, please

Salve ragazzi, vi ringrazio ancora per l'aiuto che mi avete dato,  solo che
ora un altro problemuccio mi assale: siccome vorrei fare programma in pascal
per archiviare dei dati ho capito come leggere un file di testo, solo che mi
legge solamente la prima riga. Come faccio a leggere anche le altre? Ancora
grazie e CIAO!!
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
          ~         Michele /QueeN/ CoBrA        ~
          ~             ICQ: 95295519            ~
          ~         Tutto sui LITFIBA su         ~
          ~  
http://members.xoom.it/litfibatab/
  ~
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-- 
Posted from 
smtp6.libero.it
 [193.70.192.127] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


while eof(fi) do
    readln(fi,valore);
Cosě dovrebbe leggere tutto il file
Buon Anno
Re Di Cuori

Infatti appena l'ho amndato mi sono reso conto della mia domanda scema...
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 

Newsgroup: it.comp.lang.pascal
Titolo: Caricare una BMP

Come posso fare per creare una routine che mi carichi una bitmap?
Grazie
--
Non č stato rilevato nessun bug nel sistema.
Si desidera crearne uno?
--
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Per caricare una BITMAP bisogna prima capire come č composta.
A parte il fatto perň che in DOS hai solo 16 colori a disposizione. Cmq ho
un po' di programmini PASCAL che utilizzano grafica  a 256 colori
(ovviamente in ambiente DOS) e quindi questo punto č risolto.
Per sapere come č composta una BMP vai sul mio sito. Nella pagina principale
c'č proprio un articolo che ho fatto in proposito.
Si tratta di uno studio delle BMP ma non l'ho mai completato. Potremmo farci
entrambi un pensierino e completare lo studio, cosě da usare i file BITMAP
anche in dos, ok? Fammi sapere.
Il mio sito č: 
http://digilander.iol.it/darkbytes
CIAO CIAO!
"Luigi" ha scritto nel messaggio <000501c00151$6e8d32e0$72352797@u8e3o5>...


Fammi sapere.
Okeiz!
--
Non è stato rilevato nessun bug nel sistema.


programma per la notazione decimale.
OK, grazie dell'avviso. Provvederò 'stasera stessa a riparare a tale errore.
Spero solo di non aver cancellato dal sito il documento di cui parlavo.


 A parte il fatto però che in DOS hai solo 16 colori a disposizione.
 Non e` vero!

 >Non č stato rilevato nessun bug nel sistema.


Io ne avevo fatto uno mooolto base.. lo recupero e se qualcuno
lo vuole lo posso mandare... gestiva giusto le dimensioni e la
palette, e utilizzava le risoluzioni del VESA256.BGI
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
--
Quarantaquattro Pentium,
in fila per 6 col resto di 1.9999458374...
--

 Non è stato rilevato nessun bug nel sistema.

Newsgroup: it.comp.lang.pascal
Titolo: Campo Minato

io ho fatto una versione del campo minato... in linguaggio Pascal... devo
capire se posso migliorarlo...
La mia domanda č: c'č qualcuno che ha fatto un campo minato e sarebbe
disposto a scambiarlo!?
Tzadik
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 disposto a scambiarlo!?
mmmh magari ne faccio uno nel w-e :-)  cmq la parte piu' seria
dovrebbe essere
il dopo-click, ovvero la ricerca delle caselle vuote eventualmente
adiacenti a quella cliccata. Ricorsione di coda, la fai iterativa con
un buffer circolare con dimensione massima il perimetro della
scacchiera. beh semmai posta le parti di codice su cui hai dubbi e
vediamo
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

No... io il campo minato l'ho fatto e funziona benissimo... volevo solo
confrontarlo con qualche altro campo minato... per migliorarlo....

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 confrontarlo con qualche altro campo minato... per migliorarlo....
e se l'altro campo minato ha un'implementazione completamente diversa
tua, butti via il tuo ?   parti dal tuo codice, fregatene di quello
degli altri. Se e' corretto il peggio e' passato. Se e' migliorabile
ci saranno dei punti in cui lo guardi e dici "mmmh casino..." e hai
la sensazione che avresti potuto fare di meglio. Mettili in discussione,
prova a cambiarli e se vuoi postali qui.  Guardare il codice di altri
e' sempre relativo...
a meno che poi per migliorarlo tu non intenda "aggiungere marea di
feature e lucette" :-)   Cmq finisco 'sto lavoro, esco, e se mi
sveglio prima di domenica domani mi ci metto. Ovvio cerco di farlo
poco ottimizzato, "metodologicamente corretto" e leggibile :-)
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com
 ]

poco ottimizzato, "metodologicamente corretto" e leggibile :-)
Mi era venuta voglia di farlo ma non ci provo neache a competere con
te... La questione del life mi è ancora rimasta qua..
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

 te... La questione del life mi è ancora rimasta qua..
beh ma li l'ho scritto dopo aver visto il tuo, quindi non vale :-)
Io non ho ancora finito, il weekend quaggiu' prende un sacco di
risorse fisiche e temporali, possiamo fare per settimana prossima?
tanto non credo Tzadik abbia urgenza
E non prendere il life come una cosa personale... non lo era :-p
-- 
Dreadnaut
Newsgroup: it.comp.lang.pascal
Titolo: Urge aiuto

Ciao, ho bisogno di una dritta. Dovrei fare un programma in Pascal che
stampa a video i quadrati e i cubi dei primi 10 numeri. Mi aiutate? Grazie.

stampa a video i quadrati e i cubi dei primi 10 numeri. Mi aiutate? Grazie.
program quadcube ;
var i : integer ;
begin
  for i := 1 to 10 do
  begin
    writeln( i, ' ', i*i, ' ', i*i*i ) ;
  end ;
end.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

stampa a video i quadrati e i cubi dei primi 10 numeri. Mi aiutate? Grazie.
Program Quadrati_Cubi;
Const n=10;			{ Primi dieci numeri }
Var Cont: integer;
Begin
For cont:=1 to n do Writeln('n^2 = ',cont*cont,'              n^3 = ',cont*cont*cont);
End. 
-=> NeGuS <=-
www.infinito.it/utenti/negus80

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

Generare i primi n termini della successione:
    1     2    4    8   16   32  .....
senza adoperare la moltiplicazione

 ha scritto nel messaggio
news:GQ0Z8.55287$7N3.1...@twister2.libero.it...


 ha scritto nel messaggio


beh si puo' partire anche da '1'
i := 1;
for j := 1 to N do
 begin
  writeln ( i );
  i := i + i;
 end;
--
Dreadnaut
(Life would be easier if I had the source code)

 senza adoperare la moltiplicazione
var
  I: Integer;
begin
  for I := 0 to 5 do WriteLn(1 shl I);
end.
;)


Se serve per la scuola e usa questo procedimento fa una figura paracula :)
:) :)
--
"La matematica è l'alfabeto con il quale DIO ha scritto l'Universo"
(G. Galilei)

(*     1  2  4  8 16 32 ...     *)
program serie;
var
  n,conto : integer;
function moltiplica (x,y : integer) : integer;
var
  conto,num : integer;
begin
  num:=0;
  for conto:=1 to y do
    num:=num+x;
  moltiplica:=num;
end;
function eleva (base,espon : integer) : integer;
var
  conto,num : integer;
begin
  num:=1;
  for conto:=1 to espon do
    num:=moltiplica(num,base);
  eleva:=num;
end;
begin
  write ('n=');
  readln (n);
  n:=n-1;
  for conto:=0 to n do
    writeln (eleva(2,conto));
end.
Newsgroup: it.comp.lang.pascal
Titolo: strana richeista

dato che sono un novellino (e un babbo ^_^) devo farvi un'altra
richiesta
io ho uno schermo a cristalli liquidi dicaimo "strano"
nel senso: con win, giochi e robe varie tutto a posto, ma con il dos
va diciamo a scatti: sta un secondo spento, poi si accende un secondo,
sta due secondi spento...
turbo pascal riesco ad usarlo in una finestra e fin qui non ci sono
problemi, ma se lancio la grafica in una finestra mi dice che verrà
bloccata finche non si passerà alla modalità schermo intero
e quando arrivò lì non vedo un tubo
volevo chiedere se esisteva un compilatore che eseguisse la grafica in
una finestra
spero abbiate capito il mio problema...
grazie a tutti per i preziossisimi aiuti!!!!
ciao
:-)
pietro
perr...@libero.it
ICQ# 147142951

si, il problema è che non dipende dal compilatore, quanto piuttosto da
windows che non ti permette l'esecuzione grafica nelle finestre.
Hai provato ad aggiornare i driver del monitor e della sk video?
Bye
Teo

Hai provato ad aggiornare i driver del monitor e della sk video?
Non č un problema di driver (anche se agiornali alla ultima versione
non fa mai male...)
Ma deve controllare se tutti i programmi grafici DOS (a fullScreen)
non fungono... e normale che appaia il meg di errore quando tenta di
caricarli in WindowMode....
Cmq č starno quel accendersi e spegnersi...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: Programma che traccia grafici

Mi servirebbe un programma che traccia il grafico del seno e del coseno (in
grafica naturalmente).
Qualcuno ce l'ha a disposizione?
grazie

 ha scritto nel messaggio
news:9dc69f$5fb$1...@serv1.albacom.net...


Newsgroup: it.comp.lang.pascal
Titolo: Sono tornato!!!

Salve a tutti!!!
Sono finalmente (o purtroppo) dalle vacanze. Tra poco tornerň a pieno
regime!!!!
Ammettetelo che vi sono mancato..........

 Ammettetelo che vi sono mancato..........
Ben Tornato!!!
MaTTeO.

Newsgroup: it.comp.lang.pascal
Titolo: Compilazione inutile....

Salve...
            sono un allegro possessore di tp 7.0
Da quando l'ho installato sul mio nuovo pc non riesco pių a compilare 1
file....
Quando faccio run i programmi partono ma poi quando lo compilo, pur
dicendomi che č tutto giusto, nella directory di destinazione non crea
nessun eseguibile...........
Perchč??
Grazie
Davide

Salve...
guarda COMPILE ->DESTINATION. la voce DESTINATION deve essere impostata a
DISK se vuoi compilare su disco. Se questa è impostata a MEMORY avrai sempre
una compilazione in memoria.
Newsgroup: it.comp.lang.pascal
Titolo: random

come devo fare per memorizzare una matrice costruita utilizzando la random,
e cioč:
    for riga := 1 to 10 do
    begin
      for colonna := 1 to 10 do
        write(random(2),'  ');
      writeln
    end

     end;

Newsgroup: it.comp.lang.pascal
Titolo: [REQ] problemino con il PC

So che questo è un group di programmazione (del resto lo frequento
anch'io) ma una mia amica ha un problema ed, avendole sempre detto di
essere un grande esperto di computer, non posso fare una figuraccia,
grazie.
Computer:
AMD-K5 133MHz
RAM 16MB
HDD 2,5GB Quantum Fireball
OS WIN95
In fase di boot, dopo il caricamento della memoria, il riconoscimento
hardware e la lista dei devices PCI, il computer si blocca.
Usando un disco di sistema il computer parte.
Spostandosi su C: e digitando dir si ha un nuovo blocco alla fine della
lista (probabile errore su disco)
Ci si può spostare da una cartella ad un'altra con il comando cd ma non
si pu fare dir (motivo di sopra)
Lanciando un comando non dalla sua directory (ad esempio EDIT da C:\) si
ha un errore di lettura sull'unità, lanciandolo invece dalla sua
directory (C:\WINDOWS\COMMAND) funziona perfettamente.
L'hard contiene una partizione (essendo installata la versione alfa di
WIN95), ma partendo dal disco di sistema non è possibile leggerla
(probabile errore nella FAT).
Ho pensato ad una formattazione ma i dati importanti da salvare sono
tutti in D:
Quindi devo:
bypassare l'errore
salvare i dati contenuti in D:
formatttare
Chiedo consigli su come fare o sul software da utilizzare.
Se volete farmi altre domande, fate pure.
GRAZIE! 
 

...

Newsgroup: it.comp.lang.pascal
Titolo: radice n-esima

qualcuno conosce una routine per calcolare la radice n-esima (cubica, 4,
ecc.) di un numero con turbo pascal 7 ?
ringrazio tantissimo chi me la manderà
ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao,
ti rispondo immediatamente.
Questa funzione l'ho usata con successo dal 1991 quindi dovrebbe essere ben
testata
Ps. La funzione RADICE fa riferimento alla funzione POTENZA (come ben sai
una radice non e' altro che una potenza in fin dei conti)
   Function Potenza(Numero, Elevato : Real) : Real;
   Begin
     If Elevato = 0.0 Then
        Begin
          Potenza := 1.0;
          Exit;
        End;
     If Numero = 0.0 Then
        Begin
          Potenza := 0.0;
          Exit;
        End;
     If Numero < 0.0 Then
        Begin
          If (Trunc(Elevato) Mod 2) = 0
          Then
            Potenza := Exp(Elevato * (Ln(Abs(Numero))))
          Else
            Potenza := -Exp((Elevato * Ln(Abs(Numero))));
        End
          Else
            Potenza := Exp(Elevato * (Ln(Numero)));
   End;
   Function Radice(Numero, Elevato : Real) : Real;
   Begin
     If Elevato = 0.0
     Then
       Radice := 1.0
     Else
       If (Numero   > 0.0) And
          (Elevato <> 0.0)
       Then
         Radice := Potenza(Numero, 1.0/Elevato)
       Else
         Radice := 0.0;
   End;
Ciao,
David
--
Risorse per Webmaster:       
www.utilityweb.net
Gruppo di ricerca ufologico:  
www.findout.it
Guadagnare con email:        
www.intelliad.com/?20313316
Newsgroup: it.comp.lang.pascal
Titolo: chimica e pascal

Sto costruendo un programma pascal per bilanciare in automatico delle
reazioni chimiche, ed ho già tutte le funzioni che "decifrano" una
stringa del tipo "CH3-O-CH3" restituendomi la composizione atomica
(C:2 H:6 O:1). Il problema è che non so come impostare la funzione
base che bilanci una reazione a partire dalla composizione atomica dei
singoli componenti... qualcuno mi dà una mano ?
Il passo successivo sarebbe quello di creare un programma per la
nomenclatura automatica dei composti, cosa ancora più complicata :
siete al corrente di un algoritmo "free" che faccia tutto questo ?
Sentiti ringraziamenti.
(potete contattarmi personalmente su 
jac...@freebox.com
)


DOVREBBE ESSERE STUPENDO!!!
ci avevo pensato anch'io poi ho detto: magari nel mondo dei sogni!
Newsgroup: it.comp.lang.pascal
Titolo: Finestra Watch!

Qualcuno saprebbe spiegarmi come si utilizza la finestra Watch? Penso che
debba essere molto utile per visualizzare il contenuto delle variabili ma
non riesco a vederle, la finestra rimane vuota. Come si fa? Grazie in
anticipo! Rudy

 wrote in message
jHUn4.90805$C3.9...@news.infostrada.it...


Quello che dici è giusto, ma mi sembra che non si debba compilare il
programma, ma eseguirlo linea per linea (forse con F7), almeno si ha la
possibilità di guardare come cambiano le variabili durante l'esecuzione
del probramma, per evitare bug strane


del probramma, per evitare bug strane
oppure piazzare dei break-point.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------




anticipo! Rudy
Aperta la finestra di Watch, premi il tasto INS e inserisci il nome della variabile di cui vuoi
controllare il contenuto.
Dopodichč premendo il tasto F7 potrai vedere come puň cambiare il contenuto della variabile a
seconda delle azioni che si effettuano su quelle variabili.
Insomma, la finestra di Watch serve per mostrare il contenuto della variabile in ogni instante.
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto...problemoni con eseguibili su PII !!!!!!!

Aiuto !!!!
Ho dei problemi pazzeschi a far funzionare i miei eseguibili su macchine
che hanno processori pentium II (e superiori penso).
Sintomi: Il programma arresta la sua esecuzione con un runtime error 200
(division by zero) dove non c'è divisione assolutamente, ed inoltre
genera un indirizzo dell'errore, che non esiste nel codice sorgente.
Ho compilato il codice con Turbo Pascal 7.0 della Borland.
Vi prego datemi un aiuto se potete su 
ftr...@libero.it
.
Grazie sin da ora.
P.S.
Ovviamente su tutte le altre macchine (dai 286 in su) funzionano
benissimo.

 wrote in message
381C3278...@libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Ma il delay è sempre delay?

Eccovi il mio problemino :
faccio un programma in turbo 6.0 ed utilizzo il delay che però in barba a
quanto si dica nell'help non è tarato bene:
Delay (8000) non aspetta per niente gli otto secondi teorici,
Su una macchina analoga con il turbo 7.0 però delay (8000) aspetta i suoi 8
secondi .
calcolando che sto realizzando un programmino per l'università , che non so
che versione utilizzi il prof , tra l'altro irreperibile all'orario di
ricevimento , come posso fare per non far durare un beep 7-8 secondi su un
turbo 7.0 quando sul mio è un classico beep ? 
Grazie in anticipo !!
Antonio

Antonio ha scritto nel messaggio
<01bdc9f6$b6ea7b40$3240...@CANCELLI.POLIMEDIA>...

mmm usa il tempo del sistema... quello è l'unico che funziona veramente bene
:-))
Ti fai una funzione delay che guarda l'ora di partenza ed aspetta finché
l'ora non è uguale ad ora di partenza + tempo di attesa... più semplice a
farsi che a dirsi... ma se hai problemi il NG è sempre qui :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth

 
Io ti propongo la seguente procedura in assembler che mi sembra funzioni benone:
Procedure Delay(N: Word);
{ Esecuzione di un ciclo di ritardo di N millisecondi }
Begin
   Asm
   Mov Ax, N
   Mov Cx, 3E8h
   Mul Cx            { la coppia DX-AX contiene i microsecondi di attesa }
   Mov Cx, Dx
   Mov Dx, Ax
   Mov Ah, 86h
   Int 15h
   End
End;
Bye, Mobius
Newsgroup: it.comp.lang.pascal
Titolo: top down & bottom up

vorrei sapere la differenza tra top-down programming e bottom-up programming
se me la dite in inglese mi fate un piacere ancora più grosso ma anche in
italiano va bene :-)
grazie

> se me la dite in inglese mi fate un piacere ancora più grosso ma anche in
??? boh...
the top-down programmin tries to solve a problems beginning from
its complete formulation and dividing it into sub-problems, even
recursively.
The bottom-up approach is the vice-versa: solving subproblems it
gathers sub-results that are used to achieve the final solution.
e' molto "campagnola" ma dovrebbe andar bene...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> the top-down programmin tries to solve a problems beginning from
miiih ma come scrivo.. erano "programming" e "problem"


 wrote in message
GDz58.4652$om6....@news1.tin.it...

 Allora il bottom up e il top down..sono 2 mtodi di astrazione che
consentono a un programmatore di avere una visione + ampia del programma ke
si sta creando..ora ti spiego
Top.down: dal alto verso il basso
Bottom up: dal basso verso l'alto
Questi 2 metodi di astrazione consentono di suddividere un problema
complicato... in vari sottoproblemi che possono essere + semplici presi
singolarmente e poi messi in relazione tra loro..ora ti spiego con un
programmino idiota:
< scrivere un programma ke acquisito 100 numeri..determini quanti siamo pari
e quanti dispari >
Questo è un programmino semplice ke però può eessere suddiviso in più
piccoli problemi ( top-down)
- Acquisizione dei numeri
- Verifica pari o dispari
- Visualizzazione
come puoi vedere il problema è stato suddiviso in 3 piccoli sottoproblemi ke
ora possono essere analizzati individualmente e superati!
Poi esiste il bottom up..ke consiste  nel passare dai problemi
particolari..a quello generale. Cmq quello + utilizzato  è iil Top-down!!!
Ki fa uso delle procedura..incosciamente utilizza il metodo top-down  in
quanto ogni procedura riverva un compito particolare all'interno del
programma
TI è kiaro???
ediv...@inwind.it
                                ^_][ice][man][_^



http://cogprints.ecs.soton.ac.uk/~harnad/Hypermail/Cogpsy/0033.html
http://cogprints.ecs.soton.ac.uk/~harnad/Hypermail/Cogpsy/0034.html
---
Ciao
PV
Newsgroup: it.comp.lang.pascal
Titolo: PUNTATORI: l'area puntata cambia il suo contenuto!!

Gentilissimi NewsReaders!    Sto programmando in turbo pascal per una tesi
ed ora ho un problema di quelli che mi stravolgono la vita!
Ho creato una struttura dati INEFFICENTE!  infatti credevo che basandomi
sui puntatori avrei potuto inizializzare meno memoria (cfr. "structure too
large"), ma ora ho verificato 
la "scomparsa di dati precedentemente memorizzati" durante il passaggio da
una sottoprocedura all'altra, da una unit all'altra: vale a dire che il
valore dei puntatori è inalterato fino alla fine, ma mi trovo a trattare
con dati diversi da quelli inseriti!!
C'è rimedio a questo incidente di percorso, oppure è meglio che creo la
struttura direttamente su memoria di massa? (ovvero: c'è un parametro del
BorlandTPascal che risolve il problema di "structure too large" oppure
(fantascientifico) si può creare un file nella ram senza aspettare i tempi
di accesso del discofisso? )
	GRAZIE e a presto.	O.d.C.  Luigi Nodari.
if possible replay to    
noda...@promo.it
   ,too.

di accesso del discofisso? )
"Structure too large" si risolve per la maggiorparte delle volte con
l'ausilio della memoria heap (i puntatori), altrimenti l'unica
soluzione resta l'utilizzo della memoria di massa.
Personalmente non ho mai avuto bisogno di utilizzare il disco, per cui
sarebbe meglio rivedere l'algoritmo di funzionamento del programma.
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: driver mouse inclusi nell'exe

Guardate un po' qua. E' molto semplice: se il driver del mouse non è già
caricato, fa andare il 
mouse.com
 che ho trasformato in obj.
Il problema è però che quando va non viene affatto caricato niente. Mi
vengono simboli e caratteri senza senso tipo quando si fa da dos il type di
un eseguibile.
Cosa sbaglio?
program prova;
uses cgmouse;
var x:boolean;
procedure mousedriver; external; {$L d:\prova\mouse.obj}
begin
x:=initmouse;
if x=false then mousedriver;
mousecursor(on);
readln;
end.
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

> procedure mousedriver; external; {$L d:\prova\mouse.obj}
mmmmh non e' cosi' semplice :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Ho forse sbagliato tutto?
Non è questo il procedimento corretto?
Pensavo che qualsiasi programma dello stile di 
mouse.com
 si potesse linkare
e far eseguire...
Cosa mi suggerisci?
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it
"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:PfxR6.1415$ZZ.4...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: comandi dos

qual'è l'istrizione per eseguire un comando dos da tp?
il mio programma dovrebbe cancellare/rinominare dei files. come posso fare?
thx.
Olivier.

 ha scritto nel messaggio
news:d32D5.15943$NY2.4...@news.infostrada.it...


 ha scritto nel messaggio
news:8ricbs$5pp$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: ricerche NON case sensitive

Sono riuscito a compilare un programma per cercare
un parola in una lista di record.
Il programma funziona bene eccetto per il fatto che e' CASE SENSITIVE.
Infatti se gli chiedo di cercare la parola 'Claudio' e nel file c'e'
la parola 'claudio',
non la riconosce :(
Come posso risolvere il problema ?
Questa e' la procedura di cui vi ho parlato :
Procedure CercaNumero(lis : TipoListaCell; elem : TipoStringa);
  begin
   while lis <> NIL do
    begin
      with lis^.info do
       begin
          if nome = elem then
           begin
            writeln('Il numero cercato e'' :     ');
            writeln( nome, cognome, 'Tel. Cellulare : ', numero, 'Tel.
Fisso : ', numero1);
           end; (*if*)
          if cognome = elem then
           begin
            writeln('Il numero cercato e'' :     ');
            writeln( nome, cognome, 'Tel. Cellulare : ', numero, 'Tel.
Fisso : ', numero1);
           end; (*if*)
       end; (*with*)
      lis := lis^.next;
    end; (*while*)
  end; (*CercaNumero*)
Grazie mille per l'attenzione.
Claudio

 
fatti una funzioncina che ti mette TUTTO maiuscolo (oppure tutto minuscolo)
function maiuscolo(s:string):string;
var
    l:byte;
Begin
   for l:=1 to length(s) do
    s[l]:=upcase(s[l]);
   maiuscolo:=s
end;
cosģ puoi cambiare nel tuo prog.
if maiuscolo(nome) = maiuscolo(elem) then
e poi anche
if maiuscolo(cognome) = maiuscolo(elem) then
in questo modo sei sicuro che prescindi da tutto ;)
saluti
Fabio

 la parola 'claudio', non la riconosce :(
un possibilita' e scrivere una funzione che faccia il lavoro
(controllando carattere per carattere) oppure converti entrambe le
stringhe in maiuscole o minuscole e le confronti cosi' modificate.
-- 
Dreadnaut
(signless perche' in trasferta)
Newsgroup: it.comp.lang.pascal
Titolo: unknow identifier

Ho dichiarato le seguenti variabili:
var a:real;
var b:real;
var c:real;
var d:real;
var sel:char;
var sel2:char;
e in una fase di una procedura del programma ho inserito queste istruzioni
in un ciclo CASE
case sel of
q:begin
writeln('Inserisci il lato del quadrato')
readln(a);
a:=a*a;
writeln('L'area del quadrato è di ', a,' cmq');
readln;
writeln('Premi un qualsiasi tasto per tornare alla schermata principale');
readln;
a:=0;
b:=0;
c:=0;
clrscr;
area;
end;
quando vado a compilare il programma mi da un errore di unknow identifier
evidenziandomi il passaggio q:begin.
Ci sono degli errori nella sintassi del comando? O nelle variabili? grazie.

 [...]
'q' non q :)

grazie
"Bane" <-._@_.-> ha scritto nel messaggio
news:MPG.19b851fb4...@127.0.0.1...


 ha scritto nel messaggio
news:tFN3b.10798$aG6.3...@news1.tin.it...


 adesso mi da unknow identifier sul comando clrscr come mai? :'-(
Hai messo "Uses Crt;"?

la libreria crt? no;
ma è compresa col pacchetto turbo pascal, o la devo scaricare?
"Bane" <-._@_.-> ha scritto nel messaggio
news:MPG.19bf417c1...@127.0.0.1...


 ma è compresa col pacchetto turbo pascal, o la devo scaricare?
Compresa (almeno col TP7 di sicuro, ma penso anche
con versioni piu' vecchie).

 con versioni piu' vecchie).
Le librerie sono comparse a un certo punto, prima della ver 4 erano 
addirittura dentro al compilatore direttamente e non c'era da fare Uses 
... :)

Newsgroup: it.comp.lang.pascal
Titolo: permutazioni, combinazioni edisposizioni

qualcuno ha per caso qualcosa in pascal che possa gestire le tre cose?
scegliere una delle tre e inserire i valori e ricevendo i risultati?
 grazie

scegliere una delle tre e inserire i valori e ricevendo i risultati?
basta mettere su la funzione fattoriale e poi sistemare il tutto :
function factorial(n:integer):integer;
var j,k:integer;
begin
j:=1;
for k:=n downto 1 do j:=j*k;
fatorial:=j;
end;
ad ex factorial(6) dà 720... tutto qua.
Newsgroup: it.comp.lang.pascal
Titolo: Vb & Pascal

So programmare abbastanza bene in visual basic e tra un paio di mesi passerò
al Pascal (per poi finire al c++). Mi chiedevo una cosa: quale dei due è più
difficile? Mi speigo meglio: il vb, se preso sul serio, può rivelarsi
diifficile, ma si apprende con facilità. Il c++ è difficile.....e si impara
lentamente. E il Pascal?
Azathoth

al Pascal (per poi finire al c++). 
Perche' non passare direttamente al C++ ?
L'utilita' del pascal nell'apprendimento del C e' irrilevante.
E' un luogo comune pensare che il C/C++ sia difficile.
In realta' e' difficile insegnarlo in modo che risulti cio' che
realmente e' : un linguaggio semplice.

Secondo te, il Pascal è più o meno complicato del Vb? Più o meno del C++?


The ultimate Pascal compiler for Windows is named DELPHI. It is as easy to
use as VB (RAD=rapid development) but more powerful.
The Pascal language is more powerful than BASIC and more clean and
self explaining than C and C++. C was invented for system level programming,
while Pascal is ideal for application level programming.
http://start.at/tp-links
page Delphi has lots of interesting hints and articles and links.
:-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

Newsgroup: it.comp.lang.pascal
Titolo: [Facile Facile] Timer in Pascal.

in un ciclo repeat/until(keypressed) voglio verificare l'efficenza dei
calcolo della macchina, ovvero quante iterazioni compie al secondo. qualcuno
conosce una funzione simile a quella di VB (timer) che conta i secondi
trascorsi dalla mezzanotte piuttosto o qualcosa di simile?
thx,
Olivier.


trovato da solo...
io cercavo time, timer, clock... invece era sulla g... GetTime...
Olivier.

Newsgroup: it.comp.lang.pascal
Titolo: Cancellare file in una directory

Ciao a tutti,
prendendo un codice scritto da ReDiCuori per la cancellazione di tutti i
file in una directory, il compilatore mi restituisce un errore (file not
found) al comando "erase(f)", probabilmente perchè l'istruzione "assign(f,
dirinfo.name
)" non assegna nulla alla variabile f di tipo file.
Sapreste dirmi qual'è l'istruzione giusta?
Ho provato a leggere it tutorial, ma tratta esempi diversi con parametri
richiamati dall'esterno.
Grazie, Daniele.
begin
  clrscr;
  FindFirst('c:\1\*.*', Archive, DirInfo);
  while DosError = 0 do
   begin
        assign(f, 
dirinfo.name
);
        erase(f);
        FindNext(DirInfo);
  end;
end.

"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:GtTL6.23132$RX4.1...@news.infostrada.it...

Grazie mille per la risposta!
Daniele.
Newsgroup: it.comp.lang.pascal
Titolo: Help

Salve a tutti.
Scusate la domanda se è cretina. Sono un autodidatta e piu in là non ci
arrivo :-)
Ho bisogno di sapere come costruire dei cicli FOR nidificati.
In pratica devo verificare la validità di un gestore password in
JavaScript, quindi in una stringa lunga "n" caratteri (con 1 <= n <=256)
devo far ruotare tutte le lettere dell'alfabeto e passare la stringa
alla procedura di controllo della password. Ma non posso certo compilare
256 eseguibili con i cicli FOR scritti a mano.
Spero che in TP si possa fare una cosa del genere, altrimenti sono
proprio a terra.
Se non sono stato abbastanza chiaro vi prego di farmelo sapere. Anche
privatamente.
Confido nella buona volontà degli esperti e dei docenti che vedo nel NG.
Riccardo.

 ha scritto nel messaggio
news:38C03669...@agora.stm.it...


 scrive:
| Ciao secondo me non ti conviene utilizzare un ciclo For ma bensì un ciclo
| while.
| Il ciclo for non può essere nidificato mentre un ciclo predefinito (While)
si
|
| Questo è un piccolo esempio poi lo strutturi come vuoi:
| i := 1
| while (i<=n) and (n<=256) do
| begin
|         istruzioni
|         istruzioni
|         istruzioni
|         i:=i+1
| end;
ma che dici? certo che puoi nidificare dei cicli for, come puoi farlo con
if, while, ...
read(n);  read(m);
for i:=1 to n do begin
    for j:=1 to m do write(j);
    write(i);
end;
eppoi nel tuo esempio sul while non vedo nidificazioni...
mi sa che stiamo parlando di cose differenti, ma io sono sicuro che per
nidificazione si intende utilizzare un ciclo all'interno di un altro!
if (i<=1) then
    if (i>=-5) then write(i)
    else begin if (i=-7) then write('ehi, e'' meno sette!'); end
else write('troppo grande...');
{scusa se la sintassi dovesse essere sbagliata, ma il c++ mi ha fatto
dimenticare...}
--
Ciao, ciao
E-mail: 
pi....@bigfoot.com
        (se 'rispondi al mittente', togli NO_SPAM)
HomePage: 
http://web.tiscalinet.it/pavelo
ICQ #37941259
"Quella sparizione segnava per sempre la
fine dell'Eternità. E il principio dell'Infinito."
   Isaac Asimov

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

come posso avere più file di overlay per un programma... oppure, avere il file di overlay con un nome diverso da quello del programma (exe) ?

 come posso avere più file di overlay per un programma... oppure, avere il file di overlay con un nome diverso da quello del programma (exe) ?
Of course this is possible, but not suggested.
http://start.at/tp-links
page FAQ, article TP-overlays.
:-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/
Newsgroup: it.comp.lang.pascal
Titolo: Help,Help,Help: Devo sapere come usare tutta la RAM

Sto scrivendo un simulatore di Pc e non riesco ad allocare variabili
dinamiche se non nello heap,come diavolo si fa ad usare una parte della
Ram del PC???In C basta usare dei puntatori FAR e in Turbo Pascal 7.0???
Aiutatemi vi prego.
P.S.
Se volete collaborare o avere maggiori info mandatemi un'E-mail a
ai...@tiscalinet.it

 Ram del PC???In C basta usare dei puntatori FAR e in Turbo Pascal 7.0???
Se hai *solo* il TP7 allora prova ad allocare la memoria estesa (XMS) o
espansa (EMS) mediante chiamate ai relativi driver.(e' relativamente
semplice)
Se hai la possibilita' di sviluppare in BP7 (ti consiglio di rimediarlo in
ogni caso), compila il programma in modalita' protetta e potrai allocare
tutta la memoria del sistema.
Ciao.
Simone.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

DrFalken wrote:

Grazie 1000! Il BP 7.0 ora č attivo sul PC e grazie per l'aiuto.

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

Salve,
Scusate l'ignoranza, ma in TURBO PASCAL 7 e/o il 5.5 le parentesi graffe con
che tasti si fanno?
Grazie mille
-- 
Posted from 
mta21-acc.tin.it
 [212.216.176.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Alt + 123 = {
Alt + 125 = }
I numero sono del tastierino numerico.
--
Michele
    "Nessun luogo è lontano"
ICQ #64033158
Newsgroup: it.comp.lang.pascal
Titolo: turbopascal e turbocnc

Salve a tutti
sono un nuovo iscritto di questo NG, mi chiamo Roberto e vivo a Pistoia
di programmazione ne so poco... specialmente di pascal :-((( qualcosina di 
Basic e C...
ho bisogno di capire come funziona il TurboPascal; mi serve perchè vorrei 
provare a modificare un programma scritto con questo linguaggio, di cui ho 
comprato i codici sorgente; il programma in questione è TurboCNC ed è un 
applicativo Dos per la gestione di macchine a controllo numerico: traduce il 
linguaggio G-code in movimenti della macchina.
prima di provare a mettere le mani sul codice (impresa ardua) ho provato a 
compilare, con il borland TP 7 for windows, il codice che ho comprato; ho 
dichiarato in TP qual'era il PRIMARY FILE ed ho premuto il tasto MAKE; il 
compilatore ha generato un file eseguibile :-))) lo apro e non succede 
niente :-(((
dove ho sbagliato???
le modifiche che vorrei fare sono "semplici", per un programmatore... 
comunque vorrei che il programma accettasse i comandi, oltre che da 
tastiera, anche attraverso la seriale, o se non è proprio possibile 
attraverso un valore binario "scritto" sulla parallela. i comandi non 
sarebbero molti, 30 circa, quindi anche da parallela basterebbero 5 pin in 
ingresso. la seriale sarebbe perfetta e più versatile, comunque.
è possibile implementare questa funzione???
ci vuole molta esperienza per poterla fare da me questa modifica???
c'è qualcuno che mi darebbe una mano???
ciao
Roberto 

 
Che sta usando un macchina con Windows NT { o 2K, o XP }, vero?
Da come lo descrivi sembra proprio di si. I programmi scritti a 16bit 
non possono accedere alle porte del PC su questi sistemi.
-- 
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


ciao
grazie della risposta
l'eseguibile del programma lo puoi scaricare da qui per renderti conto 
http://www.dakeng.com/turbocnc.html
è un programma free e gira sia sotto XP che DOS, naturalmente sotto XP non 
funzionano bene le comunicazioni con la parallela quindi va usato sotto DOS 
ed è fenomenale :-)))
visto il costo esiguo dei sorgenti di questo programma, li ho comprati, per 
poter fare delle modifiche (se ne sarò capace) ma il problema è che non mi 
riesce neppure compilare, con il borland TP 7 for windows, il codice che ho 
comprato :-(((
dove sbaglio???
c'è qualcosa da settare???
la faresti qualche modifica per me???
ciao
Roberto 

 dove sbaglio???
Compilalo per dos e non per windows. Le unit per windows hanno un nome 
diverso { tipo WinDos, WinCrt ecc }. Il problema dovrebbe essere quello.

Newsgroup: it.comp.lang.pascal
Titolo: Help me please

Ho problemi a risolvere il seguente esercizio in pascal STANDARD:
Elaborare un programma che dati due numeri naturali in rappresentazione
romana determina la rappresentazione romana della loro somma e
differenza.
Vi prego di mandare eventuali soluzioni a: 
blu...@hotmail.com
Cordiali saluti

differenza.
La soluzione seguente e' per TP 6.0, ma puoi adattarla facilmente allo
standard del linguaggio.
{ ROMAN.PAS            }
{ -------------------- }
{ Andrea Laforgia 1999 }
uses crt ;
var n1, n2 : string ;
    somma : integer ;
function int2rmn( i : integer ) : string ;
begin
  case i of
      0 : int2rmn := '' ;
      1 : int2rmn := 'I' ;
      2 : int2rmn := 'II' ;
      3 : int2rmn := 'III' ;
      4 : int2rmn := 'IV' ;
      5 : int2rmn := 'V' ;
      6 : int2rmn := 'VI' ;
      7 : int2rmn := 'VII' ;
      8 : int2rmn := 'VIII' ;
      9 : int2rmn := 'IX' ;
     10 : int2rmn := 'X' ;
     20 : int2rmn := 'XX' ;
     30 : int2rmn := 'XXX' ;
     40 : int2rmn := 'XXXX' ;
     50 : int2rmn := 'L' ;
     60 : int2rmn := 'LX' ;
     70 : int2rmn := 'LXX' ;
     80 : int2rmn := 'LXXX' ;
     90 : int2rmn := 'XC' ;
    100 : int2rmn := 'C' ;
    200 : int2rmn := 'CC' ;
    300 : int2rmn := 'CCC' ;
    400 : int2rmn := 'CCCC' ;
    500 : int2rmn := 'D' ;
    600 : int2rmn := 'DC' ;
    700 : int2rmn := 'DCC' ;
    800 : int2rmn := 'DCCC' ;
    900 : int2rmn := 'CM' ;
   1000 : int2rmn := 'M' ;
   2000 : int2rmn := 'MM' ;
   3000 : int2rmn := 'MMM' ;
   4000 : int2rmn := 'MMMM' ;
   5000 : int2rmn := 'MMMMM' ;
   6000 : int2rmn := 'MMMMMM' ;
   7000 : int2rmn := 'MMMMMMM' ;
   8000 : int2rmn := 'MMMMMMMM' ;
   9000 : int2rmn := 'MMMMMMMMM' ;
  end ;
end ;
function rmn2int( r : char ) : integer ;
begin
  case r of
       'I' : rmn2int :=    1 ;
       'V' : rmn2int :=    5 ;
       'X' : rmn2int :=   10 ;
       'L' : rmn2int :=   50 ;
       'C' : rmn2int :=  100 ;
       'D' : rmn2int :=  500 ;
       'M' : rmn2int := 1000 ;
  end ;
end ;
function valore( s : string ) : integer ;
var l : integer ;
         function f( i : integer ) : integer ;
         begin
           if ( i = l ) then f := rmn2int( s[i] )
           else
           begin
             if ( rmn2int( s[i] ) < rmn2int( s[i+1] ) ) then
                f := f( i+1 ) - rmn2int( s[i] )
             else
                f := rmn2int( s[i] ) + f( i+1 ) ;
           end ;
         end ;
begin
  l := length( s ) ;
  valore := f( 1 ) ;
end ;
function valore_inverso ( i : integer ) : string ;
var m, c, d, u : integer ;
begin
  m := 1000 * ( i div 1000 ) ;
  c :=  100 * ( ( i - m ) div 100 ) ;
  d :=   10 * ( ( i - c - m ) div 10  ) ;
  u :=        ( i - d - c - m ) ;
  valore_inverso := int2rmn( m ) +
                    int2rmn( c ) +
                    int2rmn( d ) +
                    int2rmn( u ) ;
end ;
begin
  clrscr ;
  write('primo numero romano   : ' ) ; readln( n1 ) ;
  write('secondo numero romano : ' ) ; readln( n2 ) ;
  somma := valore( n1 ) + valore( n2 ) ;
  writeln('somma decimale : ', somma ) ;
  writeln('romani         : ', valore_inverso( somma ) ) ;
end.
--
Andrea Laforgia
andrea_...@bigfoot.com
Newsgroup: it.comp.lang.pascal
Titolo: Capodanno e INCENDI

 alla pericolosità dei "botti" per l'incolumità personale.
Sono contro tutti i "botti" e non sopporto i piromani, ma mi spiegate cosa
c'entra questo post con Javascript?
Mettete almeno un [OT], thanks!
ciao,
salvo

Con javascript non so ma con Delphi certamente non c'entra
--
__________________________________
http://digilander.iol.it/snarchio
 
snar...@tin.it

Newsgroup: it.comp.lang.pascal
Titolo: Cerco Turbo pascal


Dovresti sapere che il TP e' un pacchetto commerciale.
Non si puo' distribuire cosi'.
CI sono pero' molti compilatori free su Internet anche compatibili con
il TP.

...


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

Qualcuno conosce un metodo per convertire un db realizzato in
PowerBuilder in un altro formato ?
Componenti, esempi di codice e quant'altro vanno bene.
Ho provato con ODBC (Access, Paradox) ma il risultato e' sempre stato lo
stesso :
Password o ID errata.
Qualcuno ha qualche idea ?
Grazie
-- 
Francesco Rocchini
f-roc...@usa.net

Un bel di' f-rocchini scrisse:
fr> Qualcuno conosce un metodo per convertire un db realizzato in
fr> PowerBuilder in un altro formato ?
fr> Componenti, esempi di codice e quant'altro vanno bene.
fr> Ho provato con ODBC (Access, Paradox) ma il risultato e' sempre stato lo
fr> stesso :
fr> Password o ID errata.
fr> Qualcuno ha qualche idea ?
fr> Grazie
A parte che mi pare un poco OT...
Si': che ci vuole la password... e se ce l'hai bene, se non ce l'hai ti
improvvisi un heaker e vedi di levarla...
e se ce la fai bene, se non ce la fai, puoi provare a chiedere a qualcuno :-)
-- 
"Tutto capita a tutti prima o poi, se c'e' abbastanza tempo", Shaw
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

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

devo fare un programma che ,dato un valore in ingresso, mi controlla
se č uguale ad un altro valore presente in una lista.
La lista č fatta di puntatori e record.
La mia domanda č:  ...............come faccio a scorrere tutti gli
elementi della lista??
Grazie
______________________________
e-mail:  
Aur...@hotmail.com
 
tol...@reteitalia.net
ICQ:     16005054

elementi della lista??
Eccoti qualc'osa (spero di non toppare perche' e' una vita che non
utilizzo i puntatori):
Se il record e' definito cosi'
elem=record
	numero:integer;
	next:^elem
end;
var	p,primo:^elem;
	X:integer;   
X e' il numero da trovare;
p:=primo;
while   (p^.numero<>x) and (p^.next<>nil) do
	p:=p^.next;
questo era il ciclo della ricerca. All'uscita se p^.numero=x allora il
numero x e' presente nella lista, altrimenti no.
PRIMO e' il puntatore al primo record della lista.
CIAO,  Fabio
fabi...@rocketmail.com

Potrest inserire un controllo che ferma la ricerca se trova l'elemento.
Sarebbe inutile scorrere tutta la lista se l'elemento è il primo.


Guarda che c'e'
Il ciclo di controllo della WHILE che riporto
while   (p^.numero<>x) and (p^.next<>nil) do
	p:=p^.next;
si interrompe o se trova l'elemento (p^.numero=x) o se la lista e'
terminata (p^.next=nil).
Bye.
Fabio
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Quanto sono 'gnurant

Sono a livello di pascal di aver giocato un po' con i files, ma dalle
procedure, con array, grafica e il resto sono completamente.... ignorante.
Chi può consigliarmi un buon manuale cartaceo / su Internet sul Pascal e
sugli algoritmi?
E c'è qualcuno che ha voglia di darmi un paio di indicazioni?
Thanx
A

 sugli algoritmi?
allora
per pascal: O'Brien: Turbo Pascal Versione 7.0
per algoritmi: Sedgewick: Algorithms
per algoritmi: Knuth: The Art Of Computer Programming (datato ma pieno di
spunti...)

Newsgroup: it.comp.lang.pascal
Titolo: Programmare in TP

Salve a tutto il NG.
Mi chiamo Antonio e ho 18 anni.
Solo recentemente dando uno sguardo ai vari NG, mi sono reso conto che ne
esisteva uno in cui si discuteva sul linguaggio Pascal. Ne sono rimasto
subito interessato.
Purtroppo non è che io sia un granchè di programmatore in TP, dato il fatto
che le uniche cose che so me le sono imparate da solo, leggendo vari libri.
Infatti, nella scuola che ho frequentato ( un I.T.C.  ad indirizzo
informatico )  si usava il TP 3.0 per programmare. Credo che almeno nel mio
istituto sia di professori che di alunni di informatica non ne siano mai
stati interessati, lo dimostra il fatto che l'unico interessato alle lezioni
di informatica fossi io e lo dimostra anche il fatto che il professore visto
il disinteressamento al mondo TP da parte degli alunni, ha deciso di non far
più lezioni di informatica con mio rammarico.
Purtroppo mi sono reso conto che da solo, senza una guida anche con il
massimo della volontà, sia difficile imparare a programmare anche con un
semplice linguaggio quale il TP.
Chiedo dunque a qualcuno che frequenta il NG ( ho visto che sul NG ci sono
molti esperti ) , di darmi una mano e di
insegnarmi un pò di programmazione ( vorrei iniziare da capo, dalle basi ).
Potremmo continuare la discussione sia sul NG che in E-mail, per me la cosa
è indifferente.
Spero che qualcuno sia così gentile da darmi una mano, dato che come ho già
detto, sono conciato proprio male, anche se ho creato dei mini-programmi.
Potreste anche indicarmi qualche buon sito ( italiano ) da cui scaricare
testi elettronici sulla programmazione in TP ? Ve ne sarei grato.
Vi ringrazio anticipatamente per l'attenzione.
Ciao

Dai un'occhiata al mio sito ;)
Ciao
--========================--
        Francesco Lombardi
 
http://members.xoom.it/IDR
 
I...@TOGLI.mail.xoom.it
--========================--

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

                             .
. Powered By Mandrake Linux 8.2                .
. On a Piii 733@852 with 4x20Gb Raid 0+1  .
......................................................................


wrote:


usa il freepascal . trovi quel che cerchi e di +
www.freepascal.org
ftp.freepascal.org
per imporre la massima compatibilita' col TP7 
usa come prima riga la direttiva   {$mode TP}
http://web.tiscalinet.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG