mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Mi aiutate a fare un programma?

Vorrei fare un programma che legga una stringa o se non si puo' un array, e
poi rotei di 2 lettere ogni lettera.
cioe' ad esempio
a=c
b=d
z=b
ecc.
Aiutatemi per favore!
Ciao
?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
Fan #1 di Ruko & Teruo Tatase H__H
Fan di Maison IkkokuFan di Sailor MoonFan di Ranma½
Fan di Lamu'Fan di CreamyFan di Nadia
(Fan di Blue GirlFan di UrotsukidojiFan di VenusV
Fan di Ogenki ClinicFan di QLee)
ASTF&GEDAM SUCKS
Ferrara Carmelo 
ranma...@iol.it
Firma anche tu la Petizione Anti-Censura negli anime
vai in 
http://www.geocities.com/tokyo/towers/4689

Ranma+AL0- ha scritto nel messaggio +ADw-6j9u9t+ACQ-o6i+ACQ-1+
AEA-hermes.iol.it
+AD4-...
+AD4-Vorrei fare un programma che legga una stringa o se non si puo' un array, e
+AD4-poi rotei di 2 lettere ogni lettera.
+AD4-cioe' ad esempio
+AD4-a+AD0-c
+AD4-b+AD0-d
+AD4-z+AD0-b
+AD4-ecc.
+AD4-Aiutatemi per favore+ACE-
+AD4-Ciao
+AD4-
Ecco la mia idea riguardo a questo programma.
L'ho fatto velocemente e probabilmente e' migliorabile,
ma tutto sommato funge :))
                               Bye
                              Mobius
Program Rot2+ADs-
Var S: String+ADs-
Function R(S: String): String+ADs-
Var N: Word+ADs-
Begin
   For N :+AD0- 1 To Length(S) Do
      If (S+AFs-N+AF0- +AD4APQ- 'a') And (S+AFs-N+AF0- +ADwAPQ- 'z') Then
         S+AFs-N+AF0- :+AD0- Chr(96+-(Ord(S+AFs-N+AF0-)-94) Mod 26)
      Else
         If (S+AFs-N+AF0- +AD4APQ- 'A') And (S+AFs-N+AF0- +ADwAPQ- 'Z') Then
            S+AFs-N+AF0- :+AD0- Chr(64+-(Ord(S+AFs-N+AF0-)-62) Mod 26)+ADs-
   R :+AD0- S
End+ADs-
Begin
   Write('Stringa:   ')+ADs-
   ReadLn(S)+ADs-
   WriteLn('Risultato: ',R(S))
End.

ecc.
In Pascal per forza?? In C ti viene molto meglio...
Allora:
var  s:string;
        i:integer;
begin
 readln(s);
 for i:=1 to length(s)do
    begin
     s[i]:=chr(ord(s[i])+2); {Non so sinceramente se si può fare
s[i]:=s[i]+2}
    end
end.
Ciao ciao....
Ahhh... ops... rileggendo mi accorsi dell'errore:
var  s:string;
        i:integer;
begin
 readln(s);
 for i:=1 to length(s)do
    begin
     case s[i] of
        'a'..'x': s[i]:=chr(ord(s[i])+2);
        'y': s[i]:='a';
        'z': s[i]:='b';
    end
end.
Ariciao...
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

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

Si può utilizzare il modem con il pascal 7.0?
Se si, come?
DG

 wrote in message
eVDR3.12944$yQ.1...@typhoon.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Unit Winsock

Perchč non fare un progetto tale?
Ovvero creare un unit winsock made in this ng :)
perň......
come????? Io da solo di sicuro non ci riuscirei mai
Che ne dite di provare?
Un omega sognatore...
--
=Omega======================
"Hands On"
============================

Mi pare che esista gia' su freepascal.org...
Keita'

Newsgroup: it.comp.lang.pascal
Titolo: Come si fa a salvare in file nascosto?

E' possibile che un programma in pt possa creare un file nascosto e
gestirlo?

gestirlo?
Sì, si può :-)
Guarda sull'help la funzione FileAttr o qualcosa di simile... :-)
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAM
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per imparare...

Ciao a tutti,
ho vari problemini con il caro pascal!
Non prendetemi in giro, è circa un mese che lo sto studiando, ed ancora non
so fare nulla.
Per esempio perchè quando scrivo un programma per trovare le soluzione di
un'equazione di 2° grado mi esce fuori questo?
"Inserisci tre numeri reali"
"3"
"6"
"2"
"-4.2E-01-1.6E+00"
Cioe' perchè mi scrive il risultato in questo modo? Le variabili impostate
sono di tipo real, se metto integer non posso fare la radice quadrata,  e mi
aggiunge "E+XX" anche quando il risultato è intero!
E poi un'altra gentilezza:
a cosa servono i benedetti comandi ARRAY e RECORD? Quella bestia di libro
che ho non li spiega molto bene (ma purtoppo penso che sono io che non
riesco a capire).
Ed ancora:
Perchè non riesco a fare l'exe del programma?
Ho già impostato la scrittura sul disco come consigliato su un altro post,
ma mi fa sempre un file .pas, sia con compile, sia con make, sia con
build!!!
Grazie a tutti e scusate la mia incompetenza, anzi se avete qualche buon
sito dove trovare una buona guida con MOLTI esempi (dato che sono un po'
limitato) vi ringrazio moltissimo.
Ciao, Daniele.

...


> Che anno scolastico sei ?
Purtoppo al 1° universitario di informatica!!!
Daniele.

Allora, ho risolto il problema dei risultati esponenziali e quello dell'exe,
ma ancora non so utilizzare il comando ARRAY e RECORD.
Qualche suggerimento per iniziare ?
Grazie, Daniele.

Ciao.
Innanzitutto array e record non sono due comandi ma sono due parole
riservate del Pascal per definire delle strutture dati complesse.
ARRAY sta per vettore che č un insieme di variabili omogenee (dello stesso
tipo) utilizzabili tramite un indice.
p.es
.:
var
  pippo : array[1..10] of integer;
definisce una struttura formata da 10 variabili di tipo integer.
Il nome della struttura č pippo
per accedere alle singole variabili si fa pippo[1], pippo[2], ecc.
pippo[1] := 3;
assegna il valore 3 alla terza posizione della struttura pippo.
Il RECORD č una struttura dati in cui si mettono insieme piů variabili non
omogenee (campi) cmq il record č un concetto un po' piů complicato del
vettore per poterlo esaurire in due righe.
Ti suggerisco di studiare un manuale di programmazione di base per imparare
queste cose.
saluti. Luciano
Anche un manuale di quelli che si usano alle scuole superiori dovrebbe andar
bene.

