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

So che alcuni giochi abbastanza famosi e carini, come Descent e Doom,
sono stati fatti con il C o con il C++. Questo è possibile, credo (la
mia conoscienza del è piuttosto sommaria), perché il C permette di
utilizzare altri programmi di grafica o le librerie della DirectX.
In TP7, è possibile fare qualcosa di simile e utilizzare qualche bel
programmino di grafica 3D per creare dei giochini un po' più carucci?
Se è possibile come si fa?
Sinceramente inizio a stancarmi della grafica rozza e piatta della
Graph.tpu perché qualsiasi gioco io faccia, sembra che sia stato fatto
vent'anni fa....
Ciao da FABIO!

you wrote :
#So che alcuni giochi abbastanza famosi e carini, come Descent e Doom,
#sono stati fatti con il C o con il C++. Questo è possibile, credo (la
#mia conoscienza del è piuttosto sommaria), perché il C permette di
#utilizzare altri programmi di grafica o le librerie della DirectX.
Le DirectX sono delle semplici DLL interfacciabili da qualunque
sistema ne possegga l'accesso. 
In quanto al C, il linguaggio di per se' non consente affatto di
utilizzare la grafica. Si tratta, in questo caso, di estensioni di
ogni singolo compilatore, cosi' come il TP7 e' un'estensione del
Pascal standard, il quale non possiede routine che gestiscono
l'interfaccia video.
Il C viene scelto perche' e' sicuramente migliore del Pascal come
linguaggio in generale e poi perche' offre compattezza e velocita' di
esecuzione.
Esso, difatti, e' un linguaggio di livello cosiddetto "intermedio",
cioe' si pone a meta' tra un assembly e un linguaggio ad alto livello.
Per la grafica, generalmente, si costruisono le routine di base
(disegni di linee e poligoni, riempimenti, texture, ecc...) con un
assemblatore e si linkano al codice scritto in C.
#In TP7, è possibile fare qualcosa di simile e utilizzare qualche bel
#programmino di grafica 3D per creare dei giochini un po' più carucci?
#Se è possibile come si fa?
In TP7 si puo' senz'altro implementare un motore tridimensionale, ma
bisogna innanzitutto conoscere i principi di matematica e geometria
spaziale che vi sono dietro e poi, sicuramente, basarsi su qualcosa di
piu' affidabile della tremendamente lenta Borland Graphics Interface.
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------

Grazie! :)
Newsgroup: it.comp.lang.pascal
Titolo: Aiutate un dilettante

In fatto di programmazione sono un principiante quello che chiedo a voi
esperti è il seguente: Perchè bisogna usare i puntatori?: Io so per
gestire la Ram in modo dinamico e quindi specialmente per i dati evitare
di esaurirli ed evitare quindi di dimensionare in modo errato. Ci sono
anche altri motivi?  Grazie anticipato per l'aiuto che mi darete.
lc...@inwind.it

 esperti è il seguente: Perchè bisogna usare i puntatori?: Io so per
Non e' obbligatorio usare i puntatori... si usano quando serve, cioe' se
ottieni un guadagno netto in prestazioni (spazio E tempo) oppure se
vedi che l'implementazione e molto piu' facile :-)
e' l'esempio che hai dato quello piu' evidente: le strutture dinamiche sono
molto difficili scomode da implementare senza l'uso di puntatori.
boh...altri usi di puntatori... le stringe null terminated, sono puntatori
e sono tipati come puntatori a vettori di caratteri e questo permette di
rompere le limitazioni della struttura [byte lunghezza][...caratteri...]
(cioe' 255 char max)
Riscrivendo una procedura che utilizza stringhe normali in modo che
ammetta come parametri stringhe n-t (PChar in pascal) guadagni
in velocita', anche se di nascosto: non devi piu' passare l'intera
normale stringa, ma solo 4 byte: il puntatore :-)  occhio pero' che
se la modifichi all'interno della procedura, cambia come un parametro var
e questo puo' essere fastidioso (sei costretto a fare copie delle stringhe)
Comunque una stringa n-t puo' essere lunga come il piu' grande blocco
in ram contiguo e allocabile, che sotto dos (modalita' reale ) e' quasi
sempre limitato a 64kb ( +/- ) [ a meno di passare in mod. protetta ]
ecco... un'altra cosa che puoi' fare con i puntatori e' scendere un livello
in giu' verso l'hardware nell'uso della memoria: invece di variabili
<astratte> puoi accedere a particolari parti <materiali> della memoria,
scegliendo l'indirizzo. [ ci sono forti limiti su queste cose cmq... :-) ]
ah.. i puntatori sono poi alla base della programmazione a oggetti, anche a
livello del linguaggio sono "nascosti" al linguaggio (in java NON esistono)
un oggetto cos'e' alla fine ? un'insieme di variabili,  i campi, e una
tabella di puntatori a procedure, cioe' ai metodi.
in fondo sono divertenti... ci puoi fare tanti danni :-)
ciao
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: ciao abxide

Grazie per l'aiuto , ti ho risposto ma credo di aver inviato il messaggio ad
altro intestatario,
in merito a tuo messaggio, mi puoi inviare i tuoi .pas , poichè per me è
l'unico modo per avere un aiuto . Ogni programmo lo analizzo minuziosamente
e ne creo degli altri per poter
capire meglio.
Il 18 dovevo fare l'esame ma non mi sentivo preparato e non per timore ma
per buon senso
ciao luciano....
--------------------------------
Inviato via 
http://usenet.libero.it

...

Mi spiace di aver letto in ritardo il tuo post, cmq l'esame di prog
mod a l'ho fatto anche io lunedì, a te come è andata?

ehi.... psss... ragazzi... scusate se disturbo, ma i rispettivi
indirizzi li trovate nel dettagli dei vostri post, scrivetevi li ;-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

Se ti ricordi gli esercizi me li puoiu inviare? io purtroppo posso
risponderti tra >cinque giorni. Lavoro e sono sempre impegnato, quando
rientro il mio bimbo si scatena
ciao..........


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





salve a tutto il NG, sono un neofita 
e gradirei un'informazioe sull'utilizzo di "uses crt....clrscr".


