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


Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 turbo pascal?
Dai un'occhiata a questo
http://community.borland.com/article/0,1410,20803,00.html
Ciao
 Max

 --
sito in firma, trovi quelli borland
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

sito in firma, trovi quelli borland
Fai un favore a tutti togli il TPFW, 
che tra parentesi e compreso nel BP


 che tra parentesi e compreso nel BP
no, il favore non te lo faccio, se ti da fastidio, non e' detto che ad altri
faccia lo stesso effetto. e poi non e' compresop nel bp. in questo trovi il
BPW, cioe' il borland pascal per windows, versione 7. il tpw 1.5, cioe turbo
pascal for windows, e' diverso da bp (o bpw), in quanto serve solmanete per
compilare programmi windows, non permette la scelta dei tre diversi target
(possibile invece nel bp 7).


(possibile invece nel bp 7).
Tra BPW e TPW c'è la stessa differenza che c'è tra BP e TP...
Vero il BP permette di compilare per windows, e BPW permette di
compilare per Dos, ma questo è un altro discorso il Target di defout è
Dos reale per uno e Windows per l'altro...
L'unica cosa che conta è una sola: il target per windows è una presa
in giro. Se uno vuole fare un applicazione per windows conviene usare
Delphi che oltre ad essere a 32 bit ha le VCL che sono mooooooooooolto
+ semplici da usare che le TurboVison.
Io ho installato Borlad Pascal with object 7.0 ma non mi sognerei mai
di scrivere un programma windows li dentro... io uso il BP per
scrivere programmi dos e nulla di +, Se devo scrivere un programma per
Windows uso Delphi... Tu hai scritto un programma in delphi che fa
l'agenda? ok... ora scrivi lo stesso programma in TPFW e qundo dico lo
stesso intendo dire con le stesse finestre i stessi dialog ecc forse
capirai quello ke dico...


 capirai quello ke dico...
tranquillo, capisco quello che dici, e non ci penso nemmeno a scrivere
un'applciazione stile win col tpw, figurati, impararmi tutto
l'objectwindows...


Newsgroup: it.comp.lang.pascal
Titolo: Manuale Pascal

Sto cercando un manuale,che parta da zero e arrivi a livelli avanzati, di
Pascal da scaricare.
Grazie
--
----------------------------------------------------------------------
Giuseppe Lupo
Palermo
www.giuseppelupo.com
http://members.xoom.it/glupo
http://members.xoom.it/dynamic_duo
#UIN ICQ 98374451
-----------------------------------------------------------------------
My soul is painted like the wings of butterflies
Fairy tales of yesterday will grow but never die
I can fly my friends
------------------------------------------------------------------------
Per rispondermi in e-mail togliere NOSPAM dal mio indirizzo
------------------------------------------------------------------------

 Grazie
Guarda i post precedenti! o_O
Salvo
Newsgroup: it.comp.lang.pascal
Titolo: OT: cambiare nome ????

1)  come faccio a cambiare il mio nome nella casella "inviato da:" ?
2) come faccio a usare un altro account x il newsgroup?

Grazie mi ero stufato di girare con il nome di mia mamma!
vediamo se va...

Newsgroup: it.comp.lang.pascal
Titolo: BWCC.DLL

ftp sites.
Potete trovare BWCC.DLL su uno dei dischi di installazione (di Win),
così come su molti siti ftp. 
esempio: For BWCC.DLL, ftp to 
winftp.cica.indiana.edu
 and get
pub/pc/borland/c/gen/bwcc.zip
OK?
PV


Infatti: BWCC = Borland Windows Custom Controls

Newsgroup: it.comp.lang.pascal
Titolo: Pascal per windows

Salve a tutti.
In un testo didattico "Dal Pascal alla multimedialità" ed. Paravia ho visto 
delle schermate di un non meglio identificato "Turbo Pascal per windows" il 
cui avvio avviene da una directory chiamata c:/TPW...
Ho sempre conosciuto ed utilizzato la versione 7 del TP, ma questa non 
l'avevo mai vista.
Qualcuno sa qual è questa versione e dove si potrebbe scaricare??
Grazie Sergio 

E' contenuto nella versione 7 del TP.
Comunque per testare prova Lazarus (
www.lazarus.freepascal.org
)

 ha scritto nel messaggio 
news:45ee88b7$0$37196$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: [OT] Specifiche files (mp3, bmp, gif, jpg ...)

 Ciao, Francesco
Per quanto riguarda gli MP3 prova a vedere le pecifiche dell'HEADER dei file
MPEG sul mio sito: 
http://web.tiscalinet.it/Airex
.
Airex



 wrote in message
jbzB0Eh#$GA....@news1.galactica.it...


c'è un link su GPI 
http://www.gpi.infomedia.it/
--
Gna...@Wappi.com
ICQ# 76488613
http://gnaffy.tripod.com/

Newsgroup: it.comp.lang.pascal
Titolo: è possibile disabilitare il tasto Pause?

come da subject
grazie...
--
s...@gem.it
kin...@geocities.com

Uses crt;
...
checkbreak:=false;
...
Ciao
Andrea C

Ho provato ..ma non funziona....
Vengono disabilitati ctrl-break , alt f4 ,.....   , ma non pause...
--
s...@gem.it
kin...@geocities.com

Ho provato ..ma non funziona....
Scusami, sono io che ho risposto con leggerezza!
Penso che si debba intercettare l'i.s.r. della tastiera.
Qualcosa del genere:
-----------------------------------------
var KbdIsr:PROCEDURE;
procedure Keyb; interrupt;
begin
 if port[$60] and $80 = $80 then 
    begin
     asm pushf end;
     If port[$60] <> $45 then KbdIsr;
    end;
end;
begin
 GetIntVec($9,@KbdIsr);
 SetIntVec($9,@Keyb);
 ...
end.
-------------------------
Ciao
Andrea C

end.
Ho provato anche questo ma non va (stavolta non funziona più nessun
tasto)...
Altre Idee?
Grazie !
Ciao
Samuele
s...@gem.it

 Ciao
Bye, Mobius

Newsgroup: it.comp.lang.pascal
Titolo: E' giunto il momento??!!

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

 da un po' (nč qui ne in irc), ma mi hanno segato in IngSW e lo devo

