mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: impostare un colore come sfondo in turbo pascal

Come faccio a mettere per sfondo un colore?
Aiutatemi!!!!!!!!!!!!!!!
per rispondermi togliete "no mail" dal mio indirizzo

 Basta scrivere: TextBackground(colore)
dove al posto di colore puoi inserire il nome del colore in inglese o un
numero che rappresenta il colore. Ad esempio:
TextBackground(blue)
imposta il colore blu.
--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.lang.pascal
Titolo: MIDI con Pascal

Ciao,
sapete dove posso trovare delle librerie per interpretare file MIDI
in Pascal.
Quello che mi interessa non č tanto il suono, ma poter ricavare dal
file le note musicali.
Ciao, Jan.
(-o-)

 - rimuovi XXX x rispondere    ICQ #8814554
L'anarchia puo' non essere la migliore forma di governo, ma e' comunque meglio
della totale assenza di governo.

Newsgroup: it.comp.lang.pascal
Titolo: Eliminazione ( Dispose )





ciao a tutti..ecco il mio problema..ho una lista di 
cibi..
contrassegnati da un numero in questo modo


 


  p:=testa;
  n:=0;
  while 
p<>nil do 
begin
                     
n:=n+1;
         writeln 
(n:3,p^.nome:15,p^.prezzo:10,p^.quantita:10,p^.soglia);
         
p:=p^.next;
      end;


 


tutto cio' ha come risultato una roba del 
genere:


 


      
Nome     Prezzo   Quantita'


 


1     
Pizza     8000       
100
2     Primo    
12000       100
3    
Secondo   13000       100


 


e cosi' via..


 


COME FACCIO A ELIMINARE UN ELEMENTO SCEGLIENDOLO 
TRAMITE
IL SUO NUMERO?...


 


COME FACCIO SE VOGLIO FAR SPARIRE LA RIGA DELLA 
"PIZZA" PER POI RISCRIVERE
LA LISTA NUMERATA SENZA 
QUEST'ULTIMA?!..


 


GRAZIE A TUTTI E 
CIAO.. .



 wrote in message 
000a01c10e23$356d8a20$baeb1d97@luigi
...


IL SUO NUMERO?...
meglio se ti fai una procedura per eliminare l'elemnto che vuoi e una
procedura di scorrimento lista che ti porta nella posizione desiderata. Poi
queste due funzioni puoi facilmente usarle per fare ciņ che hai chiesto.
i prototipi dovrebbero essere :
procedure remove(testa : TLista; entry : TLista);
function search(testa : TLista; index : Integer) : TLista;
procedure SearchAndRemove(testa : TLista; index : Integer);
begin
  remove(testa, search(testa, index));
end;
ovviemente manca l'implementazione di remove e search....

Newsgroup: it.comp.lang.pascal
Titolo: TESTO IN GRAFICA

Salve, forse vi sembrerà una domanda un po' scema ma ho appena iniziato con
la grafica: per visualizzare in modalità grafica una stringa non c'è
problema, ma se devo visualizzare ad esempio il contenuto di integer o byte
come faccio?
Certo non usando outtext o outtextxy! Allora come?  Grazie.
--
ThE DArkNeSS iS JuST DaRK


Basta che converti il numero in una stringa con la procedura val: guarda
l'help per i parametri :-)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

 l'help per i parametri :-)
Grazie! Avevo il sospetto ke centrasse sta funzione....  :-)


> Grazie! Avevo il sospetto ke centrasse sta funzione....  :-)
Di nulla ^_^

Newsgroup: it.comp.lang.pascal
Titolo: [?] Metodo migliore

In diversi miei programmi (per la scuola, 2 liceo sc), devo verificare se
dei dati possono essere validi...
Lo faccio con un ciclo nel readln, tipo
(*Calcola (x-2) / x(x-4) se il denominatore è <> da 0
repeat
writeln ('Inserire x');
readln (x);
       If x * (x-4)  = 0 then
          writeln ('Il denominatore è 0', chr(10));
until x * (x-4) <> 0;
Fin qui tutto ok.
Qui invece devo calcolare area e perimetro di un esagono, e comunicare se il
lato è uguale a 0 l'impossibilità:
writeln ('Inserire lato esagono');
readln (x);
       If x<=0 then
          begin
          writeln ('Impossibile, lato=0');
          readln;
          exit;  (*Esce dal programma*)
          end;
Se x è maggiore di 0 prosegue, altrimenti no...
Il mio dubbio è: formalmente, è meglio così oppure con un unico grande if,
tipo if x<=0 then....else ....end.
???
--
CIAO!!!
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)

 
Dipende dalla filosofia! :-)
In pascal, credo sarebbe meglio un
	begin
	 ...
	 if lato > 0 then
	    begin
	     calcoli...
	    end
	 (else ...)
	end;
In altri linguaggi, basic ad esempio, la si potrebbe risolvere anche:
	If lato <= 0 Then Exit Function
	calcoli...
Quello che conta, come al solito, e' il compilatore, nel senso
che poi e' lui che produce l'exe e che lo ottimizza.
In generale credo che utilizzare cicli ed if, anche se annidati e 
quindi complessi (per l'occhio umano), comporti maggiori ottimizzazioni
da parte del compilatore, tutto questo, ripeto, IMHO.
Qualcun altro puo' confermare o negare? :)
bye! ;-)
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Per pulire una cosa, bisogna sporcarne un'altra", legge di Imbesi sulla
conservazione dello sporco
"...ma si puo' sporcare tutto senza pulire niente", estensione di Freeman

Newsgroup: it.comp.lang.pascal
Titolo: clrscr e graphcolormode

ciao! abbiate pazienza, č solo da un mese che uso il Pascal. Volevo sapere
come mai il compilatore mi dice "Unknown Identifier" quando uso una di
queste due parole che secondo un libro che ho qui davanti dovrebbe
conoscere. Uso il Turbo Pascal 7.0 .... grazie anticipatamente e ciao!
Stefano

 ciao! abbiate pazienza, è solo da un mese che uso il Pascal. Volevo sapere

Newsgroup: it.comp.lang.pascal
Titolo: unit

voglio fare una procedura che mi visualizzi il nome e la password di questa
unit
mi potete aiutare?
unit account;
interface
type
  st15=string[15];
  utente=object
  nome:st15;
  password:st15;
  constructor init (n:st15;p:st15);
  procedure inserisci(n1:st15;p1:st15);
  procedure modifica(p2:st15);
  function codifica (p:st15):st15;
  function decodifica (p:st15):st15;
  procedure visualizza;