Grazie mille per la pazienza e le spiegazioni, come libro ho "introduzione
al pascal" di Welsh-Elder, utilizzato dal mio professore universitario.
Ho cercato il graw mc hill come consigliato da alcuni, ma sinceramente
spendere 94.000 lire per un testo è un po' troppo per le mie finanze!!!
Ciao, Daniele.


 al pascal" di Welsh-Elder, utilizzato dal mio professore universitario.
Ehi, è lo stesso libro che uso io. Stai per caso anche tu alla Sapienza?
Ciao!


io ho informatica con il pascal di zanichelli, mi sembra buono e tutto viene
trattato gradualmente. adatto nn solo per la classe che faccio io (III liceo
scientifico), ma anke superiori (IV e V sicuramente)!
Newsgroup: it.comp.lang.pascal
Titolo: units

scusate, mi sapreste indicare un sito da dove scaricare le varie unit
(*.tpw)?
voi utilizzate una versione pascal per win(io uso la 7)?
con la versione 7 per windows, posso creare dei bottoni che possono essere
"premuti" con il mouse?
grazie a tutti
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
     UIN ICQ 117743990
per il replay togliere NOSPAZZATURA

Se vuoi passare alla stesura ed allo sviluppo di codice per windows, ti
conviene passare al Delphi, che è appunto il successore del Pascal e che usa
l'OBJECT PASCAL.
Ciao.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                           Giovanni Ceglia
                WebMaster & WebDesigner
 
http://www.xungame.com/
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

 ha scritto nel messaggio
news:afm_6.12710$mu2....@news2.tin.it...


 l'OBJECT PASCAL.
questo consiglio l'ho gia' ricevuto centinaia di volte. siccome ho ancora 16
anni, vorrei prima farmi le ossa con il pascal, magari tra un po' di tempo
accettero questo consiglio, anzi lo accettero' sicuramente, grazie


Cmq se ti piace giocherellare col pascal, per sotto DOS perņ io feci tempo
fa una libreria grafica se vuoi la puoi scaricare su 
www.xungame.com
ci trovi anche i sorgenti.

Newsgroup: it.comp.lang.pascal
Titolo: Tris ?

Che ne dite di una bella partita a tris ?
Fra programmi intendo :-)  oggi non sapevo cosa fare e' ho scritto una 
infrastruttura per permettere a piu' programmi di giocare fra loro, 
prendendo in input la griglia di gioco e restituiendo la loro prossima 
mossa. Qua c'e' l'eseguibile e la unit zippati, i sorgenti non ancora
perche' fanno anguscia e ribrezzo... metto a posto stasera
http://dreadnaut.servebeer.com/pascal/DTE.zip
La unit dtCommon va usata dai programmi giocatori e si occupa della
'comunicazione', con questa interfaccia:
 type
  simboli    = ( _vuoto, _O, _X );
  campogioco = array[1..9] of simboli;
 var
  io   : simboli;    { simbolo del giocatore -  input }
  campo: campogioco; { griglia di gioco      -  input }
  mossa: byte;       { mossa decisa          - output }
 procedure riceviCampo;
 procedure restituisciMossa;
 procedure visualizzaCampo(campo: campogioco);
(esempio in fondo)
`io` contiene il simbolo del giocatore, `campo` conterra' la griglia di 
gioco in input rappresentata come
123
456
789
mentre `mossa` va riempita con la posizione scelta dal programma per
la sua prossima mossa, sempre come numero fra 1 e 9
visualizzaCampo e solo momentanea e per debug, ma utile :-)
il dte va lanciato con i nomi dei due giocatori (senza .exe) e gioca
una sola partita in modalita' testo per il momento, e.g.
d:\tp\exe>dte umano umano
 . | . | .
-----------
 . | . | .
-----------
 . | . | .
Inserisci la tua mossa >
Come giocatore `umano`, per mostrare come funziona, ho scritto questo:
{---- umano.pas ----}
program Umano;
 uses dtCommon;
 begin
  riceviCampo;
  visualizzaCampo(campo);
  write('Inserisci la tua mossa > ');
  readln(mossa);
  restituisciMossa;
 end.
{---- fine, si e' tutto qua ----}
l'importante e' che mettiate un numero da 1 a 9 in mossa e poi dtCommon
si occupa di recapitarlo al programma principale :-)
Spero che sia abbastanza semplice e attirante per rubarvi 5 minuti e
scrivere il vostro giocatore !  io mi astengo cosi' Razziatore non
se la prende (per ora ehheheheheh) :-)
Lungi dall'essere perfetto cmq... in caso di comportamente veramente
anomali avvisate :-)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

gia' fatto un paio di correzioni... si uploadato. e' qua c'e' il
giocatore random se volete 
program Random;
 uses dtCommon;
 begin
  riceviCampo;
  randomize;
  repeat
   mossa := 1 + system.random(9);
  until campo[mossa] = _vuoto;
  restituisciMossa;
 end.

Newsgroup: it.comp.lang.pascal
Titolo: Siccome nessuno lo fa'...

posto io per farvi gli auguri di Buon Natale ;-)
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
anche a te vecchio mio :)
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 posto io per farvi gli auguri di Buon Natale ;-)
Buon Natale anche da qua :)
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG: 
http://xoomer.virgilio.it/greedyfly/directory/michele.asc

 
Scusate il ritardo mi accodo anche io per gli auguri di Natale e vi 
faccio sentiti auguri di un felice 2006
ReDiCuori
-- 
-- 
L'uomo non sa perchè si innamora, l'uomo viene travolto e basta
------------------------------­---------------------------
www.giordanoemilio.altervista.org
------------------------------­---------------------------
www.securitygroup.it
Società di servizio che opera nel campo
della sicurezza aziendale
------------------------------­---------------------------
www.pascallike.too.it
http://utenti.lycos.it/pascallike
il sito sulla programmazione pascal
sorgenti, tutorial ed utility
------------------------------­------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------­------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
------------------------------­-------------------------

 posto io per farvi gli auguri di Buon Natale ;-)
Io e la puntualità....
AUUUUUUUUUUUUGURI di un buon natale e un buon inizio (e proseguimento :))
del 2006!!!
--
________________________
· Omega
· 
http://gnammo.altervista.org
 <Ristrutturazione...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.pascal
