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

Salve.
Ho bisogno di creare una matrice alfanumerica tridimensionale 3x3x3.
E' possibile col pascal ? Come ?
Io so operare solo su matrici bidimensionali !
                                                                Kosby

 ha scritto nel messaggio
news:3c2S8.67284$j65.1...@twister1.libero.it...

var MtreD : array[1..3,1..3,1..3] of integer;
e puoi inseire quante dimensioni vuoi
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
--------------------------------------------------------->

 e puoi inseire quante dimensioni vuoi
mmmh non proprio... dopo 1720 dimensioni mi ha dato
un simpatico "Internal Stack Overflow" :-)
[ facendo array[1..1, {....} 1..1] of byte altrimenti la struttura
supera molto prima i 64kb :-) ]
--
Dreadnaut
(Life would be easier if I had the source code)


Se ALFANUMERICA, non può essere di tipo INTEGER... al max CHAR oppure
STRING.
Per cui, dovrebbe essere:
Type MatrType = (* Tipo di dato: STRING o CHAR *)
         Matr3d = Array [1..3, 1..3, 1..3] of  MatrType
Cooper.

On Tue, 25 Jun 2002 19:36:47 GMT, "Dreadnaut"
<Drea...@liberoDALLASPAM.it> wrote:
Ma allora ogni tanto ti fai vivo...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO REPOST


ho già provato ma in compilazione mi dice CONSTANT OUT OF RANGE!!!!!!
perchè???

Entro nella stanza e...cosa ti vedo ? sette lettini.
Su uno di essi c'era scritto Riccardo :
#> until input in [0..MaxInt] ;
#ho gią provato ma in compilazione mi dice CONSTANT OUT OF RANGE!!!!!!
#perchč???
Evidentemente perche' puoi utilizzare solo 0..255
Prova a sostituire con 
until (input >= 0) and (input <= MaxInt) ;
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: HELP: Software per gestione clienti/accounts

Innanzi tutto scusate il crosspost sui vari gruppi, ma per la mia
inesperienza erano teoricamente tutti inerenti, ed ho pensato di
mandarlo a tutti.
Avrei necessita' di entrare in contatto con programmatori che abbiano
esperienza nella gestione di applicazioni di rete, o che possano darmi
dei suggerimenti.
Mi servirebbe un software da installare su diverse macchine client
facenti capo ad un server, i quali tramite un user-id e password
dovrebbero dare l'accesso all'utente per il tempo rimastogli
sull'account (dati presi dal server).
Se avrete la gentilezza di contattarmi in email sara' mia cura
illustrarvi con i dettagli necessari cio' di cui avrei bisogno.
Grazie per l'attenzione.
E. Gori
ne...@dada.it



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

salve a tutti..
ho un grave problema..
ieri ho avuto tema di informatica
su pascal e la **** ci ha messo dentro gotoxy.
il problema è che la mia
classe gotoxy nn l'ha mai usato perchè nn l'abbiamo mai studiato..
qnd, mi
chiedevo..nn è che potete spegarmi come si usa e a cosa serve?
grazie
mille
 
kiakim
ps: sapete dirmi un sito dove possa scaricarmi derive
per windows??
grazie ancora
--------------------------------
Inviato via 
http://usenet.iol.it

GotoXY(n,m);
E' una procedura molto semplice e banale da usare.
Praticamente sposta il cursore dello schermo dell'output nella
posizione n,m;
n è l'ascissa (coordinata orizzontale) ed m è l'ordinata (coordinata
verticale).
Cmq era abbastanza intuitivo no? Ma non avevate il compilatore
davanti, durante il compito? Se si potevi guardare nella guida.
NM

 ha scritto nel messaggio
news:62Z211Z25Z1Y10...@usenet.iol.it...


Newsgroup: it.comp.lang.pascal
Titolo: patch per PII

Ho bisogno di usare il TP su dei Pentium II, ho letto su alcuni messaggi del
newsgroup che esiste una patch per risolvere i vari bug... dove la posso
trovare?
Vi ringrazio tantissimo
Ciao
Guido Revello

Non serve più...già trovata
Guido Revello

...


 wrote in message
77qdsd$3re$1...@nslave1.tin.it...


 wrote in message 7a2hm8$pe1$1...@hermes.iol.it...

Newsgroup: it.comp.lang.pascal
Titolo: IL PASCAL E' IL LINGUAGGIO DEI FROCI!

MA VAFFACULO PROGRAMMATORI DI STO BOCCHINO DI PROGRAMMA.
TUTTO IL GIORNO DAVANTI ALLO SCHERMO A SCRIVERE IF, THEN...... E A FARSI
DELLE PUGNETTE COI PUNTATORI........NON VI SIETE NEANCHE ACCORTI CHE VOSTRA
MOGLIE O VI FA LE CORNA O SI ARRANGIA CON UN VIBRATORE DI GOMMA.
PASCAL FANCULO!
BORLAND DI MERDA VA A FARE DEI FAGIOLI (BORLOTTI).
ITIS MERDA.
DELUSI 99'
I PROGRAMMATORI SONO TUTTI DEI FIGLI DI PUTTANA, INFATTI HANNO I DENTI DA
CONIGLIO E GLI OCCHIALI GROSSI COME IL VETRO DELL'ACQUARIO DI GENOVA.
FINISCO LA STRINGA E VE LA METTO SU PER IL CULO CON DIECI ARRAY BIDIMENSIO -
ANALI !!!
VI AUGURO A TUTTI UN FELICE ANNO NUOVO E DI MORIRE PRESTO.
CIAO VIVI-MORENTI  !
DEAD MAN WALKING ANDATE A CAGARE IN UN CAMPO DI UN RECORD.


Siamo un po' frustrati eh? Coraggio che ce la puoi fare ...

Brutto prendere 2 di informatica eh?

 Brutto prendere 2 di informatica eh?