end;
implementation
 Constructor utente.Init(n:st15;p:st15);
 begin
   nome:=n;
   password:=codifica(p);
 end;
 procedure utente.Inserisci(n1:st15;p1:st15);
 begin
   nome:=n1;
   password:=codifica(p1);
 end;
 procedure utente.modifica(p2:st15);
 begin
    password:=codifica(p2);
 end;
 function utente.codifica(p:st15):st15;
 var
  l,i,pos:integer; x:st15;
 begin
   l:=length(p);
   x:='';
   for i:=1 to l do
   begin
     pos:=ord(p[i]);
     pos:=pos+2;
     x[i]:=chr(pos);
   end;
    codifica:=x;
  end;
 function utente.decodifica(p:st15):st15;
 var
  l,i,pos:integer; x:st15;
 begin
   l:=length(p);
   x:='';
   for i:=1 to l do
   begin
     pos:=ord(p[i]);
     pos:=pos-2;
     x[i]:=chr(pos);
   end;
    decodifica:=x;
 end;
 procedure utente.visualizza;
 begin
   writeln('La password da codificare S: ',utente.decodifica(password));
   writeln('La password  codificata S: ',codifica(password));
 end;
end.

   end;
ma ahime nessuno cambia la lughezza della stringa, che resta 0 :-)
la cosa piu' semplice e' un "x := p;" invece di "x := '';", o qualcosa
del genere... "x[0] := p[0];" e' sporca ma e' la cosa piu' efficiente
Stessa modifica nella proc decodifica
saluti
-- 
Dreadnaut
(Life would be easier if beer weren't so far... fridge! come here!)

Newsgroup: it.comp.lang.pascal
Titolo: cerco pascal 7.0

Dove posso trovare turbo pascal 7.0???Grazie!!!

 Dove posso trovare turbo pascal 7.0???Grazie!!!
Chi aumenta la Tariffa Urbana a Tempo diminuisce la liberta' di tutti
gli utenti  Internet. Anche la tua. Ricordalo, prima di acquistare
prodotti o servizi dalla Telecom Italia S.p.A.
"
http://notut.ml.org/
"
--------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: manuale on line?

Dove posso trovare un manuale on line per imparare il linguaggio Pascal?
Grazie.

Dove posso trovare un manuale on line per imparare il linguaggio Pascal?
http://www.swcp.com/~dodrill/pasdoc/paslist.htm
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: Compilatore di pascal

Qual'è attualmente il miglior compilatore di pascal presente in rete e
scaricabile in versione freeware ?
Grazie
Milliken

 ha scritto nel messaggio
news:9qkp5q$2p7$1...@serv1.albacom.net...


Newsgroup: it.comp.lang.pascal
Titolo: Da basic a pascal

Vorrei sapere se esiste un programma che trasforma un programma scritto in
basic in un programma in pascal.
Se esiste, dove posso trovarlo??
Grazie.

 ha scritto nel messaggio
news:I9nT9.100980$TC5.3...@twister1.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: DeCSS Source Code 3059

Non sono la persona addatta (visto che anche io vado spesso OUT) ma tu sei TOTTALEMETE OUT mi dici
che cavolo centra il Pascal con C?
--------------------------------------------------
 Just listen to teacher:
 "The only good Windows is an UnIstalled Windows"
--------------------------------------------------
 IL RAZZIATORE
 EMAIL: 
razzi...@usa.net
 WEB:   
http://www.geocities.com/il_razziatore/
 ICQ:   67552596
--------------------------------------------------

 che cavolo centra il Pascal con C?
Cerca solo di diffondere il codice sorgente dell'unico cracker esistente di
DVD nonche anche unico
lettore DVD operante sotto Linux.
Dopo che ne hanno impedito la diffusione via Web ora usenet lo diffonderà

sola scheda audio ecc... ecc... ecc...
Guarda che è una cosa seria !
Paolo
-- 
La mia chiave pubblica per PGP e GPG la trovi qua:
http://web.tiscalinet.it/paolo_bernardi/pbkey.asc

DVD nonche anche unico lettore DVD operante sotto Linux.
Su questo non c'era dubbio alcuno... come la sola scheda grafica, la
sola scheda audio ecc... ecc... ecc...
8-))))))
Luc.

Paolo
No, è una cosa vera! 8-)
Luc.

Da quando in qua Linux supporta un solo modello per tipo di HW? non l'ho mai
trovato nelle specifiche...
A parte tuto, hai mai provato a scaricarti una lista di compatibilità
aggiornata? Qualche minuto ti ci vuole...
E considera che molti nomi sono sostituiti dalla frase "tutto l'hw standard
di questo tipo è supportato"...
Se poi l'hw NON è standard, non è colpa di linux, che cmunque in breve tempo
lo "assimilerà" x' qalcuno scriverà driver specifici.
Luc <TOGL...@nip1.it-TOGLI> wrote in message
vfs0sskca0136sokk...@4ax.com...

Newsgroup: it.comp.lang.pascal
Titolo: il mio albero e' una lista!!!

aiuto,mi succede che quando vado a inserire foglie nel mio albero
binario questo diventa una lista...
cioe' il nodo padre non ha il figlio destro e quello sinistro,ma solo
o il destro o il sinistro!!!! a seconda che l'etichetta che voglio
inserire sia < o > di quella del padre.
questo e' l'albero come lo vorrei,ordinato,secondo etichette < o > del
padre.....
        10
       /   \
    8       12
   / \     / \
 5    9  5  45
ma con la mia procedura non mi viene!!!
infatti viene cosi',o con un figlio sx o con un figlio dx
a seconda che sia < o > del padre
            10
           /
         8
           \ 
            12        
           /
         5
           \
             9
           /
          5
            \
             45 
la procedura e' questa
PROCEDURE INS(root:tree;k:integer);
 var app:tree;
 begin
 new(app);
 app^.chiave:=k;
 app^.sx:=nil;
 app^.dx:=nil;
 if k<root^.chiave then root^.sx:=app
 else root^.dx:=app;
 end;{END INS}
help me please!!!
ciao
[federico|end] 
ogal...@iol.it
 ,remove "ogalu." before reply
Key fingerprint = BB 82 C6 18 2B A2 77 44  48 E0 CC E5 BF EC 67 9E
"la Scienza e' un'equazione differenziale ; 
la Religione e' una condizione al contorno"
Alan M. Turing

ciao
Spero di esserti stato utile.
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

ciao


binario questo diventa una lista...
{       
        NB:
        Val contiene la kiave corretta ed i puntatori sx e dx inizializzati a  
       Nil.
}
procedure InsertNode(val:TNodo;var root:TNodo);
        if root=Nil then
                root:=val;
        else begin
                if val^.kiave<root^.kiave then 
                        InsertNode(val,root^.sx)
                {       Necessario il controllo per non inserire kiavi doppie}
                else if val^.kiave>root^.kiave then
                        InsertNode(val,root^.dx)
        end;