Titolo: Help: albero binario

Ciao ragazzi!
Devo scrivere un programma per la verifica del bilanciamento di un
albero binario ordinato di interi. Qualora esso risulti sbilanciato
occore ribilanciarlo.
Il problema è il seguente: una volta che ho verificato che l'albero non
è bilanciato come posso bilanciarlo?
Grazie!
Caio De Filippo
icq: 8762057

...


è bilanciato come posso bilanciarlo?
Forse non daro' una risposta valida al tuo problema ma il mio consiglio e'
quello di usare un albero AVL auto-bilanciante.
Il meccanismo di funzionamento e' quello di controllare che ad ogni inserimento
(che funziona allo stesso modo di un albero binario) lungo il percorso seguito
non ci siano sbilanciamenti e laddove ci siano risolverli con una singola o
doppia rotazione dei nodi.
Puoi trovare una buona documentazione su internet circa l'uso di questa
struttura dati.
Andrea Laforgia
(remove NOSPAM from my address before reply via e-mail)
ICQ #8328956

quello di usare un albero AVL auto-bilanciante.
Buon consiglio ma non credo che il sig. De Filippo sappia cosa sia o
come implementare un albero AVL. D'altronde forse un albero red-black
o un B-albero (a seconda dell'utilizzo che  se ne vuole fare) sarebbe
consigliabile rispetto ad un albero AVL.
Al sig. De Filippo consiglio di leggere l'ottimo libro "Algoritmi in
Pascal" di Robert Sedgewick (io possiedo "Algoritmi in C++" ma se non
erro esiste anche la versione per il Pascal) se, come credo, è uno
studente universitario, lo potrà probabilmente trovare nella
biblioteca di ateneo o facoltà.
--
Roberto Lupi
Electronic Engineering Student - University of Ancona - Italy
Linux/NT System Administrator
Linux/Win32 Developer
Newsgroup: it.comp.lang.pascal
Titolo: E' possibile aprire un file in lettura e scrittura?

e se si ,come?

penso di no
Certo che si può fare !!!
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto please

Ciao a tutti avrei bisogno di un programma in pascal che stampa la tavola
pitagorica (moltiplicazioni) dei numeri da 0 a 9. Mi potete dare una mano.
Thanks.

pitagorica (moltiplicazioni) dei numeri da 0 a 9. Mi potete dare una mano.
for i := 0 to 9 do
begin
  for j := 0 to 9 do
    write( i*j ) ;
  writeln ;
end ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

 wrote in message
38b10721....@diesel.cu.mi.it...


 wrote in message
88si9o$gbl$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: ctrl-d eof?

mi hanno detto che con il ctrl-d si da la fine, ad esempio, di una
immissione di dati... com'è che non mi funziona? grazie mille.
Steve

Non dovrebbe essere CTRL-Z?
...forse però ricordo male.
Tu prova anche così e fammi sapere

...forse però ricordo male.
CTRL+z
non c'è dubbio

 non c'č dubbio

Newsgroup: it.comp.lang.pascal
Titolo: Problemi di (in)compatibilità con XP

Ad una mia collega che ha installato sul suo PC Windows XP Home, il Turbo
Pascal (versione 7) non opera più con moltiplicazioni e divisioni.
Cosa fa, butta VB o XP (io propenderei per la seconda soluzione :-)?

 Cosa fa, butta VB o XP (io propenderei per la seconda soluzione :-)?
Butta TP e passa diretto all'asm che non ha problemi di compatibilita' su
macchine x86
Vabbe' a parte gli skerzi sei sicuro che non vada?
Magari la tua collega ha fatto qualche gabola nel programma :))
Senno procedi cosi:
0) prova la compatilibilita' programmi di winXP
(programmi-accessori-verifica guidata compatibilita' programmi )
1)leva Tpascal
2)Inveisci contro la Borland per 3 ore
3) Chiedi scusa alla Borland e inveisci sul fatto che non hai Delphi Ent
perche' costa troppo
4)prova FreePascal
5) Prendi winXP ridacchia , e installa linux su un altra partizione
Keita'
Newsgroup: it.comp.lang.pascal
Titolo: compressione codice

Salve a tutti, ho un problema....nel seguente codice, nella
procedura(visual2) che visualizza le età in ordine vorrei comprimere
al massimo il codice senza scrivere le otto combinazioni delle
condizioni...c'è un modo per farlo??
-------inizio codice----
PROGRAM num_12;
VAR     nom1,nom2,nom3:string;
        eta1,eta2,eta3:integer;
PROCEDURE richiesta_dati;
begin
Writeln('Digita nome e età della 1a persona');
Readln(nom1,eta1);
Writeln('Digita nome e età della 2a persona');
Readln(nom2,eta2);
Writeln('Digita nome e età della 3a persona');
Readln(nom3,eta3);
end;
PROCEDURE ordina_nom(var a,b:string );
var     temp:string;
begin
        If a>b then
        begin
        temp:=a;
        a:=b;
        b:=temp
        end
end;
PROCEDURE ordina_eta(var x,y:integer);
var     temp2:integer;
begin
        If x>y then
        begin
        temp2:=x;
        x:=y;
        y:=temp2
        end
end;
PROCEDURE visual;
begin
writeln('Nomi in ordine alfabetico:');
writeln(nom1);
writeln(nom2);
writeln(nom3);
Readln
end;
PROCEDURE visual2;
begin
writeln;
If (nom1<nom2) and (nom2<nom3) then
begin
writeln('Età in ordine:');
writeln(eta1);
writeln(eta2);
writeln(eta3);
end
else
If (nom1<nom3) and (nom2<nom3) then
begin
writeln('Età in ordine:');
writeln(eta1);
writeln(eta3);
writeln(eta2);
end;
Readln
end;
BEGIN
richiesta_dati;
ordina_nom(nom1,nom2);
ordina_nom(nom1,nom3);
ordina_nom(nom2,nom3);
ordina_eta(eta1,eta2);
ordina_eta(eta1,eta3);
ordina_eta(eta2,eta3);
visual;
visual2
END.
-------fine codice--------
scusate per la lunghezza del post....

Domanda cretina. Perchè non metti i dati in un vettore e ordini quello? 
Tipo:
Type
   RecPersona = Record
		 Nome : String;
                  Eta  : Integer;
                End;
Const
   MaxPersone = 10;