Newsgroup: it.comp.lang.pascal
Titolo: Traduzione blocchi in asm

Ho trovato un programma molto carino fatto in TP7 che sembra fatto in
grafica ma non utilizza nessuna unit di grafica, l'unica unit utilizzata
č la CRT.
Sto cercando di capire come funziona ma il programma contiene dei
blocchi scritti in assembler.
Purtroppo di asm non ne so nulla. Potreste tradurmeli in linguaggio
Pascal, o comunque spiegarmi in maniera semplice e chiara a che cosa
servono e quale funzione svolgono all'interno del programma?
I blocchi sono questi:
1)
procedure SetVga;
begin
  asm
    mov ax, 13h
    int 10h
  end;
end;
2)
procedure ResetVga;
begin
  asm
    mov ax, 03h
    int 10h
  end;
end;
3)
procedure wait; assembler;
asm
  push ax
  push dx
  mov dx, $03da
  @wait:
  in al, dx
  and al, $08
  jz @wait
  pop dx
  pop ax
end;
4)
  asm
    mov ah, $01
    mov ch, $20
    mov cl, $20
    int 10h
  end;
Grazie, ciao!

 
il servizio $01 dell'interrupt 10h serve per settare le dimensioni e il
tipo
di cursore ..ma solo in modalità testo..perciò non so a cosa possa
servire
in un programma che utilizza la grafica.....
----------------------------------------
s...@gem.it
kin...@geocities.com
IRCNet:KiNg[G]hZ »»» #
mp3.it
--
Posted from 
gm4.gem.it
 [195.103.86.10]
via Mailgate.ORG Server - 
http://www.mailgate.org

    int 10h
Imposta le dimensioni del cursore testo...


Ma cosa sono ax,13h,10h,03h,dx,al,$08,$01,$20.....ecc...
Io proprio in questi giorni ho iniziato a studiare un po' di
assembler68000 ,ma i parametri che passo alle istruzioni move,add
ecc.. sono i soliti registri dati (D0-7) e quelli indirizzo (A0-6).
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

 ICQ:     16005054

Newsgroup: it.comp.lang.pascal
Titolo: spazi nelle stringhe

come si fa ad eliminare gli spazi prima e dopo una stringa?
esempio ' ciao ' diventa 'ciao'

{ #32 giusto perche' magari _' '_ non si capiva... }
{spazi iniziali}
 while s[1] = #32 do
   s := copy (s,2,length(s)-1);
{spazi finali}
 while s[length(s)] = #32 do
    s := copy(s,1,length(s)-1);}
oppure, considerando che s[0] contiene la lunghezza
della stringa...
{ spazi iniziali }
while s[1] = #32 do s := copy (s,2,ord(s[0])-1);
{ spazi finali }
while s[ord(s[0])] = #32 do dec(s[0]);
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

grazie mille mi hai salvato
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:ZfMT7.330155$sq5.16...@news.infostrada.it...



   scusa ma se metti : WRITE('CIAO') non dovrebbe comparirti lo spazio !!!