end;
Dovrebbe essere corretta.
                                                        Luca

  Fila, Dato, i: ShortInt;
(*cos'è shortint?*)
 

 Questo non lo so: tale codice sorgente non è mio (sorry!).
Whoops, svarione... MaxAvail è una funzione Pascal e serve per restituire
la dimensione del più grande blocco di memoria heap contigua disponibile.
Scusate,
-- 
Mauro Molinari
Internet e-mail: 
maur...@mbox.vol.it
 / 
maur...@tin.it

unit Crt.
Read e Write (compresi gli LN) non necessitano della unit CRT, mentre 
ClrScr, e tutti i comandi per il video (per settare i colori ecc..)
sono inclusi in CRT.
A meno che in crt ce ne siano delle versioni migliori, ma non ho mai
sentito niente del genere...
by Frengo
Newsgroup: it.comp.lang.pascal
Titolo: ?REWRITE?

-Quacuno sa spiegarmi a cosa serve il comando -REWRITE- ?
-E' un processo reversibile il rendere avviabile in ambiente DOS un
programma scritto in Pascal? Intendo dire :una volta applicati i
comandi -Compile, Disk- e non avendo più il programma scritto in Pascal
posso in qualche modo compiere il processo inverso?
................grazie

posso in qualche modo compiere il processo inverso?
No, non e' possibile.
La trasformazione in codice oggetto (o eseguibile) non e' reversibile.
Il comando "rewrite" per quanto ti possa sembrare attinente serve a fare
tutt'altro.
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

................grazie
Niente del genere.
Serve semplicemente per aprire un file. Se il file non esisteva lo
crea, se gia' esisteva ne cancella il contenuto.
Se con i file se a zero e ti interessa sapere qualcosa sulle varie
istruzioni guarda qui:
http://users.iol.it/fabio.manzo/op_file.htm
Ciao,  Fabio
fabi...@rocketmail.com

Un bel di' Francesco scrisse:
F> -Quacuno sa spiegarmi a cosa serve il comando -REWRITE- ?
F> 
crea un nuovo file e lo apre in scrittura.
Se il file esiste gia', lo "svuota" :-)
F> -E' un processo reversibile il rendere avviabile in ambiente DOS un
F> programma scritto in Pascal? Intendo dire :una volta applicati i
F> comandi -Compile, Disk- e non avendo più il programma scritto in Pascal
F> posso in qualche modo compiere il processo inverso?
F> 
assolutamente no!
Ne' in Pascal, ne' con nessun altro linguaggio :-)
-- 
"1. Se si tiene qualcosa abbastanza a lungo lo si potra' buttare
 2. Qualsiasi cosa si butti, servira' non appena non sara' piu'
disponibile", leggi complementari di Richard sulla proprieta'
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

>posso in qualche modo compiere il processo inverso?
Prova a vedere se ne hai una copia con estensione .BAK
Solitamente il compilatore, prevedendo casi del genere, a meno che non hai
disabilitato questa funzione, salva una copia di backup del file sorgente.

Newsgroup: it.comp.lang.pascal
Titolo: DUBBIO PER IF-THEN-ELSE

Se io scrivo:
if  "condizione" then
                                if "altracondizione" then
                                                                        if
"ennesimacondizione" then
begin
"esegui"
end
else write('ciao');
QUEST'ULTIMO ELSE A QUALE "THEN" SI RIFERISCE??????
Se io voglio farlo riferire al primo then, l'ulitma riga va scritta cosě:
else else else write('ciao'); ????
SO DI NON ESSERE STATO CHIARO....
...PERO' CHI MI POTESSE AIUTARE LO FACCIA AL PIU' PRESTO POSSIBILE !!!
(o mi chiede altre specificazioni! :-) )
GRAZIE!

 else else else write('ciao'); ????
