mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: info sulla graph.tpu

Com'e' possibile che non mi funziona questo codice?
E' uno degli esempi tratti dal mio compilatore.
il programma viane compilato, quando lo eseguo
mi dice di usare InitGraph, ma e' gia' inserito!!!!
uso il borland turbo pascal 7.0
---------------------------------------------------
{Circle.PAS}
{Sample code for the Circle procedure.}
uses Graph;
var
 Gd, Gm: Integer;
 Radius: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, ' ');
 if GraphResult <> grOk then
   Halt(1);
 for Radius := 1 to 5 do
   Circle(100, 100, Radius * 10);
 Readln;
 CloseGraph;
end.

>  InitGraph(Gd, Gm, ' ');
scommetto che non ti trovi i files .bgi
Fra gli apici devi mettere il path dove questi files sono :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

>  InitGraph(Gd, Gm, ' ');
Questa stringa la devi modificare...se ad esemipio la cartella del tuo tubo
pascal č C:\tp..devi scrivere..:
Initgraph,(gd,gm,'c:\tp\bgi\') .... poi dipende come si kiama la cartella e
ti regoli di conseguenza :))
^_][ice][man][_^


Poi vai su un altro PC e ti dice che non li trova...
io di solito faccio una varibile inizializata tipo a 'C:\BP\BGI' e poi
acetto qualche parameto esterno tipo -g C:\BP\BGI oppure lo prendo
alla brutale...
cmq meterci una costante vale dire andare al manicomio se deve
funzionare su + computer... 
altra soluzione e metere ' ' pero a quel punto le BGI devono stanre
nella directory del EXE...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ti regoli di conseguenza :))
Vi ringrazio tutti ragazzi ho risolto =)
see ya
--
machine
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO! SOFTWARE

Sono alle prime armi con il pascal (e anche con la programmazione), e sto
usando come editor, compiler e runer irie pascal 2.0.1 ma mi da qualche
problema e poi non č possibile compilare il programma in un file eseguibile,
sapete indicarmi un software che rende ciň possibile? dove lo posso trovare?
possibilmente che non pesi piů di tanto (ho visto qualche programma che
pesava anche piů di 8MB!!!)
Grazie anticipatamente a tutti
Un saluto

 ha scritto nel messaggio
news:O44i7.10772$%a4.4...@news.infostrada.it...

trovi qualche cosa nel sito in firma, pero' pesa 12 mb, cmq e' diviso in 8
file rar che stanno nei floppy
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

Domenico wrote:

Vai su 
http://digilander.iol.it/carmageddon1
 alla sezione strumenti

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

Come saprete per disegnare un pixel sullo schermo si può ricorrere a questo:
 mov ah,0ch
 mov al,02h
 mov cx,x (coordinata x)
 mov dx,y (coo. y)
 mov bx,col  (colore)
 int 10h
Bene. Ma su "colore" che devo mettere? Qualsiasi numero intero io metta, mi
viene sempre il colore verde!!
Aiutatemi voi! Mi servirebbe la risposta per oggi!
Grazie
Alex



e ci credo... gli passi sempre 02h...
questa è la proc corretta:
asm
     mov        ah,0Ch
     mov        al,[col]
     mov        cx,[x]
     mov        dx,[y]
     mov        bx,[1]
     int        10h
end;
cmq ti sconsiglio di utilizzarla perchè utilizza l'interrupt 10h che è
abbastanza lento...
la migliore che io ho provato è questa:
Procedure Putpixel(X, Y: Integer; Col: Byte; Where: Word); assembler;
asm
   mov ax, [Where]
   mov es, ax
   mov bx, [X]
   mov dx, [Y]
   mov di, bx
   mov bx, dx
   shl dx, 8
   shl bx, 6
   add dx, bx
   add di, dx
   mov al, [Col]
   stosb
End;
che supporta anche gli schermi virtuali... (nella var Where devi
metterci l'indirizzo)
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net

 End;
Grazie mille della risposta e del suggerimento!!!
Ma che valore devo usare per l'indirizzo?
Non ne so quasi niente di assembly!
Alex


Per ora ci metti quello della vga $a000
Quando poi impari ad usare il double buffer ci metti l'indirizzo di
uno schermo virtuale


 ha scritto nel messaggio
news:3aa559d...@news.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Dove trovo documentazione ?

Ciao a tutti, qualkuno ha qualche link di tutorial, corsi, siti sul Pascal
?? Vorrei imparare ad usarlo abbastanza bene (sia per programmare in Dos/Win
che Linux) .. Grazie

 wrote in message
xB6%4.114046$VM3.8...@news.infostrada.it...

Il sito 
http://www.irietools.com
 offre la possibilità di scaricare
gratuitamente una versione del pascal standard (non TB).
Insieme al pacchetto zippato troverai anke parecchi file readme che spiegano
abbastanza dettagliatamente
l'utilizzo del programma e la programmazione in ambiente pascal (istruzioni,
strutture di controllo fondamentali,
procedure, function, ecc.)
Lingua: Inglese.
CIAO e buono studio!!!

Newsgroup: it.comp.lang.pascal
Titolo: Parentesi graffe