^_][ice][man][_^

 ha scritto nel messaggio
news:9vr4a9$915$1...@nreada.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: Insurance Update

The past year has seen a dramatic reduction in the cost
of term life insurance from many quality companies. 
The San Fransisco Chronicle reported, "Price War Creates
Consumer Bargains in Term Life Insurance," and the New
York Times, "Premiums have fallen to record lows."
You may not be aware that your life insurance company 
could now be charging new policyholders less than you 
are now paying for the same coverage. Your traditional
life insurance agent has access to a small number of
life insurance companies.  Through the internet, you 
can compare rates to every other policy available.
Our free price comparison service gives you access to 
over 550 term policies from over 175 life insurance
companies.  
For a free comparison  please go to: 
http://www.2plan.com/quote.htm

Newsgroup: it.comp.lang.pascal
Titolo: Info per programma....

Avrei bisogno di alcune informazioni riguardanti la programmazione in
pascal:           
-Come si fa a disabilitare una parte della tastiera nel momento della
richiesta di imput con l'istruzione read?
-Qual'è l'istruzione per eseguire un comando DOS?
Grazie per l'aiuto...
Ciao
§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
 ---------------Simone Bollini---------------
 -------------Delphi's Programmer------------
 
 §ideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
--
Automatic posted from 
mail.dex-net.com
 [194.184.44.19]
via Mailgate Server - 
http://www.mailgate.org

-Come si fa a disabilitare una parte della tastiera nel momento della
richiesta di imput con l'istruzione read?
Bel casino. Non c'č un modo semplice; occorre scriversi una propria routine
di input controllato usando ReadKey e KeyPressed contenute nella unit Crt.
Questa routine deve leggere un tasto alla volta ed accettare quelli che si
vuole abilitati.
-Qual'č l'istruzione per eseguire un comando DOS?
Questa č piů facile:
uses Dos
begin
    Exec(GetEnv('COMSPEC', '/c dir /p', '');
end.
Puoi usarla anche per eseguire programmi invece che comandi DOS (in effetti
la GetEnv('COMSPEC') ritorana il nome completo del programma 
COMMAND.COM
).
Es. Exec('C:\BP\BIN\BP.EXE', 'MIOPROG.PAS');
Ciao, Francesco.


Ricorda prima e dopo lo swapvectors (vedi help) :-)
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"Un generatore di numeri casuali non puo' essere scelto a caso", Knuth
Newsgroup: it.comp.lang.pascal
Titolo: Durata Delay..

Come mai sul mio nuovo piccì nel comando delay(x) 
"x" non corrisponde più ai millisecondi della pausa da fare?
Così tutti i programmi che avevo fatto sul vecchio pc sono da modificare...
Non è possibile "correggere" questo "bug" ?


TP6 no...
TP7 Si una certa patch....(guarda una cosa che si chiama FAQ)
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 "x" non corrisponde più ai millisecondi della pausa da fare?
Non è che "per sbaglio" ti venga fuori run-time-error 200?
Se è così, scaricati la path da
http://utenti.tripod.it/Redicuori_77/
Se intendi che prima quando facevi delay(1000) la pausa durava un secondo
mentre ora un decimo di secondo, allora bisognerebbe scriversi una routine
che simulasse una pausa, dato che il delay del turbo pascal non è molto
indipendente dalla velocità del processore.
Ti riporto una unit postata tempo fa da Giuseppe Di Grande:
unit crt;
interface
procedure delay(mls:word);
implementation
var
ritardo : longint;
function systime : longint; assembler;
asm
in al,21h
push ax
mov al,0feh
out 21h,al
push es
mov ax,0040h
mov es,ax
mov di,6ch
xor ax,ax
xor dx,dx
mov bl,es:[di]
@p01:
cmp bl,es:[di]
je @p01
mov bl,es:[di]
@p02:
add ax,1
adc dx,0
cmp dx,0ffffh
je @p03
cmp bl,es:[di]
je @p02
@p03:
mov bx,ax
pop es
pop ax
out 21h,al
mov ax,bx
end;
PROCEDURE delay(MLS : WORD); ASSEMBLER;
asm
push es
mov ax,0040h
mov es,ax
xor di,di
mov bl,es:[di]
mov cx,mls
@p01:
mov ax,word ptr[ritardo]
mov dx,word ptr [ritardo +2]
@p2:
sub ax,1
sbb dx,0
cmp dx,0ffffh
je @p03
cmp bl,es:[di]
je @p02
@03:
loop @p01
pop es
end;
begin
ritardo := systime div 55;
end.
Newsgroup: it.comp.lang.pascal
Titolo: Porta parallela

Salve,
   ieri sera ho provato per a prima volta a collegare un LED alla porta
parallela: sul PIN2 ho saldato una resistenza da 470Ohm, la resistenza sul +
del LED e - sul PIN18.
Per poter pilotare il led ho utilizzato vari linguaggi ma il led rimane
SEMPRE acceso... ora vi incollo il codice che ho usato per pilotare il led:
Program PORTAPARAL;
uses crt;
CONST
     PORTA=$378;
BEGIN
     port[PORTA]:=0;
     repeat until keypressed;
END.
C'č qlcs di sbagliato? puo' essere questione di hardware?
grazie
Ruben



Prova con questo link
http://www.alfa-sistemi.it/downarea.htm
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

eh no...quel programma è per i processori Z80 :\
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:EE67a.324318$AA2.12...@news2.tin.it...



Ehm saranno stati i 38,7°C ....
http://dida.fauser.edu/sistemi/sistem5/pp.htm#Pascal
http://geocities.com/SiliconValley/Lab/8301/index.html
Prova un po queste pagine il secondo link è in inglese e c'è codice C, può
essere che ne ricavi qualcosa


Quando ti interfacci alla porta parallela è sempre bene interporre un buffer
fra la porta e il carico. Anche se nel caso di un solo diodo led non è
strettamente necessario, il pericolo di un corto circuito accidentale c'è
sempre. Se ti si brucia la parallela che è on board sulla mb sono guai! La
regola è utilizzare una porta parallela aggiuntiva così almeno se si guasta
quella la togli ed in generale eviti ulteriori complicazioni al resto del
sistema... Inoltre un buffer ti permette di avere più correntre a
disposizione e di non sovraccaricare la porta che non può fornire + di una
quindicina di mA.
Tornando al tuo problema: non ho capito bene come hai eseguito il
collegamento. Cmq:
1. i pin [18,25] della lpt li devi collegare alla massa del tuo
alimentatore/pila
2. i pin [2,9] sono di output se la porta parallela è SPP o configurata come
tale (si fa dal BIOS). Se è impostata come ECP o EPP la porta diviene
bidirezionale ad allora è necessario scrive sul rigistro di gestione della
lpt se tali pin devono essere di ingresso o di uscita.
3. Se usi Win2K/XP l'accesso diretto alle porte di i/o non è consentito...
Ciao
Newsgroup: it.comp.lang.pascal
Titolo: Errore Div by 0

Secondo voi con l'inizio delle scuole alle porte ci sara la solita
valanga di messagi? oppure possiamo sperare che i prof dicano che
esite il problema e relativa patch?
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 esite il problema e relativa patch?
Scherzi? I prof non dicono mai queste cose e il motivo dipende dalla
categoria:
a. sono prof del biennio, prof che insegnano matematica da _anni_ e che sono
stati obbligati a farsi un minicorso di TurboPascal per insegnarlo a dei
piccoli aspiranti lamer, ed e' gia tanto se sanno usare il capslock.
b. sono prof del triennio, troppo superiori per abbassarsi ad avvertirti, la
loro massima preoccupazione e' avvisarti che XOR AX,AX e' piu' veloce e'
piu' *stiloso* di MOV AX,00h oppure citare Rosseau mentre spiegano come
calcolare l'overshoot con Laplace.
-- 
Qualsiasi
"We all know Linux is great...it does infinite loops in 5 seconds." Torvalds
http://www.gnu.org/philosophy/no-word-attachments.it.html

piu' *stiloso* di MOV AX,00h
E cambiata cosi tanto la scuola superiore da quando sono al
univeristà? Oh my goodspif. Io avevo un ottimo rapporto con il prof di
info... ps lo sapete che li coregevo io i compiti in classe? o meglio
lui mi coregeva il mio ( il solito 9 o 10... ) e poi mi dava i compiti
degli altri e diceva "tieni"... era l'unico momento in cui l'odiavo...
( PS il mio prof di assembler ( ovvero quello di sistemi ) non mi ha
mai detto del esistenza di XOR figuriamoci se diceva delle
scorciatoie. Ho imparato + cose da quando lavoro a ItaLo per ItaliOs
che in 1 anno di Assembler  )


 [...]
Devi aver avuto delle esperienze traumatiche :)
E' verissimo, vi sono professori che sono esattamente
come li hai descritti.
Fortunatamente, pero', vi sono anche professori di
categorie diverse, bravi, preparati, disponibili,
ecc... e li ho trovati al biennio delle superiori,
al triennio successivo, all'universita'.
Senza offesa, ma mi sembrano delle generalizzazioni
proprio stupide le tue. Se poi voleva essere solo
un messaggio scherzoso allora ti chiedo scusa io,
ma ricordati le faccine la prossima volta :)

 ma ricordati le faccine la prossima volta :)
Lo era indubbiamente, ma spesso dimentico smilies&co.


 esite il problema e relativa patch?