No,devi mettere il begin dopo il primo then
if  x then
begin
if y then
if z then
begin
{esegui le istruzioni previste se tutte le condizioni sono vere}
end
end
else write('ciao'):{solo se la prima e' falsa }
comunque e' un po' bruttino e ripetitivo.
puoi usare gli operatori AND OR
dipende da cosa devi fare
Xbug

   END  (*case*)
end. (*main*)
		CIAO!
 
	O.d.C.  Luigi Nodari.
-- 
Arrivederci.    odc Luigi Nodari

scusa ma ho fatto una figura di m...a, 
ho fatto girare il programma e mi sono accorto che anzichè gli ; devi
mettere >else begin end<


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

Ciao, sono nuovo in questo ng, ho appena iniziato con il pascal, mi kiedevo
se si possono fare applicazioni ke funzionino sotto Win e nn sotto DOS con
il suddetto linguaggio.
Grazie,
Goku.
--
---------------------------
Lady,
hear me tonight
'cause my feeling
is just alright
as we dance
by the moonlight,
can't you see
you're my delight.
Lady,
I just feel like,
I won't get you
out of my mind,
I feel love
for the first time,
and I know that
 [it's true I can tell by
  [the look in your eyes.
       (Modjo)
---------------------------

 il suddetto linguaggio.
Esiste il Borland Pascal per Win 3.1 che ha la unit WinCrt per fare
applicazioni per WIN

 Usa Delphi

 applicazioni per WIN
E' vero questo, però da quanto mi ricordo, BP era tutt'altro che facile da
usare, anzi, era proprio cazzuto!!!!
Se vuoi continuare col pascal, usa delphi 2.0 che è gratis (un po' di tempo fa
si trovava allegato a Dev)
Newsgroup: it.comp.lang.pascal
Titolo: il byte di attributo della memoria video

Ciao a tutti,
mi stavo riscrivendo una UNIT con delle funzioni e procedure (alcune
sono di Dreadnaut) per modificare direttamente la memoria video...
Per testare codeste funzioni ho scritto un programmino:
[CODE]
uses videomem;
var x,y:shortint;
    debug2,debug1,debugx:byte;
begin
cls;
debug1:=make_at(9,14);
fwriteex(3,6,'ciaociao',make_at(9,14));
debugx:=get_color(3,7);
debug2:=get_bg(3,7);
end.
[/CODE]
La procedura fwriteex (per altro di Dreadnaut), scrive una stringa con
gli attributi passatigli.
la funzione make_at crea il byte di attributi dati il nr. di sfondo e
di colore; e funziona, infatti debug1 assume valore 158, ovvero:
158 = 10011110
1001 = 9
1110 = 14
E fino a qua tutto quadra! 
Tuttavia il problema è che 'ciaociao' me lo stampa, si giallo su blu,
ma la scritta lampeggia!
Le procedure/funzioni su citate sono corrette, dunque mi chiedo 
come si gestisce il lampeggio del testo?
Io pensavo che si indicasse nel numero del colore, ovvero
il numero del colore+16 da il colore lampeggiante; e textcolor
funziona cosi...
textcolor(14+16); assegna un colore giallo lampeggiante!
Non è cosi O_o ?
NM

in modalita' testo ci sono 16 colori per il foreground e solo 8 per
il background, gli altri 8 sono i primi con il lampeggiamento attivato.
Anni e anni fa avevo visto un pezzo di asm che permetteva di
ottenere 16 col anche per il background, a scapito del lampeggimento
ma l'ho perso... sigh... :-)   forse se passassi 12 ore sulla Ralph Brown's
potrei ritrovarlo... ma evito :-)
--
Dreadnaut
(Life would be easier if I had the source code)

MMM...
ora mi si chiarisce...
NM
Newsgroup: it.comp.lang.pascal
Titolo: Problemi con la SVGA

Ho letto e studiat un documento HTML che parlava della programmazione della
SVGA, abbastanza semplice :
http://www.escape.ca/~rrrobins/Forum/fr070296.html
Ho provato quindi a creare un progreamma di prova mi creasse una intera
schermata tutta dello stesso colore disegnando pixel per pixel. Ma non vuole
funzionare, mi disegna solo i primi 64 K pixel.
Se qualcuno mi riesce a trovare l'errore ...
.
PROGRAM Prova;
USES DOS,CRT;
VAR Reg : Registers;
    A:CHAR;
    I,L : WORD;
BEGIN
Reg.AX := $4F02;
Reg.BX := $103;
intr ($10,Reg);
FOR L:= 0 TO 4 DO
BEGIN
Reg.AX := $4F05;
Reg.BX := L;
Reg.BH := 0;
Reg.DX := 65535;
Intr ($10,Reg);
FOR I:= 0 To 65535 DO
BEGIN
  MEM [$A000:I] := 68;
END;
END;
END.
Ringrazio in anticipo tutti quelli che cercheranno di darmi una mano. Volevo
finire un progetto entro la fine settimana, spero mi riposndiate al piů
presto
Grazie!!

Intr ($10,Reg);
Anziche' porre L in Bx lo devi mettere in Dx.
Il tutto dovrebbe essere piu' o meno cosi' :
Reg.AX := $4F05;
Reg.Bx := 0;
Reg.Dx := L;
Intr ($10,Reg);
Bye, Mobius

Il tutto dovrebbe essere piu' o meno cosi' :
Provo stasera e poi do' conferma.
Se è esatto proverò a scrivere un articolo per speigare in parole povere
come usare la SVGA, se qualcuno può darmi una mano.
Ho ancora qualche difficoltà a capire come funziona la storia dei piani di
bit. Ho trovato un HTML in inglese, ma lo trovo troppo tecnico, si aspetta
già una certa cultura di assebler che io purtroppo non ho.

già una certa cultura di assebler che io purtroppo non ho.
Beh, se segui quello che ho scritto io ti assicuro che funge
perche' l'ho provato :)
Per quanto riguarda i piani di bit (io non li chiamo cosi' ma credo
d'aver capito cosa intendi) in teoria potresti fregartene tranquillamente
perche' la maggior parte delle risoluzioni grafiche utilizzano un
unico piano suddiviso in piu' banchi (lavorando in modo reale) oppure
un unico banco accessibile linearmente, fregandosene anche dei
suddetti banchi (lavorando in modo protetto).
Comunque se ti serve un po' di codumentazione dovrei avere
qualcosa disperso nei meandri del mio HD.
In caso fammi sapere :)
Bye, Mobius
Newsgroup: it.comp.lang.pascal
Titolo: vb2pas

Esiste un tool che mi converta un sorgente da visual basic a pascal?
Non voglio precisione assoluta nella conversione ma almeno un aiutino...
Grazie.
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

> Esiste un tool che mi converta un sorgente da visual basic a pascal?
sě, da prompt: del <NomeSorgenteVB>


Azzo... mi ha cancellato il sorgente...
Cmq sei molto spiritoso e se vuoi saperlo tale programma esiste e come...
Ciao

 si chiama bas2pas cercalo sui motori di >ricerca!

 Cmq sei molto spiritoso e se vuoi saperlo tale programma esiste e come...
era un invito a riscrivere secondo uno _stile_ di programmazione vero.... :)


Si, infatti è quello che sto facendo visto che il programma non mi funge...
Tuttavia scrivere 18 pagine di codice da vb a pascal (delphi) senza sapere
nemmeno una parola di vb e quindi andando ad intuito non è il massimo...
Ciao

> Tuttavia scrivere 18 pagine di codice da vb a pascal (delphi) senza sapere
uh, bene: un altro che usa delphi!!


Non č colpa mia lo facciamo a scuola...
Se devo essere sincero preferisco il C, ma siccome il delphi mi č piů facile
da capire uso sempre quello...
Ciao

 da capire uso sempre quello...
mhmmm, mi sa che mi dovrň sbattere col C presto: in fase di passaggio da win
a linux; per fortuna mamma Borland ha fatto Kylix....
ciao
Newsgroup: it.comp.lang.pascal
Titolo: Domande... tanto x cambiare :)

1) Come si puo' usare la memoria XMS? Cioe' si possono mettere li' in
qualche modo variabili un po' come si mettono nell'heap con new?
2) Dovendo leggere un file aperto da un programma windows, da un
programma (dos) non ho trovato niente di meglio di copiare prima il
file con exec(getenv('comspec'),'/c copy ... >nil'). Qualcuno ho
qualche idea migliore? Usando questo metodo come si puo' controllare
se la copia e' riuscita? Si puo' liberare un po' di memoria prima di
usare exec e poi ridarla al programma?
3) Cosa rappresentano HeapMin e HeapMax in $M? Cioe' xche' c'e' un
valore massimo e uno minimo?
Grazie a tutti,


Cio' si rivela utilissimo per i programmi residenti.
Il mio dubbio era xche' ci sono un valore minimo e uno massimo; cioe'
da cosa dipente la memoria effettivamente allocata?
Ciao e grazie ancora,


by Frengo
Ciao e grazie a tutti


 E' possibile farlo in modo semplice, cioe' conoscendo solo un po' di
pascal?
Ti invio questo programmino che dimostra come sia possibile allocare e
rilasciare della memoria estesa.
Lo feci un po' di tempo fa per non so quale motivo quindi, non mi ricordo
come sia possibile scrivere o leggere da essa.
Comunque se sei veramente intenzionato a saperne di piu' fammelo sapere che
vado a rintracciare la documentazione opportuna. 
Pultoppo ho la brutta abitudine di tenere i sogenti e fare sparire la
relativa documentazione  ;-D 
BenTex
ben...@racine.ra.it
uses crt,dos;
type dword=longint;
     dd=dword;
     dw=word;