Come da oggetto vorrei sapere come si fanno le parentesi graffe in Tp
Grazie
-- 
Posted from 
mta21-acc.tin.it
 [212.216.176.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio news:39F6E6D6...@tin.it...


 wrote in message 39F6E6D6...@tin.it...


ALT+123 =>{
ALT+125 =>}
Ciauz
--
KNOWLEDGE IS POWER
http://www.chameleon.f2s.com
http://go.to/chameleon
Newsgroup: it.comp.lang.pascal
Titolo: Labirinto 3D

Salve a tutti, mi sto' dedicando ultimamente alla costruzione di un Lab. 3D;
il problema che mi si pone e` : quando mi muovo nel labirinto devo
ovviamente far spostare lui non me ma far spostare tutto con la solita
procedura cancella riscrivi risulta molto lento.
La domanda e` esiste un altro modo per far spostare qualcosa sullo schermo
senza che lasci una scia e senza fare cancella e riscivi???
Vi ringrazio anticipatemente per l'aiuto CIAO CIAO
                                                               ROBERTO
frob...@tiscalinet.it

Vi ringrazio anticipatemente per l'aiuto CIAO CIAO
Esiste una tecnica chiamata "double-buffering" (la stessa che viene
usata nella Playstation, giusto per farti un esempio) che si basa sul
costruire un buffer in memoria, destinato alla costruzione della nuova
figura e da "scaricare" in memoria video successivamente.
In questo modo si ha la fluidità dell'animazione.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

una soluzione sarebbe quella di usare la getimage e la putimage
se usi la grafica del pasquale, ma ha lo stesso problema.
Per fare animazioni decenti ti consiglio di pigliarti da internet
una nuova libreria grafica che usi la modalità 13h
cioè a 320x200x256 in questo modo utilizzi molta meno memoria
circa 64000 è ciò ti consente ti avere due zone di memoria
per il video una su cui lavori e una visualizzata.
scambiando passo passo i puntatori di queste due aree di memoria
ottieni un refresh rate di circa 20 schermate per secondo!
Se ti serve una nuova libreria grafica scrivimi!
--
Posted from 
sfw.lib.disco.unimib.it
 [149.132.196.251]
via Mailgate.ORG Server - 
http://www.mailgate.org

Ciao.
 Scusami dove posso trovare questa libreria?
saluti maki

 
in realta', credo, non si scambiano i puntatori, ma si copia
nella memoria video l'area puntata.
Comunque sia, posso averne una copia anch'io? :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
Se nulla si crea e nulla si distrugge, ma tutto si trasforma, da dove
diavolo e' uscito Bill Gates?
Newsgroup: it.comp.lang.pascal
Titolo: funzioni che prendono funzioni e restituiscono funzioni

Savle a tutti. Volevo sapere come si puo' passare un array ad una
funzione, ma soprattutto se e' possibile che una funzione restituisca
un array (se si come). Inoltre e' possibile che la funzione
restituisca (o prenda) dei tipi non predefiniti? (Ad esempio io avevo
fatto un tipo di nome vettore che era un array costituito solo da
lettere minuscole, ma non melo ha preso).
Grazie.
Cordiali saluti.
Matteo.

restituisca (o prenda) dei tipi non predefiniti? 
La risposta alla prima domanda e' inequivocabilmente NO.
La risposta alla seconda domanda e' si', ma che non siano tipi
composti (cioe' vettori, record, ecc...).
--
Andrea Laforgia
andrea_...@bigfoot.com

puoi passare e ritornare puntatori invece di vettori

le procedure posso prendere array in questo modo:
program ....
...
 type awawa_amici= array[0.. 100] of integer;
...
var k: awawa_amici;
...
procedure prendilo (x: awawa_amici);
begin
x[1]:=...
end;
begin (*main*)
...
...
..
prendilo (k);
...
..
..
end.
-- 
Arrivederci.    odc Luigi Nodari

Newsgroup: it.comp.lang.pascal
Titolo: Linker per pascal esiste?

Salve a tutti. Vorrei sapere se esiste un linker per il Turbo Pascal, chiedo
solo il programma per creare file eseguibili con estensione .exe e non
editor e compilatore (che gią ho).Se esiste dove posso trovarlo?
Grazie

Newsgroup: it.comp.lang.pascal
Titolo: Note musicali

Salve, sapete dove posso trovare l'elenco dei valori numerici in pascal per
la funzione sound(), corrispondenti alle note musicali?
A me servono 3 ottave,
dal DO al SI
e con i tempi 4/4 2/4 1/4 1/8 1/16 1/32
Se potete aiutarmi rispondete.
Grazie
Luigi
-- 
Posted from [195.223.215.7] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ETC........   ==>>  moltiplica la nota precedente per K=1.059463
E poi:     SOUND(f); DELAY(millisec);
Quando parli di 4/4,  2/4, 1/4 etc. ti riferisci alla durata, che dipende
dalla velocità della melodia, e quindi può variare.
Es, do per 1 sec:   SOUND(550); DELAY(1000);

Grazie 1000!


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

Quando compilo un programma  e clicco sul file exe questo viene visualizzato
per un attimo poi sichiude automaticamente ;
Cosa devo fare ?
Scrivi a 
Sa...@freemail.it


Cosa dovrebbe fare il programma?
Puo' essere dovuto da centinaia di possibilita'!! (eccezioni o altro..)
-- 
Salvadori Danilo
 
ilb...@tin.it


alla fine del prog metti o
readln;
oppure
repeat
until keypressed;

 wrote in message
7s5c65$mev$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.pascal
Titolo: Compilatori

Ho istallato il compilatore "Free Pascal" trovato su una rivista,
però:
anche se mi dice che l'istallazione è avvenuta con successo non si
riesce a "compilare" niente, nemmeno i programmi di esempio inclusi!!
Qualcuno sa come funziona??
Grazieeeee

Lyla wrote:

Ciao il FP è un compilatore dall'uso molto semplice.Per farlo funzionare 
non devi fare altro che scrivere il tuo programma di prova diciamo 
prova.pas è dal prompt di MSDOS scrivere "ppc386.exe prog.pas" ,
se il tutto non funziona è perchè prob. devi aggiungere la directory di 
installazione del FP al PATH del tuo PC.
Ciao Claudio
http://digilander.iol.it/carmageddon1
 (il sito dedicato al pascal)
Newsgroup: it.comp.lang.pascal
Titolo: KeyPressed

Salve a tutti,
vorrei sapere come fare per proteggere un programma sotto una chiave
privata.
Ora mi spiego meglio...
Nel mio programma, vorrei che all'inizio chiedesse una password di accesso,
nel caso fosse affermativa allora il programma continua, altrimenti il
programma mi da errore.
Alcuni mi hanno suggerito di usare la funzione Keypressed, ma come funziona?
Come si dichiara?
Se avete qualche consiglio da darmi non esitate a scrivere sia sul newsgroup
che direttamente nella mia casella di posta.
Grazie anticipatamente.
Juan

la funzione keypressed blocca l'esecuzione del preg. fino a quando non premi
un tasto. per usarlo bisogna che dichiari la libreria crt.
cmq non capisco di che utilità ti possa essere per quel che devi fare. fai
memorizzare il codice da digitare in una variabile e in ciclo if gli fai
continuare o no l'esecuzione del programma.
p.s.: per usare il keypre. come ti ho detto prima,bisogna che usi questa
spece di algoritmo:
         repeat
         until keypressed;

La funzione da te descritta è la ReadKey che restituisce il carattere
corrispondente al tasto premuto.
La KeyPressed restituisce un valore True se il buffer della tastiera non è
vuoto.
Resta il fatto che basta usare l'help in linea del TP/BP/TPW o la
documentazione del FreePascal per avere queste informazioni.
--
Michele
    "Nessun luogo è lontano"
ICQ #64033158


wrote:

una cosa del genere?
program ciau;
label luup;
var risp:string;
begin
luup:
write('Hai la parola d''ordine? ');
readln(risp);
if (risp <> 'no!') then goto luup;
writeln('Parola d'ordine corretta!');
end.
ovviamente disassemblando o anche solo editando l'exe con un hex
editor si trova la pass...;)
Newsgroup: it.comp.lang.pascal
Titolo: library

Qualcuno può gentilmente spiegarmi come si scrivono dll in pascal ?
Ho provato a scrivere una libreria come se fosse una unit, ma non mi
riconosce neache la parola chiave libray.



Ma il mio tutorial dove è finito?
bha...
cmq prima di tutto bisogna vedere che compilatore... se usi TP te le
poi pure scordare....
fammi sapere...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: un problema con i predicati

Salve , sono Flora , è la prima volta che scrivo su un ng
volevo chiedervi una cosa:
come posso porre in pascal un predicato del tipo
esiste a,b,c diverso da 0 , tale che a^3 + b^3 = c^3
grazie , ciao

esiste a,b,c diverso da 0 , tale che a^3 + b^3 = c^3
Un metodo molto semplice potrebbe essere :
function check ( a, b, c : word ) : boolean ;
begin
  check := (a <> 0) and (b <> 0) and (c <> 0) and
           (a*a*a + b*b*b = c*c*c) ;
end;

Un metodo molto semplice potrebbe essere :
Il metodo da te proposto verifica solo se la terna (a,b,c) soddisfa la
relazione a^3 + b^3 = c^3.
Mi sembra di capire invece che Flora voglia, data la suddetta relazione,
sapere se esiste una terna che la soddisfa, ed eventualmente quale.
Compito per cui è adatto un linguaggio come il Prolog (che mi sembra noto a
Flora, dal suo modo di porre il problema), ma che poco si presta ad essere
risolto in Pascal.
Si può comunque risolvere, basta tentare tutte le terne possibili (o meglio
solo quelle che ha senso provare, se ho provato 2,3,4 non ha senso provare
anche 3,2,4).
Ciao, Max.

relazione a^3 + b^3 = c^3.
Esatto, anche se credo che sia sbagliato il codice, perche' se la
condizione e' (a,b,c) <> (0,0,0) bisogna porre una condizione di or
tra (a <> 0) (b<> 0) e (c <> 0) mentre nel caso fosse (a,b,c) con a <>
0, b <> 0, c<> 0 allora una condizione di and.

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e Regular Expression...

Perl, Java, .Net ma....
esistono in pascal? E' possibile implementare una regular expression?
:)
--
=Omega============
Hands On
==================

 esistono in pascal? E' possibile implementare una regular expression?
Vedi se queste vanno bene, le ho trovate adesso con due colpi di google:
ftp://ftp.freepascal.org/pub/fpc/dist/Source/short/uregsrc.zip
Comunque dai un'occhiata a 
http://www.freepascal.org
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG Public Key 
http://greedyfly.linkspirit.org/michele.asc

Newsgroup: it.comp.lang.pascal
Titolo: stampare schedine superenalotto e totosei

grazie Fabio per aver risolto un po' il mio dubbio, ma dovrei stampare in 
serie, quasi come uno di quei programmi (semi)professionali che si trovano 
in giro... hai qualcos'altro in merito da consigliarmi?
   Luigi.
--
Posted from [212.78.3.4]
via Mailgate.ORG Server - 
http://www.mailgate.org


Ma cosa intendi per "stampare schedine in modalita' grafica"?
Il mio precedente intervento era su come poter stampare l'intero
video, ma se il tuo intento e' solo quello di compilare una schedina
con la stampante non capisco cosa centra la modalita' grafica. Basta
che tu stampi qualche asterisco al posto giusto ed il gioco e' fatto.
Fabio
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Scusate la mia ignoranza





Cosa devo mettere nel campo SERVER NEWS, quando mi 
creo l'account per leggere le news????


 


grazie mille


 


---gabo---


 



 ha scritto nel messaggio
news:OE32Sm3olwRhD...@hotmail.com...


 Es.: 
news.libero.it
,   
news.inwind.it
 , 
news.interfree.it
 etc...
Dipende anche dalla connessione, se ad esempio ci si collega con inwind
si dovrà mettere 
news.inwind.it
 perché non riuscirrebbe a scaricare le
news impostando il server di libero o di interfree o uno diverso dalla
connessione.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

Newsgroup: it.comp.lang.pascal
Titolo: comunicare con le porte

Ciao,
Vorrei sapere come si fa a spedire e ricevere dati dalle porte parallele e
seriali.
grazie 
Massimo
     ######################################################################
     #                                                                    #
     #   In a world without wall and fences who need windows and Gates    #
     #                                                                    #
     ######################################################################

 seriali.
 
http://start.at/tp-links
"serial"
:-) Ciao, Franz Glaser, Austria
Newsgroup: it.comp.lang.pascal
Titolo: ...---... Urgente per ricorsione Pascal