Eh eh, io l'anno scorso vi ho chiesto proprio questo... :)

 
scusate se arrivo col treno della ghiaia: ma quale patch?
A che serve? ;))
Newsgroup: it.comp.lang.pascal
Titolo: Troppi controlli I/O fanno male?

'sera.
Secondo voi è un bene o no inserire un controllo di errori in I/O dopo ogni
operazione di accesso/lettura/scrittura di un file?
Attualmente utilizzo questa procedura dopo ogni operazione sopra descritta, ma
non sono sicuro che faccia bene all'esecuzione del programma.
	Procedure CheckIOError;
	var IO_Error : word;
	begin
		if (IOresult <> 0) then	halt(1);
	end;
-- 
See Ya, EndelWar
FIDDer #19, the FAQer
Gestore del Play by E-Mail di Dungeons & Dragons Terza Edizione
Vieni a trovarci su 
www.gioco.net/fantasy/dnd/3ed

end;
Penso che dovresti fare una cosa del genere
disabilitare la gestione degli errori
{$I-}
    comandi di I/O
{$I+}
    if IOResult<>0 then
      writeln('Errore');
Senza la direttiva {$I-} il sistema usa il comportamento di default e
interrompe il programma
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

      writeln('Errore');
Questo trucco lo conoscevo già, e l'ho sempre usato.
Però è meglio attivarlo e disattivarlo (quindi sia $I- che $I+) di continuo o
inserirlo all'inizio del programma e poi dimenticarsene (solo $I- all'inizio)?
-- 
See ya EndelWar
FIDDer #19, the FAQer
Gestore del Play By E-Mail di D&D terza edizione


 inserirlo all'inizio del programma e poi dimenticarsene (solo $I-
all'inizio)?
Meglio attivarlo e disattivarlo


Meglio attivarlo e disattivarlo
Come mai? Quali problemi può portare l'utilizzo del solo {$I-} nel codice del
programma?
-- 
See Ya, EndelWar
FIDDer #19, the FAQer
Gestore del Play by E-Mail di Dungeons & Dragons Terza Edizione


 programma?
Come mai ?
    Beh ! E' una questione di buona programmazione, la direttiva {$I-}
disabilità il check degli errori di
    I/O, ma gli errori si verificano quando fai un I/O perchè tenere
disabilitato questo check quando non devi
    fare operazioni di I/O
Quali problemi può....
    Se non  dimentichi di testare IoResult nessuno, ma se salti un test
allora possono essere dolori, in un
    codice  di 2000 potresti dimenticare un "if IoResult..." ed allora sono
dolori !
Cmq queste mie considerazioni sono teorico/stilistiche utili più ad avere un
codice pulito che funzionante.


Newsgroup: it.comp.lang.pascal
Titolo: emulare pressione tasto

qlc mi puo' dare una mano????? vorrei riuscire a emulare la pressione di un
tasto (es. f4) come fo???

 ha scritto nel messaggio
news:7r1j7.30422$%a4.11...@news.infostrada.it...


no :(
"Alex" <el_co...@TOGLIQUESTOlibero.it> wrote in message
news:znnj7.38364$%a4.14...@news.infostrada.it...


Cosa intendi per "emulare"  ??

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per equazione parabola

Salve,
ho bisogno di scrivere una procedura che mi calcoli i coefficienti a,b e c
dell'equazione generica di una parabola y=a*x^2+b*x+c, conoscendo le
coordinate del vertice e sapendo che la parabola passa per un punto.
Ci ho provato, ma sono arrivato alla conclusione che dovrei scrivere una
procedura per la soluzione di un sistema (cosa per me ancora difficile....)
Qualcuno ha gia' scritto qualcosa di simile? (Credo proprio di si.....)
Grazie a chiunque voglia aiutarmi.

se vuoi io dovrei aver scritto un programma che dati i valori di a,b e c
disegna la parabola...
ciao

...






Grazie a chiunque voglia aiutarmi.
Non si tratta di scrivere una procedura per la soluzione di un
sistema, ma di mettersi con carta e penna e risolvere il sistema e
ricarvarsi le 3 equazioni che ti danno i tre coefficienti in funzione
delle coordinate del vertice e di un punto qualsiasi (non allineato
verticalmente col vertice).
Questa mattima mi ci sono messo e te l'go risolto:
Siano
(X1,Y1) le coordinate del vertice
(X2,Y2) le coordinate di un altro punto
y=a*x^2+b*x+c   l'equanzione della parabola
       (Y2*X1^2)+(Y1*X2^2)-(2*Y1*X1*X2)
c= ---------------------------------------------------
                                 (X1-X2)^2
                 Y1-c
a=  -   ----------------
                X1^2
b= - 2*a*X1
Io l'ho verificata ponendo il vertice nel punto (1,1) ed il secondo
punto in (2,2)
L'equazione che ho ottenuto e':  y=x^2-2*x+2
Se ti interessa il metodo che ho seguito per ottenere la soluzione
fammelo sapere che cerco di spiegartelo o ti scannerizzo il foglio e
te lo mando per e-mail.
Ciao,   Fabio
fabi...@rocketmail.com

Grazie a chiunque voglia aiutarmi.
Se conosci le coordinate del vertice della parabola (Xv,Yv),
puoi scrivere l'equazione sotto la forma (traslazione)
Y-Yv = a(X-Xv)^2 dove l'unica incognita è il parametro "a" .
Assegnando ad Y ed X le coordinate del punto (X0,Y0) per cui
deve passare la parabola ti ricavi "a".
a:=(Y0-Yv)/ SQR(X0-Xv) .
per "b" e "c" te li farei ricavare da solo, ma siccome oggi sono
buono:
b:= -2*Xv*a
c:= a*SQR(Xv)+Yv
E' interesante notare come X0 deve essere diverso da Xv e come
il segno di "a" dipenda dalla differenza tra Y0 ed Yv. Se non vi
interessa, pazienza. :)
Ciao.
Virgilio Lattanzi          Harpax
Phone 
+39 0733 816872
      via Fontanella, 55
Fax   
+39 0733 819133
      62012 Civitanova Marche
www.harpax.com
             ITALY
Newsgroup: it.comp.lang.pascal
Titolo: Random tra numeri predefiniti?