Var
   NumeroPersone : Integer;
   Persone       : Array[1..MaxPersone] Of RecPersona;
Fatto questo inserisci i dati nel vettore ed incrementa la variabile 
NumeroPersone in base a quanti input hai, poi ti basta un'unica 
procedura di ordinamento (che so un bel bubble sort o quick sort) tipo:
Procedure OrdinaPerNome;
Var
   Appo : RecPersona;
   I    : Integer;
   Ok   : Boolean;
Begin
   Repeat
     Ok := True;
     For I := 1 To NumeroPersone-1 Do
	If Persone[I].Nome > Persone[I+1].Nome Then
	   Begin
     	     Appo         := Persone[I];
	     Persone[I]   := Persone[I+1];
              Persone[I+1] := Appo;
              Ok           := False;
            End;
   Until Ok;
End;
Ora hai l'intero vettore ordinato in base al nome. Per l'età è la stessa 
cosa
Ciao,
David

Domanda cretina. Perchè non metti i dati in un vettore e ordini quello?
il fatto è che non sono ancora arrivato a studiare il Type e le Array
e quindi non sono riuscito a trovare la soluzione.....
ma per caso c'è una soluzione più semplice per avere lo stesso
risultato??
grazie per l'aiuto!

Senza "almeno" gli array non credo proprio
Newsgroup: it.comp.lang.pascal
Titolo: "USES CRT,GRAPH;" AIUTOOOOOO!





Posseggo il TP7 e non riesco a far funzionare alcuni programmi 
quando voglio entrare nella modalità grafica, l'elaboratore quando compilo il 
programma mi da file CRT.TPU not found, ho controllato ed infatti non posseggo 
il file CRT, sarei contento se qualcuno mi spiegasse il perchè, e se il problema 
è causato dal fatto che non ho il file CRT.TPU o da qualcos'altro, se la causa è 
per il file sarei felice se me lo mandasse via mail.


 


P.S. Il mio indirizzo e-mail è 
cobraki...@libero.it



 ha scritto nel messaggio
news:000801bff0d7$587d3a20$fe861597@cobrakiller...


 P.S. Il mio indirizzo e-mail è 
cobraki...@libero.it
Ti mando in E-Mail la libreria!
Ciao
MaTTeO.

 P.S. Il mio indirizzo e-mail č 
cobraki...@libero.it
--
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

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

Chi mi saprebbe spiegare come usare i records?
Grazie
Marco
E-mail 
mar...@libero.it


type
    data = record
                        Giorno: byte;
                        Mese: byte;
                        Anno: word;
               end;
var
    data1, data2: data;
begin
    data1.Giorno := 7;
    data1.Mese := 12;
    data1.Anno := 1999; { data1 = 7 dicembre 1999 }
    data2 := data1;    {  data2 e data1 coincidono }
    with data2 do
        begin
            Giorno := 8;
            Anno := 2000;    { data2 = 8 dicembre 2000 }
        end;
end.
_____________________________________________
"....c'e' vita nell'universo ?"
"Giusto un po' il sabato sera...."
            C.Guzzanti
e-mail:  
drfa...@libero.it
 
drfa...@tiscalinet.it
 
drfa...@tin.it
web:     
http://www.tiscalinet.it/drfalken
 
http://free.prohosting.com/~drfalken
ICQ#:  19598133
_____________________________________________
Newsgroup: it.comp.lang.pascal
Titolo: problema

Ciao ragazzi ho un problema..lo so ke non centra nulla col pascal ..ma lo
devo codare in questo linguaggio!!
Allora, mi è stato kiesto di costruire un programma ke,leggendo una matrice
N*N, faccia la somma dei numeri presenti nelle cornici di posto pari (la 2°,
la 4° ecc) e la somma dei numeri presenti nelle cornici di posto dispari
 1°, 3° ecc) e ne faccia il confronto!! qualcuno potrebbe darmi un aiuto???