Salve ragazzi, ho un serio problema:
ho inavvertitamente perso i miei appunti sulla ricorsione in pascal :-((
Fortunatamente sono riuscito a rifarmeli quasi tutti :-)
Sfortunatamente non riesco a fare una funzione che dato in ingresso una
lista mi restituisca la stessa lista ma invertita :'-(
Qualcuno di voi sa come si fa??????
Gradirei risopsta in E-mail!
CIAO A TUTTI!!!
____________________
mailto: 
wto...@tin.it
Che la forza sia con voi!!

Ricorsiva!?
Ma... vediamo:
type PNodo=^Nodo
       Nodo=record
        obj:pointer;
        next:PNodo;
       end;
       lista=object
         primo:PNodo;
         procedure WriteNodo(PNodo);
        public
         constructor Init e palle varie...
         procedure ScriviInv;
      end;
procedure Lista.WriteNodo;
begin
 if PNodo.next<>NILL then WriteNodo(PNodo.next);
 writeln(PNodo.obj);
end;
procedure Lista.Write;
begin
 WriteNodo(primo);
end;
non mi sembra nulla di speciale... ma dovrebbe andare :)
(obj è dichhiarato pointer... logicamente metti quello che ti serve!!) :-)
--
Emanuele Cesena
d.a.m...@iol.it
su...@geocities.com
ICQ n° #10570672
http://www.geocities.com/SiliconValley/Grid/8879
stesso sito (linkato) su 
http://users.iol.it/d.a.mirani
"Il proiettile in arrivo ha diritto di precedenza"