Ciao a tutti, sarei molto felice se qualcuno mi aiutasse:
come faccio ad estrarre dei numeri a caso tra quelli che inserisco io (che
non sono contigui) ?
Es.  se io voglio estrarre n numeri a caso tra (1,5,7,13,14,16,45,65...)
       come devo scrivere?
Grazie
--
Crazy Jack
" Io sono diventato un vagabondo, be' per come sentivo in me la vita,
    per la sete di vagare che avevo nel sangue e non mi dava pace ".
" I became a tramp, well, because of the life that was in me,
  of the wanderlust in my blood that would not let me rest ".
                                                          Jack London -- "
The Road "

 wrote in message
8fhH5.40516$Nz.12...@news.infostrada.it...


 The Road "
Io ti consiglio di inserire i tuoi numeri in un array, suppongo che tu
lo sappia fare, poi estrarre un numero tra 0 e n dove n è la dimensione
dell'array, in tal modo ti bastrà utilizzare il contenuto della casella
selezionata casualmente!
Es.:
Array:
    1   2   3  ...  n
    7  12  131 246 683
ValoreEstratto := Array[Random(n) + 1];
Secondo me è la soluzione migliore!
MaTTeO.

 wrote in message
39EDDA33...@libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto con Pentium2

Ho cambiato processore da pentium a pentium2 ovviamente pascal 7.0 non
funziona, e serve la patch.
Qualcuno sa dirmi dove posso trovarla? Mi serve prima di Lunedě. Grazie,
Enrico

 wrote in message
DJBNPQsr#GA....@news.galactica.it...

Ricerca su un ftpsearcher come 
ftpsearch.lycos.com
 il file bp7patch.zip

...


Newsgroup: it.comp.lang.pascal
Titolo: [OT] Buone Feste a Tutti !!!

Tanti auguri a Tutti !!!
e Buon anno !!!
Auguriiiii a tutti i Pascaler =)

 )
 ( --->  
www.matteomoro.com
  <--- )
 ( --> 
www.matteomoro.cjb.net
 <-- )
 ( --->     ICQ#91902715     <--- )
 >*__/珮_/\__/珮_/\_/珮__/\_/珮__*<
     "i am immortal, i have
    inside me blood of kings" 妹m
  秤秤秤秤秤秤秤秤秤秤秤秤秤秤秤秤

 wrote in message
fr216.165936$hk4.6...@news.infostrada.it...


TZK....
Grazie e auguri anche dal grande VEGETA IL PRINCIPE DEI SAIYAN!!!!!!
     /\   /\
\_/   \/   \_/
ics ha scritto nel messaggio ...


Newsgroup: it.comp.lang.pascal
Titolo: Ctrll+Break ???

E' possibile far sě che un programma non si blocchi nemmeno con la
combinazione Ctrl+Pause(Break) ???

 wrote in message 8j5914$680$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: Num Primi

Azz l'avevo e ho formattato...
Mi serve un programma che mi dia i primi n numeri primi con n preso in
input.
Grazie a ki mi aiuta
ciao

 ha scritto nel messaggio
news:JVOg8.481$5z3....@twister2.libero.it...


 ha scritto nel messaggio
news:NRPg8.33818$_u5.1...@news1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: divisori

devo scrivere un programma che:
dato un numero intero n positivo
determina il numero dei divisori e il piu' grande divisore di n
io avevo pensato di non considerare il numero n tra i divisori (altrimenti
sarebbe sempre il massimo) e di considerare l' 1
ad esempio:
se n=30
numero dei divisori=4 (1,2,3,5)
divisore massimo=5
però a questo punto mi sorge il dubbio:
se n=1 cosa faccio ?
numero divisori=1
divisore massimo=1
oppure
numero divisori=0
divisore massimo=0
qual'è la soluzione corretta ?

 divisore massimo=1
Questa mi sembra la soluzione corretta. Non sarebbe esatto dire che 1 non è
divisibile per nessun numero.
Ciao
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e caratteri jolly

qual'è l'equivalente in pascal dell'* (asterisco) in dos? ad esempio quando
bisogna rinominare tutti i file con estensione aaa in dos si scrive ren
*.aaa ma in pascal? per favore aiutatemi!

 ha scritto nel messaggio
news:tMbH6.457$FS....@news1.tin.it...

Newsgroup: it.comp.lang.pascal
Titolo: aiuto comandi

Salve al newsgorup :)
Volevo sapere se esistono e quali sono i comandi per resettare le variabili
dopo un calcolo e il comando per cancellare lo schermo.

 variabili dopo un calcolo e il comando per cancellare lo schermo.
per azzerarle basta fare
foo := 0;
Se invece intendevi *eliminarle* le variabili, non conosco bene come
funzioni in Pascal ma fino a che non esci dal blocco in cui le hai
dichiarate esse esisteranno. E' un po il discorso delle variabili locali e
globali.
cancellare lo schermo e clrscr; (uses crt;)
-- 
Qualsiasi
"We all know Linux is great...it does infinite loops in 5 seconds." Torvalds

 ha scritto nel messaggio
news:UK73b.2553$aG6....@news1.tin.it...


l'applicazione in un ciclo Case?
Che cosa intendi per ciclo Case? Se la tua domanda viene da un
esperienza C dove bisona dire di voler uscire esempio metendo break
alla fine
switch (operand) {
  case MULTIPLY:   x *= y; break;
  case DIVIDE:     x /= y; break;
  case ADD:        x += y; break;
  case SUBTRACT:   x -= y; break;
  case INCREMENT2: x++;
  case INCREMENT1: x++;    break;
  case EXPONENT:
  case ROOT:
  case MOD:        printf("Not done\n"); break;
  default:         printf("Bug!\n");
  exit(1);
}
volente o nolente il pascal esce sempre una vota trovata la
corispondenza. Cmq su uscite pazarelle dei cicli ne abbiamo parlato di
recente ma ti faccio un quadro riassuntivo
Per usicre da un ciclo ( for, while-do o repeat-until ) si usa per
l'istruzione Break, per uscire un blocco ( Begin End ) si usa Exit
pero bisogna cosiderare che se i Begin End fanno parte di una
iterazione questa si interompera e in casi estremi se i Begin End sono
quelli principali ( ovvero il main ) si causera la terminazione
imediata del programma effetto, quest'ultimo, otenibile anche grazzie
alla procedura Halt ( <Exitcode : Word> ) il parametro Exitcode è
facoltativo.
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 
in Pascal:
case operand of
   MULTIPLY: Begin
               x:= x*y;
             end;
   DIVIDE  : Begin
               x:= x div y;
             end;
   ADD     : Begin
               x:= x+y;
             end;
   SUBTRACT: Begin
               x:= x-y;
             end;
   INCREMENT1: Begin
                 Inc(x);
               end;
   INCREMENT2: Begin
                 Inc(x,2);
               end;
    ecc.ecc.
   else Begin
          (tutti gli altri casi)
        end;