Quando applico questa procedura(?) 
non funzionano più i programmi, ottenendo una risposta di immposibilità di 
divisione per 0.Forse mi manca il file crt.*? Come faccio a recuperarlo? 
Qualcuno può spedirmelo?


Grazie a tutti per l'eventuale 
aiuto.



 ha 
  scritto nel messaggio 
news:8ugssg$jo9$1...@nslave3.tin.it
...


Newsgroup: it.comp.lang.pascal
Titolo: Puntatori in TP7

Ho scoperto per caso che esiste un tipo pointer. In quale misura questi
puntatori sono equivalenti a quelli del C? Come funziona esattamente tutta
la faccenda (cioé: come si usano i puntatori in Pascal?)
Grazie
Francesco

 la faccenda (cioé: come si usano i puntatori in Pascal?)
Non so come siano in c, ma in pascal i puntatori sono variabili che
contengono un indirizzo di memoria.
Se puoi essere più preciso su ciò che ti interessa, potrò essere più preciso
anch'io!

 ha scritto nel messaggio
news:8r7mb4$4rh$9...@nslave2.tin.it...


 e come si usa?
 
 L'unico limite e` quello imposto dalla fantasia del programmatore.
 Scaricati il "reference guide" del compilatore FreePascal
 e avrai un buon libro sul pascal completamente gratis!
 

 Allora: che cos'è il tipo POINTER e come si usa?
Ti hanno già risposto; nel frattempo io stavo preparando una specie di
tutorial sui puntatori, se interessa lo posso postare sul ng per eventuali
correzioni e chiarimenti sul complesso e odiato mondo dei puntatori.
Newsgroup: it.comp.lang.pascal
Titolo: Problema unit

Ciao a tutto il ng. ho un piccolo problema che però non so risolvere:
Io mi faccio una semplicissima unit (non badate alla stupidaggine che fa, è
solo una prova):
unit prova;
interface
function func:string;
implementation
function func:string;
begin
 func:='Prova unit';
end;
begin
end.
Ora mi creo il file unit.tpu che io mi rinomino in ciao.tpu lo sposto nella
directory units. (Giusto fino a qui?)
Poi faccio un semplicissimo programma che usa la unit:
program prova2;
uses ciao;
var x:string;
begin
 x:=func;
 writeln (x);
end.
E mi dà "errore 69: unit name mismacht (ciao)"
Come mai? Dove sbaglio?
Altra cosa: avevo sentito di una funzione del compilatore tp che permette di
vedere tutte le funzioni disponibili su una unit già compilata; è vero? Se
si, dove la posso trovare?
Grazie a chiunque risponderà.

Alex wrote:

Il problema sta nel fatto che tu rinomini il file della unit: il nome che mettei
dopo UNIT nel file .PAS DEVE essere lo stesso del nome del file senza
l'estensione.
Es:
unit pippo;
interface
implementation
end.
DEVE essere contenuta nel file pippo.pas e il file pippo.tpu non deve essere
rinominato.
Ciao da Airex

 Grazie a chiunque risponderà.
Le unit compilate (tpu) devono avere lo stesso nome che hai dichiarato nel
codice sorgente unit prova
il file deve chiamarsi prova.tpu
Il compilatore è il Turbo Pascal 7.0 della Borland
Ciao ReDiCuori

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

Salve sn nuovo questo su NG.
Ho scaricato il Turbo Pascal 7 volevo sapere se si deve configurare se si
devono caricare qualke file x farlo funzionare, ect....

Istallalo ed inserisci nel PATH sull'autoexec.bat la cartella contenente BP.Exe, riavvia il computer ed è fatta
--
Ciao,
David (
www.utilityweb.net
)

 contenente BP.Exe, riavvia il computer ed č fatta --
Win+Pausa \ Avanzate \ Variabili d'ambiente e modifica PATH e
non deve neanche riavviare :-)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)


Da quando è free?
HH
Newsgroup: it.comp.lang.pascal
Titolo: [OT] assembler

Qualcuno mi puņ consiglire un buon manuale per cominciare a programmare in
assembler?? lo posto qui x' nn trovo un ng apposito... 10QQ

http://www.albe.bbk.org/
su albe's trovi un po' di roba... prova a contattare lui :-)
passa di qua ogni tanto
--
Dreadnaut
(Life would be easier if I had the source code)

passa di qua ogni tanto
passa anche su 
#asm@*.
azzurra.net


Newsgroup: it.comp.lang.pascal
Titolo: MP3 & Pascal (TP7)

Se trovate info ci sto anche io.
 Airex

Salve a tutti,
 Ieri sera, dato che non avevo niente da fare, ho avuto un'idea; che ne
direste di realizzare qualcosa tutti insieme che riguardi gli MP3 nel nostro
caro amato TP?
Io ho già realizzato un bell'oggettino che gestisce i TAG ma ancora non so
ne suonare è, a proposito delle info, trovare il bitrate e la lunghezza del
brano......
Coraggio fatevi avanti!!!!!
Scrivete a
 
f...@eikonos.it

 ha scritto nel messaggio
news:8g0h8h$m4t$1...@fe1.cs.interbusiness.it...


Anche io ci sto
Oluyede Lawrence


    
f...@eikonos.it
Anch'io, anch'io!!!
TeO:-)
P.S. Per info sul formato andate un po' a vedere 
http://www.wotsit.org

 
se ti interessa, ho realizzato a riguardo qualcosa con Delphi. Trovo 
bitrate, versione, layer, informazioni sui VBR, etc etc.
ciao

Bene Bene Vedo che vi è piaciuta l'idea vi è piaciuta,
allora come vogliamo procedere?
Io avrei pensatro di frazionarci i compiti e di realizzare un pezzettino di
programma ciascuno, io ho già realizzato la unit per i tag e sto realizzando
delle units ad oggetti per implementare mouse, bottoni, finestre in modalità
640X480 a 16 colori.
avevo creato anche un bell'oggettino che implementava le finestre apri/salva
con nome ma un sinistro con win2000 mi ha costretto a formattare un pò tutto
e l'ho perso (SIGH!) cmq. vedrò di rifare il tuttto!.
Avevo anche intenzione di creare un sito dal quale tutti potevano mettere i
propi programmi e prelevare quelli già presenti ma non ho la + pallida idea
su come si faccia.
Prossimamente troverete quello che ho fatto su
 