var
    b:byte;
    w:word;
    l:dword;
function DriverXMSInstalled:Boolean;
  var r:registers;
  Begin
    r.ax:=$4300;
    intr ($2f,r);
    DriverXMSInstalled:=
r.al
=$80;
  end;
function FreeXMS:Word;
  var aux:word;
  begin
    asm
      mov  ah,08h
      call [XMSControl]
      mov  aux,dx
    end;
    FreeXMS:=aux;
  end;
procedure AllocXMS(Amount:Word;Var Handle:word);
  var aux:word;
  begin
    asm
      mov  ah,09h
      mov  dx,Amount
      call [XMSControl]
      mov  aux,dx
    end;
    Handle:=aux;
  end;
procedure ReleaseXMS(Handle:Word);
  begin
    asm
      mov  ah,0ah
      mov  dx,Handle
      call [XMSControl]
    end;
  end;
begin
  Clrscr;
  If DriverXMSInstalled
     then writeln('Driver XMS installed')
     else
         begin
           writeln('Error : Driver XMS NOT installed');
           Readkey;
           Halt;
         end;
  writeln('Free XMS = ',FreeXMS,' KB');
  allocXMS(100,w);
  writeln('Free XMS = ',FreeXMS,' KB');
  writeln('Handle = ',w);
  releaseXMS(w);
  ReadKey;
end.

      call [XMSControl]
Compilando mi da unknow identifier.
Ciao e grazie,


Newsgroup: it.comp.lang.pascal
Titolo: Lista degli Interrupt di Ralph Brown

Dove posso trovarla?
Grazie


http://www.pobox.com/~ralf/files.html
se non dovesse piu' esistere con una bella ricerca sicuramente
troverai qualcosa.
ciao
Giuseppe
m...@viesse.it
Newsgroup: it.comp.lang.pascal
Titolo: Matrice X Vettore

Salve!
Qualcuno si ricorda come si esegue la moltiplicazione di una matrice a
2 dimensioni per un vettore?
So che un argomento più matematico che informatico ma non saprei dove
postare se non su un ng di programmazione.
Grazie.
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

[y1]  [ a11  a12 ] [x1]
[  ]= [          ] [  ]
[y2]  [ a21  a22 ] [x2]
y1 = a11*x1+a12*x2
y2 = a21*x1+a22*x2
Si puo' ovviamente estendere il tutto a matrici di ordini superiori.
Ricordo inoltre che perche' si possano moltiplicare fra loro due matrici
(anche un vettore e' una matrice), e' necessario che le colonne della
prima siano uguali alle righe della seconda.
Es. Matrice A (m*n) Matrice B (n*p) A*B = C dove la matrice C ha m righe
e p colonne.
A(2*2) B(2*1) --> C(2*1)
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: Nuove vesti!!

Ma non c'è la possibilità di cambiare l'interfaccia del Turbo Pascal 7??

Ma non c'è la possibilità di cambiare l'interfaccia del Turbo Pascal 7??
pui cambiare i colori... se invece non ti puice proprio... pui fartene
uno da solo infatti c'è il compilatore a riga di comando TPC.EXE o
BPC.EXE (dipende da quale tu hai) nel secondo caso il limite e solo la
tua bravura e la tua fantasia... altre posibilita non le vedo...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 Ma non c'è la possibilità di cambiare l'interfaccia del Turbo Pascal 7??
Io sto scaricando (file per file) Turbo Pascal per Win, mi sembra pressocché
uguale, tranne l'interfaccia.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
 
33813...@tim.it
Bye byte, Cerchietto
La vita, senza una meta, è vagabondaggio
(Seneca)
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Newsgroup: it.comp.lang.pascal
Titolo: [Per il sito] Registrare o non Registrare- Questo è il problema

Insomma, il sito lo dobbiamo registrare o no ?
Fatemi sapere qualcosa. E fatemi sapere chi è d'accordo, rispondendo a
questo post e mandando una mail a 
pas...@argo-web.it
 . OK ?
X Razziator, tutti i servizi elencati da Saturno, sono compresi nel prezzo a
priscindere o meno che tu voglia utilizzarli.

 - ICQ#91902715
www.pascalonline.f2s.com
il sito ufficiale di it.comp.lang.pascal
per collaborare vieni sul canale IRC #turbopascal

 ha scritto nel messaggio
news:gocd9t0dk87uh2cfd...@4ax.com...


 Per ora NO ! nessun dominio
grazie del tuo PARERE,magari un po' autoritario... cmq grazie



Per me ora non conviene registrare un domineo visto che non sappiamo
ancora di cosa parliamo,
Chi scrive veramente gli articoli da mettere? Ci sono realmente
persone disposte a farlo? Io, per conto mio, non mi sono dimenticato
il tutorial sulle DLL ci sto mettendo parechio visto che ho anche
altre cose da fare, e soprattuto non conosco il FreePascal percui non
so come si faccia sotto questo compilatore.
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

 ha scritto nel messaggio
news:978aol$pd9$1...@nreadB.inwind.it...


Newsgroup: it.comp.lang.pascal
Titolo: conversione XXX a decimale

Devo fare un problema che dato in input la base (da 2 a 15) la strasformi in
decimale, dando un messaggio di errore quando si inserisce una cifra errata
in una base
 es a32 in base 8 errore.
Il mio problema è come faccio con le basi che hanno le lettere a trasformare
il numero? devo dire manualmente che a=10 b=11 ecc?

 ha scritto nel messaggio
news:X7AF8.79768$5k4.1...@twister2.libero.it...

Sto ancora intronato da sonno devi fare un convertitore
dec-->base
base --> dec
dove base è una qualsiasi base numerica ?
Il convertitore dec--->base lo trovi sul sito 
www.pascallike.too.it
 sezione
sorgenti
Ciao ReDiCuori

devo convertire base --> decimale
"ReDiCuori" <emiliog...@NOSPAMemail.it> wrote in message
news:jAIF8.59298$CN3.1...@news2.tin.it...


 devo convertire base --> decimale
AF9  base 16
il code ascii di A=65
                      B=66
                      ...
                      F=70
ora 65-55=10
      66-55=11
      70-55=15
il code ascii di 0=48
                       1=49
                       ...
48-48=0
49-48=1
etc etc...
daconv='AF9';
base=16;
unita=0;
i=length(daconv);
valore=0;
while i>=1 do
    if daconv[i] in ['A'..'F'] then
       valore=valore+(daconv[i]-55)*base^unita;
    else
       valore=valore+(daconv[i]-48)*base^unita;
    endif
    unita=unita+1;
    i=i-1;
endwhile
Ciao ReDiCuori
www.pascallike.too.it

 wrote in message
news:X7AF8.79768$
5k4.1...@twister2.libero.it

vai su 
web.tiscalinet.it/licciardi
cerca la pagina dei download (ce ne sono 2, ma solo una e' quella che ti
serve)
cerca il file altro.zip
in esso c'e' pure altro.pas con le funzioni che ti servono:
todecimal 
decimalto
by tury
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: programma per controllare altri file

come fare a creare questa "extra traccia"...
Restando un po' più sulla Terra...
ti consiglio 2 cose:
1 - modificare in parte i programmi scritti da terzi.
2 - pensare a qlc di un po' meno esagerato, anche cose semplici... comunque
una cosa è certa: chiunque voglia usufruire di uno dei programmi fatti da
terzi, deve per forza di cosa lanciare il tuo .EXE... quindi basta
verificare in qualche modo che non siano scaduti i 30gg (e qui ti voglio!!)
e poi se va, fai andare il prog... altrimenti formatti su tutto :-))
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