end;
e proprio con end termini il tuo case. (il gruppo else è facoltativo)
Purtroppo (anche se io dico per fortuna) il meccanismo del break non 
esiste e pertanto non ti permette di condividere sotto più etichette le 
stesse istruzioni come nell'esempio C che ha riportato Razziatore ma non 
dimentichiamo che proprio per questo pascal è il nostro linguaggio 
preferito :-PppPp
Newsgroup: it.comp.lang.pascal
Titolo: PasOS?

Salve. Vorrei sapere a che punto siete con questo sistema operativo e se ora
supporta i comandi writeln, readln e clrscr. Grazie
Iding

 supporta i comandi writeln, readln e clrscr. Grazie
Puoi vedere da solo a che punto siamo arrivati ( 
www.pas-os.com
 ) e
scaricare il codice sorgente.
C'e' anche una demo della gui.
La situazione attuale e':
    * Airex sta lavorando al filesystem
    * il sottoscritto sta lavorando alla modalita' protetta (il s.o. sara'
multitasking)
    * sono implementate diverse funzioni in modalita' testuale e grafica
(vesa), tra le quali quelle che hai citato
    * e' implementato un driver per il mouse su porta ps/2 (testato) e
seriale (non testato)
Purtroppo non ho tempo (esami + progetti) quindi potro' riprendere il lavoro
non prima di meta' luglio :(
Come vedi cerchiamo di portare avanti il s.o. ma a quanto pare quelli che ci
credono veramente siamo solo noi due quindi _rinnovo_ l'invito ai
frequentatori del gruppo a partecipare al progetto.
Ciao.
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-


Mi associo all'appello di DrFalken!
Airex

 ha scritto nel messaggio
news:oFqU6.6022$fG4.2...@news.infostrada.it...


 grazie

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO PER FILE DI TESTO

Dovendo programmare un autocomposizione di una trentina di tabelle
contenenti vari tipi di formattazioni, ho pensato di unire il linguaggio
pascal all'Html. In sostanza faccio generare dal mio programma pascal un
file di testo in linguaggio Html che vado opportunamente a leggere con
un qualsiasi browser e il cui contenuto sono le tabelle in questione
opportunamente compilate durante l'uso del programma pascal.
Il risultato e' stato molto soddisfacente. Tuttavia mi sono accorto che
il programma pascal non porta a termine il file di testo ma lo taglia
dopo un certo numero di caratteri scritti.
Inizialmente ho pensato dipendesse dalle opzioni di compilazione,
percio' ho aumentato fino al massimo tutte le memorie disponibili nelle
direttive di compilazione. Ma non ho ottenuto nessun miglioramento, il
programma taglia il file di testo e sempre nello stesso punto, ovvero
dopo lo stesso numero di caratteri scritti.
Da cosa puo' essere provocato questo problema? Per caso il tipo Text del
pascal 5.5 e' limitato ad un certo numero di caratteri? In caso di
risposta affermativa, esiste una unit di aggiornamento che e' in grado
di creare dei file di testo piu' grandi?
Un ringraziamento anticipato a chiunque fosse cosi' cortese da
rispondermi.
--
Posted from 
mercurio.mat.uniroma1.it
 [151.100.50.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

di creare dei file di testo piu' grandi?
Ma che dimensione ha il file dopo la chiusura?
Fabio
fabi...@rocketmail.com

Un bel di' 
agnu...@hotmail.com
 scrisse:
ahc> Da cosa puo' essere provocato questo problema? Per caso il tipo Text del
ahc> pascal 5.5 e' limitato ad un certo numero di caratteri? In caso di
ahc> risposta affermativa, esiste una unit di aggiornamento che e' in grado
ahc> di creare dei file di testo piu' grandi?
non credo che il Pascal possa dare di questi problemi...
Semmai posta il codice (non tutto, solo la parte che ritieni incriminata...)
Comunque dovrebbe essere del tipo:
	var f:text;
	...
	assign (f, 'nomefile');
	rewrite (f);
	...
	writeln (f, stringa);
	...
	close (f);
Ciao!
-- 
"Si puo' fare una cosa a prova di bomba, ma non a prova di iella", legge di
Naeser
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

di creare dei file di testo piu' grandi?
Vedi sopra : non e' questo il problema...
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]

Newsgroup: it.comp.lang.pascal
Titolo: domanda stupida

Vorrei sapere qual'è l'ultima verione del TP, e dove si può trovare. E' vero
che il Turbo Pascal sta ormai fallendo a causa dei drive video?
Marco


Il Turbo Pascal non può fallire, essendo un compilatore.....semmai, è fuori
produzione visto che è stato rimpiazzato da Delphi.
E poi, che c'entrano i driver video ?
Ciao.
Simo.
_____________________________________
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
ICQ#: 19598133
_____________________________________
Visit my homepage :
http://web.tiscalinet.it/drfalken
http://free.prohosting.com/~drfalken
Pascal, Assembler, Tips'n'Tricks for
Windows 9x, misc. Software...
_____________________________________

L'evoluzione naturale del Turbo Pascal è Delphi che lavora sotto Windows ( e
anche AS/400 ). Non solo il turbo pascal, ma tutti i linguaggi in ambiente
ms-dos ormai sono obsoleti presentandosi sempre di più sul mercato
periferiche come modem, stampanti, etc. che lavorano escusivamente sotto
windows. Nulla vieta di continuare ad usare i linguaggi per ms-dos, ma
dovendo fare un'applicativo per poi commercializzarlo, la scelta sarebbe
abbastanza errata. Da un punto di vista didattico il Turbo Pascal per dos
resta a mio parere il linguaggio principe per acquisire una corretta ed
efficiente mentalità di programmatore.