Io avrei detto che manco sapeva cos'era l'informatica (all'alfabeto 
forse c'arriva ?)

MA VAFFACULO PROGRAMMATORI DI STO BOCCHINO DI PROGRAMMA.
PROGRAMMA ? il Pascal e' un programma ?! (non lo sapevo eheheh)
Comunque io avrei scritto :
ipsilon := 0;
repeat
  dai un calcio in culo al programmatore;
  ipsilon := ipsilon + 2
until dispari(ipsilon);
Ci facevi una figura piu' bella ! :)
Andrea (mica uno qualunque...)
------------------------------
(se mi mandi la spam ti metto un'aspirina nella fanta...)
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Scusate, io sono frocio, ma preferisco il C.
Newsgroup: it.comp.lang.pascal
Titolo: File in ingresso ad una procedura!!

Dunque il mio problema consiste nel dover richiamare più volte una
procedura, che come input prenda un file indicizzato.Mi spiego meglio,
facciamo il caso in cui io abbia a disposizione N files: "file1.txt",
"file2.txt","file3.txt"..."fileN.txt" , è possibile creare un programma
che mi consenta di eseguire la procedura prima utilizzando in ingresso
il file1.txt, poi il file2.txt ecc ecc.?
Grazie.
Stefano.
--
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Stefano Pacifici ha scritto:

Semplicemente modifica la stringa che contiene il nome del file.
Es.:
NomeFile := 'file1.txt'
Chiama la procedura ed usa la variabile NomeFile.
Modifica NomeFile in questo modo NomeFile[5]:= '2', in tal modo usi la
stringa come un array e NomeFile assume il valore 'file2.txt'.
Chiama la procedura utilizzando sempre la variabile NomeFile.
Spero di essere stato chiaro.
Ciao
MaTTeO.

 wrote in message
394C9CC2...@libero.it...


> Grazie del tuo aiuto e .... a buon rendere.
Stefano
--
Posted from 
smtp3.libero.it
 [193.70.192.53] 


 via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Questo lo ha scritto Zekka in un vecchio post, edi io l'ho adattato alle
tue esigenze:
Program Prova;
 
Var F: Text;
     Car, x: String;
     i, j, y: Integer;
 
Begin
 For j := 48 To 57 Do {Il codice #48 corrisponde a '0'} 
  For i := 48 To 57 Do {Il codice #57 corrisponde a '9'}
   Begin
    x := Chr(j) + Chr(i); {Generata stringa che contiene un numero
progressivo}
    Car := 'file' + x + '.txt'; {La stringa viene inserita nel nome del
file}
    Assign(F, Car);
     {Esegui le operazioni che vuoi}
    Close(F);
  End;
End.
In tal modo puoi lavorare su file che vanno da file00.txt a file99.txt,
in pratica su 100 file, nel caso volessi lavorare su più file ti basta
annidare un altro ciclo.
Spero di esserti stato utile.
Ciao
MaTTeO.
Newsgroup: it.comp.lang.pascal
Titolo: Perfavore aiutatemi a decidere il futuro.

Ciao, io sto imparando velocemente le basi del pascal con un libro, ma dopo
cosa devo fare? Si trovano tutorials per imparare a fare grafica con il
pascal? E per imparare a fare giochi? Ve lo chiedo, se no invece di imprarmi
il pascal mi butto sul C++. A me piace il pascal, ma poi ci sono fonti di
insegnamento adeguate?
Aiutatemi, ciao

beh sul pascal trovi tantissimo materiale in giro per internet
(prova a cercare "+pascal +source" su Altavista ad es.)
Il problema e' quello che ci puoi fare.... perche' purtroppo il
supporto di compilatori etc etc tristemente non e' piu' quello
di una volta... Oramai se vuoi fare dei giochi o della grafica
pesante ti devi buttare sul C, e da li appoggiarti a OpenGL,
DirectX sotto win, o Mesa sotto Linux.
Il pascal resta uno dei piu' bei linguaggi esistenti (ho visto
del concurrent-pascal ed era forse di poco piu' bello...), ma per
i giochi non e' il max. Beh se non hai esigenze scolastiche
guardati il pascal, che ti insegna la prog. strutturata.
Poi il salto al C/C++ e' veramente breve, e' quasi esclusivamente
questione di sintassi diverse...
ciao,
pascal rulez, forever :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 il pascal mi butto sul C++. A me piace il pascal, ma poi ci sono fonti di
Ceeeeeerto: mi vorresti dire che stai imparando il pascal (magari come primo
linguaggio) e passi di punto in bianco al c++???? Beh, mi sembra un po' una
follia, mi spiego: il c++ è immensamente più complesso del pascal, inanzitutto e
un linguaggio ad oggetti, cosa che il pascal non è (con tp7 gli hanno fatto
vedere gli oggetti da lontano e gli hanno detto: 'questo è un oggetto! Ci
vediamo alla prossima........'); è molto più stringato, magari comprimo dieci
riche pascal in una riga c++, ma sai che fatica!!!!
Io ti consiglio, quindi, di imparare il pascal, che è relativamente semplice, e
se proprio vuoi fare grafica allora passare sotto win con delphi e
opengl/directx
Ciao
Newsgroup: it.comp.lang.pascal
Titolo: ARRAY di STRING: non oltre 250?

Non c'è modo di aggirare le dimensioni massime dell'ARRAY di STRING?
Ho provato a creare un ARRAY di 300 stringhe ma all'atto della compilazione
mi da il messagggio di errore.
Altra cosa che non riesco a risolvere: come posso fare a ...un momento,
faccio un esempio pratico:
Il programma deve leggere una stringa da un file di testo e poi assegnare ad
una variabile numerica un valore, in base al testo della stringa.
Ad es., se c'è scritto "pippo" allora X := 123      se c'è scritto "prova"
allora X :=456
Stefano

non potresti implementare il tuo programma con una Lista di puntatori?????
Cioč
 type
        lista= ^elem;
        elem= record of
                    chiave: string;
                    val: integer;
                    next:lista;
                 end;
o addirittura , se nella tua numerazione appaiono varie parole che hanno lo
stesso valore numerico, un array di puntatori:
type
        lista= ^elem;
        elem= record of
                    chiave: string;
                    next:lista;
                 end;
        vettore=array (****) of lista;
in questo secondo caso ti conviene usare qualche funzione Hash

Newsgroup: it.comp.lang.pascal
Titolo: Codice del <RETURN>

Esiste in Pascal un equivalente di "\n" del C o Assembly?
E' presente ne codice ASCII?
Grazie.
Fly

#13 INVIO
#27 BACKSPACE
--
KNOWLEDGE IS POWER
http://chameleon.go.to

#13 INVIO
La sequenza '\n' corrisponde a #13#10 sotto DOS/Windows.
In realta' dipende dal sistema operativo.
Sotto Unix, equivale a #10.
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

 Sotto Unix, equivale a #10.
Asp...scusa non ho capito:
ma questo non è un codice Ascii?
se faccio un controllo di fine stringa in un input e voglio che nel momento
in cui si preme invio si esca dal ciclo come devo scrivere?
if esp[i]= #13#10 then istr......
???
grazie.
Fly

???
Sotto DOS/Windows puoi controllare #13 e basta.
Il confronto da te scritto non e' corretto perche' confronti un
carattere a una stringa.

 ha scritto nel messaggio
news:p0qkat01q6sm1m0p0...@4ax.com...


Dunque dici che devo controllare #13 e basta?
cioè
if esp[i]=#13 then istr.....
oppure devo annidare un controllo successivo per #13?
Fly

oppure devo annidare un controllo successivo per #13?
Solo #13.
--
Andrea Laforgia (ICQ 87230455)

Newsgroup: it.comp.lang.pascal
Titolo: Estrazione lotto

Ciao !
Vorrei fare in pascal un programma che estrae dei numeri random,con distanza
di qualche secondo uno dall altro...
Avete qualche sorgente ?
Sono un principiante ! :-(
Ciao !!!!


Servito!!!
Program Lotto;
Uses Crt,Dos;
Const
   Sleep= 60000;
   {Aumenta Questo Valore Per Aumentare Il Tempo
   Tra L'Estrazione Di Un Numero E L'Altro}
Var
   Ins: Set Of Byte;
   I,N:Byte;
   A: Array [1..5] Of Byte;
Begin
  Clrscr;
  I:=0;
  {Inizio Ciclo}
  {Fare Questa Procedura N Volte, Racchiudendola In Un Ciclo For
  Per N Volte Tante Quante Sono Le Ruote}
  Repeat
    Randomize;
    N:= Random(90)+1;
    If (Not (N In Ins)) Then
    Begin
      Ins:= Ins+[N];
      Inc(I);
      A[I]:= N;
    End;
  Until I=5;
  Writeln('Generazione Lotto');
  For I:=1 To 5 Do
  Begin
    Delay(Sleep);
    Write(A[I],' ');
  End;
  {Fine Ciclo}
  Readln;
End.

Newsgroup: it.comp.lang.pascal
Titolo: error in statement...

Salve satvo scrivendo un programma quando le seguenti righe mi hanno dato
non pochi problemi!
cosa c'è che non va?
----------------------------------
  if (vettemp[t] <> 0) then
           begin
            s:=s;
        else
            s:=s-1;
           end;
---------------------------------
grazie a tutti
--
Merlino666

            end;
Il pascal considera il costrutto if..then..else come un'unica istruzione,
quindi niente ; che separa le istruzioni l'une dalle altre

 ha scritto nel messaggio
news:8hj345$46s$2...@nslave1.tin.it...

Comunque andrebbe riscritto cosi':
if (vettemp[t] <>0) then
    s := s
    else
    s := s-1;
*oppure*
if (vettemp[t] <>0) then
    begin
        s := s;
    end
    else
    begin
    s := s-1;
    end;
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)
==============================

 quindi niente ; che separa le istruzioni l'une dalle altre
Proporrei anche di togliere il begin e l'end!
MaTTeO.

             s:=s;


 Ciao.
La seconda è più *ordinata*

if (vettemp[t] <> 0) then s:=s
                              else  s:=s-1;
KNOWLEDGE IS POWER
http://leqslant.cjb.net
http://come.to/leqslant
http://leqslant.come.to

 La seconda è più *ordinata*
sarà anche ordinata, ma è più lunga e comprende 4 righe completamente
inutili!!!

 Proporrei anche di togliere il begin e l'end!
Direi proprio di sě!!!!
Non me ne ero accorto!!

Ma in questo modo il codice è più leggibile, e il vantaggio è molto maggiore
di quello che chiami 2 righe inutili, che non fanno variare ne le dimesioni
ne la velocità del programma.

 ha scritto nel messaggio
news:8hot1r$m26$1...@fe2.cs.interbusiness.it...

OK, ma visto che per no usare un begin..end devi avere almeno 2 istruzioni,
la chiarezza c'entra poco, perchè un'istruzione non può che essere messa dopo
il Then e dopo l'Else!!
Questa è solo un'opinione, e si può essere d'accordo o meno!!!
Newsgroup: it.comp.lang.pascal
Titolo: problema di 'economia'

Ho un problemino di comprensione di un programma pascal ;
tale programma utilizza una procedura per convertire cifre in parole
ed io non riesco a
capire come fa a dividere le centinaia dalle decine e dalle unità per
poi tradurle in lettere .
la procedura in questione è :
procedure ConvertiInParole (X : Intervallo);
type Cifra = 0..9;
var H, T, U, : Cifra;
procedure Unita (I : Cifra);
begin
case I of
0 : ;
1 : write('one');
2 : write('two');
3 : write('three');
4 : write('four');
5 : write('five');
6 : write('six');
7 : write('seven');
8 : write('eight');
9 : write('nine');
end;
end; (*Unita*)
begin
H : X div 100; T := X mod 100 div 10; U := X mod 10; (*questa riga è
il problema!!!*)
if H > 0 then
begin
Unita(H);
write('Hundred');
if T + U > 0 then write ('and');
end;
(*e così via...*)
che ne pensate ? 
grazie per l'aiuto 
claudio

 ha scritto nel messaggio
news:53fe2dba.02082...@posting.google.com...

Troppo complicato cosi,
se la conversione dal numero in lettera è in lingua inglese la cosa viene
immediata...  senza alcuna complicazione; se invece è in lingua italiana la
maggiore attenzione va posta sulle unità UNO e OTTO in quanto cominciano per
vocale... e bisogna applicare le regole di grammatica italiana.
Tutto il resto è meccanico.
Cooper.

 ha scritto nel messaggio
news:53fe2dba.02082...@posting.google.com...

Newsgroup: it.comp.lang.pascal
Titolo: sorgente calendario perpetuo cercasi

Mi servirebbe il codice Pascal di una routine che permetta di
inserire da tastiera una data e verificarne la correttezza rispetto
al calendario, magari ritornando un numero ordinale per permettere
anche di fare confronti > e < fra due date.
Ho gia' cercato nel newsgroup 
  comp.pascal.lang.pascal.borland
e rovistato in
 
ftp://garbo.uwasa.fi
ma non sono stato in grado di trovare cio' che cerco.
Grazie in anticipo.
Marcello.
rav...@cra.enel.it
 
----TOGLIERE nospam dall'intestazione-----------------

Marcello.
+ o - sembra funzionare. Se non funge o se hai bisogno anche del
giorno della settimana o di altro fammi sapere.
Ti da' 0 se la data è sbagliata. Accetta "/",".","-" come separatori.
Da' 1 al 1/1/1980, 2 al 2/1/1980 e cosi' via. Accetta date dal 1980 al
2099 cioe' quelle che prende il computer.
Ciao,
Luigi
function Data(D: String): Word;
 const
  G=1; {                                                   }
  M=2; { modificare per cambiare l'ordine giorno/mese/anno }
  A=3; {                                                   }
  Giorni: Array[1..12] of Byte=(31,0,31,30,31,30,31,31,30,31,30,31);
 var
  i, j: Word;
  k: Integer;
  n: Array[1..3] of Word;
  S: String;
 begin
  for i:=1 to 3 do begin
   Val(D,j,k);
   if ((k=0) xor (i=3)) or (k=1) or (k>0) and not (D[k] in
['/','-','.']) then begin
    Data:=0;
    Exit;
   end;
   if i<3 then k:=k-1
          else k:=Length(D);
   S:=Copy(D,1,k);
   Delete(D,1,k+1);
   Val(S,n[i],k);
  end;
  j:=0;
  if (n[A]>=80) and (n[A]<=99) then n[A]:=n[A]+1900;
  if ((n[A]<1980) or (n[A]>2099)) or
     ((n[M]<1) or (n[M]>12)) or
     ((n[G]<1) or ((n[M]<>2) and (n[G]>Giorni[n[M]]) or
                   (n[M]=2)  and ((n[A] mod 4<>0) and (n[G]>28) or
                                  (n[A] mod 4=0)  and (n[G]>29))))
   then begin
         Data:=0;
        end
   else begin
         for i:=1980 to n[A]-1 do
          if i mod 4 = 0 then j:=j+366
                         else j:=j+365;
         for i:=1 to n[M]-1 do
          if i<>2 then j:=j+Giorni[i]
                  else if n[A] mod 4 = 0 then j:=j+29
                                         else j:=j+28;
         j:=j+n[G];
         Data:=j;
        end;
 end;
--
|\/\/\/|              |\/\/\/|  Luigi Balduzzi
 \    /    |\/\/\/|    \    /   studente, 4 liceo scientifico
 | II |\/\/| .__. |\/\/| II |   Genova, Italy
 | II | II | |++| | II | II |
 |____|____|_|++|_|____|____|   e-mail: 
jy...@usa.net
==============================  powwow: 
gi...@genova.it
Newsgroup: it.comp.lang.pascal
Titolo: Re: Come scrivo printf("Content-type:%s\r\n\r\n",type) in Pascal

 
Questa funziona?
-- 
Devaraja (Xdevaraja87^gmail^c0mX)
Linux Registerd User #338167
http://counter.li.org

 Questa funziona?
No, non funziona, enon riesco a capire perche', e' realmente strano.
Francesco
-- 
      Teaching OnLine 
Corsi online di programmazione
Php, Asp, C, C++, Visual Basic, Delphi
Linux Shell Programming
------------------------------------
http://www.teachingonline.it

 
Non ho pratica con i compilatori pascal, ma credo che diano degli errori 
o dei warning come i compilatori c.. li puoi postare? Oppure compila 
bene ma non funziona come vuoi? In questo caso come funziona? Cosa vedi?


 bene ma non funziona come vuoi? In questo caso come funziona? Cosa vedi?
IL problema non sta nel programma, che a riga di comando funziona
benissimo, non funziona quando lo faccio eseguire come programma cgi, ed
infatti mi da l'errore  "Premature end of script headers: html-lib.cgi",
dove html-cgi e' il mio programmino in Pascal.
L'output che ottengo dal mio programma, sullo schermo, quando lo faccio
eseguire a riga di comando  e' il seguente:
Content-type:text/html
<html><head><title>Prova CGI in Free Pascal</title></head><body><h1>Prova
CGI in Free Pascal</h1><hr><br></body></html>
Il programmino in Pascal e' il seguente
(* Programma principale*)
begin
content_type('text/html');
html_start;
head_start;
title('Prova CGI in Free Pascal');
head_end;
body_start;
h1('Prova CGI in Free Pascal');
hr;
br;
body_end;
html_end;
end.
la procedura content_type e' la seguente
procedure content_type(tipo:string);
begin
Writeln('Content-type:',tipo);
(*write(#13#10#13#10);*)
(*write(chr(13),chr(10),chr(13),chr(10));*)
writeln;
end;
In C la procedura era
void content_type(char *type)
{
printf("Content-type:%s\r\n\r\n",type);


 
Se ci sei riuscito mi posti la soluzione? Mi hai incuriosito...


Lampa Dario ha scritto:

Dal messaggio di errore sembra che qualcosa nello script non venga 
terminato. Purtroppo in questo caso non ti so aiutare.


 }
In pascal dovrebbe essere:
procedure content_type(tipo:string);
begin
write('Content-type:',tipo+#13#10#13#10);
end;
Ciao
--
________________________
· Omega
· 
http://gnammo.altervista.org
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Auguri di buona Pasqua a tutto il NG!

Ciao ragà! Visto che stasera non ci  sono e domani nemmeno, volevo fare gli
auguri di Buona Pasqua (in via leggermente anticipata ;-)) a tutti i
frequentatori di 'sto bel NG!
Ciao e divertitevi!
--
E MAIL: 
ness...@dominio.it
(inserisci interfree al posto di dominio)
ICQ NUMBER: 147421455

 ha scritto nel messaggio
news:3ca5f...@news.dada.it...


 ha scritto nel messaggio
news:3ca5f...@news.dada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Curiosità

Come mai nn si può definire una varibile ke abbia lo stesso nome del
programma?
            Dark^Angel - MoF
.:[ Time is what you make of it ]:.

Convenzioni di sintassi penso...
Per lo stesso motivo per cui non puoi usare nomi quali for, case, begin
etc...
Il compilatore non saprebbe + quale è una variabile, quale una istruzione.
Ciao
Alex
--
-------------------------------------
e-mail:  
el_co...@TOGLIQUESTO.libero.it
"Dark^Angel - MoF" <goldangel@NO_SPAM_tin.it> ha scritto nel messaggio
news:cl8U6.575$fG4....@news.infostrada.it...


 Come mai nn si puņ definire una varibile ke abbia lo stesso nome del


 programma?
No era appunto una curiosità :)
grazie cmq
Ciao


 ha scritto nel messaggio
news:9fsjqt$3cs$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: la grafica

Più volte ho cercato di creare un giochino in pascal.
I giochi che sono riuscito a mettere su sono però molto banali(soprattutto
la grafica).Io però ho visto dei giochi bellissimi con astronavicelle
ecc...dopo averli scaricati ho cercato di capirci qualcosa; ma alcune
istruzioni grafiche erano incomprensibili.DOVE POSSO TROVARE L' ELENCO E LA
SPIEGAZIONE IN ITALIANO DELLA GRAFICA DEL PASCAL

 ha scritto nel messaggio
news:%2FT9.11923$0v.3...@news1.tin.it...


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

Non so come risolvere il tuo secondo problema, ma posso darti una dritta sul
primo.
Per eseguire un comando DOS da un tuo prog in PASCAL (comando dos o comunque
avviare un prog esterno senza includerlo nel programma, tipo 
FORMAT.COM
 =) )
dovresti utilizzare una direttiva che avvisi il compilatore che hai bisogno
di un po' più di memoria. In questo caso il tuo prog sarà del tipo:
{$M 8192,0,0}   <---Stai usando 8Kb di memoria nello HEAP (intestazione)
Uses Crt, Dos;
Begin
            .....
            .....
            Exec('
FORMAT.COM
', 'C: /Q /AUTOTEST');
            .....
            .....
End.
Con questo codice (che NON devi eseguire....) esegui il comando 
FORMAT.COM
 e
come parametri gli passi la formattazione veloce incondizionata...
Cmq non so se queste mie poche righe funzionino davvero perchè non ho
dichiarato il percorso del 
format.com
, visto che può variare a seconda del
tipo di installazione di WIN e/o del DOS. Cmq se vuoi prova tu >=)...
L'importante cmq è sapere che questo mio prog funge da esempio se vuoi
eseguire un file esterno.
--
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
003e01c02fcd$d2ac9220$c28e1597@DARKBYTE...

Newsgroup: it.comp.lang.pascal
Titolo: Ho fatto Ruffini Horner così

Ho risolto il mio esercizio (trovare il valore di un polinomio in un punto)
con un metodo diverso da quello che avevo letto sul ng e ho pensato di
postare la soluzione per chiedere cosa ne pensate.
Se copiavo il programma già fatto io quando mi divertivo ? :P
Ringrazio cmq molto il ng :)
program polinomio;
uses crt;
var a,x,poly : real   ;
    i,g      : integer;
begin
clrscr;
writeln ('Inserire grado');
readln (g);
writeln ('Inserire valore x');
readln (x);
i:=g; poly:= 0;
      while i>=0 do
            begin
            writeln ('Inserire coefficiente del termine x^',i);
            readln (a);
            poly:= x * poly+a ;
            dec (i);
            end;
writeln ('Il polinomio vale ',poly:10:3);
readln;
end.
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!

i:=g; 
Attenzione :
i := g + 1 ;
Il numero dei coefficienti di un polinomio e' superiore di un'unita'
rispetto al grado.

 wrote in message
373cca8f...@diesel.cu.mi.it...


Forse centra con il while do >=0 ??
Si'.

capito tutto...
i è uguale a g e non a g+1, ma il ciclo si ripete fino a 0 e non fino a 1, e
in fondo il calcolo è comunque giusto.
Ok


Newsgroup: it.comp.lang.pascal
Titolo: non lo so

Dopo aver scritto due messaggi, voglio essere franco,
cosa si deve installere per far funzionare una apllicazione con TP?
-- 
Daniele Napoli
s_mu...@tin.it

 -- 
???
basta compilarlo, viene creato unf ile eseguibile con estensione .exe,
cliccaci su...
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990

Newsgroup: it.comp.lang.pascal
Titolo: rinasce???

l'NG rinasce???

Credo che l'NG non sia mai morto. Il problema semmai è il numero di 
persone che utilizzano il Pascal
Ciao,
David

>>>Non lo reclamizzano su MTV...

 
magari MorphOS :-)
--
X-Privat Project - 
http://www.newsserver.it/

 X-Privat Project - 
http://www.newsserver.it/
forse ArOS....
comunque lavoro ancora sul mio AmigA 1200 Orig. Comm. C. anche se l'e
partita l'uscita video (pin sync).
preferisco HTML puro per la semplicità di organizzazione.
cercero' (forse un giorno) di sriptare in SQL ma
per adesso mi diverto di più con VRML o
come preferisci : X 3 D
Newsgroup: it.comp.lang.pascal
Titolo: Variabile globale?

la variabile globale è  quella che viene dichiarata nel programma principale
e passata sia alle sottoprocedure che alle funzioni?
Mica è varibile globale anche un vettore?
Grazie.

 ha scritto nel messaggio
news:AdXKb.237312$e6.93...@twister2.libero.it...


 ha scritto nel messaggio
news:TtXKb.233680$vO5.9...@twister1.libero.it...


David Beckham veniva insignito dell' Ordine dell' Impero Britannico
quando Nello disse:

si al 100%.
--
________________________________
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo! ;-)
________________________________
   FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere NOSPAM

 ha scritto nel messaggio
news:AdXKb.237312$e6.93...@twister2.libero.it...

In linea di massima:
Il vettore è semplicemente una VARIABILE STRUTTURATA....se la dichiari
all'interno del programma principale ed all'esterno di procedure e/o
funzioni allora essa è una variabile GLOBALE del programma...le variabili
LOCALI sono quelle che dichiari all'interno di procedure e/o funzioni che
sono globali all'internodella procedura ma locali all'interno del
programma....e così via....ciauzzzzzzz
-- 
Guardian (233167)

 ha scritto nel messaggio
news:AdXKb.237312$e6.93...@twister2.libero.it...

una "qualsiasi" variabile e' globale quando e' visibile da qualsiasi parte
del programma
-- 
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

 
La accendiamo? :) :) :)
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque. (Micheal Corleone)
Posted from X-Privat Free NNTP server - 
www.x-privat.org