www.eikonos.it/mp3project.html
prossimamente, ancora non ho nemmeno iniziato a fare la pagina...



Ciao,
    in C sempre, ma scritto abbastanza bene, c'è un player per DOS.
www.cubic.org
Michele



news:MPG.13906a967...@news.tiscalinet.it...


>> > Io ho giŕ realizzato un bell'oggettino che gestisce i TAG ma ancora non


Newsgroup: it.comp.lang.pascal
Titolo: Passare da exe in pas.

Ciao a tutto il newsgroup sono nuovo qui.
Dovrei recuperare il file pas da un programma compilato (ho compilato il
programma ma c'erano ancora delle modifiche da fare cosě non ho salvato il
file pas, poi per uno stupido errore il prog č entrato in un loop
infinito...) come posso fare?
Grazie a chi mi aiuta!

 wrote in message
9uveap$qmo$1...@nreadb.inwind.it...

Newsgroup: it.comp.lang.pascal
Titolo: programmi in memoria





Ciao sono Filbyte un ragazzo di 17 anni vorrei 
avere le basi per fare un programma Pascal che agisca in memoria 
contemporaneamente ad altri programmi


Grazie  per la risposta!!!!!!!!!!


                                                                
Filbyte 







Pure io sono uno studente :-)


 


Con qualche informazione in più presumo di poterti 
dare una mano ma per ora le uniche cose che mi vengono in mente 
sono


un TSR: un programma che rimane residente in 
memoria fino a che non fai verificare una data condizione


l'int 1c: per la gestione della temporizzazioen. Ti 
agganci a tale int e ogni tot fai fare qualcosa al tuo programma


 


Se vuoi avere altre informazioni non hai che da 
chiedere :-)


 


Ciao ciao
-- 
KNOWLEDGE IS POWER
http://www.chameleon.f2s.com
http://chameleon.go.to
Newsgroup: it.comp.lang.pascal
Titolo: uscita

so che è banale, ma che codice si usa per terminare un programma pascal
senza usare label o cicli di repeat?

Exit;  per uscire dal prog
Halt(runlevel); per uscire dal ciclo

 ha scritto nel messaggio
news:OsPT7.18132$OP2.6...@news2.tin.it...


ehm... sarebbe break per i cicli (for/repeat/while)
exit per i blocchi e quindi per le procedure
e Halt(errorlevel) [con errorlevel che viene restituito
alla shell] per il programma ??
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> Halt(runlevel); per uscire dal ciclo
se nel main provoca la chiusura del prog...

Newsgroup: it.comp.lang.pascal
Titolo: novizio in... pascal

mi sono messo in testa che mi piacerebbe imparare a programmare.
come linguaggio di partenza ho deciso di iniziare dal... pascal! :)

Perché no :)
Hai già trovare qualcosa da leggere ed un compilatore? In che ambiente?

 Hai già trovare qualcosa da leggere ed un compilatore? In che ambiente?
"Algoritmi in Pascal" (Paravia editore, 1987);
Videolezioni e dispense (
camuso.it
).
Per adesso sto usando il venerando Borland Turbo Pascal 7, ma ho già visto 
che esiste il compilatore Gnu (gpc) e il progetto Free Pascal.
Suggerimenti?

Suggerimenti? Boh, prova cose, scrivi cose :) E se chiedi qualcosa qua probabilmente qualcuno apparirà dal nulla per risponderti.
Ci sono ancora online vecchie pagine di tutorial¹², quindi guardati in giro.
saluti,
Fra
[1] 
http://dreadnaut.altervista.org/pascal.php
[2] 
http://xoomer.virgilio.it/dgrmar/indexhtm.htm



Ti ringrazio per le risposte e la disponibilità, Dreadnaut.
Mi salvo i link che mi hai passato e ti auguro un buon 2011! :)

 come linguaggio di partenza ho deciso di iniziare dal... pascal! :)
Ti do il mio personale benvenuto in questo NG e complimenti per la scelta!

Newsgroup: it.comp.lang.pascal
Titolo: Se esiste allora ...

Ops ... mi era sfuggita ...
cmq è una funzione non una procedura... ;-)
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

Un'alternativa può essere :
{$i-}
Reset ( File )
{$i-}
If IoResult = 2 then Write ( 'il file non esiste' ).
P.S : La IoResult, dopo essere stata richiamata viene automaticamente
risettata a zero.

bisogna caricare l'unit DOS ?
No.
Bisogna pero' porre l'attenzione sul fatto che spesso il fallimento di
questa funzione non vuol dire necessariamente che il file non esista,
ma che, per esempio, in un ambiente multiutente, sia aperto in modo
esclusivo da qualcuno.
Newsgroup: it.comp.lang.pascal
Titolo: I prog. compilati del TP non funzionano sul Pentium III

Salve a tutti,
circa sette anni fa avevo fatto un programma in Turbo Pascal Vers. 7 per
Dos, ha funzionato perfettamente su computer diversi fino al Pentium 200,
adesso su un Pentium III 450 non funziona, da un messaggio di errore che
corrisponde alla divisione per zero e il debug integrato non trova la linea
dove si verifica l'errore. Il programma non esegue nemmeno la parte begin
del programma principale.
Qualcuno mi puó dare aiuto?
Salvo C.

 wrote in message
819bjs$oje$1...@aquila.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: OT Assembler

sto cercando le due linee di codice in assembler che servono a resettare il
bios (opzioni personalizzate e password) e informazioni su come usare questi
comandi in pascal.
GRAZIE
--
Sommella Marco {Skonvols2k}
ICQ # 61968988
somme...@inwind.it
skonv...@iol.it



I comandi ASM non li so ma per farli in pascal ci sono 2 vie...
una con le variabili e una procedura l'altra e questa:
Procedure CosmReset; Assembler;
Asm
  Mov ah,2
  Mov Dl,'3'
  Int 21h
end;
Begin
  CosmReset;
  ReadLn;
End.
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

The Only Good Windows in an uninstalled Windows
Strano...credevo che Forte Free Agent girasse solo su Windows...
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-