Qualcuno di voi sa come si fa??????
La soluzione č la seguente :
uses crt;
type p_nodo = ^nodo;
     nodo = record
              a : byte;
              prossimo_nodo : p_nodo;
            end;
var testa : p_nodo;
    i : byte;
procedure aggiungi(var testa_lista : p_nodo; n : byte);
var t, c : p_nodo;
begin
  new(t);
  t^.a := n;
  t^.prossimo_nodo := NIL;
  if (testa_lista = NIL) then
    testa_lista := t
  else
  begin
    c := testa_lista;
    while (c^.prossimo_nodo <> NIL) do
       c := c^.prossimo_nodo;
    c^.prossimo_nodo := t;
  end;
end;
procedure scrivi_lista(p : p_nodo);
begin
  while (p <> NIL) do
  begin
    write(p^.a, ' -> ');
    p := p^.prossimo_nodo;
  end;
  writeln('NIL');
end;
procedure esegui_inversione(var testa_lista : p_nodo);
var t : p_nodo;
function inverti(n : p_nodo) : p_nodo;
var p : p_nodo;
begin
  if (n^.prossimo_nodo <> NIL) then
  begin
    p  := inverti(n^.prossimo_nodo);
    p^.prossimo_nodo := n;
  end else testa_lista := n;
  inverti := n;
end;
begin
  t := inverti(testa_lista);
  t^.prossimo_nodo := NIL;
end;
begin
  randomize;
  clrscr;
  testa := NIL;
  for i := 1 to 10 do
    aggiungi(testa, random(100));
  scrivi_lista(testa);  { prima dell'inversione }
  esegui_inversione(testa);
  scrivi_lista(testa); { dopo l'inversione }
end.
Andrew Cleverland
-----------------
Disse il saggio "Avěta parč bbell sop 'o marm !"...
Newsgroup: it.comp.lang.pascal
Titolo: TP7 e WinOSR2


#
Assolutamente nessun problema con OSR2, anzi e' molto piu' stabile dei
precedenti (e chi te l'ha detta la baggianata che da' dei problemi?
:-)). 
L'unica caratteristica che i meno esperti trovano "un difetto" di osr2
e' che normalmente non sfrutta la memoria alta, allora le soluzioni
sono:
(1) non caricare i driver per le periferiche in modalita' reale per
non cosumare mem. convenzionale, e si ottengono anche prestazioni
migliori. Pero' andando in modalita' ms-dos le periferiche non
funzionano, quindi e' necessario un multiconfig al boot Win OSR2/Dos 7
(io faccio cosi')
(2) arrangiarsi a caricare i driver in memoria alta "manualmente",
impostando i vari DEVICEHIGH e LH
(3) scaricare memmaker (non fornito con osr2) al sito microsoft
(4) utilizzare programmi che succhiano poca convenzionale (come bp7)
Per il FreeAgent, io utilizzo la v.1.1 32bit, non so se esiste la 1.11
Mi fermo qui perche' credo di essere OT.
Scrivimi per ulteriori delucidazioni
Ciao,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/
(Programmazione in Pascal)
** Concentrazione = Forza **

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e win 98 (o p2)

Il problema sta nel PII e, limitato alla libreria CRT, prova a togliere
Uses Crt       e tutti i collegamenti alla libreria(clrscr,gotoxy....) e
vedrai che il programma funziona.
Se vuoi usare le CRT non devi fare altro che andare sul sito:
http://digitezine.cjb.net
e cercare la sezione relativa al TP dove trovi una patch da inserire nel tuo
TP7
Saluti
Guido Revello

Allora sono nuovo ddi questo News Gruop e non vorrei fare domande
banali ma ho veramente bisogno di aiuto.
Io ho un p2 350 con installato win 98 e ogni volta che cerco ddi
caricare i miei miseri programmini in Pascal (sono ancora agli inizi,
scusatemi) mi dice error 200 division by 0. 
Aggiungo che sono sicuro di non effettuare alcuna divisione per zero
in quanto il programma che cerco di caricare non fa altro che
assegnare ad un record di stringhe un valore.
Se nel caso mi sbaglassi e questa operazione comportasse (magari a
livello assembly) una divisione per 0 vi devo dire che anche quando ho
cercato di sommare due numeri  (niente di più) il risultato è stato lo
stesso. 
Ultima domanda: è possibile che il responsabile di tutto sia win 98 e
che, pur avendo una partizione PRIMARIA che carico con disco di avvio
di win95 (come sempre fatto) per usare il TP, incasina tutto perchè
vuole controllare tutto lui?

 vuole controllare tutto lui?
Not Win98, but the speed of the P2-350:
http://www.geocities.com/SiliconValley/2926/tpf.html
page "patches"
:-) Franz Glaser, Austria
Newsgroup: it.comp.lang.pascal
Titolo: Studente help

Mi sapete dire come leggere contemporaneamente due dai dalla tastiera?

Mi sapete dire come leggere contemporaneamente due dai dalla tastiera?
che cosa ?
*** Remove NOSPAM before reply ***

...


 preso dalla stessa tastiera.
Io non so se ho capito bene il problema ma prova a fare cosi':
aggancia l'int 9 (impossessatene completamente, senza richiamare il
vecchio int) e gestisci tu stesso i tasti memorizzando ad ogni
interruzione quali sono quelli premuti e quelli rilasciati. Credo che
debba funzionare ma la soluzione e' solo teorica in quanto non ho mai
avuto una simile necessita'.
Spero di esserti stato di aiuto.
Ciao
  Roberto
P.S.: ti rispondo anche da parte di Andrea: "Io ho scritto diversi
programmi che muovono due macchinine tipo polistil e non ho avuto
problemi utilizzando la tastiera."


ritardo 2 ore e 34 minuti :
Forse non è la soluzione migliore, ma hai preovato a mettere due
readkey uno dopo l'altro?
:-)devo muovere due macchinine tipo polistil via software e l'ingresso viene
:-)preso dalla stessa tastiera.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
ATTENZIONE! Rimuovere "
riccar...@iol.it
"
dall'indirizzo email
Saluti by Riccardo
e-mail : 
riccar...@iol.it

Newsgroup: it.comp.lang.pascal
Titolo: generazione numeri casuali