wrote:

In pascal e in C non esiste il conecetto di variabile globbale come in
alcuni software matematici { MatCad essempio } che anche se dichiari
la variaibile alla fine del "programma" esso funziona che è una
bellezza...  In C come in pascal la visibilita di qualcunque cosa {
anche delle varibili quindi } necessita di una dichiarazione. Se
questa funzione o varibile sta all'interno di un funzione questa sara
locale  { in altri termini le varibili sono create nello stack e
distrutte appena la funzine finisce la sua esistenza } altrimenti nel
vengono create nel heap e accessibili a tutto il programma
sottostante, mai soprastante.
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
Newsgroup: it.comp.lang.pascal
Titolo: Error 200: division by 0

Salve a tutti!
Ho un problema: uso il TP7 su una macchina con Win95 (da un po' di tempo);
ora ho cambiato il PC e ne ho uno sempre con W95 ma con l'hdisk formattato
FAT32; per caso è per questa ragione che ogni programma TP si impianta
ancora prima di iniziare dando Error 200 division by zero?
È vero che non si possono più usare i vecchi programmi DOS con la FAT32?
Alcuni però funzionano ancora (ad esempio Derive)
Ciao e grazie per i chiarimenti :-)
Nicola
P.S. Se preferite l'e-mail: 
n.ross...@ntt.it