Newsgroup: it.comp.lang.pascal
Titolo: INFO su PasOS

Ehi perchè nessuno posta +? Io sto lavorando al filesystem ma il SO di
zio Bill mi rende le cose difficili: praticamente non mi permette di
accedere ai settori di avvio degli hard disk e , come se non bastasse,
mi ha "smontato" la partizione con i risultati ottenuti fino ad ora ( il
backup non ho fatto in tempo a farlo).
Fatemi sapere qualcosa....
...ciao, Airex.

 ha scritto nel messaggio
news:39FAAA5E...@tiscalinet.it...

Non so se sul NG e' arrivato il messaggio che ho creato un sito ed un forum
proprio per il sistema operativo comunque:
il sito e': 
www.pas-os.com
 (
pasos.com
 l'avevano gia' registrato...)
il forum e': 
forum.pas-os.com
Possiamo continuare la discussione sul forum (per non occupare spazio sul
NG) cosi' magari invii anche le specifiche del filesystem.
Cmq, per adesso vorrei lavorare su floppy cosi' se facciamo "danno" non
perdiamo i dati sull'hard disk.(la scorsa settimana ho dovuto formattare
l'hard disk a causa di una modifica accidentale alla FAT...)
Da parte mia stavo (prima della formattazione...) cercando di sviluppare un
semplice loader di file .exe affinche', dopo il caricamento del bootloader,
venga eseguito un interprete scritto in pascal (compilato in formato .exe da
Borland Pascal): in alternativa, l'interprete andrebbe scritto in
assembler...
Ciao!
Simone.
______________________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di:
 
www.drfalken.com
 
www.pas-os.com
 (il primo sistema operativo in Pascal)
______________________________________________
Newsgroup: it.comp.lang.pascal
Titolo: info su codice ascii

Qualcuno saprebbe dirmi qual è la differenza tra il codice 0
ed il codice 255? Mi sembrano identici.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

ed il codice 255? Mi sembrano identici.
Non badare all'estetica.... a parte il fatto che il codice 0 non si
visualizza con nulla mentre il 255 č simile ad uno spazio vuoto...
i caratteri del codice ascii molto spesso devono essere interpretati a
seconda del loro valore stesso. Potresti anche avere una tabella di
caratteri in cui ognuno dei 255 caratteri č una 'A'. Questo non cambia
nulla: a livello "estetico" hai 256 'A', a livello funzionale restano sempre
256 caratteri diversi...
----------------------------------------------------------------------
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   V   \_/

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

Salve!
Nessuno e' cosi gentile da sendarmi qualsiasi versione del turbo pascal :)?
avrei una certa urgenza perche' tra un mese dovrei portarlo come prova all'
esame di stato...
Vi ringrazio e ciao.

 wrote in message
37433...@news.dada.it...

Newsgroup: it.comp.lang.pascal
Titolo: pila

Come faccio a creare una pila coi puntatori e a implementare una push ed una
pop su di essa?
grazie in anticipo
--
Mail To 
mu...@jumpy.it
My Icq : 60723616

On 2000-01-16 
cqw...@tin.it
 said:
   >Newsgroups: it.comp.lang.pascal

program stack;
{$s-}
const
dimensione = 8192;
var
pila : pointer;
{$f+}
procedure newstack(nuovo:pointer); assembler;
asm
mov si,word ptr[nuovo]
mov di,word ptr[nuovo +2]
leave
pop ax
pop bx
add sp,4
mov cx,sp
mov dx,ss
cli
add si,dimensione
sub si,2
and si,0fffeh
mov sp,si
mov ss,di
push dx
push cx
push bx
push ax
sti
retf
end;
procedure oldstack; assembler;
asm
pop ax
pop bx
pop cx
pop dx
cli
mov sp,cx
mov ss,dx
push bx
push ax
sti
end;
{$f-}
begin
writeln('stack effettivo: ',sseg);
getmem(pila,dimensione);
newstack(pila);
writeln('nuovo stack: ',sseg);
oldstack;
freemem(pila,dimensione);
writeln('ritorno al vecchio stack: ',sseg);
end.
non so se e' quello di cui avevi bisogno. cmq fai molta attenzione
quando manipoli lo stack. se usi il nuovo stack all'interno di una
procedura, prima di uscire devi rimetterlo a posto.
se utilizzi queste due piccole procedure testa a fondo il tuo
programma. cmq, utilizzale il meno possibile! si potrebbero creare
incomprensioni di stack per aver dimenticato un
ripristino. puoi considerare le due funzioni come il comando "if".
if
then begin
if
then begin
end
end
if equivale alla procedura newstack, ed end a oldstack.
se avevi invece bisogno di una emulazione di stack, puoi benissimo seguire il
funzionamento dello stack stesso:
l'ultimo valore ad entrare e il primo valore ad uscire.
ciao. Giuseppe.

pop su di essa?
var pila        : array [0..99] of integer ;
    indice_pila : integer ;
procedure init_pila ;
begin
  indice_pila := -1 ;
end ;
procedure push( i : integer ) ;
begin
  if ( indice_pila < 99 ) then
  begin 
    indice_pila := indice_pila + 1 ;
    pila[indice_pila] := i ;
  end ;
end ;
function pop : integer ;
begin
  if ( indice_pila > 0 ) then 
  begin
    indice_pila := indice_pila - 1 ;
    pop := pila[indice_pila] ;
  end ;      
end ;
Andrea Laforgia (andrea_...@XXXbigfoot.com)
------------------------------------------------
Il mio indirizzo di posta elettronica è inattivo 
per il momento.

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

Avrei Bisogno di sapere i codici delle note musicali in Pascal
                                                            Kosby

 wrote in message
8dvpec$cbe$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: lettura file di dati

Potete allegarmi un esempio di come si legge un file di dati con record
composti da testo e numeri (real, double, )...
Grazie

 ha scritto nel messaggio
news:oLjp9.13705$%M1.3...@twister2.libero.it...


 L'informatica č un arte


Nemmeno io voglio fare polemica ma quando vengono fatte domande cosě
generiche se rispondo www.... sezione tutorial... č perchč li puň trovare
una risposta un pň piů esauriente di un codice scritto nel reply, penso che
questo possa essere un buon modo per dare una mano a qualcuno, cmq dalla
prossima volta cercherň di non essere cosě sintetico nelle mie risposte