Credo che il Razziatore usi Wine, ai tempi l'ho fatto pure io :)
$wine /mnt/winporco/Agent/agent.exe managed
Sfizzi di gioventu' :) ora il PC e' vecchio e slrn va molto meglio di
OutLokko e FreeAgent.
Un PC su cui gira Debian e' come il vino, con il tempo migliora

         
www.pas-os.com
Dimenticavo seguo pas-os con passione, ma non sono riuscito a usare la
GUI come si fa??
per quanto riguarda il mouse seriale non testato a me il Genius Net Pro
seriale va alla grande, complimenti per l'interfaccia della shell, bella
semplice, e funzionale :)

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

Scusatemi ma non riesco a trovare il modo
per programmare in turbo pascal Graph?
Non so comme devo prendermi ho tutto provato
gli do l'indirizzo dove deve andare a cercare ma mi fa sempre le stesso
errore
L'indirizzo che gli do é (C:\Tp\bgi).
Vi ringrazio molto di una rispota  :-) anche senza risposta

 stesso errore
ma il numero di errore corrisponde a quello dei BGI-non-trovati ?
-- 
Dreadnaut
(Life would be easier if I had the source code)
 
http://dreadnaut.servebeer.com/
Newsgroup: it.comp.lang.pascal
Titolo: problemi di Maxint

Ho un turbo pascal della Borland versione 7.0
mi sembra un po' strano che il maxint dei numeri interi sia  poco oltre il
32000, pregiudicando così qualsiasi programma che superi tale soglia, molto
bassa;
posso procurarmi da qualche parte un pascal non troppo ingombrante che non
abbia questo difetto o aggirare l'ostacolo senza dover ricorrere ai numeri
reali??
Grazie!!!

 bassa;
Usa longint al posto di integer
Ciao.
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
    FAX  : 06.233.235.314
-=============================-

Il 16 lug 2001 Symon ha espresso la sua creatività scrivendo:

Come dice Simone (DrFalken) usa longint se non vuoi utilizzare i numri 
reali, ma non credere che sia un difetto del tuo compilatore quello di 
avere gli interi con range da -32.767 a +32.768, tutti gli interi risiedono 
all'interno di questo range, anche quelli degli altri compilatori: 
FreePascal, Turbo C++, Objective-C, QuickBASIC, etc, etc.
E d'altronde sarei pronto a sfidare chiunque a far stare un numero non 
appartenente al range scriendolo in binario dento a 16 caselline. :)
Ciao ciao
-- 
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

Newsgroup: it.comp.lang.pascal
Titolo: Gestione Memoria Video

Qualche giorno fa ho letto della possibilità di scrivere direttamente
nella memoria video, poiche' devo andare a scrivere in modalità testo
nella posizione (80,25) e se faccio un gotoxy e poi un write mi aggiunge
un carattere facendo lo scrolling del monitor, penso che l'unica soluzione
sia appunto scrivere nella meme video, chi mi puo' spiegare come si fa
(magari con 2 righe di codice ?).
Inoltre vorrei sapre se posso gestire il mouse (Uso FPK su Linux, ma i
prog devono anche girare a scuola con TP7 su windows)
Ciao e grazie,
	Lorenzo
	<
cir...@tin.it

(magari con 2 righe di codice ?).
var VideoMem : array [1..80, 1..25] of 
               record car, att : byte end absolute $b800:0 ;
ci accedi con VideoMem[x,y].car e VideoMem[x,y].att

prog devono anche girare a scuola con TP7 su windows)
Certo che puoi!
Non programmo sotto Linux, cmq sotto dos puoi utilizzare l'int 33h.
Se vuoi ti posso mandare una libreria.
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)
==============================
Newsgroup: it.comp.lang.pascal
Titolo: Visualizzatore file di testo

Salve a tutti, avrei bisogno di una procedura che mi visualizzi a
video un file di testo salvato su disco. Questa procedura dovrebbe
essere tale da poter bloccare la schermata ogni 20 righe...purtroppo
la lunghezza delle righe del file di testo non è data, quindi non
posso leggere il file una stringa alla volta. Ho fatto una procedura
che legge il file carattere per carattere...però mi servirebbe un
contatore di riga...avete qualche idea o qualche sorgente sotto
mano!?!?! Uso TP7...
Ciao e 73-51 de Tartaruga .
.oO-=> TARTARUGA (* Gabriele *) <=-Oo.
     E-Mail: 
ru...@ita.flashnet.it
http://www.geocities.com/SiliconValley/Peaks/4731/

 posso leggere il file una stringa alla volta.
Program Test;
Uses Crt;
Var F : Text;
      S : String;
      A : Byte;
Begin
    ClrScr;
    A:=1;
    Assign(F,'C:\Prova.Txt');
    Reset(F);
    GotXy(1,1);   
    While Not Eof(F) Do
    Begin
        ReadLn(F,S);
        WriteLn(S);
         Inc(A);
         If A>20 Then
         Begin
             A:=1;
             (* Fai la routine per la pressione del tasto *)
             ClrScr;
             GotoXy(1,1);
         End;
    End;
End.

mano!?!?! Uso TP7...
Non e' necessario conoscere la lunghezza del file per la lettura riga per riga..
Puoi farlo col semplice "readln(fileditesto, stringa)"
Cioe' avendo definito "f : text" e "s : string" puoi scrivere "readln(f, s)"
Ad ogni lettura di riga fai incrementare un contatore e controlli se ha
raggiunto 20, in tal caso lo azzeri e prosegui nella lettura...
Andrea Laforgia
(remove NOSPAM from my address before reply via e-mail)



Grazi mille...alla fine ho risolto in modo diverso, leggendo 1
caratetre alla volta e controllando quando arrivo ad 80 caratteri o a
fine riga per aumentare il contatore di riga...
Grazie mille lo stesso...


(remove NOSPAM from my address before reply via e-mail)


 non faccio un conteggio corretto...
E allora ....
Le tagli !!!!
If Length(S)>80 Then
Begin
   Repeat
       S1:=Copy(S,1,80);
       Delete(S,1,80);
       (* Visualizza & Conta *)
   Until Length(S)<=80;