Alcuni miei amici anno installa il tp7 borland con un pentium2 e tutte le
volte
che usano la unit crt , anche soltanto dichiarandola , ogni programma che
viene fatto eseguire da quel tipo di errore, non appena si omette la
dichiariazione alla unit crt
tutto funziona normalmente, io stesso con un normale perntium 200 mmx e la
fat32,
non ho nessun tipo di errore, da molti mesi, perciò credo che non sia colpa
della fat32,
in questo caso,
Ciao Ciao


della fat32,
La colpa č di un bug della unit CRT. In rete si trovano diverse
"patch" per ovviare a questo problema (che accadde con computer molto
veloci e, mi pare, riguardi la procedura DELAY). Il problema č che ora
come ora non ho nessun link sottomano, mi dispiace :-(
Prova a cercare con un motore di ricerca la parola SWAGS (č una
raccolta di codice Pascal davvero molto bella e utile).
Ciao,
DjM / Digital Things
aka Mauro Molinari
Internet e-mails: 
=> 
djm...@geocities.com
 (music)
=> 
maur...@tin.it
 (personal/other)
ICQ #: 10379016
Digital Things Home Page:
=> 
http://www.musicnation.com/home/digital_things
 (down?)
=> 
http://www.geocities.com//SiliconValley/Bay/8251
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, put the correct address into "to" field.
*** Per mandarmi una e-mail, metti l'indirizzo corretto nel campo "a"..

Newsgroup: it.comp.lang.pascal
Titolo: Gioco della vita

Conoscete il gioco della vita (The game of life) ?
Sto facendo un programma per simularlo.
Devo implementargli una matrice(riga * colonna), ma non so come fare!!
Aiutatemi, per favore
Grazie a tutti
rhymes
Cio che sono e' cio'
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :-)

 Devo implementargli una matrice(riga * colonna), ma non so come fare!!