per e-mail),o abbia dei commenti ,suggerimenti,osservazioni,ecc da fare
Innanzitutto ti consiglio di usare come linguaggio l'assembly ( o al più il
C ) in quanto è decisamente più facile creare programmi di piccola taglia
che modificano altri programmi. ( sarebbe abbastanza ridicolo dover
modificare un programma di 10Kb che dopo la modifica diventa 380Kb !!! :-| )
Io posso consigliarti il libro :   " PC Interrupts " di Ralf Brown & Jim
Kyle.
Tale libro lo trovi anche free in rete !!!  :-)
Voglio solo sottolineare che tale libro dà solo delle informazioni generali
ed è quindi necessaria un pò di iniziativa e tante prove.
Un' ultima cosa : il libro tratta solo file .EXE di tipo DOS, non so se i
file sotto WIN95/98 hanno degli header differenti !!!
( se eventualmente riesci a trovare qualche info su questo argomento fammi
un fischio )
Ciao,
Alberto Speranzon
-------------------------------------------------------------
e-mail : 
albe...@intercity.it
-------------------------------------------------------------
Member of the Coder's Guild
http://www.paracatz.com/codersguild/
-------------------------------------------------------------
Life is like a complex number, it has a real
part and an immaginary part.

Newsgroup: it.comp.lang.pascal
Titolo: Download Ia.n.i.!!! It's free!

Download Ia.n.i. RemoteControlSystem 1.2 beta. It's free!!!
New site: 

Download Ia.n.i. RemoteControlSystem 1.2 beta. It's free!!!
New site: 
http://jump.to/IaniProject
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per favore

Salve Ragazzi,Se possibile e se non reco rompimenti
vari, vorrei
sapere, visto che sono no' alle prime armi,ma alle
primissime armi,come posso fare per dare
quest'istruzione a un programmino in TP,AlloraImmetti
1° numero
Immetti 2° numeroOperazione:Num 1° + Num 2° =
risultato
Se risultato maggiore di 90, bisogna fare
quantosegue:Risultato - 90Come si fa'?
Grazie mille
______________________________________________________________________
Do You Yahoo!?
Il tuo indirizzo gratis e per sempre @
yahoo.it
 su 
http://mail.yahoo.it
-- 
Posted from 
web1101.mail.yahoo.com
 [128.11.23.121] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG





Prova cosi :


 


Program SinoA90;


 


var


    num1, num2,  totale : 
byte;


 


begin


    writeLn (  ' Primo num. : ' 
 );


    readLn ( num1 
)


    writeLn (  ' Secondo 
num. : ' );


    readLn ( num );


    totale := num1 + num2;


    if totale > 90 then totale := totale -90;


end.


 


Lo buttato giu a vista, dovrebbe funzionare.


 


Ciao, el rasune'.


 


Ca' custa chiel ca' custa...


    Viva la val d'Austa!

Newsgroup: it.comp.lang.pascal
Titolo: Movimento del mouse

Salve a tutti....
Esiste una funzione che mi restituisce come risultato una valore boolean
VERO se il mouse è stato spostato o FALSO in caso contrario???

 VERO se il mouse è stato spostato o FALSO in caso contrario???
http://dreadnaut.servebeer.com/src/fmouse.pas.html
c'e' la funzione MouseRel che restituisce gli spostamenti relativi
x e y del mouse... se entrambi sono 0 il mouse non si e' mosso...
Direttamente penso sia qualcosa del genere:
function mouseMoved: boolean; assembler;
 asm
  mov ax, 0Bh  { moGetMouseRel = $0B }
  int 33h
  mov ax, 1    { true }
  cmp cx, 0    { spostamento x }
  jne @fine
  cmp dx, 0    { spostamento y }
  jne @fine
  mov ax, 0    { false }
 @fine
 end;
come sempre non ti fidare, sono a km dal piu' vicino compilatore quindi
magari quando torno a casa guardo se funziona :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 quindi magari quando torno a casa guardo se funziona :-)
ok si funziona, mancava solo un ":" dopo @fine, cosi':
[...]
  jne @fine
  mov ax, 0    { false }
 @fine:  { qui ! }
 end;
In modalita' testo il mouse si sposta mi sembra ogni 8 unita' (pixel ?),
quindi se mouvi di pochissimo il mouse il puntatore non si sposta, ma la
funzione se ne accorge cmq.

Newsgroup: it.comp.lang.pascal
Titolo: file .rar

salve ragazzi,
 vorrei sapere come usare un file .rar.
ho scaricato da poco una unit per pascal dal sito
http://utenti.tripod.it/pascallike/sorgenti/grafica/tbmp.rar
, naturalmente
queste sono in formato .rar, io vorrei sapere cosa farne di questo file che
serve a utilizzare delle opzioni grafiche sotto dos con un programma pascal.
PS
non conosco questa parte dell'informatica (i file .rar) perché non ho potuto
iscrivermi per ora ad una scuola d'informatica, perciň tutte le poche cose
che conosco le ho assimilate grazie all'esperienza.
grazie, Morpheus

un file .rar e' un archivio compresso, come i .zip.
Decomprimerli cerca WinRar, la controparte di WinZip per questo
tipo di archivio
--
Dreadnaut
(Life would be easier if I had the source code)

Purtroppo il server dove è presente il sito si impappina con i file Zip
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

> come i .zip.
in effetti non sta molto bene... ma di solito tendo a leggere
".zip" come "punto-zip"... da li' l'articolo "i"....
un po' come "il ng" oppure "l'ng" :-)