Salve a tutti
avrei bisogno di conoscere più dettagli possibile sulla generazione di
numeri casuali tramite TurboPascal, da quale comando inserire a quanto sono
realmente random i numeri ottenibili in TP. Inoltre vi sarei grato se mi
poteste indicare dove trovare documentazione in merito (ho provato su un
testo universitario -Demichelis, Piccolo- senza successo)
Grazie

 wrote in message
Ss8%4.114682$VM3.8...@news.infostrada.it...



Esegui la procedure Randomize all'avvio del tuo programma, quindi:
x := Random(Estremo)
per ottenere un numero x pseudo casuale nell'intervallo [0, Estremo), cioe'
0 <= x < Estremo.
Es.:
var
    l: word;
begin
    Randomize;
    for l:=1 to 10 do
        WriteLn(l, ') : ', Random(100));
end.
Comunque trovi un esempio analogo sull'help online.
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)
==============================

 - rimuovi XXX x rispondere    ICQ #8814554
Il tempo e' il modo che ha la natura per assicurarsi che ogni cosa non
avvenga piu' di una volta.

Newsgroup: it.comp.lang.pascal
Titolo: liste a puntatori

Come posso fare una lista a puntatori del tipo First In First Out? E come
posso aggiungere un elemento mantenendo l'ordine... e cancellare un
elemento? Grazie per i vostri utili consigli, ciao.

 ha scritto nel messaggio
news:2Q0%5.2641$ag5.1...@twister1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: aiuto!!!!!!!

Ciao a tutti!
Devo fare la somma di "n" dati in questo modo.Vi faccio un esempio:
Supponiamo di avere come dati :  2 , 4 , 6, 8
A questo punto per i:=1 la somma è 2
                        per i:=2 la somma è 2+4
                        per i:=3 la somma è 2+4+6
                        per i:=4 la somma è 2+4+6+8
Non so se mi sono spiegato bene comunque alla fine devo avere un vettore che
si presente in questo modo:
2
6
12
20
Come si fa questo in pascal
Grazie.

 Grazie.
Esattamente nel modo in cui ti e' gia' stato suggerito. Hai gia' posto la
domanda, e ti e' gia' stata data risposta. Cerchero' di specificare meglio,
supponendo tu sia uno studente e questo sia un compito a casa che non sai
svolgere.
Per mettere i risultati in un array devi solo usare un altro ciclo for,
magari nel corpo del programma principale, che riempia l'array con le somme
parziali.
program somma_array(input, output);
var i: integer;
      a: vettore;
      b: vettore;
begin
   a[1] := 2;
   a[2] := 4;
   a[3] := 6;
   a[4] := 8;
   for i := 1 to 4 do
      b[i] := somma_n(a, i);
    <resto del programma>
end.
Non sono sicuro della sintassi, ma la logica dovrebbe essere questa.

 ha scritto nel messaggio
news:UGnK9.10758$TC5.3...@twister1.libero.it...


 ha scritto nel messaggio
news:atd1mt$5dn$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.pascal
Titolo: Passaggio di array nei parametri

Salve, vi scrivo perchè ho un dubbio!!
Studiando sui libri, ho letto che , per passare un array in una procedura,
occorre mettere
trai parametri formali la scritta : ( nome-variabile: array[1..n] of
tipo-variabile ) .. ma provando
ho notato che mi da errore!! girando di qua e di la, alla fine ho provato a
scrivere invece della stringa
sopra, questa: (nome-variabile: array of tipo-variabile ) ed ho notato che
funzionava!! La cosa strana che
mi viene in mente, è che non ho dichiarato la grandezza massima e minima
dell'array, in +, quando uso un contatore per lavorare sull'array,devo
partire da 0 e non da 1, quindi la prima cella sarà array[0]...ora chiedo
a voi, ho fatto bene come ho impostato il parametro formale o c'e qualke
altro modo?? Grazie a tutti
^_][ice][man][_^

 Ho risolto,già ...grazieee :)))


wrote:

La cosa + semplice e definire un tipo
Type
  TArray = Array[Min..Max] of Variabile
Procedure A(A : TArray);
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Newsgroup: it.comp.lang.pascal
Titolo: Dove posso trovare un download di un manuale Borland Pascal 7 ???

	Avrei bisogno di iniziare con il Borland Pascal...ormai il Turbo Pascal non riesce a starmi dietro.
	Chi può aiutarmi fornendomi un sito gratis?
Grazie e CIAO!
madd...@tin.it
--
Posted from [212.216.176.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
01BFC99D...@a-tn9-39.tin.it...
Avrei bisogno di iniziare con il Borland Pascal...ormai il Turbo Pascal non
riesce a starmi dietro.
Chi puņ aiutarmi fornendomi un sito gratis?


Guarda che dopo il Turbo Pascal c'è il Delphi, il Borland Pascal non esiste
Ma non è vero, impara a informarti bene prima di rispondere il BP7
[Borland Pascal 7] esiste [anche se ora non è più in produzione...],
ed ha molte funzionalità in + rispetto al TP , esempio clou la
possibilità di compilare in Protected mode

 
madd...@tin.it
IL borland pascal č un antenato di Delphi, ed č una stupidata metterci le
mani
io l'ho usato a scuola, e tanto vale usare delphi ti assicuro!!
Usa solo l'ambiente windows invece di quello Dos


VADE RETRO SATANA!!!

Newsgroup: it.comp.lang.pascal
Titolo: domanda da niubbo

 Adesso č disponibile la 7.1 del tp.
Come?? Io avevo sempre saputo che l'ultima era la 7.0!!
--
Paolo Giarrusso


Turbo Pascal 7.01 FR : (turbo_pascal_701_fr.zip - 2,3 Mo)
La dernière version francaise de Turbo Pascal 7 pour DOS. Langage
idéal pour les débutants pour apprendre façilement la programmation
structurée. Par contre, si vous cherchez un Pascal pour Windows, c'est
Delphi.
lien: 
http://www.borland.fr/download/compilateurs/
trouvé par PV, le loup-garou :-])
Newsgroup: it.comp.lang.pascal
Titolo: Icona

Ciao a tutti,
     come devo fare a mettere un'icona al file .exe ?
Grazie 1000

 ha scritto nel messaggio
news:Ijdw8.66013$m41.1...@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: un altro aiutino :))