definisci la matrice con:
    const
      righe   = 250;
      colonne = 250;
    var
      matrice : array [1..righe,1..colonne] of byte;
e poi scrivi in una cella della matrice con:
    matrice [riga,colonna] := valore;
    (es: matrice[5,100]:=1)
o leggi da:
    matrice [riga,colonna]
    (es: a:=matrice[200,200])
ciao
Claudio
Newsgroup: it.comp.lang.pascal
Titolo: Excel & TP 7.0 ?

Esiste un modo per lavorare con Excel (grafici e funzioni) sui dati ottenuti
con TP?
Grazie
Cristina

 e funzioni) sui dati ottenuti con TP?
 Con Excel puoi importare files di testo. Quindi
 basta che il tuo programma crei in output un file
 del tipo:
 X[tab]Y
 1[tab]1
 2[tab]4
 3[tab]9
 4[tab]16
  ....
 e potrai importare i dati in Excel, per poi farci
 tutto cio` che ti pare.

 wrote in message
slrn8su57p.1...@localhost.localdomain...


 cosa vuol dire X[tab]Y ?
 
 con [tab] indicavo il tasto di tabulazione.

 wrote in message
slrn8t1eg8....@localhost.localdomain...


 da xls in due colonne distinte.
 Ho fatto alcune modifiche al tuo programma:
program esempio;
 var x:integer;
     out:text;
 begin
      assign(out,'esempio.txt');
      rewrite(out);
      for x:=1 to 10 do
      	writeln(out,x,chr(9),x*x);
       close(out)
 end.
 chr(9) corrisponde al carattere di tabulazione.
 Per importare questa tabella su excel, fai
  Apri -> tipo di file: .txt (e` il secondo della lista, dopo .xls)
           |
	   `-> Tipo di dati: (*) Delimitati
	        |
                `-> Delimitatore: Tabulazione
 
 PS: Per una corretta visualizzazione, 
     visualizza -> carattere -> Fisso