Newsgroup: it.comp.lang.pascal
Titolo: Libro sul Pascal

Che libro mi consigliate sul Turbo Pascal, tenendo conto che sono un
principiante in Pascal ma non in programmazione?
Davide Cavalca
davi...@usa.net
ICQ: #20331544

 principiante in Pascal ma non in programmazione?
Se non sei un principiante in programmazione direi qualunque. Io di
solito mi regolo in base al numero ed al tipo di esempi presenti nel
testo.
Ciao
  Roebrto.
-- 
-------------------------------------------------------------------
 Vabbe`  ma  mica posso fare tutto io! Te lo sai a che ora mi sono
 alzato  questa  mattina? Alle sette meno un quarto! La bambina mi
 ha vomitato tutta  l'anguria  nelle scarpe!  Stamattina e` venuto
 l'idraulico e sai  quanto mi ha chiesto? Centocinquantamila lire!
 E dopo mezz'ora  il  rubinetto ha ricominciato a buttare l'acqua!
 Quela poi e` andata al corso di chitarra alle tre del pomeriggio,
 lo sai a che ora e` tornata? alle  quattro del mattino! Con tutto
 il rossetto  spostato  sulla  faccia. Ma che la chitarra la suoni
 con la bocca? Hai capito?
-------------------------------------------------------------------
 Attenzione:  i  dati  nell'header  sono modificati per difendermi
 dagli spammer. L'indirizzo  esatto  e`:  
crs...@xxxfreenet.hut.fi
                                   senza le tre x^^^

...


Ne sapete qualcosa?
Accidenti ! sono le bibbie del linguaggio ! ;)
I migliori testi di riferimento per lo standard del linguaggio !
Andrea Laforgia
-------------------------------------
(grattatio pallarum omnia mala fugit)

...

Newsgroup: it.comp.lang.pascal
Titolo: Vi prego, entro domenica sera!


Ecco qua il programma:
(*
Dato un numero N, lo scompone in fattori primi
*)
program fattori_primi;
var N, i : longint;
    check : boolean;
function primo (i : longint) : boolean;
var j : longint; prim : boolean;
begin
 if ((i = 2) or (i = 1)) then primo := true else begin
  prim := true; j := 2;
  while ((prim = true) and (j <= (i - 1))) do begin
   prim := ((i mod j) <> 0);
   j := j + 1;
  end;
  primo := prim;
 end;
end;
begin
 writeln;
 write('Inserire N: '); readln(N);
 repeat
  check := false; i := N;
  while ((i >= 2) and (check = false)) do begin
   if ((primo(i) = true) and ((N mod i) = 0)) then begin
    write(i : 5);
    N := N div i;
    check := true;
   end;
   i := i - 1;
  end;
 until (N = 1);
 readln;
end.

 > Un grazie anticipato a chi potrà aiutarmi.
Così dovrebbe essere molto più veloce. Però sarebbe bene usare un migliore
algoritmo per stabilire se un numero primo.
(*
Dato un numero N, lo scompone in fattori primi
*)
program fattori_primi;
var N, i : longint;
    check : boolean;
function primo (i : longint) : boolean;
var j : longint; prim : boolean;
begin
  prim := true; j := 2;
  while ((prim = true) and (j <= (i - 1))) do begin
    prim := ((i mod j) <> 0);
    j := j + 1;
 end;
  primo := prim;
end;
begin
 writeln;
 write('Inserire N: '); readln(N);
 repeat
  check := false; i := 2;        (*meglio partire da basso in modo da
ridurre subito N*)
  while ((i <= N) and (check = false)) do begin
   if ((primo(i) = true) and ((N mod i) = 0)) then begin
    write(i : 5);
    N := N div i;
    check := true;
   end;
   i := i + 1;
  end;
 until (N = 1);
 writeln;
 writeln('Fine programma');
 readln;
end.

Newsgroup: it.comp.lang.pascal
Titolo: TP7 for Win??

è esiste una versione del TP7 per Windows?

 č esiste una versione del TP7 per Windows?

 wrote in message 389ECCFE...@tin.it...


Ciao. . .
Posso averne una copia anch'io??
Grazie di tutto.
 
rgab...@libero.it


 Saresti cosě gentile da spedirmelo? Grazie (e-mail 
skyd...@tiscalinet.it
)


 wrote in message
38B6F163...@tiscalinet.it...


ma coglioni c'č su crackstore ed č anke per windows (ci sono le icone)!!!
By TANNER

Newsgroup: it.comp.lang.pascal
Titolo: Generare numeri casuali.

Salve a tutti.
Sono un giovane neofita a cui piace ogni tanto sprogrammazzare con Pascal e
altro. Vorrei sapere se qualcuno č cosě gentile da dirmi come si puň
generare un n. casuale. In basic non ho problemi, ma in pascal non ci
riesco!
Grazie mille. :-)
Eugenio,
--------------------------------------------------------
er...@tin.it
*...dacci oggi il nostro programmare quotidiano...* :-)))
--------------------------------------------------------

Salve a Tutti,
dovrei lavorare in Borland Pascal 7.0 e avrei bisogno che qualcuno di
indicasse dove andare per poter scaricare qualche manuale dalla rete
(possibilmente in italiano)
Grazie per l'attenzione Virna

riesco!
Nel caso utilizzassi il Turbo Pascal :
var i : integer ;
begin
  randomize ;
  for i := 1 to 50 do writeln( random (1000) ) ;
end.

 wrote in message
37346f1e...@diesel.cu.mi.it...


 riesco!


In rete non ho mai visto nulla del genere.....io ho iniziato consultando
l'help del pascal, soprattutto gli esempi.....
Se sei agli esordi con il BP7, l'help online va benissimo.....
Cmq, per qualunque problema fai un fischio!!!!
Ciao!
Simo.
---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------
Virna De Luca ha scritto...

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e MacOS X

Cosa posso usare per scrivere applicazioni visuali native in MacOS X?
Henryx

 Cosa posso usare per scrivere applicazioni visuali native in MacOS X?
a naso direi
http://www.apple.com/downloads/macosx/development_tools/gnupascalformacosx
.html
ma non ho mai provato
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)