End;
Moolto piu' veloce che leggere carattere per carattere.
Qui puoi anche controllare che l'ottantesiomo carattere sia un #32 , cosi'
da poter
troncare la linea in modo corretto.
Se l'ultimo carattere NON e' un #32 allora retrocedi fino a quando non
trovi un #32.
Se per caso la linea non ha #32 , allora fino a quel punto la puoi troncare
brutalmente !!
Cosi'  diventa un qualcosina di piu' completo !!!!
Ciao
Daniele
Newsgroup: it.comp.lang.pascal
Titolo: Avrei cortesemente bisogno di una spiegazione riguardo il costo di efficienza di un programma

Se vi è possibile potreste spiegarmi come calcolare la complessità
asintotica e quella computazionale, magari facendo un esempio.
Grazie comunque.


Complessita' computazionale: Numero delle variabili di tutte le procedure
(compresi i passaggi per indirizzo).
Questo numero lo si analizza con lo svolgimento dell'algoritmo (puo' essere
lineare,polinomiale,esponenziale).
Esempio: 15 dati, bubble-sort 15*14/2=105.
Complessita' asintotica: Calcolo del limite per N che tende all'infinito
della funzione di complessita' (ottenuta con un numero n di variabili).
Esempio: n dati, bubble-sort A*(A-1)/2, funzione Y=X*(X-1)/2.
Caso: l'esempio prevede una complessita' asintotica quadratica.
da: 
dca...@tin.it

Newsgroup: it.comp.lang.pascal
Titolo: esecuzione diversa in tp6 e in fp

Mi sapete dire perchč un listato che viene compilato ed eseguito
perfettamente da TP6, viene compilato bene, ma non eseguito correttamente,
nč con freepascal nč con dev-pascal!?
Grazie.
Davide

 nè con freepascal nè con dev-pascal!?
è possibile che il programma abbia dei bug e che questi casualmente non
si manifestino col tp.
a me è capitato!
ciao,
-- gabri

Puo' essere un problema di dimensioni delle variabili (byte/integer  etc...)
oppure di allineamento in memoria (a.e. se usi dei record/mem dinamica)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto !!! mi se rve il Pascal

Avrei bisogno di un pascal shareware, vanno bene anche le versioni vecchie
per DOS purchè sia completo di librerie link e compilatore.
Vorrei iniziare a misurarmi con questo linguaggio che ancora non conosco.
Grazie a tutti!!!

Ce n'è due sul cd-rom allegato al numero di Novembre di ioProgrammo.
Uno è di 700 e qualcosa k (zip compressed). Se vuoi te lo posto.
(in tal caso rispondimi via e-mail perchè non leggo il NG con costanza).
Newsgroup: it.comp.lang.pascal
Titolo: Quale linguaggio scegliere ?

Salve a tutti,
gradirei chiedere alcuni consigli su quale linguaggio imparare.
Le mie necessità sono :
 
	- DOS : mi serve un programma che sia in grado di leggere da
una allocazione di memoria (ho una scheda convertitore su bus ISA
analogico/digitale), e che sia il più compatto possibile (attualmente
gira su PC  486dx e sx con 1 Mb di ram, DOS su floppy e niente Hard
Disk !).
	- Win95/98/NT : devo fare un applicativo per fatturazioni,
gestione magazzino, stampa intrastat ecc.. , e che mi permetta di
usare database standard (come importazione ed esportazione dati) per
interfacciarmi con software per contabilità generale e busta paga.
Attualmente tutti i precedenti programmi sono fatti con il VECCHIO MS
gw-basic 3.22 . Funzionano bene, ma non si allacciano con altri
database e la velocità in DOS è molto lenta.
Ovviamente il mio obiettivo (o sogno...) sarebbe quello di imparare un
UNICO linguaggio di programmazione per i due tipi di applicazioni di
cui necessito.
Ho qualche esperienza di programmazione in Autolisp ed una vaga
spolverata di Pascal (scolastico, sono perito informatico).
Sono aperto a tutti i tipi di linguaggio (: Java, c++, delphi, visual
basic, power builder, power basic), purchè siano compatibili con le
mie necessità.
Per mia informazione penso che l'unico perfettamente compatibile sia
il c++, ma ho sentito dire che è difficile da imparare (od almeno con
una learning curve più lento rispetto al visual basic), e non molto
sicuro (vedi i vantaggi di Java...). D'altro canto mi risulta che
Delphi, visual basic e Java siano solo del tipo win32, quindo non per
DOS.
Non esitono convertitori da Java (o delphi o visual basic o ...?) a c
o c++ o comunque in grado di fare eseguibili DOS (mi sembra che tempo
fa in delphi ci fosse questa possiblità) ?
Sotto DOS non mi interessa una GUI (finestre, mouse, ...).
Il vantaggio degli ambienti RAD (Visual basic, Delphi ecc...) è solo
per la parte visuale e di "Windows" ? In caso affermativo, cosa ne
pensate di Power Basic, può compilare anche per win32 con un ambiente
visuale ?
Scusate per le tante domande, ma avendo molte opportunità (almeno
teoriche, ed in parte....) mi sorgono anche tanti dubbi.
Moltissimi "Grazie" a tutti quelli che mi risponderanno
---------------------------------
Matteo Facchini                    
Alfonsine  (Ravenna)
PER FAVORE NO ATTACHMENT PLEASE                          


No problem.
Ciao.
Antonio Donatiello.

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

Qualcuno sa indircarmi un buon manuale di Turbo Pascal che non sia O'Brien,
visto che č esaurito?
Vi ringrazio anticipatamente,
       Spike

       Spike
Newsgroup: it.comp.lang.pascal
Titolo: intelligenza artificiale?

Qualcuno, per puro caso, sa se esistono algoritmi, in pascal, che simulano
un'intelligenza artificiale. Mi servirebbero due tipi diversi:
il primo, detto l'imbecille virtuale, dovrebbe simulare un interlocutore con
cui parlare.
il secondo dovrebbe simulare un animale virtuale, per esempio un ragno che
si muove evitando eventuali ostacoli, oppure il ratto dentro il labirinto.
Qualcuno puň aiutarmi?
Grazie.
Luca
caru...@pn.itnet.it
l_z...@hotmail.com
www.geocities.com/capitan_zico/

 wrote in message
87utp9$fkj$1...@news.IT.net...


 wrote in message
RMFo4.109633$C3.11...@news.infostrada.it...