Newsgroup: it.comp.lang.pascal
Titolo: MEM: from Turbo Pascal to ANSI Pascal

Salve!
Ho bisogno di aiuto in merito alla "standardizzazione" di una libreria
che fa un uso massiccio del comando mem di Turbo Pascal.
Sto cercando di portarla per Linux su FreePascal, devo trovare qualche
unità che mi permetta di usarlo oppure cen'è uno analogo nello
standard?
Tante grazie.
--
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

 che fa un uso massiccio del comando mem di Turbo Pascal.
se intendi l'array predefinito Mem (o MemW o MemL) non so' come
venga gestito sotto linux... ma non la vedo bene...
Questi array sono semplicemente mappature della memoria, e sotto
linux beh la gestione cambia violentemente... mem puoi usarlo per
tantissime cose diverse: leggere lo stato di tasti, accedere alla mem
video, al vettore degli int...  dovresti cercare di capire cosa si vuole
fare nell unit con quel comando e trovare un equivalente...
--
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: nascondere il cursore CRT

mi ricordo che se ne parlava tempo addietro...
come togliere con delle istruzioni in assembler il "trattino" che indica la
poszione del puntatore nella grafica crt.
qualcuno sa qualcosa in merito?
Olivier.

(* Postata da Kripto qualche tempo da *)
uses DOS;
var
   CPUreg: registers;
begin
with CPUreg do
          begin
               ah:=$01;
               ch:=20;
               cl:=0;      {se qui metti 21 torna il cursore normale}
          end;
     intr($10, CPUreg);
end.


grazie 1.0+E03
Olivier.

Newsgroup: it.comp.lang.pascal
Titolo: operazione per internet

salve tutti
vi volevo chiedere se in pascal
esistevano delle unit o delle funzioni predefinite pascal che fanno delle
operazioni per la rete
ad esempio prendere l'ip
fare dei ping insomma fare qualsiasi operazione per la rete lavorare sulle
porte
operazioni per host
scusate per essermi espresso cosi male spero che qualcuno mi capisca e mi
dia una risposta vi ringrazio

 wrote in message
news:Wv4Ab.161399$hV.58...@news2.tin.it...
credo che nel pascal non ci sia nulla... ti devi appoggiare ai servizi
offerti dalla piattaforma sotto la quale lavori.. se č un compilatore x
windows si .. allora si dovrai cercare le unit x manipolare i socket, se x
dos no.. non ci sono servizi x le reti.. credo sia un pņ tutto proprietario
lģ...
antonio

 vi volevo chiedere se in pascal...[CUT]...