Newsgroup: it.comp.lang.pascal
Titolo: Problemi con Exec

Ho letto i consigli che sono stati dati per 
mandare in esecuzione un programma, ma non
capisco come mai a me non funziona e mi 
restituisce DosError=8 (Non abbastanza memoria)
Eppure ho impostato anche $M !!!
Qulcuno puó dirmi cosa c'é che non va ?
--
Posted from 
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Qulcuno puó dirmi cosa c'é che non va ?
A me capitava la stessa cosa se giravo il prog nell'IDE
invece esternamente funzionava,cioè chiudendo il TP e eseguendo
il nomefile.exe andava tutto regolare.




Newsgroup: it.comp.lang.pascal
Titolo: Corso di Pascal





Buona sera,


 


alla bell'età di 47 anni ho la necessità di 
imparare il Pascal per sviluppare alcune applicazioni statistiche (analisti di 
serie storiche).


 


Sapete dove posso trovare un corso (in inglese od 
italiano), meglio se online, che mi faccia avanzare per gradi? Premetto che 
20 anni fa programmavo in un Basic abbastanza elementare.


 


Grazie per la risposta,


 


Cybercat


 


 


 


 



Cybercat56 wrote:

http://www.giobe2000.it/Pascal/index.htm
http://www.pascal-central.com/
http://www.xploiter.com/mirrors/pascal/default.htm
http://www.webwareindex.com/tutorials/Pascal.html
Newsgroup: it.comp.lang.pascal
Titolo: Esiste un editor per la grafica del Tp?

Esiste un editor per la grafica del Tp?
Guido Revello
Visita Dig.it e-zine
 
http://digitezine.cjb.net

Guido Revello
Per farci cosa?
--
fabi...@rocketmail.com

>
f> Per farci cosa?
f>
per disegnarci le donnine succinte :-))
-- 
Emanuele Cesena		
http://www.geocities.com/SiliconValley/Grid/8879
ami...@iol.it
 :)			 Occhio all'antispammer NOSPAZ!!
Scaricate ora Bubble 2000, ver. beta 1 :-)
http://gpi.eden.it/italianware/games/b2000b1.exe
 (900kb, ma il server e' buono!)
"Se non capite una parola in un brano scientifico, ignoratela. Il brano ne
potra' benissimo fare a meno", legge di Cooper

Newsgroup: it.comp.lang.pascal
Titolo: Copiare un file con il PASCAL...

Salve a tutti, amici PASCALIANI :-)))
Scusate l'gnoranza, ma come si fa a creare un visualizzatore che mostri
un'immagine BMP o che altro ?
Grazie anticipatamente.
Eugenio,
--
             \\\\\\//////
          ()| (.)  (.) |()
             |   (_)  |
              (-----)
             __||||__
__ oOOo____oOOo____
==================
Eugy :-)))
er...@tin.it
==================

un'immagine BMP o che altro ?
Io ho scritto un paio di unit per visualizzare bmp e per il fading.
Se vuoi te le spedisco.

 un'immagine BMP o che altro ?





Newsgroup: it.comp.lang.pascal
Titolo: utilita' del Pascal

Ciao,
io ho studiato come primo linguaggio di programmazione il Pascal e ne sono
molto felice, dopo
alcuni altri : Fortran, C. Pero' ho visto che di fatto si utilizza poco per
realizzare programmi commerciali.
E' vero o mi sbaglio ?
Altrimenti per quali scopi si usa al giorno d'oggi il Pascal ?
Perché e' ancora importante programmare in Pascal ?
Ho sentito dire che si usa in alcuni ambiti particolari della ricerca. Quali
sarebbero ?
Quando imparai il Pascal usavo il Turbo Pascal 7 della Borland. Esistono
oggi implementazioni migliori ?
Un'ultima cosa: Potete consigliarmi qualche buon sito dedicato al Pascal ?
Grazie

 ha scritto nel messaggio
news:a4j9mq$a60$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: aiuto urgente !!!!!!!

Avrei urgenza per motivi di studio di realizzare un programma che
permetta di giocare a TRIS con il tastierino numerico del computer.
7       8       9
4       5       6
1       2       3
Il giocatore deve sfidare il computer che dovrà elaborare una
strategia di attacco o di difesa a seconda di chi inizia il gioco.
Posso usare PROCEDURE,FUNZIONI,ARRAY,RECORD,CICLI
insomma roba da primo anno di studio.
Facile no?Grazie a chi vorrà darmi  una mano.

Beh... il programma non è un gran che difficile... non penso stia lì il
problema...
Forse nella strategia...
Ebbene, io cercherei di far scegliere al computer il centro (se possibile),
poi che vada pure a caso... basta che blocchi i tris!!!
Oppure gli fai costruire tutte le possibili soluzioni (non sono tante) e gli
fai scegliere quella migliore ogni volta!!!
Ciao
--
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
Claudio ha scritto nel messaggio
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!!URGENTISSIMO!!!! RICHIESTA TP

Non è possibile trovare da qualche parte su Internet una versione (anche
vecchia) del Turbo Pascal gratuita?
Vi prego aiutatemi.
Ciao,
Andrea
(
agr...@tin.it
)

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

Ciao a tutti,
      come posso fare a eseguire come sfondo ad una applicazione un file
midi?
Grazie in anticipo


wrote:

I midi sono file sonori... Se tu fossi in windows ti risponderei sua
una API di Windows intanto l'interfaccia per i MIDI c'è dal Wfw3.11 ma
qui non siamo in Windows ma in dos...
ora in dos le cose si complicano assai.... ci sono 2 problemi
1) gestire la Scheda sonra in maniera Low (e Low e dire poco)
2) Legere i dati da mandare alla scheda
Ora la parte 1 puo' essere fatta che una unit che avevo (chissa che
fini avra fatta forse su qualke sito, essempio quello di RdC, ci sara)
ma per la parte 2 non conosco nessun unit... indi l'unca soluzione e
scrivere tu una tua rutine per legere i midi (cosa non facile ma non
impossibile.. insomma non sono MP3)... se ti va ti posso dare
l'inderizzo con un sito dove ci sono tutti o quasi i firmati di file
esistenti...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 wrote in message
3d49ea5f....@razziatore.d2g.com...


Newsgroup: it.comp.lang.pascal
Titolo: turbo pascal 7

scusate dove posso trovar tutte le libray di turbo pascal 7 e il file *.gbi
perke se faccio un porgramma in graph nn me lo trova grazie ancora

 perke se faccio un porgramma in graph nn me lo trova grazie ancora
prova a reinstallarlo il pascal (oppure potrebbe essere un problema del
codice .pas)
web.tiscalinet.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: il mio primo gioco in pascal