Qualcosa di simile.
ciao

 
prova su it.comp.ia
Newsgroup: it.comp.lang.pascal
Titolo: stack overflow error????

ma che errore è? che vuol dire?
grazie
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

> ma che errore č? che vuol dire?
che hai finito lo stack :-)   lo stack e' quella parte di memoria
che viene utilizzata per mantenere le informazioni sulla procedura
in esecuzione e le sue variabili locali (non quelle dinamiche)
Lo stack 'cresce' ad ogni chiamata e si riduce al ritorno.
Di solito ottieni uno stack overflow quando fai troppe chiamate
ricorsive: lo stack cresce fino ad arrivare alla dimensione massima
e dato che l'opzione {$S+} e' attivata di default il prog si ferma
e ti avvisa... se non lo fosse chissa' che roba :-)
Soluzione:
controlla che eventuali procedure/funzioni ricorsive abbiano
un caso base, cioe' che la ricorsione termini prima o poi
-- 
Dreadnaut
(Life would be easier if I had the source code)

un caso base, cioe' che la ricorsione termini prima o poi
function Y ( X : longint ) : longint;
begin
    Y:= Y ( X -1 );
end;
Qualcosa del genere?
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

 un caso base, cioe' che la ricorsione termini prima o poi
grazie della spiegazione, posso postare il programma che mi
da quel problema? poi mi aiuti? ti dico che è un prog
abbastanza corto.
grazie

 abbastanza corto.
no ! assolutamente no ! :-)
che domande... potevi postarlo anche subito e nessuno si sarebbe
lamentato ! :-)
-- 
Dreadnaut
(signless perche' in trasferta)

Il Manchester United mi incantava con il suo gioco quando
Dreadnaut
(
drea...@libero.it
) mi interruppe asserendo:
[CUT]
eccolo quà:
program esempio;
uses crt;
type matrice=array[1..100,1..100] of integer;
     vettore=array[1..100] of integer;
var mat:matrice;
    somma:vettore;
    r,c,i,j:integer;
procedure carica(var mat:matrice; r,c:integer);
var x,y:integer;
begin
 clrscr;
 x:=1;
 y:=1;
 for i:=1 to r do
  begin
   y:=y+1;
   x:=1;
   for j:=1 to c do
    begin
     x:=x+5;
     gotoxy(x,y);
      write('  ');
     read(mat[i,j]);
   end;
  end;
 clrscr;
 for i:=1 to r do
  begin
   for j:=1 to c do
    write(mat[i,j],'    ');
   writeln;
  end;
 readln;
end;
procedure calcolatot(mat:matrice; r:integer; c:integer; var
somma:vettore);
begin                                         *<---------
qui dà l'errore*
 for i:=1 to r do
  for j:=1 to c do
   somma[i]:=somma[i]+mat[i,j];
 for i:=1 to r do
  write(somma[i],'  ');
end;
begin
 clrscr;
 writeln('Quante righe?');
 readln(r);
 writeln('Quante colonne?');
 readln(c);
 for i:=1 to r do
  somma[i]:=0;
 carica(mat,r,c);
 calcolatot(mat,r,c,somma);
 readln
end.

 procedure calcolatot(var mat:matrice;
grazie ora funziona!

Newsgroup: it.comp.lang.pascal
Titolo: Problema con char....

Salve. Ho un problema con un semplice programmino Pascal....
E' tutto fatto con le procedure.
Allora..... è abbastanza complicato a spiegarsi, cerchero' di essere +
chiaro possibile!
All'inizio del prog c'è un menu (1,2,3,4,5,6) da cui effettuare una
scelta per cui ho messo all'inizio del prog un repeat, poi menu e
tutto il resto, e alla fine ho messo "until
(S='1')or(S='2')or(S='3')or(S='4')or(S='5')or(S='6');"
con s una variabile di tipo char da usare poi con il CASE OF per i
vari menu.
Subito dopo il menu ho messo anche un if così:
" if s in ['1','2','3','4','5'] then ......... tutto il prog "
e alla fine "else errore;" che richiama una procedura con uin
messaggio d'errore.
il problema è che se si mettono valori del tipo "93" o "gh3" o "2j56"
o altro, il prog funziona correttamente, se invece si inserisce un
numero tipo "220834" o "5308" o "4082" il programma non si blocca, ma
va alla voce del menu corrispondente alal prima cifra del numero
inserito, quindi negli esempi rispettivamente 2^, 5^ e 4^ opzione.
Spero di esser stato ababstanza chiaro, altrimenti speditemi pure una
mail, basta che m'aiutate PLS! :o)
Bye bye!

 mail, basta che m'aiutate PLS! :o)
Spero di esserti stato di aiuto ..
Ciao
Daniele

Newsgroup: it.comp.lang.pascal
Titolo: Si possono creare in pascal degli enventi ?

Esiste qualche modo per dire ad un programma pascal che con una
determinata azione (per esempio la pressione di un tasto), in qualunque
parte del programma in cui sta, deve eseguire una determinata procedure...
OOP ?
Phones
P.S.
non mi dite di mettere tanti if  e readkey o keypressed !

 
si`, questo e` un modo.
Un altro e` quello di gestire in modo diverso il programma, ex:
repeat
  (* controlla pressione tasto *)
  (* esegue un pezzo di programma *)
until ecc.
Se ci dici piu` precisamente che cosa vuoi realizzare, possiamo aiutarti
meglio.
Cmq, se intendi qlc tipo VB, no, non si puo`: ci vuole VB ;-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                    Attenti all'antispam XXX 
La tua famiglia e' felice?  Oppure tu la sera rincasi?
		-- Henny Youngman

 Cmq, se intendi qlc tipo VB, no, non si puo`: ci vuole VB ;-)
Ok, adotterò un linguaggio Visual...
GoodByte !
Phones

OOP ?
E' troppo complicato da realizzare in ambienti non windows.
Usa Delphi.
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO: come andare accapo ?

Sto usando i file text (text=file of char) è ho un problema: quando dgt 1234
(ad esempio) nel file fisico (prova.txt ) ci sono i caratteri 1234, ma se
voglio distribuire nel file fisico i quattro numeri in 4 righe, come faccio
? Io voglio digitare, nel programma, 1234 mentre nel file fisico (prova.txt)
mi si deve vedere :
1
2
3
4
Per favore, ditemi come fare ! Buon anno a tutti !

Per favore, ditemi come fare ! Buon anno a tutti !
Str:='1234';
For I:=1 To Length(Str) Do WriteLn(TextFile,Str[i]);
In un file di testo l'andata a capo e' determinata da due byte:
 #13, che fa ritornare all'inizio del rigo;
 #10, cha fa avanzare al rigo successivo.
Quindi nel file di testo troverai i seguenti byte:
 #49,#13,#10,#50,#13,#10,#51,#13,#10,#52,#13,#10,
 '1'         '2'         '3'         '4'
                                ^^
Ciao
Andrea C

anziche write (filetxt, variabilecar) prova con writeln (???) oppure
aggiungi #13#10 alla fine di ogni riga
-- 
Arrivederci.    odc Luigi Nodari

Newsgroup: it.comp.lang.pascal
Titolo: [joystick], come leggerlo

Ciao
Come è possibile in D4 leggere il joystick (posizione, pulsanti, etc.).
Un Grazie a tutti.
Andrea M.

Qui sei OT!
Prova in it.comp.delphi

Newsgroup: it.comp.lang.pascal
Titolo: Impedire l'overflow

Estiste qualche trucchetto per impedire questo errore?
Io cerco una cosa del genere:
	over:=false;
	disabilita_blocco_per_errore overflow;
	esegui_operazione;
	if (errore di overflow) then
		over:=true;
	riabilita_blocco_per_errore_overflow;
In genere io risolvo il problema facendo un controllo preventivo sui
fattori. Se per esempio devo fare 
	r:=a*b
allora faccio:
	if abs(a) < (MaxReal/abs(b)) then
		r:=a*b
	else
		over:=true;
Ma ovviamente questo e' solo un dei casi che possono portare ad un
errore di overflow e cosi' sono costretto a tutta una serie di
controlli in base all'operazione da eseguire o alla funzione da
calcolare.
Ciao,  Fabio
--
fabi...@rocketmail.com

Estiste qualche trucchetto per impedire questo errore?
Adesso non ho sotto mano il TP, ma dovrebbe esserci il modo di
agganciarsi alla routine di gestione degli errori di run-time.
Dovrebbe cioe' essere possibile definire qualcosa del tipo 
{$F+}
procedure GestoreMioErrore ; 
...
{$F-}
ed assegnarlo alla variabile preposta, di tipo "procedure" con
un'istruzione del tipo :
GestoreStandard := @GestoreMioErrore;

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

il mio indirizzo e' 
mim...@itn.it
cazzo ! ma questa e' pirateria ! 


Newsgroup: it.comp.lang.pascal
Titolo: PRINCIPIANTE

Help! sono un principiante!
ho qualche minima conoscenza, ma vorrei conoscere meglio il linguaggio,
soprattutto vorrei lavorare con i file, e con i valori binari di un file o
stringa ecc...
se avete manuali e co...
a proposito:
Ho una bellissima libreria per il Turbo Pascal (*.tpu) e vorrei importarla
nel dev, solo che lui i file *.tpu non li legge! Consigli?

 nel dev, solo che lui i file *.tpu non li legge! Consigli?
A) Hai il sorgente? Ricompila!
B) Non ce l'hai? Oh oh oh... sparati. Potrebbe esistere qualche
pazzo/maniaco/folle che la converta, ma ho i miei dubbi. Mio suggerimento:
convertire il .tpu in .obj(non so come, ma già è più facile); convertire il
.obj in .o(non significa rinominarlo, i .o usano il formato coff, almeno per
Dos, quindi ti serve un programma; il linker della microsoft può convertire
se non sbaglio i .obj in .o); sperare che non si lamenti perché è a 16 bit e
non a 32. Comunque non fare niente se qualcuno non spiega come farlo
effettivamente, è molto difficile da realizzare. Ciao!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