Credo che in questo caso il Delphi sia adatto al 100% :) avendo basi
pascal e qualche conoscenza sulla programmazione socket bhè qualcosa
riesci a fare, altrimenti passa ad altri lang (c/cpp,vb)
Ciao
--
=Omega============
Hands On
==================



Sottoscrivo i consigli che ti hanno già dato, aggiungendo che, se magari
programmi in ambienti diversi da Windows, 
www.freepascal.org
 fa al caso
tuo.
-- 
« Invento ergo sum »
[G]reedy[F]ly aka Shuren @ 
irc.azzurra.org
Powered by Slackware Linux
GPG Public Key 
http://www.cucciolo.net/pub/michele/michele.asc
Newsgroup: it.comp.lang.pascal
Titolo: Compilatori free

salve a tutti
sto cercando un buon compilatore free che sia compatibile almeno con il TP
6.0
ho provato il "free pascal"...ma compila file eseguibili dell'ordine dei 50
kb anche solo per scrivere una semplice stringa
chi mi sa consigliare?
ciao


Newsgroup: it.comp.lang.pascal
Titolo: Cerco Manuale TP7

Cerco un manuale TP7 che spieghi tutto dalle cose più semplici alle più
complicate.
P.S. Per Favore non ditemi di guardare nei post precedenti
GRAZIE

Io uso:
Titolo: Turbo Pascal 7: La guida completa
Di: Stephen K. O'Brien & Steve Nameroff
Edito dalla: McGrawHill
Costo: 90.000
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

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

Ciao, sono sempre quello della pausa ;-> Dopo molte prove ho fatto qualcosa
interessante ma ho cmq un problema :
Questo programma scrive 'A' ogni TOT centesimi quanti specificati nel prog.
(ora sono 30), ma si nota ke a volte si creano degli sbalzi e magari due 'A'
vengono scritte + in fretta. Sarei felice se qualcuno potesse darci
un'occhiata e dirmi dove sta l'errore.
*********************************************
Program Prova_pausa;
uses crt,dos;
var    h,m,s,cs,cent    : word;
begin
   clrscr;
   repeat
      gettime(h,m,s,cs);
      if (cs > cent) then
                        begin{CAMBIARE IL 30 PER VARIARE LA VELOCITA'}
                           if ((cs - cent) > 30) then
                              begin
                                 write('A ');
                                 cent:=cs;
                              end;
                        end
                     else
                        begin{CAMBIARLO ANKE QUI}
                           if ((cent - cs) > 30) then
                              begin
                                 write('A ');
                                 cent:=cs;
                              end;
                        end;
   until keypressed;
   readln;
end.

 ha scritto il messaggio:
tlFp8.101078$
1S3.3...@twister1.libero.it
 che ha colto la mia
attenzione...


 ha scritto nel messaggio
news:vLWu8.43288$SR5.1...@twister1.libero.it...


       if (cs > cent) then
[/cut]
Quanto vale "cent" ?!!!
Non dovrebbe essere inizializzato con qualche valore!
Ciao.

>
Il problema
č che i centesimi vanno da 0 a 100 e ad ogni secondo si riazzerano! :> ...
prova cosě
Program Prova_pausa;
uses crt,dos;
var    cent,attuale
: word;
function FCentesimi:longint;
var app: longint;
var hh,mm,ss,cc
:word;
begin
  GETTIME(hh,mm,ss,cc);
  app:=hh;
  app:=app*3600;
app:=app+mm*60+ss;
  FCentesimi:=app*100+cc;
end;
begin
   clrscr;
repeat
      Attuale:=FCentesimi;
      if (abs(cent-Attuale) > 50) then
begin
        write('A ');
        cent:=FCentesimi;
      end;
until keypressed;
   readln;
end.
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.pascal
Titolo: Modificare file

Ciao a tutti. Vorrei sapere come è possibile, in un file non .txt (e non di
testo in generale), modificare un carattere che si trovi in posizione
diversa dall'inizio o dalla fine dello stesso file. Dico non .txt poiché ho
notato che modificando file di tipo binario (.exe, .bmp, etc.) con comandi
di gestione stringhe o comunque del tipo INS, INSLINE, etc., questi
diventano inutilizzabili, mentre usando semplici comandi (WRITE, READ, etc.)
ma impostando le variabili file come file caratteri (FILE OF CHAR) e
modificando singoli caratteri i file "ritoccati" rispondono positivamente.
Un esempio pratico per spiegarmi meglio:
Immaginiamo di avere un file chiamato CERCHIO.EXE e voglio cambiare un
carattere. Ad esempio voglio sostituire in questo file "@" con "$" alla riga
numero 34 e colonna numero 7. C'è un modo di potersi muoversi a piacimento
in un file dopo averlo aperto per poter poi operare in questo modo
(logicamente sempre in Pascal)?
Vorrei inoltre sapere se e come è possibile cercare un carattere all'interno
di un file ed inserirlo in una variabile o in un file.
Aspetto con impazienza una vostra risposta, vi prego non mi deludete.
Ciao a tutti e grazie.
p.s. Se non mi fossi spiegato bene vi prego ditemelo che farò di tutto per
essere più chiaro possibile.

di un file ed inserirlo in una variabile o in un file.
Basta scorrere il file, leggendolo carattere per carattere e
confrontando il carattere letto con il carattere da cercare.
Andrea Laforgia

tra 0 e N-1.
Qui mi dispiace ma non ti ho proprio capito. Potresti spiegarmi meglio?
Scusa se ti sto facendo perdere tempo ma queste informazioni sono per me
importantissime al fine di terminare un programma che sto realizzando. Se
proprio non ti va di rispondere ti ringrazio lo stesso per il tuo disturbo
finora.
Ciao da Cristiano e grazie.

Qui mi dispiace ma non ti ho proprio capito. Potresti spiegarmi meglio?
Non c'e' molto di piu' da dire : i file sono delle *sequenze* di byte
e quindi non e' possibile stabilire ne' una colonna ne' una riga.
Per farti un esempio, se hai una fila di 20 macchine non puoi dire
quale sia quella in riga 10 colonna 2, in quanto una fila e' solo una
sequenza di automobili dalla prima alla ventesima.
Quindi ogni automobile e' individuabile con un numero compreso tra 1 e
20 (tra 0 e 19 nel caso dei byte).
E' per questo che se un file e' lungo 134223 byte, non si puo'
stabilire quale sia il byte in riga 3 colonna 4, ma si puo' solo
individure il byte la cui posizione e' tra 0 e 134222.
Chiaro ?
Andrea Laforgia
*************************************************
Cerca sempre di percorrere una strada contromano.
Sara' piu' difficile prenderti alle spalle.
*************************************************
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.pascal
Titolo: un aiuto

salve,
sto cercando di fare un programmino che riesca a fare la copia di una
file. Come posso fare ?
Io pensavo una cosa del genere ma non funziona :(
program copy;
var file_a,file_b : file;
    s : string;
begin
  assign (file_a,'path_del_file_sorgente');
  assign (file_b,'pathe_del_file_destinazione');
  rewrite (file_b);
  while not eof(file_a) do
  begin
    readln (s,file_a);
    writeln (s,file_b);
  end;
*
  close (file_a); close (file_b);
end.
*= mi chiedevo inoltre fosse possibile inserire un controllo dle tipo
se il peso del file_a = peso del file_b 
allora scrivi "ok"
altrimenti "non ha funzionato"
super...@inwind.it
ps visto che ho qualche problema col client delle news, se vi è
poissibile, rispondetemi via email

 altrimenti "non ha funzionato"
mmh per peso intendi dimensione ?
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

 poissibile, rispondetemi via email

 mmh per peso intendi dimensione ?
già :)
cmq sono riuscito a farlo funzionare il codice, mi serve proprio per
file di testo quindi è tutto ok.

beh per la dimensione puoi usare la funzione FileSize...
controlla pero' se va sui file di testo...


Ciao,
una soluzione possibile per questo programmino:
program copia_file;
var
  primo, secondo: file of char;
  c: char;
  sorg, dest: string;
begin
   writeln('* * *  Copia File  * * *');
   if (paramstr(1)='') or (paramstr(2)='')
   then begin
      write('File sorgente: ');
      readln(sorg);
      write('File destinazione: ');
      readln(dest);
   end
   else begin
     sorg:=paramstr(1);
     dest:=paramstr(2);
     writeln('File sorgente:     ',sorg);
     writeln('File destinazione: ',dest);
   end;
   assign(primo,sorg);
   assign(secondo,dest);
   reset(primo);
   rewrite(secondo);
   while not(eof(primo)) do
   begin
      read(primo,c);
      write(secondo,c);
   end;
   close(primo);
   close(secondo);
end.
(
   Osservazioni:
   1. Compilato e testato en FPC (
www.freepascal.org
)
      (salvare con il nome copia.pp e compilare con
       ppc386 copia).
   2. Con Turbo Pascal dovrebbe essere copia.pas, ma
      non ho fatto il test.
   3. Uso:
      "copia a b"
      o soltanto: "copia" e il programma chiedera' i nomi
      dei file.
   4. L'ho testato con file "text", ".exe" e ".gif".
      Ha funzionato bene en tutti i casi.
)

Newsgroup: it.comp.lang.pascal
Titolo: Modificare files...

Questi due quesiti mi stanno assillando da mesi...
...qualunque info è BEN ACCETTA :)
1) come faccio a creare un prog che modifichi ad esempio un file .doc
cambiando tutte le "i" con "a" ??? E' possibile ? E se volessi "copiare" le
prime 3 righe ???
2) Come faccio a modificare il file autoexec.bat ? Ci sarà un modo....

 ha scritto nel messaggio