ciao a tutti, dopo un mese circa che studio il pascal, senza contare le
interruzioni, ho finito di programmare il mio primo gioco. Si tratta del
classico gioco di snake... quindi niente di speciale per ora comunque chi è
che ha voglia di dargli un'occhiata per dirmi se il codice è scritto bene,
andrebbe modificato, si può scrivere in modo più pulito, ecc.
contattatemi per e-mail per ricevere il listato del programma.
grazie mille!
ciao

 contattatemi per e-mail per ricevere il listato del programma.
Grande!!!!!!!! Il tuo primo gioco in pascal č un clone di snake!!!! Uguale a
me!!!!!!!!!! E per di piu' ti chiami Andrea, anch'io mi chiamo Andrea e
siamo entrambi dell'82!!!!!!!!!!!! CAXX!!!!!!!!!! Che coincidenza
assurda!!!!!! Ci manca solo che abiti dalle parti di brescia e poi siamo
gemelli!!!!!!!!
N.B. il tuo snake com'e'???? Ha incluso anche l'editor di
immagini/livelli?????? (il mio si... si poteva rifare un intero livello in
pochi secondi e, con un menu apposito, rimodificare tutti gli sprite)
CIAO!
                                                - Drake (Andrea)


Andrea

 c'entra con la data di nascita.
peccato =) (ma che senso ha firmarsi 82 se sei dell'83??????? non fai prima
a scrivere Andrew_83????????)

 poteva essere frainteso ormai lo avevo già messo dappertutto! :(((
ma allora che significa
quell'82???????????????????????????????????????????????

 wrote in message
8snoj1$gr7$1...@nread1.inwind.it...


Anche io voglio il listato, voglio imparare anche io a fare queste cose!
Io sono del 82 e mio padre si chiama Andrea, ma non vengo da Brescia!
Peccato!
Comunque spero che mi aiutiate!
Pace e prospertà!

ANCHE IO VOGLIO L'ALGORITMO, ANCHE IO VOGLIO IMPARARE A FARE QUESTE COSE!
Pace e prosperità.


Voglio fare quell oche ha fatto lui!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ecco il mio esempio!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ma da dove cavolo sei partito??????????????
snake... un mese per snake? oh, non voglio prenderti in giro, ma in un mese
di fatiche hai solo fatto snake??? risottolineo che non sot
sottovalutandoti, anzi ti faccio mega complimenti, io non riesco a farci
niente con pascal sennon scrivere "ciao" ma che utilità ha???

 di fatiche hai solo fatto snake???
come dico sempre: si fa ciň che si puň...

come dico sempre: si fa ciò che si può...
si, ma come l'hai fatto?
Newsgroup: it.comp.lang.pascal
Titolo: Ancora stringhe...

Supponiamo di avere una stringa di n caratteri. Come faccio ad estrarre un
solo carattere e considerarlo come variabile char?
Grazie!
-DaX-

 wrote in message
o4bE3.2972$E3....@typhoon.libero.it...


you wrote :
#Supponiamo di avere una stringa di n caratteri. Come faccio ad estrarre un
#solo carattere e considerarlo come variabile char?
se s e' la stringa, il carattere si estrae come s[indice]
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Una domanda semplice: mi dicono che il pascal e superato?

Vorrei porre agli amici che mi leggeranno alcune domande,
e vero che il t.pascal e superato?
in cosa si differenzia dagli altri linguaggi?
per chi vorrebbe imparare a programmare  e il linguaggio adatto?
grazie
puc...@alma.it
--
Posted from 
saa31023.comune.torino.it
 [158.102.52.23]
via Mailgate.ORG Server - 
http://www.mailgate.org

per chi vorrebbe imparare a programmare  e il linguaggio adatto?
Il pascal e' nato senza troppe pretese.
Con l'intento, cioe', di essere un linguaggio puramente didattico,
dedicato all'apprendimento della programmazione.
Se vuoi iniziare a programmare puoi farlo in pascal, ma affrettati a
passare ad un linguaggio come il C++ che offre molte piu'
potenzialita'.
Oppure (e secondo me faresti la cosa migliore) inizia direttamente dal
C++.
Si e' discusso molto sui ng adeguati su quale fosse il linguaggio
migliore per imparare e molti programmatori, tra cui anch'io, sono
dell'idea che si puo' benissimo imparare a programmare anche in C++
senza passare dal pascal o dal C.
Andrea Laforgia

Nelle scuole si fa solo TurboPascal :\
per me è carino come linguaggio, ma certo non è il massimo...
--
Paolo 83 RE
gher...@iname.com
 (text only)
CIAO!


Nelle scuole si fa solo TurboPascal :\
Difatti il TP viene insegnato in quanto e' un dialetto del pascal
molto facile da usare ed e' ottimo se si vuole *iniziare* a
programmare, ma non per questo bisogna pensare che sia uno dei
linguaggi migliori.
All'universita' si insegna Java e C++.
Andrea Laforgia

...


Andrea Laforgia
Ciao e 73-51 de Tartaruga .
.oO-=> TARTARUGA (* Gabriele *) <=-Oo.
     E-Mail: 
ru...@ita.flashnet.it
http://www.geocities.com/SiliconValley/Peaks/4731/

quello che si puņ imparare con un pc a casa e un po' di passione e impegno)
Il problema vero e' che lo potrebbe fare, ma non c'e' preparazione da
parte degli insegnanti.
Immagina una materia come "programmazione" in una scuola a carattere
scientifico, portata dal I al V anno !
Di cose se ne imparerebbero parecchie...
Andrea Laforgia

studi...eheheh...
Allora vedro' di essere piu' preciso : un Prof. che ci tiene alla
produttivita' dei suoi alunni insegna Java e C++.
Tra l'altro entrambi questi linguaggi hanno un vantaggio enorme
rispetto a tutti gli altri : essere pienamente portabili.
L'Object Pascal di Delphi cosi' come TP sono linguaggi troppo legati a
piattaforme specifiche (leggasi DOS/Windows9x).
Java e' il linguaggio portabile per eccellenza, seguito a ruota dal
C++ per il quale si tiene molto allo standard.
Andrea Laforgia

Immagina una materia come "programmazione" in una scuola a carattere
scientifico, portata dal I al V anno !
Io faccio il liceo scientifico, e visto che il nostro prof è al livello di
5:0 = 0 (non scherzo... :\  ) ci fa informatica la tecnica di laboratorio,
che è molto esperta e all' università ha fatto matematica applicata o una
cosa del genere, non mi ricordo, ma cmq è preparata.
Solo che con 1 ora alla settimana quello che facciamo non è molto.
Dovresti aver presente il genere di programmi che citavo nei miei msg: somma
e prodotto di numeri...