Spero che anche oggi mi possiate aiutare nel comprendere
al meglio questo linguaggio stupendo :)
Se elimino dalla procedura (funzionante) l'assegnazione corr := lis e,
di
conseguenza,  sostituisco a corr il puntatore lis non ottengo + il
risultato voluto.
infatti, invece di inserire al punto x (ad es.) l'elemento, ottengo
come output la lista che
parte dal punto x in poi! insomma la procedura modificata si mangia la
prima parte della lista :(
come mai ?
grazie
claudio.
..................................................
procedure InserisciInListaOrdinata(var lis : TipoLista;elem :
TipoElemLista);
var paux, corr : TipoLista; trovato : boolean;
begin
 (*creazione del record generatore*)
 new(paux);
 paux^.next := lis;
 lis := paux;
 trovato := false;
 corr := lis;                (* <== *)
 while (corr^.next <> NIL) and (not trovato) do
  if (not MinoreElemento(corr^.next^.info,elem)) then
   begin
    trovato := true;
    new(paux);
    paux^.info := elem;
    paux^.next := corr^.next;
    corr^.next := paux;
   end
   else corr := corr^.next;
  (*eliminazione del record generatore*)
  paux := lis;
  lis := paux^.next;
  dispose(paux);
end;        (*InserisciInListaOrdinata*)

 TipoElemLista);
Altro magia del var...
Hai passato il puntatore per riferimento ossia hai detto alla procedura
qual'è l'aria di memoria in cui e contenuto il puntatore lis, questo
significa che la procedura si riferisce a lis non usando una copia ma
direttamente "lis"
per capire meglio prova a far girare queste due procedure e vedi il
risultato :
program PunoEpDue;
uses crt;
procedure Puno(l : integer);
begin
    l:=100;
end;
procedure Pdue(VAR l : integer);
begin
    l:=10000;
end;
var i : integer;
begin
    i:=0;
   writeln('Prima di Puno :',i);
   Puno(i);
   writeln('Dopo Puno :',i);
   writeln('Prima di Pdue :',i);
   Pdue(i);
   writeln('Dopo Pdue :',i);
end.
Ciao ReDiCuori
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Ricerca nel vettore

Salve ragazzi, ho un problema, devo fare un programma in Pascal che secondo
10 numeri
inseriti dentro un vettore, si richieda l'inserimento successivo di un
numero qualsiasi, e venga ricercato tale numero nel vettore precedentemente
riempito, se il numero è presente mi deve ritornare l'indice del vettore,
dove è presente il numero, altrimenti mi deve ritornare il numero. Come
sarebbe l'algoritmo per ricercare questo numero dentro il vettore?
Un grazie a chi mi aiuterà
--
Ammanicato del sistema!!!
ICQ # 84624356

var c:integer;
      vettore:array[1..10] of integer;
      NumInserito:integer                {É il numero ke inserisci dopo}
for c=1 to 10
  if vettore[c] = NumInserito then
      writeln ('Il numero č gia inserito alla posizione ', c)
  end
Newsgroup: it.comp.lang.pascal
Titolo: Hei Razziatore era solo uno scherzo

sono emiliano pisu della 5i1 della tua scuola e stavo solo scherzando avrei
voluto vedere la tua faccia!!!!!!!!!!!!!!!!!!
Saluti PK Emiliano

 wrote in message
8puknv$dt8$1...@fe2.cs.interbusiness.it...


 toglimi una curiosità: 5 info 1 di dove??
ITIS G. Armellini di Roma
--------------------------------------------------
 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
--------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Esecuzione file .exe

Salve a tutti, spero possiate aiutarmi. Devo far eseguire un file .exe in
pascal, mi spiego meglio. Ho fatto un prog in VB6 ma senza le librerie,
sotto win98, non funziona. Mi serviva quindi di sapere se il prog in vb era
gia stato eseguito almeno 1 volta oppure se era necessario installare le
VBrun.Per far cio avevo pensato di,nel caso in cui non ci fossero le VBrun,
di creare un file (es: .txt) all'interno di windows e poi di eseguire
l'installazione delle VBrun. Ma che, nel caso in cui le VBrun fossero gia
installate (cosa possibile verificando se il file .txt era stato gia copiato
dentro Windows) e quindi eseguire solo il programma in VB. Non so se sono
stato chiaro (non penso) però spero almeno che possiate aiutarmi. Grazie

 ha scritto nel messaggio
news:sR6H9.53767$2B1.1...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Stampare in DOS sotto Windows ME

Salve a tutti,
se non è OT, come posso stampare su una Canon BJ..5100 da un programma che è
scritto in Pascal è funziona sotto DOS che mando in esecuzione da Windows?
Infatti non ho nessun errore ma non stampa: occorrono dei driver specifici?
Grazie,
ciao.


Se vuoi stampare il testo del programma da dos puoi fare in questo modo:
avvia turbo pascal, e seleziona la voce dos shell dal menů file.
Una volta entrato nel dos scrivi questo (il file deve essere nella cartella
"bin" di turbo pascal):
type nomefile.pas>prn
questo comando avvia la stampa del testo del file da dos (digita "exit" per
tornare nel turbo pascal).
Altrimenti puoi aprire i file *.pas col blocco note e stampare il contenuto
direttamente da li.
Se invece vuoi stampare qualcosa col programma che hai scritto non so cosa
dirti .....
Spero di esserti stato d'aiuto
e-mail: 
fri...@katamail.com

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

Qualcuno sa se e' possibile creare socket con il freepascal? se si in che modo?
grazie, ciao

 che modo?
Con la unit Socket. Leggi la documentazione, contiene anche degli
esempi.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG: 
http://xoomer.virgilio.it/greedyfly/directory/michele.asc
Newsgroup: it.comp.lang.pascal
Titolo: file TPH

E' possibile convertire in file di testo (doc,rtf....) ?
Grazie e saluti
Paolo
pmi...@tin.it

ops... scusa.. il mex era passato in sordina...
non so' se esitano tool appositi (prova a cercare +tph +converter)
e cosi' direttamente penso di no... una soluzione potrebbe essere
aprirli con un prog pascal che utilizzi le TVision (se il formato e'
lo stesso... ma direi di si) e stamparli/ metterli in file .txt...
E' un po' sbattimento... io cercherei qlcs di gia' fatto... o un altro
manuale di pascal :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Poblemi Pascal 7.0 su P II / Win 98