grazie ciao
^_][ice][man][_^


wrote:

Non sono sicuro di essere sicuro di aver capito....
Cosa intendi per "cornice?" 
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596


  Prendiamo un esempio di matrice quadrata:
-->   2    4    6    8    5
        4    3    3    2    1
        4    8    2    1    1
        2    2    4    5    8
        1    2    3    1    1
la prima cornice è quella più esterna costituita dai numero ( a partire
dalla freccetta verso desstra):
2 -4-6-8-5-1-1-8-1-1-3-8-1-2-4-4...questa è quella più esterna ed essendo la
prima è dispari
poi c'è la seconda..ke è concentrica alla prima ke come potrai vedere è
composta dai numeri:
3-3-2-1-5-4-2-8
Beh..questa essendo la seconda è di posto dispari!!
Come saprai ora il mio problema è quello di fare la somma di tutti i numeri
delle cornici di posto pari, di posto dispari e fare il confronto dei
risultati...spero ke così sia più kiaro!!
Grazie,ciao
                                                        ^_][ice][man][_^

>risultati...spero ke così sia più kiaro!!
Lo avevo imaginato.... ma volevo essere sicuro prima di metermi a
lavorare a una cosa del tutto inutile...
poi ho bisogno di un paio di precisazioni...
l'arreybidimenzionale (o matrice) è inlimitato o limitato cioè se N >=
a NMAX sbrocca o non esiste nessun NMAX?
Una volta avuto
SUMPARI e SUMDISPARI che ci devi fare?


 SUMPARI e SUMDISPARI che ci devi fare?
    Beh dopo aver avuto le somme, devo dare un output in cui dico se la
somma dispari e maggiore dei pari, quella pari è maggiore dei dispari o se
sono uguali!
Ciao grazie
^_][ice][man][_^

Newsgroup: it.comp.lang.pascal
Titolo: [?] Dir

Come si fa per visualizzare l'elenco dei file contenuti in una determinata
directory?

uses Dos;
[...]
Procedure dDir;
const FileType= AnyFile;
var       DirInfo        : SearchRec;
  Begin
    FindFirst('*.*', FileType , DirInfo);
    While DosError=0 do
    Begin
      WriteLN(DirInfo.Name);
      FindNext(DirInfo);
    End;
  End;
FileType può essere una delle seguenti costanti, oppure, puoi metterne tante insieme sommandole o unendole con "a or b":
ReadOnly $01
Hidden $02
SysFile $04
VolumeID $08
Directory $10
Archive $20
AnyFile $3F
Ciao.
Darius. (
www.infotronica.it/darius/
)
Newsgroup: it.comp.lang.pascal
Titolo: AIUTO...

Salve! E' da poco che lavoro utilizzando Turbo Pascal 7.0
Qualcuno mi sa aiutare? Devo creare un algoritmo o una serie di istruzioni
per far creare in modo automatico dal programma un calendario riguardante le
partite di calcio. Ad esempio introdotte 6 squadre  il programma mi dovrebbe
creare il calendario delle partite stile schedina, cioé senza che due
squadre giochino insieme più di una volta nella stessa giornata. Non so se
riesco a spigarmi....
Ad esempio se hola squadra 1, 2, 3, 4, 5 ,6 in una giornata devono giocare:
1-2
3-4
5-6
La seconda giornata:
1-3
2-6
4-5
etc...Insomma che mi crei delle combinazioni....
E' possibile farlo?
GRAZIE MILLE!
max...@spm.it
Se potete rispondetemi in mail.....
BYE!

Ad esempio se hola squadra 1, 2, 3, 4, 5 ,6 in una giornata devono giocare:
Scusa il ritardo nella risposta, 
supponiamo n il numero delle squadre.
Si tratta semplicemente di trovare le disposizioni di n elementi su 2
posti che sono n!/(2!*(n-2)!) e nel caso specifico di 2 posti si può
usare la formula più comoda n*(n-1)/2
e sono del tipo ((squadra)i, (squadra)j) con i da 1..n-1 e j da i+1
..n
quindi nel caso di 6 squadre A, B, C, D, E, F le disposizioni sono
6*5/2 = 15
e sono le coppie ordinate (A, B) (A, C) (A, D) (A, E) (A, F) (B, C)
(B, D) (B, E) (B, F) (C, D) (C, E) (C, F) (D, E) (D, F) (E, F)
da invertire (se necessario) successivamente in (B, A) (C, A) (D, A)
(E, A) (F, A) e così via...
Ora, se ogni coppia ordinata viene considerata come un insieme di 2
elementi, le coppie di ogni giornata vanno scelte in modo da avere
intersezione nulla.
Ogni giornata, a sua volta, va considerata come un insieme di coppie
ordinate, e le giornate tra loro non devono avere elementi in comune.
Ad esempio uno schema valido per 6 partite (le giornate sono n-1 cioe'
5) e' 
1) (A,B), (C, D), (E, F)
2) (A,C), (B, E), (D, F)
3) (A,D), (B, F), (C, E)
4) (A,E), (B, D), (C, F)
5) (A,F), (B, C), (D, E)
Andrea
-----------------------------
"E ora tutti a divertirci..."

Newsgroup: it.comp.lang.pascal
Titolo: dove gnu compiler

sapreste indicarmi un sito abbastanza veloce non ftp da dove prelevare
gnu compiler
pascal
inoltre c'č qualcuno che possiede turbo pascal 7.0 della borland ? se sě
potreste inviarmi via e-mail 10 dischetto poiche io ho erroneamente
formattato il suddetto
disco .
grazie
de...@cibernet.it


Newsgroup: it.comp.lang.pascal
Titolo: problemino :)

sto cercando di fare un programma che, tra le altre cose, dovrebbe prendere
un file di testo e mettere tutto il
contenuto su una riga sola. in altre parole togliere gli accapi. Ora io ho
pensato di risolvere la cosa cosi':
read (ch);
if ch = 'accapo' then write (' ') else write (ch);
però non so con cosa sostituire questo accapo.
spero di essere stato chiaro, e anche che qualcuno abbia voglia di darmi una
mano :))
grazie mille