Newsgroup: it.comp.lang.pascal
Titolo: Cerco TurboPascal 7.0

Cerco turbopascal 7.0 ma non riesco a trovarlo, neanche sulla pagina della
mailing non si riesce a scaricare, qualcuno conosce qualche sito da dove si
possa scaricare?
Ciao, Paolo
-- 
Posted from [213.205.2.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao, Paolo
CONTROLLA I POST PRECEDENTI!!

 possa scaricare?
L'hanno appena postata la lista!!!
Newsgroup: it.comp.lang.pascal
Titolo: Errore nel prg !!

Ho creato questo semplice prg, il problema è che non funziona !
Chi riesce a trovare il problema e a correggerlo ??
Grazie.
______________________________
program password;
uses Crt;
const
 ParolaEsatta : string = 'La vacca fà la cacca !';
var
 StrParolaD_Ordine : string;
 q : char;
begin
 clrscr;
 TextColor(12+16);
 writeln('                             File Protetto !!');
 TextColor(7);
 writeln('    Immettere la password per visualizzare il contenuto del file
!');
 TextColor(14+16);
 writeln ('                   Introdurre la parola d''ordine !');
 TextColor(10);
 readln(StrParolaD_Ordine);
 if StrParolaD_Ordine <> ParolaEsatta then
 TextColor(12);
 writeln('               AH AH AH ! Hai sbagliato ! CIPPIRIMERLO !');
 else
 TextColor(10);
 writeln('Complimenti,hai scoperto la password ! Bella vero !');
 delay(5000);
 writeln('             6 davvero un bravo ragazzo !');
 TextColor(1);
 writeln('                       Copyright by AleSoft 2000');
 writeln('                      Thanks to use my software !');
 TextColor(7);
 write('                             Premi Q per uscire');
     q:='a';
     while q<>'q' do begin
                          q:=ReadKey;
                          end;
end.
--------------------
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

Dovresti mettere dei begin ... end cosě
if StrParolaD_Ordine <> ParolaEsatta then BEGIN
 TextColor(12);
 writeln('               AH AH AH ! Hai sbagliato ! CIPPIRIMERLO !');
END
 else BEGIN
 TextColor(10);
 writeln('Complimenti,hai scoperto la password ! Bella vero !');
END;
Ciao Luciano

 wrote in message
Ys1V5.3283$tS2.1...@news.infostrada.it...

Grazie

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

Ciao, volevo chiedere a qualcuno se mi potrebbe scrivermi le istruzioni per
fare un'animazione in PASCAL. Mi servirebbe, un lancio di un missile.
GRAZIE e ciao

 ha scritto nel messaggio
news:WZce6.76477$ew1.4...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: uses UNIT; Quanto appesantisce l'exe?

Quando utilizzo unit precompilate, con la direttiva USES,
ma poi non utilizzo alcun comando di quella unit, appesantisco il 
file exe finale?!
ovvero:
il compilatore compila comunque i comandi delle unit esterne, che non
utilizzo?
NM
PS: se la risposta fosse no, i seguenti codici dovrebbero dar vita a
lo stesso file exe:
PROGRAM nulla;
uses crt,printer,graph;
BEGIN
END.
*****
PROGRAM nulla;
BEGIN
END.

Non sono sicuro, ma credo che il Turbo Pascal inserisca nel .EXE tutte
le funzioni e procedure dichiarate nella unit anche se non utilizzate,
mentre il Free Pascal ha una cosa chiamata SmartLink che include solo
quelle utilizzate risparmiando spazio.
Omega e' omega e basta.

 lo stesso file exe:
la risposta e' no ma gli exe risultanti sono diversi :-)
--
Dreadnaut
(Life would be easier if I had the source code)

Bč, meglio di nulla!
NM


Il pascal inserire solo le funzioni realmente impiegate nel programma
nell'eseguibile.
Il C invece inserisce tutte anche quelle non impiegate e per questo gli
eseguibili in c sono più robusti.
Cooper.

tp7 non inserisca tutte le procedure, bensi' solo quelle utilizzate
Io invece ti posso dire (almeno per il Borland Pascal) che lui include
solo il codice utilizato....
per esepio se tu fai:
Programm X;
Procedure NoUse;
Begin
   Quello che ti pare anche tutto windows
End;
Procedure Use;
Begin
   WriteLn('Ciao');
End;
Begin
   Use;
End;
Se provi ad andare direttamente a una linea di NoUse (F4) ti dice che
quella linea non č stata compilata (indi non ci puo' andare),
analogamente con le Unit, pero' per le unit c'č un discorso diverso da
fare per le variabbili, e le procedure di inizializazione
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: stampa





ciao a tutto il NG sono un 
principiante sulla programmazione in pascal, come si fa ad impostare la 
stampante per poter avere il listato? grazie a tutti coloro che gentilmente mi 
rispondernno.



 ha 
  scritto nel messaggio 
news:8ruq3v$iea$1...@nslave3.tin.it
...






grazie cistian, qualcuno ha accolto 
il mio help. Io non riesco a stampare direttamente (hp710), ho risolto il 
problema salvando i programmi da tp7 come files .doc, purtroppo non tutti i 
caratteri vengono riconusciuti. Suggermenti...?  
ciao

Newsgroup: it.comp.lang.pascal
Titolo: PAS Math

Ho riscontrato un nuovo bug, infatti
a^0=1 con a<>0
perciò la dicitura 0^0 deve risultare uguale a 0, e non a 1...
non è un grossissimo bug, ma ho pensato ke sarebbe stato meglio
comunicarvelo... Ciao Ciao
Torbo

 sarebbe stato meglio comunicarvelo...
Non e' un bug ma, in quanto forma indeterminata,
andrebbe sicuramente gestita in modo opportuno.
Hai fatto bene a farlo notare.
Grazie :-)
Ciao, Carmelo.

> Windows) se ne fregano e restituiscono (arbitrariamente?)
arbitrariamente! ho fatto analisi oggi... (devo vedere se l'ho passata per
fare lo sbruffone così!)
Newsgroup: it.comp.lang.pascal
Titolo: numeri romani..





ciao a tutti sono nuovo.. vorrei 
compilare un programma che dato un numero mi trova il corrispondente in numeri 
romani.. nn voglio da nessuno il codice.. vorrei solo che qlc se è in 
grado.. mi sappia dare qlc indizio.. "indicare la strada".. grazie x le 
eventuali risposte..



TUTTO É POSSIBILE.
Basta che metti un po' di case e usi concatenazioni di stringhe. Io non ho
mai creato un programma di questo genere, ma ne ho fatto uno che dato un
numero arabo stampa il corrispondente in lingua italiana (es.: 31 ->
trentuno)...
E da quanto dici dovrebbe essere molto simile.
Sono a tua disposizione per qualsiasi aiuto o indicazione
Michele

 numero mi trova il corrispondente in numeri romani..
visto che nessuno risponde, ti butto una dritta ma ho poco tempo :-)
Parti dal tuo numero (1954), guardi se puoi scrivere delle migliaia
(>1000 ? si -> M) e in caso positivo fai modulo 1000 e ti rimangono
le centinaia (954). Ripeti con 500 (si, D, 454), poi 100 si, CD, 54),
poi ancora 50 (si, L, 4), 5 (no) e infine le unita' (si, IV, 0 - hai
finito).   Se posso consigliare tieni degli array con le stringhe
gia' pronte tipo questi ed elimini un po' di if
const
 unita     : array[0..4] of string = ('', 'I', 'II', 'III', 'IV');
{ ... }
 centinaia : array[0..4] of string = ('', 'C', 'CC', 'CCC', 'CD');
{ ... }
oppure tagli fuori 5, 50, e 500 considerando solo unita, decine etcetc
con vettori piu' lunghi e diventa abbastanza banale
 ('', 'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC', 'CM')
[non ricordo, c'e' qualcosa per 5000 o 10000 ?   boh...]
saluti,
un Dreadnaut oberato
-- 
[ 
http://dreadnaut.servebeer.com/
 ]

 ha scritto nel messaggio
news:dad40748.04031...@posting.google.com...


> [snip]
ops scusa per il "nessuno risponde": e' che google mostra i messaggi
con un notevole ritardo (a volte due o tre ore) e quando avevo postato
nessuno aveva ancora risposto :-)
-- 
Dreadnaut

Newsgroup: it.comp.lang.pascal
Titolo: OT: cerco info su FORTRAN

Scusate... l' OT, ma sapete di info da leggere in rete riguardanti il
vecchio Fortran?
Non lo vorrei studiare ma sono stato obbligato dal professore...
Ciao

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