Eseguendo un file .EXE dal prompt del DOS di Win 98 su un Pentium II, creato
con la versione 7.0 di Borland Pascal in modalitą Real su un 486 in DOS, il
programma termina istantaneamente con un Run-time Error 200 (divisione per
zero): questo succede se il programma contiene un'istruzione "uses".
Lo stesso problema accade quando si esegue il corrispondente .PAS
dall'interno dell'editor di Borland: viene compilato con successo, ma quando
viene eseguito genera l'errore 200 sull'istruzione "begin" del programma
principale, punto in cui il programma richiama le unit esterne indicate in
"uses" per l'inizializzazione.
N.B.: questo problema non si verifica su un Pentium con Windows 95.
Quale puņ essere la causa di questo problema? Errore nell'installazione
(manca qualche .DLL nella directory Windows), incompatibilitą con Windows
98, incompatibilitą con Pentium II? Come posso risolverlo?
Grazie.
z...@technologist.com

E' un bug del Tp 7. Cerca su Altavista la Faq del turbo pascal. C'è
scritto come correggerlo ;)
Ciao
=====================================================
Il Ciabo aka Fabulous Fabiuz
XXXparri...@usa.net
Remove the XXX's to write me back !!!
No-Tut. Telecom, basta rubare !!! 
http://notut.ml.org
=====================================================

Newsgroup: it.comp.lang.pascal
Titolo: HELP- how do i make EXE from irie pascal program??

HELP- how do i make EXE from irie pascal program??
Hi, I wrote a pascal program in irie pascal adn now i  need to make it into
an .EXE file so i t will run by itlsef, how do i do this???

 ha scritto nel messaggio
news:t60saun...@corp.supernews.com...


 HELP- how do i make EXE from irie pascal program??
Sent via Deja.com
http://www.deja.com/
Newsgroup: it.comp.lang.pascal
Titolo: Come fare un TSR

Come faccio a fare un programma TSR con il TurboPascal?
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
ATTENZIONE! Rimuovere "
riccar...@iol.it
"
dall'indirizzo email
Saluti by Riccardo
e-mail : 
riccar...@iol.it

 Come faccio a fare un programma TSR con il TurboPascal?
Guarda l'help del comando Keep e copiati il programma di esempio.
Ciao
  Roberto.

e-mail : 
riccar...@iol.it
Scusa la stupida curiositą: ma se rimuovo "
riccar...@iol.it
"
dall'indirizzo e-mail, come faccio a mandarti un messaggio???
Ciao,
Mauro Molinari
(Pascal programmer & musician)
Internet e-mail: 
maur...@tin.it
 / 
maur...@mbox.vol.it
Digital Things Home Page: 
=> 
http://space.tin.it/musica/gvettora
=> 
http://www.geocities.com/SiliconValley/Bay/8251
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://www.musicnation.com/home/digital_things
*** To send me an e-mail, select the right address.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto.
Newsgroup: it.comp.lang.pascal
Titolo: studente HELP! procedura per il coseno

mi potreste scrivere una procedura che mi calcoli il
cos(x).
grazie
dreamer...@bigfoot.com

  ha scritto :
:-)cos(x).
Y= cos (X)
N.B.
Ricorda che X deve essere indicato in ragianti e non in gradi
sessagesimali
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
ATTENZIONE! Rimuovere "
riccar...@iol.it
"
dall'indirizzo email
Saluti by Riccardo
e-mail : 
riccar...@iol.it

cos(x).
Ciao,
scusa il ritardo nella risposta...
Dunque, per il coseno vale la regola
cos(x) = sommatoria per n da 1 a infinito di (-1)^n*(x^(2*n)/((2n)!))
per cui :
mycos(x) := 1-exp(2*ln(x))/2+exp(4*ln(x))/24-exp(6*ln(x))/120+....
Devi riuscire ad implementare un buon grado di precisione nel calcolo.
 
 
 
---------------------
       Andrea      
---------------------

andrea_...@bigfoot.com
 (Andrea Laforgia), il giorno Wed, 28 Jan
1998 14:34:46 GMT hai scritto:
#>mi potreste scrivere una procedura che mi calcoli il
#>cos(x).
#
#Ciao,
#scusa il ritardo nella risposta...
#Dunque, per il coseno vale la regola
#
#cos(x) = sommatoria per n da 1 a infinito di (-1)^n*(x^(2*n)/((2n)!))
#
...
Ciao a tutti,
scusa Andrea se ti riprendo :-), forse non ho capito bene il problema
dello "studente" (ho perso il msg originale), ma nel mio pascal c'e'
la funzione Cos(X:Real): Real
Bye ;-)
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/

la funzione Cos(X:Real): Real
Esatto, ma lui ha chiesto una procedura per il "calcolo" del coseno e
ho pensato bene di dirgli qual e' il procedimento usato per calcolare
la funzione.
D'altronde credo che anche lui si sia reso conto dell'esistenza della
funzione coseno nel pascal, ma e' probabile che stia cercando il
meccanismo che ci sta dietro :-)
Ciao Remo !!!!
--------------------------------------------------------
Andrea      
mica uno qualunque...
--------------------------------------------------------

Premetto che non so fare gli integrali, comunque un modo "semplice" per
calcolare il coseno è:
cos(x) = 1 - x + x^2/2 - x^3/3! + x^4/4! - x^5/5! ...
Emanuele Cesena
gma...@tin.it

Newsgroup: it.comp.lang.pascal
Titolo: Borland Delphi 3 : HELP !!!!!!!!!!1

vorrei sapere dove posso trovare la guida in Italiano del    Borland
Delphi 3  o superiori .
vorrei sapere anche come posso fare per aprire una Form cliccando
semplicemente su un bottone .
grazie 
Gallů
mauro.g...@tin.it

 
mauro.g...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: Controlli...

Ciao a tutti...
Qualcuno saprebbe dirmi come fare un controllo su una variabile intera, nel
caso in cui si inserisca una lettera (visto che va in run tim error)?
Mi spiego meglio...
Ad esempio per un'applicazione del genere...
Writeln('Inserire dimensione: ');
Readln(n);
Semplicemente...come faccio a controllare che venga inserito un numero??
Grazie!!


dichiara due variabili di tipo integer (n,i) e due di tipo string (s,p);
var
  n,i:integer;
  s,p:string;
write('inserire il numero:');
readln(s);
n:=0;
p:='';
for i:=1 to length(s) do
  if (s[i] in ['0'..'9']) then
  begin
    n:=n*10+(ord(s[i]-48));
    p:=p+s[i];
  end;