news:8gjues$lgf$1...@nslave2.tin.it...

certo che c'è ...
Allora ... per il doc è un pò un problema perchè il file non si può leggere
normalmente (apri un doc con edit.exe e capirai)
per quello che riguarda l'autoexec guarda
assignfile
writeln readln
closefile ...
reset etc etc
sono tutti collegati tra di loro nella guida
ciao ciao

 - rimuovi XXX x rispondere    ICQ #8814554
Ci sono sempre delle alternative.
		-- Spock, a Scott, "The Galileo Seven", data astrale 2822.3
Newsgroup: it.comp.lang.pascal
Titolo: Un programma

Ciao a tutti mi chiamo Cristiano ed è la prima volta che visito questo Ng.
Ho poche esperienze in Turbo Pascal anche se qualche cosa di carina l'ho
realizzata. Ho visitato molti Ng ed ho notato che la gente incompetente
abbonda! In questo però, leggendo i messaggi l'altra sera, ho notato che vi
partecipano molti esperti e per questo mi sto rivolgendo a voi. Come ho
detto qualche esperienza in Pascal ce l'ho ma il problema è che tutto ciò
che so, lo so per sentito dire o per tentativi. Di conseguenza come potrete
capire ho delle vastissime lacune su alcuni argomenti ed uno di questi sono
i programmi residenti in memoria. La mia domanda è se qualcuno può scrivere
un programmino residente in memoria in grado di registrare tutto ciò che
viene battuto dalla tastiera in un file di testo; realizzare praticamente un
qualche cosa che permetta di controllare tutto ciò che è stato digitato da
tastiera aprendo un file. Non so se sia molto difficile fare un programma
del genere ma il problema è che io non ho la minima conoscenza sui programmi
residenti in memoria. Certo il programma (o un abbozzo di esso) sarebbe
meglio ma anche consigli andrebbero lo stesso bene.
Grazie lo stesso per aver letto il mio messaggio.
Cristiano.

meglio ma anche consigli andrebbero lo stesso bene.
Ciao Cristiano,
cominciamo col dire che scrivere un programma residente non e' mai una
cosa facile, in quanto bisogna "combattere" con diverse
caratteristiche del s.o.
Suppongo che in questo caso il s.o. in questione sia il DOS.
Il problema si pone, poi, quando bisogna interagire con periferiche
hardware da parte della porzione residente del programma.
Il DOS purtroppo non e' un s.o. "rientrante" (cio' che invece Windows
"vorrebbe" e sottolineo "vorrebbe" essere) e quindi la realizzazione
di un programma del genere e' una cosa molto delicata.
Temo, poi, che sia difficile scrivere un programma che memorizzi i
caratteri nel file in tempo reale.
Nel senso che, per una migliore efficienza e forse anche per evitare
problemi con il s.o., sarebbe meglio sfruttare i tempi morti di
quest'ultimo per svuotare un buffer di "tot" caratteri letti su file.
Poi, quando verra' chiuso il file ?
Inoltre bisogna stabilire su quale versione di DOS girera' il
programma.
Io so realizzare programmi residenti per versioni di DOS non superiori
alla 4.1 e quindi non so sino a che punto siano compatibili con le
nuove.
Andrea Laforgia