mano :))
Se stai lavorando in un ambiente MS-DOS ti basta eliminare ogni sequenza
#13 #10 
cioh 
if (ch = #13) then begin read(ch) end else write(ch);
Cosl eliminerai i caratteri 'accapo'.
In realt` il codice cosl scritto h un pr 'pericoloso' ma dovrebbe andare
bene.
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


prego, ciao
Gianfranco. e-mail: defe...@NOSPAMextero.it
Rimuovere NOSPAM per rispondere

 grazie mille

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

Esiste la possibilità in Asembler (o tramite q	ualche comando) di
sapere quale tipo di ram è montato sul PC in uso (DIMM, SIMM ecc) e
quanti MB (Memoria estesa compresa)...
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

 ha scritto nel messaggio
news:3a7ae232.2934369@pws...


 ha scritto nel messaggio
news:3a7ae232.2934369@pws...


Newsgroup: it.comp.lang.pascal
Titolo: Aprire il lettore

Come posso far si che secondo quello che preme l'utente il lettore cd venga
aperto?
Tipo:
Hai vinto un nuovissimo porta bicchiere!Lo vuoi?premi 1 non lo vuoi premi 2
e se uno preme 1 gli si apre il lettore cd nel caso invece prema 2 il
programma finisce...Come si puo fare?
Ciao e grazie!!

 ha scritto nel messaggio
news:3XnZ6.23869$8R5.6...@news.infostrada.it...


uso Tp7
non ho capito quello che hai detto

 ha scritto nel messaggio
news:3XnZ6.23869$8R5.6...@news.infostrada.it...


 ha scritto nel messaggio
news:9h5gof$btoc6$1...@ID-83341.news.dfncis.de...


 Ciao e grazie!!
Ciao a te e saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\   /\
\_/   V   \_/

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

Sono nuovo di questo NG e prima di rompervi le scatole con le mie domande
volevo chiedervi se c'è in giro per la rete qualche manuale o FAQ sul Turbo
Pascal ... naturalmente in Italiano e FREE ...
GRAZIE
P.S.: Gradirei che mi rispondeste in email
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

Spedito!

...

Newsgroup: it.comp.lang.pascal
Titolo: CERCO TP7 URGENTE!

Ciao,
saresti cosě gentile, se possiedi TP7, da inviarmene una copia zippata in
quanto tra pochi giorni ho un compito in classe molto difficile.
GRAZIE.
PS
Mandamelo via E-Mail!
--
////////////////////////////////////////////////////////////
STEFANO ABBATE.
abb...@peg.it
TARANTO, ITALY
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

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

quanto tra pochi giorni ho un compito in classe molto difficile.
Il TP7 non e` freeware, questo significa che nessuno che non voglia
commettere un reato puo` inviartelo per e-mail senza allegare la
licenza d'uso.
Prova invece il GNU Pascal o il FPK Pascal che sono freeware e che
puoi facilmente trovarli in rete e scaricarli.
A presto
Andrea

 
http://www.geocities.com/SiliconValley/Peaks/4731/

licenza d'uso.
Non e' esatto. la legge (in particolare l'art.121-bis della legge sul
diritto d'autore) punisce esclusivamente la copia a fine di lucro,
ergo se lo mandi gratis NON commetti reato, anche se e' evidente una
certa immoralita' nella cosa.
Solo per la precisione.
Filippo Giuseppe Maria. :-)

certa immoralita' nella cosa.
Non e' esatto.
La licenza di un programma e' esclusiva per una copia.
Non puoi fare una copia dello stesso e darla a qualcun altro perche' lui non ha
la licenza.
Tu fai la tua copia di backup, ma la fai per te stesso, e possiedi la licenza.
Se a casa possiedi due macchine e vuoi installare lo stesso programma hai
bisogno di due licenze ! ;-) (per essere in regola)
Andrea Laforgia
(remove NOSPAM from my address before reply via e-mail)

bisogno di due licenze ! ;-) (per essere in regola)
Certo, ma la cosa NON puo' avere conseguenze penali, ergo NON e' un
reato.
La legge (il codice penale, o meglio la legge speciale sul diritto
d'autore) puniscono solo la copia o l'elusione a FINE DI LUCRO.
E' evidente che fare una copia di un programma commercile per poi
regalarla ad un amico e' comnunque una violazione del contratto di
licenza, ma non ha conseguenze penali, ma solo in sede civile. La
societa' titolare del diritto d'autore dovrebbe farti una causa civile
per inadempienza contrattuale, ma ti posso garantire che ben poche
societa' si imbarcherebbero nell'impresa per una simile "inanitas"
legale.
Ti garantisco che parlo per conoscenza specifica delle norme in
materia.
Saluti,

legale.
Questo e' vero anche se non vorrei si giustificasse la copia che viene fatta per
gli amici ;-) 
Ciao ;-)


 legale.
Quello che dici e' vero, tra l'altro dimostrare il fine di lucro non 
e' cosi' facile
e quindi rischia "il carcere" solo chi vende abusivamente copie di 
programmi
protetti da copyright.
Pero' tu nel tuo precedente messaggio ne facevi solo una questione di 
morale,
e come hai detto adesso non e' solo questione di morale.
Tra l'altro ultimamente ci sono stati diversi controlli nelle aziende 
e quindi il discorso
dell'impunita' non vale per tutti.
by Frengo

Newsgroup: it.comp.lang.pascal
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 2000 (3 CDs) 70.000 lire
-Component Source MSDN 10/99 Edition (1 CD) 6.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 8.000 lire
-MSDNnews (opuscolo) January/February 2000 4.000 lire
Component Source MSDN e MSDNnews se associati a un numero di MSDN Library a
metà prezzo.
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it


Newsgroup: it.comp.lang.pascal
Titolo: Dove trovo la patch?

Sono la 9.9999999999E+99 persona che lo chiede, ma finora ho trovato solo
quelle per i programmi _gią compilati_.
Dove posso scaricare la patch _per il Turbo Pascal_?

...


Newsgroup: it.comp.lang.pascal
Titolo: [OT] Uml

Qualcuno sa dove posso scaricare un editor free per realizzare modelli Uml ?
Grazie ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:FzZX9.99391$AA2.4...@news2.tin.it...

-> 
dia.sourceforge.net
editor non solo UML
-> 
dia2code.sourceforge.net
traduce i class diagrams in C++, Python, SQL, Java, ADA... senza tener conto
di possibili errori sintattici, ad esempio per lui e' possibile l'eredita'
mulitipla in java.
Ma che ci vuoi fare: e' gratis!
ciao,
Nids
ps: entrambi sono sia per win che per linux

Newsgroup: it.comp.lang.pascal
Titolo: Creare virus!!!!!!!!!!!!!!

SALVE a tutti vorrei creare un virus in pascal qualcuno mi puo dare una mano
non solo vorrei creare anche un programmino che ad una certa data formatti
il pc qualsiasi sia il sistema operativo installato grazie mille

 qualsiasi sia il sistema operativo installato grazie mille
questo è semplicemnete impossibile invece :D
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

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


wrote:
Devi chiedere l'ora e la data al sistema e quando hai passato tale
data eseguire il comando Format ma scordati che funzioni.... gli
antivirus e windows stesso ti bloccano prima... in dos era tutto molto
+ semplice e per questo che i virus modeni sono quasi tutti di tipo
DoS { non DOS => Disk Operative System, ma DoS } oppure dei "semplici"
trojan...


 data eseguire il comando Format ma scordati che funzioni.... gli
e utilizzando qualche chiamata a qualche api che vada a scrivere dati
casuali in settori casuali dell' HDD di sistema ???

Newsgroup: it.comp.lang.pascal
Titolo: BATTAGLIA NAVALE

 GRAZIE!
Non è per caso che lo devi fare per l'università???
Io lo sto facendo nell'asembler del MIPS.
Airex



cyberfox ha scritto:

Perché proprio in assembly?
MaTTeO.

On Sat, 3 Jun 2000 10:44:56 +0200, "cyberfox" <cybe...@SoftHome.net>
wrote:
Perche' posti qua se lo devi fare in asm? Cmq se tu lo facessi in
pasquale io userei una bella matriciona del tipo:
plancia = array [1..n] of array [1..] n of quadretto;
dove quadretto e' un record che contiene info riguardo la nave (se la
nave tocca il bordo della plancia, il numero di quadretti che e'
costituito, un valore che indica se quel quadretto e' daneggiato...);

 GRAZIE!
NO Problem
Newsgroup: it.comp.lang.pascal
Titolo: Eureka!

Cari membri,
  poco tempo fa vi chiesi di spiegarmi come poter fare un conto alla
rovescia, in modo che il programma fosse capace di ricevere una risposta per
tutta la durata del conto alla rovescia.
Se la risposta fosse stata affermativa, il programma sarebbe terminato, se
fosse stata negativa, si sarebbe dovuta eseguire una procedura chiamata
"menu", in caso non ci fosse stata nessuna risposta, sarebbe uscito
comunque.
Ebbene, dopo anni di duro lavoro (... è sempre meglio esagerare!), ci sono
riuscito!
Il fatto è che, per far scalare i secondi, usavo l'istruzione
"delay(1000);", che crea un'attesa di 1 secondo, e la risposta in quel modo
si sarebbe potuta ricevere solo nell'impercettibile intervallo tra un
"delay" e l'altro. La soluzione, peraltro neppure complessa, sta nel fare un
ciclo FOR (con "i", il contatore, da 1 a 1000 volte), usando l'istruzione
"delay(1)", che crea un'attesa di un millesimo di secondo, ricevendo, sempre
all'interno del ciclo FOR, la risposta. In questo modo il programma è idoneo
a ricevere la risposta 1000 volte al secondo: in pratica sempre!
Grazie comunque per gli aiuti che mi avete dato e che, purtroppo, o erano
malfunzionanti, o erano incomprensibili per un programmatore inesperto come
me.
Ciao!
Filippo

Ma guarda che qualcuno ti aveva risposto qui sul NewsGroup dicendoti di fare
proprio tutto questo. Allora scrivi nell'NG e poi non leggi le risposte che
ti diamo??????
filippo ha scritto nel messaggio ...


 ti diamo??????
Sottolineo:
Grazie comunque per gli aiuti che mi avete dato e che, purtroppo, o erano
malfunzionanti, |o erano incomprensibili per un programmatore inesperto come
me|.
Ho letto tutte le risposte, ma, escluse quelle poi confutate da altri, ce ne
erano alcune con funzioni che non conosco. In ogni caso, non credo che ci
fosse stata una soluzione proprio come dico io, sennò l'avrei compresa.
Ciao!
Filippo
Newsgroup: it.comp.lang.pascal
Titolo: TP+ASM help

Salve!
Ho TP 7.0 per DOS e necessito di un semplice aiuto: accedere, in lettura e
in scrittura, a un array di byte e a variabili word da una parte in ASM.
Esempio:
var B:array[0..63,0..7]of byte;
var X;
 begin
 asm
 { qui vorrei accedere a X e a valori specifici di B }
 end;
end.
Ringrazio anticipatamente per l'aiuto!
Alex

 end;
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

Grazie a chi mi ha risposto anche provatamente per l'aiuto :)
Nuovo problema: devo usare questa istruzione assembler in Free Pascal:
funziona in Turbo Pascal, ma FP dà un errore nel parsing:
MOV AL,ES:BYTE PTR[BX]
Chi mi può aiutare?
Grazie, Alex

 Chi mi può aiutare?
Non puoi in FreePascal, perchè il Turbo Pascal funziona nella Modalità Reale
a 16 Bit dei Processori Intel, mentre il FreePascal funziona in modalità
Protetta e quell'accesso non è regolare, ovvero dovresti impostare prima la
IDT e poi puoi accedere all'area di memoria che ti interessa.
Inoltre TP usa la sintassi Intel, quella è sintassi Intel, mentre il
FreePascal come tutti i derivati e figli di Linux e di GNU, usa la sintassi
AT&T
Quindi ci sono due problemi a fare quella operazione.
1) Non sei in modalità Reale a 16 bit, ma in Modalità Protetta a 32 bit con
il Free Pascal.
2) IL Free Pascal usa la sintassi AT&T.

Comunque ci sarebbe un modo per far compilare al FreePascal in sintassi
Intel, io ho una libreria che converte le istruzioni ASM x86 in Sintassi
Intel in codice macchina, č una libreria scritta da me in Pascal, e si
compila perfettamente sotto freepascal.
Allora siccome il FreePascal da qualche parte deve avere il codice per la
sua libreria del compilatore ASM, si potrebbe sostituire quel compilatore
con la mia libreria e ricompilare il FreePascal, ottenendo in questo modo un
FreePascal con un compilatore ASM in sintassi Intel (IL mio compilatore
ASM).
Devo dire che questa cosa mi alletta, perchč cosě potrei dire "si ho dato il
compilatore ASM al freepascal", purtroppo non ho il tempo per sperimentare,
il mio compilatore ASM comunque risale a 5 anni fa e dovrei anche rivederlo,
ma sicuramente funziona correttamente, ci passai un sacco di tempo.
IL FreePascal si autocompila, quindi l'operazione da me descritta dovrebbe
essere possibilissima. Magari si potrebbe aggiungere una direttiva in stile
TP, secondo la quale se il compilatore ha questa direttiva compila in AT&T
altrimenti in INTEL o viceversa.
Sarebbe fantastico poter utilizzare il FreePascal sotto Linux con la
sintassi Intel.

 2) IL Free Pascal usa la sintassi AT&T.
No. FreePascal ha fra le impostazioni la scelta della sintassi dell'assebler
utilizzato, e ho impostato la sintassi Intel (tant'è che il mio programma si
compila - a parte l'istruzione incriminata). Purtroppo resta l'altro
problema, ma adesso studio i registri estesi che, se ho capito, mi
permettono di indirizzare tutta la memoria e risolverei il problema.
Grazie per le risposte. Alex
Newsgroup: it.comp.lang.pascal
Titolo: Piccolo Help

Come faccio a passare un valore 0 da Char a Integer?
Grazieee
--  

VariabileInteger = Ord(VariabileChar)
Ciao,
David


aparte che ord accetta anche costanti { e non solo varibili }. Non si 
usa solo per i char ma anche per esempio con i tipi enumerabili.
esempiuccio:
type
	Colors = (RED,BLUE,GREEN);
begin
	Writeln('BLUE has an ordinal value of ',
		Ord(BLUE));
	Writeln('The ASCII code for "c" is ',
		Ord('c'), ' decimal');
end.
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Certamente ma ho solo risposto alla domanda iniziale e non mi andava di 
incasinargli le idee ;)
Ciao,
David

Newsgroup: it.comp.lang.pascal
Titolo: Esempi di ricorsione!

Dove posso trovarne??

Quicksort direi, qualsiasi compilatore tu abbia immagino sia incluso
come file esempio.
-- 
Omega e' omega e basta
Newsgroup: it.comp.lang.pascal
Titolo: Funzione SOUND

Ho da poco iniziato con i primi elementari programmi in TP7, volevo
chiedere, per favore, se è possibile ascoltare i suoni anche attraverso la
scheda audio, o solo attraverso l'altoparlantino del case? In caso
affermativo come fare?
Grazie Giuliano

Con la funzione SOUND(freq_Hz) solamente attraverso l'altoparlante del case,
se vuoi utilizzare la scheda audio ...benvenuto nel mondo dell'assembler

Ho lo stesso identico problema, non è che puoi indicarmi una guida su questa
parte dell'assembler?
Ciao.

C'era un bel tutorial sull'utilizzo della scheda audio.... ed era nella
raccolta della PCGPE (PC Game Programmer's Encyclopedia), una e-zine di
programmazione molto interessante.
Provate qui:
http://www.qzx.com/pc-gpe/sound.html

Marcomix wrote:

Io ho una UNITA fatta dalla creative per pascal... la volete?
-- 
IL RAZZIATORE,
The Only good Windows is an Unistalled Windows
-----------------------------------------------------
EMAIL: 
razzi...@usa.net
WEB:   
razziatore.dsx.org
 sito in aggiornameto/alestimento
ICQ:   67552596

 Io ho una UNITA fatta dalla creative per pascal... la volete?
SIIIIIIIIIIIIIIIIIIIIIIIIIII

Gianluca M. wrote:

OK appena che la trovo (sta in qualche dischetto) la mando in EMAL..
gian...@hotmail.com
 va bene?



Benissimo! Grazie

la daresti anche a me, per favore? grazie razziatore...
forza PK!
iosephus, ego locutus

Per favore la invii anche a me?
ste...@libero.it
grazie Razziatore.

Per tutti quelli che me l'anno chiesto una biona notizia... domani torno 
a scuola dove c'č una copia su un HDD visto che non trovo la mia copia 
su Dischetto...
a una buona notizia e open source il che vuole dire che il codice e 
libero per chiunque lo voglia vedere...
ps:
volete la TPU o vi basta il pas?


 volete la TPU o vi basta il pas?
Pas... naturalmente!  ;-)

 per favore la invii anche a me grazie
Email : 
france...@hotmail.com

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
Il dolore e' un concetto della mente.  La mente puo' essere controllata.
		--  Spock,   "Operation   --   Annihilate!",   data   astrale	3287.2

Me la mandi anche a me?? se me la dai in tpu come faccio a compilarla?? TNX
ori...@tin.it
BYEZ

 bye!
Ok per tutti, metto il sorgento qui...
Scusate ma mi sono scordato i dischetti a casa...
Domani prometto che faro' di tutto per copiare il file .pas...


 ha scritto nel messaggio
news:92vpei$87vl3$1...@ID-66903.news.dfncis.de...


 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
- Perche' i carabinieri hanno i baffi?
- Perche' sulla lametta c'e' scritto "da barba".
		-- Da it.hobby.umorismo
Newsgroup: it.comp.lang.pascal
Titolo: [help] velocita`

ho realizzato un programma in pascal che fa intenso uso di calcoli in
floating point; il problema e` che risulta *molto* lento e anche la
precisione non e` delle migliori.
la colpa penso sia da imputare al compilatore (turbo pascal 7.0 sotto
win)
il suo equivalente in C e` fino a 20 volte piu` veloce (gcc sotto linux)
potreste consigliarmi un buon compilatore (se e` questo il problema) per
linux?
TIA
Kronos
-- 
Home: 
http://kronoz.tsx.org
You and me baby ain't nothin' but mammals
So let's do like they do on the Discovery Channel

win)
Probabilmente ci hai già pensato tu, ma nel caso te ne fossi
dimenticato....
Disattiva l'emulazione del cooprocessore matematico (mi par di
ricordare che in tp7 è di default attiva) tanto oramai tutte le
macchine lo possiedono. 
Altri motivi ho soluzioni non ne conosco.

 macchine lo possiedono. 
gia` fatto :(
ciao
Kronos
-- 
Home: 
http://kronoz.tsx.org
La vispa candela bruciava l'erbetta
creando un'essenza alquanto sospetta;
sembrava l'odore di una sacrestia
ma presto mi accorsi che era maria.

 So let's do like they do on the Discovery Channel
             ^
       it  - |

 ha scritto:

ulp, hai ragione :)
btw, riguardo al problema della velocita` ho risolto (in maniera poco
elegante) riscrivendo le parti critiche direttamente in assembly
ciao
Kronos
-- 
Home: 
http://kronoz.tsx.org


linux?
Prova con il FreePascal è più recente.... ma non so i risultati....
Ph.
Newsgroup: it.comp.lang.pascal
Titolo: scusate

sto cercando di costruire un gioco tipo impiccato e vorrei sapere se esiste
una funzione tipo clrscr che pero cancella solo parte dello schermo ad ex
dalla seconda riga?dubito qnd va bene:
gotoxy(1,2);
for a:= 1 to x do begin
write(' ');
end;
dove x sta per qualcosa tipo 100000

Ma usare writeln no?
gotoxy(1,2);
for a:= 1 to x do
writeln;
Ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

 --
usa la procedura ClrEol che ti cancella solo la riga...a partire dalla
posizione corrente del puntatore :)) Ciao
^_][ice][man][_^
--
=======================
Non approvo ciò che tu dici,
ma difenderò a costo della
mia vita il tuo diritto a dirlo ( Voltaire )
=======================


 >
    Writeln ti rimanda il cursore accapo....in questo modo devi riportarlo
su :)


Newsgroup: it.comp.lang.pascal
Titolo: Il Declino

Forse la Fine stà davvero arrivando.
Il Pascal è stato un bel linguaggio, ma oramai è in netto declino.
Così come la programmazione in generale.
Oggi è molto basata su "framework" enormi che modellano delle applicazioni
fotocopia. Con pochi colpi di mouse si disegnano semplici schermate mentre
tutto il resto sono "oggetti" inseriti con metodi che ricordano molto il
taglia & incolla.
Sicuramente l'utilizzo dei computer's oggi è molto più semplice di prima, le
procedure sono quasi tutte standardizzate, ma la creatività e soprattutto le
competenze sulla materia si stanno allontanando dalle possibilità del
singolo individuo.
Tutto quanto viene sviluppato nasce da grossi "team" o nelli grandi
multinazionali.
Buon Week-End
marc

 Buon Week-End
Altrettanto.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
Linux User #283140
GPG Public Key 
http://greedyfly.linkspirit.org/michele.asc

 marc
Ciao marc :)
--
=Omega============
Hands On
==================

 Forse la Fine stà davvero arrivando.
boh, giusto per attendere la Fine in compagnia (da soli e' triste) io 
sto' su #turbopascal, 
irc.azzurra.org
-- 
Dreadnaut - 
http://dreadnaut.servebeer.com/
(Life would be easier if I had the source code)

 
ancora esiste?
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com