if s=p then {il numero č corretto}
else {il numero č errato}
Non l'ho provato ma dovrebbe andare.
Molto probabilmente esistono soluzioni piů veloci ma questa č la prima che
mi č venuta (e non l'ho nemmeno provato).
Ciao

 ha scritto nel messaggio
news:gbFS9.91107$Ou4.2...@twister2.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: giovane programmatore HELP

Ciao a tutti, sono Alberto e scrivo da Verona.
A scuola mi insegnano il pascal ma il mio 
professore non se ne intende molto.
Mi spedireste un paio di programmi 
ben fatti da poter imparare?
Grazie.





Ciao Alberto. Qualche domanda:
Che scuola fai?
Che tipo di programmi cerchi?
A che livello sei con il Pascal?
Purtroppo ho avuto anch'io questo problema. Se vuoi una mano, manda
pure una mail: sarò felice di aiutarti.
Bye Bye!!!
Alessandro Bondi
Studente di ITIS Informatica
u.b...@ra.nettuno.it
Newsgroup: it.comp.lang.pascal
Titolo: algoritmo per ottenere le cominazioni di n lettere

algoritmo per ottenere le cominazioni di n lettere
ho un piccolo problema: dati 'n' lettere devo ottenere tutte le possibile
combinazioni tra le varie lettere
ESEMPIO:
le lettere sono A,B,C,D
le comobinazioni sono :
A
AB
AC
AD
BA
BC
BD.....
So che è possibile evitare di scrivere tutte le combinazioni a manina, ma
non riesco a realizzarlo....se qualcuno riuscisse a darmi una mano...gliene
sarei molto grato
Ciao,
    Alberto


N è un paramentro in ingresso?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

usando dei cicli for o delle ricorsive dovresti ottenere ciň ke vuoi...
penso ancora un attimo, ti butto giů due righe e poi ti faccio sapere...

Non  ne sono sicuro al 100% ma questo programma dovrebbe funzionare.
program Permutazioni;
uses crt;
var lista : string;
  i,z : integer;
      count : longint;
procedure permuta(a,z,elementi:integer);
      procedure scambia(var a,b:char);
      var t:char;
      begin
        t:=a;
        a:=b;
        b:=t;
      end;
var scambio:char;
  k:integer;
  i:integer;
{*******************************MAIN
PROCEDURE*******************************}
begin
 if ((z-a)>=1) then
  begin
    k := z;
    while (k>=a) do
    begin
     scambia(lista[k],lista[z]);
      permuta(a,z-1,elementi);
        scambia(lista[k],lista[z]);
     dec(k);
    end;
  end
 else
  begin
      inc(count);
      writeln(count:4,': ',lista);
      if ((count mod 24)=0) then readkey;
  end;
end;
{********************************MAIN
PROGRAM********************************}
begin
   clrscr;
   write('Inserisci la parola: ');
   readln(lista);
   count:=0;
 permuta(1,length(lista),length(lista));
   readln;
end.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

 BD.....
nisba.. sono le permutazioni cosě come le hai scritte..
almeno mi sembra.. no?
Ciauz
Cereal

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

Rischiesta veloce veloce...
qualcuno di voi può inviarmi il turbo pascal?o il c++?o visual basic?
grazie


eh?? Vabbè per turbo Pascal
http://byoge.tripod.com/turbo.htm
Sono tre file ZIP. Scaricali. i primi due sono i files di installazione
di turbo pascal 7, il terzo la guida (in inglese).
Poi per il resto.. C++ (visual o builder che sia) e Visual Basic costano
parecchio sai? è quello che costa occupa spazio ;-)
Niente da fare, non si inviano cd per e-mail..
Comunque so che in internet trovi versioni "anzianotte" di vb, tipo la 2 o
la 3. Attualmente siamo alla .Net (la 7a)
ma anche la 6 ti va bene...
Ma però.. perchè uno deve comprarseli e poi un altro va e copia tutto? ;-)
va mica bene però...
ps: magari trovi Turbo c++ in rete.. ma indirizzi non so niente..

> ma anche la 6 ti va bene...
ma questa non credo che la trovi in rete.. magari in qualche sito ftp
ma per scaricare 650 mb credo che dovresti fare un upload gigantesco,
e quindi o hai Adsl o più in alto (la mitiche fibre ottiche) o nisba..
nada..
niente da fa..
bye Augustus

Prova su Kazaa
NM

Newsgroup: it.comp.lang.pascal
Titolo: Diversi tipi di sorting

Qualcuno saprebbe indicarmi dove posso trovare informazioni riguardanti
diversi tipi di sorting?
Mi interessa soprattutto quello che viene denominato "Shell-Sort"...
Se poteste darmi una mano ne sarei grato,
grazie
ciao a tutti
Dolfiz
ICQ# 14620282
ps: se mi rispondete in e-mail ne sarei felicissimo :)

Se poteste darmi una mano ne sarei grato,
Hai provato a guardare fra gli esempi forniti con il JDK, c'e' una
applet che realizza proprio degli ordinamenti per confrontarli con tanto
di animazione, non mi ricordo se c'e' anche lo shell-sort.
-- 
       _--~~--_
     /~/_|  |_\~\
    |____________|                   
    |[][][][][][]|:=  .               
  __| __         |__ \  ' .          
 |  ||. |   ==   |  |  \    ' .     
(|  ||__|   ==   |  |)   \      'O
 |  |[] []  ==   |  |      \    /|\ 	Han Solo
 |  |____________|  |        \   |      ICQ 62548838
 /__\            /__\          \/ \
  ~~              ~~

 di animazione, non mi ricordo se c'e' anche lo shell-sort.
in quegli esempi c'è il quick-sort e due versioni di bubble-sort, una delle
quali è "bidirezionale". non mi sembra ci sia lo shell-sort.
Daniele

ps: se mi rispondete in e-mail ne sarei felicissimo :)
Ci sono molti libri che trattano di vari algoritmi tra cui
"ALgorithms" e "The art of computer programming volume 2: sorting & searching "
questi sono in inglese ed il secondo è un pò incasinato, ma lo shellsort è
descrito abbastanza bene in entramvi, se ti interessa ti posso inviare delle
dispense sugli algorimi di ordinamento tra i qualisi trova appunto lo shellsort.
P.S. che te ne fai dello shellsort??? io lo odio, molto meglio l'algoritmo di
Hollerit o l'heapsort