mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Creazione di un heap

Dopo 7 anni di programmazione in C e Java sono dovuto passare al Pascal (due
giorni fa). Quindi ho qualche difficoltà con un breve programma, che dato un
array deve ridisporre gli elementi per mantenere la proprietà della
struttura dati heap (ogni figlio è minore o uguale al padre; il padre di un
elemento in posizione i si trova in posizione parte intera di i/2).
Sto usando il compilatore gpc; quando eseguo il programma (a.out) ottengo un
errore di out of range nell'array, ma non riesco a capire dove si trova
l'errore nel sorgente. Qualcuno potrebbe dare una controllata? Grazie mille.
Computer1:~ carlo$ ./a.out
./a.out: value out of range (error #300 at 2c0f)
Computer1:~ carlo$
program CreaHeap (input, output);
const DimArray = 10;
type tipoar = array [1..DimArray] of integer;
var V : tipoar = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
   K : integer;
 
procedure FixDown(var H : tipoar; I : integer);
var Continua : boolean;
   Temp : integer;
   Padre : integer;
begin
   Continua := true;
   while (2*I <= 10) and Continua do
   begin
      I := 2*I;
      if (I+1 <= 10) then
	 begin
	 if (H[I+1] > H[I]) then
	    I := I+1
	 end;
      Padre := trunc(I/2);
      if H[Padre] < H[I] then
      begin
	 Temp := H[I];
	 H[I] := H[I+1];
	 H[I+1] := Temp
      end
      else
	 Continua := false
   end
end; { FixDown }
begin {programma principale}
   for K := trunc(DimArray/2) downto 1 do
      FixDown(V, K);
   for K := 1 to DimArray do
      write(V[K], ' ');
   writeln
end.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

       end
sostituisci questo blocco con:
if H[Padre] < H[I] then
begin
  Temp := H[I];
  H[I] := H[Padre];
  H[Padre] := Temp
end
e sei a posto :)
-- 
*
Linux is for those who hate Windows.
BSD is for those who love UNIX.
*
Newsgroup: it.comp.lang.pascal
Titolo: appello di programmazione 1 alla Sapienza

Anch'io sono del canale H-Z ma non ho proprio una mazza...mica svresti
qualche appunto che mi potresti mandare via mail?
Ciao e grazie

gli appunti di architettura li ho presi a lezione, come anche quelli di
programmazione.
poi ho rivisto gli esercizi di sterbini e quelli degli altri esoneri,
studiando la parte combinatoria sul preparata.
se poi dai uno sguardo al libro "introduzione al pascal" troverai un
programma simile a quello del progetto. CIAO!


Newsgroup: it.comp.lang.pascal
Titolo: Random numbers

Scusate, ho sbagliato newsgroup. Sono stato distratto.

In my compiler (microsoft powerstation version 1.00) there isn't a function
that generates random numbers.
Somebody knows a subroutine that does it ?
I need it for my thesis!
Thanks,
                 Daniele

Newsgroup: it.comp.lang.pascal
Titolo: MOD questo sconosciuto ....

Ciao ...
scusate se vi sto sfruttando :) ma mentre aspetto il libro mi tokka chiedere
a voi =) allora ... per fare una divisione con numeri interi devo mettere
DIV
A:=A DIV B;
e per avere il resto devo mettere MOD ... ma dove ???
A:=A DIV B ... ??
grazie e presto nn vi scassero + =D !!!

a := b mod c ed ottieni l'eventuale resto della divisione


RESTO := NUM MOD DIVISORE
esempio
devo trovare il resto di 3 diviso 2
RESTO := 3 Mod 2
resto assumerà il valore 1
altro esempio
devo trovare il resto di 6 diviso 3
RESTO := 6 Mod 3
resto assumerà il valore 0 perche 6 e divisibile per 3

 wrote in message
%pcR5.77164$BF.27...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Structure too large: perchè?

Ciao a tutti
volevo chiedere perchč quando vado a compilare un programma in pascal,
abbastanza ampio e con dichiarazioni di tipi un po' coplicati anche se
contengono solamente array e record, mi viene scritto un messaggio di errore
in cui dice structure too large: perchč? Cioč il perchč puņ essere
facilmente intuibile ma mi sembra strano che non si possa usare tali
strutture.
Come posso fare?
Grazie a tutti e ciao!
Fabio Collini  
faco...@tin.it

in cui dice structure too large:
I casi sono due: o hai creato una singola struttura di dimensioni
superiori ai 64 K (tipo un array [1..33000] of word) oppure il totale
dei byte delle singole strutture che hai creato e' superiore ai 64K (o
ai 16K del default di stack? Qualcuno mi illumini).
Se devi usare molta memoria ti conviene rivolgerti allo heap, gestito
mediante puntatori, nel quale puoi creare diverse strutture (<64K
prese singolarmente) il cui totale sia superiore a 64K. Studia le
procedure NEW, DISPOSE, MAXAVAIL e MEMAVAIL per capire cosa intendo.
Regards,
        Cassa
[
http://www.geocities.com/TimesSquare/5167
, ICQ 9016231]

procedure NEW, DISPOSE, MAXAVAIL e MEMAVAIL per capire cosa intendo.
Oppure potresti provare un compilatore freeware tipo il Free Pascal
che funziona bene e, lavorando in modo protetto, ti da la possibilita'
di dichiarare strutture grandi quanto vuoi.
Ad esempio puoi tranquillamente dichiarare una variabile del tipo
Var A: Array[1..1000000] Of Word (che occupa 2M in memoria, ma
ovviamente la puoi fare grande e complessa a tuo piacere) e utilizzarla
senza limitazioni :)
Bye, Mobius

Ho TP 7, ma non capisco che differenza c'č tra il lavorare in modo protetto
o in modalitŕ standard.
Quali sono i limiti del modo protetto, se esiste ancora quella standard cěč
per forza un limite, e quali sono i vantaggi.
Ho letto qualcosa sulla modalitŕ protetta e parlava di una diversa
architettura del processore che favoriva il mutlitasking, centra qualcosa o
sono completamente opposte.
Visto che questi problemi non affliggono solo me cerco qualcuno che dia
risposte personali esaurienti e non indichi solo un sito a cui rifarsi

per forza un limite, e quali sono i vantaggi.
L'unico limite credo sia l'incompatibilita' con sistemi ormai obsoleti
come il 286 ...
Il piu' grande vantaggio che fornisce ai programmatori, secondo me,
risiede nelle nuove modalita' di indirizzamento alla memoria,
molto comode, con le quali ci si sbarazza definitivamente
della gestione della memoria suddivisa in segmenti di 64k ed
inoltre si puo' accedere alla memoria oltre il primo mega molte
semplicemente ed evitando di dover utilizzare unit particolari
che gestiscono XMS o EMS.
Tieni comunque presente che non ho mai lavorato in modo protetto
con il TP7 (uso Free Pascal come gia' detto) quindi non conosco
quali funzioni metta a disposizione il TP7 a riguardo.
Bye, Mobius
Newsgroup: it.comp.lang.pascal
Titolo: TP 1.5 per Windows

Cerco un manuale per il turboPascal 1.5 per Windows, possibilmente in
italiano. Mi occore per far funzionare la grafica,in particolare per
accendere in un determinato colore i pixel del video. Grazie

 wrote:

Dove posso trovare info su tale turboPascal 1.5 per Windows?
E' una versione più recende del Tpascal 7?
 
grazie

 Il Turbo Pascal 1.5 per Windows è un compilatore della Borland credo più o
meno contemporaneo alla versione 7.0 e  non è stato commercializzato in
Italia. Non so darti notizie più precise. La notizia che non sia stato
commercializzato in Italia credo che sia attendibile in quanto su riviste di
informatica nelle pagine dedicate alla vendita del software ho sempre visto
offerte relative alle versioni del TP fino alla 7.0. Cordiali saluti



In italiano, non so proprio. Faccio una ricerca:
http://www.loreto.nsw.edu.au/cs/Tpw/index.htm
é il meglio che riesco a trovare.
PV

Newsgroup: it.comp.lang.pascal
Titolo: turbo e tpx

Nel turbopascal 7.0 ho trovato due exe simili, turbo.exe e tpx.exe
Che differenze ci sono?
Questo ng va bene no? Non l' ho mai letto prima, ma non dovrei essere OT
--
Paolo '83 RE
gher...@iname.com
CIAO!

Questo ng va bene no? Non l' ho mai letto prima, ma non dovrei essere OT
si si è perfetto... LANG PASCAL:)))))
ciao!
--
Carotino
Member #2 and PR of POTA (founded by Zarkan)
ICQ 19905752
Amiga's Paradise:
www.geocities.com/timessquare/labyrinth/5925/index.htm
Retrogamers Krew!

Un bel di' Carotino scrisse:
C> Turbo è la versione normale (più o meno) dell'ambiente Turbo Pascal,
C> mentre TPX attiva l'ambiente usando la modalità protetta ( o qualcosa
C> del genere). In pratica TPX va sotto win, mentre l'altro (almeno a me)
C> non va..
C> 
non ti va turbo.exe da Windows 95?? :-)
Crei il collegamento, tasto destro, proprieta'.
Programma -> "Opzioni avanzate..."
Abiliti "Impedisci ai programmi di rilevare Windows" e, ovviamente,
disabiliti "Modalita' MS-Dos".
A me cosi' va :-)
Ciao ciao!
-- 
"1. Se hai dubbi, bofonchia
 2. Se hai problemi, delega", leggi di Boren
-- 
Emanuele Cesena
ami...@iol.it
 :)	Occhio all'antispammer NOSPAZ!!
http://www.geocities.com/SiliconValley/Grid/8879

...


Un bel di' Paolo 83 RE scrisse:
PR> A me vanno tutti e due senza problemi, e non ho cambiato niente nei pif...
PR> In sostanza per me va bene turbo normale
PR> 
a me Turbo.exe non andava :-(
-- 
"L'esperienza e' direttamente proporzionale all'attrezzatura rotta",
postulato di Horner


Newsgroup: it.comp.lang.pascal
Titolo: strano quesito

sto cercando da parecchi giorni un programma per fortran, o meglio un
ambiente per windows in cui scrivere programmi in fortran.
Non riesco a trovarne in rete. Qualcuno mi sa dire dove posso trovarlo????
grazie

 ambiente per windows in cui scrivere programmi in fortran.
OpenWatcom Fortran... se ti basta :-)
http://www.openwatcom.org/
altrimenti Force
http://www.forceproject.hpg.ig.com.br/
-- 
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: rotazioni

Salve a tutti!
Chi di voi se la cava con le rotazioni? Ho scritto un semplice programma
in Turbo Pascal che fa ruotare un punto intorno ad un asse Z uscente dal
centro dello schermo (viene disegnato come un punto rosso). Sono
convinto che le equazioni per calcolare il punto successivo siano
esatte, avendo letto un po' di teoria su una rivista e quindi non le ho
inventate io. Il problema e' che facendo ruotare il punto piu' volte,
non passa mai sulla stessa traccia, ma in pratica viene disegnata
un'ellisse. Insomma, forse e' piu' facile se provate il programma che
spiegarlo a parole. Penso che l'inconveniente sia dovuto ad
arrotondamenti che si e' costretti a fare per passare alla procedura un
valore intero mentre il valore calcolato dalle equazioni e' un valore
reale.
Qualche guru del Turbo Pascal ha qualche idea per migliorare il
programma? Non pretendo che si disegni un cerchio perfetto, ma almeno
che funzioni decentemente con qualche approssimazione.
Ringrazio in anticipo.
MOLTO IMPORTANTE: per favore, rispondete in e-mail privata perche' non
leggo il newsgroup.
Di seguito posto il codice.
Saluti,
 Fabrizio
program Rotazioni;
uses
    Crt, Graph;
var
   GraphDriver, GraphMode, ErrorCode: Integer;
   X, Y: Integer;
   t: Integer;
Function DegToRad(r: Real): Real;
begin
     DegToRad:=(r*Pi)/180;
end;
Procedure DisegnaPunto(cx, cy: Integer; cl: Word);
begin
     PutPixel(319+cx,239-cy,cl);
end;
begin
     GraphDriver:=Detect;
     InitGraph(GraphDriver,GraphMode,'C:\TP\BGI\');
     ErrorCode:=GraphResult;
     if ErrorCode <> grOK then
     begin
          Writeln('Errore grafico: ',GraphErrorMsg(ErrorCode),'.');
          Halt(1);
     end;
     X:=150;
     Y:=0;
     DisegnaPunto(0,0,6);               (* Disegna l'origine *)
     DisegnaPunto(X,Y,65535);
     for t:=1 to 360 do
     begin
          X:=Round(X*Cos(DegToRad(2))-Y*Sin(DegToRad(2)));
          Y:=Round(Y*Cos(DegToRad(2))+X*Sin(DegToRad(2)));
          DisegnaPunto(X,Y,65535);
     end;
     repeat until keypressed;
     CloseGraph;
end.

 ...
Il problema non risiede negli arrotondamenti realizzati dall'istruzione
Round ma dal fatto che la seconda delle equazioni contenute nel ciclo
For non richiede il valore X appena calcolato ma quello della volta
precedente. Pertanto ecco il codice corretto che disegna un cerchio
perfetto:
     for t:=1 to 360 do
     begin
          Xv:=x;
          X:=Round(X*Cos(DegToRad(2))-Y*Sin(DegToRad(2)));
          Y:=Round(Y*Cos(DegToRad(2))+Xv*Sin(DegToRad(2)));
          DisegnaPunto(X,Y,65535);
     end;
Ciao, Luigi
Newsgroup: it.comp.lang.pascal
Titolo: Help

Ho un problema nel fare questo esercizio di Pascal:
Data una stringa di 10 caratteri controllare qual'č quello che compare
piu' volte e stampare il numero di volte che č presente e le posizioni
in cui compare.Procedere via via per tutti gli altri elementi della
stringa.
Per esempio:    input       abccaaadfm
output:  "a" compare 4volte nelle posizioni 1-5-6-7
              "c" compare 2 volte nelle posz.   3-4
ecc....
Mi intoppo nel punto in cui,dopo aver trovato l'elemento che č
presente piu' volte,devo trovare l'elemento che lo precede.
Cioč,considerando l'esempio  riuscirei a trovare "a" ma non "c"  .
P.S.
      Non posso utilizzare ne' record ne' puntatori.
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054
Dark reign,Total annhilation,Age of Empires,Dune2K,C&C2
http://www.geocities.com/TimesSquare/Maze/3856/

______________________________
program   esempio;
var       i,j,n,l:integer;
          s:string[10];
          c:char;
          v:array[1..10] of integer;
begin
        writeln; writeln;
        write('Dammi la stringa: ');
        readln(s);
        writeln;
        l:=length(s);
        for i:=1 to 26 do begin
            c:=char(ord('a')+i-1);
            n:=0;
            for j:=1 to l do begin
                if s[j]=c then begin
                   inc(n);
                   v[n]:=j
                end
            end;
            if n>0 then begin
               write(' `',c,'` compare ',n,' volte nelle posizioni ');
               for j:=1 to n-1 do
                   write(v[j],'-');
               writeln(v[n])
            end
        end
end.
Il programma e' molto semplicie e quindi non lo commento ma se hai
qualsiasi dubbio fammi anche delle domande.
Ciao,  Fabio
fabi...@rocketmail.com


Beato te che l'hai trovato facile,io lo ero riuscito a fare solo
utilizzando un array  di record.
Come mai sei cosě bravo? Sei un professore?
Cmq. grazie 1000 per l'aiuto.


Cmq. grazie 1000 per l'aiuto.
CIAO,   Fabio
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: Dove mi trovo?

Esiste un modo per sapere se la modalita' corrente sia testo o
grafica?
Se si, quale?
Grazie,  Fabio
fabi...@rocketmail.com

Se si, quale?
function modo_corrente : byte ; assembler ;
asm
         mov  ah, 0fh
         int  10h
end ;
Skyscraper
---------------------------
andrea_...@bigfoot.com
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

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

Perché i numeri random sono sempre gli stessi????

 Perché i numeri random sono sempre gli stessi????
Perchè hai dimenticato di inizializzare il generatore di numeri casuali con 
la procedura randomize :-)
Ciauz
-- 
KNOWLEDGE IS POWER
Linux: the choice of a GNU generation!
http://www.sverzat.com
Newsgroup: it.comp.lang.pascal
Titolo: cerco libreria per visualizzare immagini col pascal

Cerco una buona libreria per visualizzare immagini col turbo pascal....
GRAZIE
--
ICQ#17330720
IRCNet:GhZ »»» #
mp3.it
s...@gem.it

 GRAZIE
A proposito, a me interesserebbe anche  sapere se esiste qualche 
libreria per la gestione dei bitmap in TPascal sotto DOS.
Grazie mille.


Ne ho fatta una per visualizzare immagini in formato BMP.
Non e' un gran che ma finche' non trovi niente di meglio.
http://users.iol.it/fabio.manzo
ciao,  Fabio
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: [OT]random in asm??

Scusate se sono OT ..ma non ho trovato nessun newsgroup italiano
sull'assembler....
Come funzione l'algoritmo di generazione di numeri pseudo-casuali??(devo
scrivere la routine in assembler)
Grazie
--
-----------------------------------------------------
s...@gem.it
kin...@geocities.com
IRCNet:KiNg[G]hZ »»» #
mp3.it

...


Newsgroup: it.comp.lang.pascal
Titolo: Vendesi MSDN Library

Vendo i seguenti numeri di MS MSDN Library ORIGINALI:
January 1999 (3 CD) a £ 30.000
April 1999 (3 CD) a £ 30.000
July 1999 (3 CD) a £ 30.000
July 1999 (1 DVD) a £ 35.000
In aggiunta vendo i seguenti CD MS ORIGINALI:
Ms Year 2000 Resource CD (1 CD) a £ 5.000
Ms TechNet Sample 1999 (1 CD) a £ 5.000
Ms Internet Business Development Kit 1996 (Product CD + Information CD +
Internet Product Demo CD + Sampler CD) a £ 5.000
Ms Sample Product Cd 1994, 1995, 1996, 1999 a £ 5.000 cadauno
Ms Internet Explorer 2.0 a £ 5.000
Le spese di spedizione sono escluse dai prezzi e sono a carico del
destinatario.
Scrivete a 
fran...@yahoo.it

 Ms Internet Explorer 2.0 a £ 5.000
Beh, questa poi...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.pascal
Titolo: wincrt

wincrt, dove la trovo?
ma serve a qualcosa?
-- 
extrabug

 --
la trovi gia' nel compilatore bpw. sarebbe la unit crt per windows, e
funziona se usi esso come target
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

funziona se usi esso come target
Mi spieghi meglio in quali casi serve?
nel tp7 non esiste, ma viene citata negli esempi dell'help,
-- 
extrabug

 nel tp7 non esiste, ma viene citata negli esempi dell'help,
negli esempi ne parla, perche' e' disponibile anche il compilatore pascal
per win. per trovare il link da dove scaricarlo, vai nell'indirizzo in firma

si aprono come finestra dos, ma si apre una finestra bianca windows.
Io uso il tp sotto windows perche' non mi va di riavviare il pc in dos,
ma quel poco che faccio e' per dos, in questo caso basta la crt normale?
Ha sempre funzionato senza problemi.
Pero' sono troppo affezionato ai cut&paste e drag&drop di windows.
-- 
extrabug

 Pero' sono troppo affezionato ai cut&paste e drag&drop di windows.
e allora? scaricati quel compilatore, l'unica differenza con quello per dos,
e' che non devi avviare nessuna modalita' protetta


Newsgroup: it.comp.lang.pascal
Titolo: unione archivi

sono uno studente.. ho bisogno di un aiuto..
dovrei progettare un algoritmo per l'unine di due archivi di studenti, cioč
io ho 2 archivi di studenti di due scuole e devo unirli in un unico
archivio. COME SI FA?

 dovrei progettare un algoritmo per l'unine di due archivi di studenti,
cioè


Ah se gli archivi che hai non ti servono dopo per risparmiare tempo puoi
aprire il primo archivio e scrivere li tutti i record del secondo
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:7kEn9.8817$Fz.2...@news1.tin.it...



Per archivio intendi un file sequenziale?
Il file finale deve essere ordinato o meno?
Da che cosa sono composti i file? Un tracciato record, solo caratteri o 
cosa?
Fammi sapere.
Ciao

> dovrei progettare un algoritmo per l'unine di due archivi di studenti,
cioè


...


...


 vuoto.
direi mergesort, se devi mantenere ordinati i record dell'archivio finale


var f, f1 : file of archivio
assign(f,'archivio.dat');
rewrite(f);
assign(f1,'stud1.dat');
reset(f1);
while not eof(f1) do
    begin
        read(f1,rec);
        write(f,rec)
    end;
close(f1);
close(f);
metti tu tutti  i begin, program etc etc


scusa l'ignoranza: cos'è "mergesort"?
come funziona?
Morpheus ha scritto nel messaggio ...


come funziona?
Cfr.
  ordinamento per fusione... help!! (claudio)
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.

 come funziona?
fonde due vettori già ordinati restituendone uno ordinato anch'esso.
Cercati "Algoritmi in C" di Robert Sedgewitk
Newsgroup: it.comp.lang.pascal
Titolo: freepascal, opengl e linux

Salve,
ho provato a compilare l'esempio d'uso di opengl installato di default 
da freepascal... e mi da un errore.
Mi dice che manca l'unità GLU... effettivamente io noin l'ho trovata... 
ma se c'è l'esempio significa che a loro funzionava... in particolare 
l'errore è questo:
fpc glutdemo.pp
Free Pascal Compiler version 1.0.6 [2002/04/30] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling glutdemo.pp
glutdemo.pp(24,10) Fatal: Can't find unit GLU
come faccio a farlo compilare?
Grazie,
   Luca

se nessuno riesce a darti una risposta soddisfacente, poni la 
questione al NG di freepascal (prima ti dovresti iscrivere)
Mi raccomando all'inglese  ;)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Mi raccomando all'inglese  ;)
Mi sai dire il nome? Io ho cercato "freepascal" nell'elenco dei 
newsgroup ma non l'ho trovato :(
Per l'inglese non c'č problema.
Grazie,
   Luca

    Luca
nella community!
cioe': "
www.freepascal.org
" e poi clicca su "community", dovrebbe essere
questo
http://deadlock.et.tudelft.nl:10000/



Quello non è un newsgroup.

 wrote in message
news:08Woa.56016$
DT4.1...@twister1.libero.it

ma e' meglio di niente 


Newsgroup: it.comp.lang.pascal
Titolo: [OT] passaggio di parametri in delphi

Scusate X l'OT
Sew in delphi (5) creao una procedura che ha un parametro(diciamo real):
tipo:
procedure Tform1.prova(Sender: TObject; b:real);
e voglio associarla ad un evento scrivo nel campo corrispondente:
(per es voglio passare il valore  52)
prova(52)
ma mi da errore
se invece scrivo il nome di una funzione senza parametri tutto ok.
Help me!

 ha scritto nel messaggio
news:E4td8.6721$fa5.2...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Unit che permette di caricare in ambiente grafico delle BMP o delle JPG

C'è qualcuno che sa dove posso trovare (o che mi manda gentilmente in mail)
una unit che permette di caricare una BMP o una JPG?
Grazie


Prova GraphiX
http://programmierer.freepage.de/cgi-bin/feets/freepage_ext/41030x030A/rewri
te/graphix/index.html
non l'ho provata ma promette bene.

Newsgroup: it.comp.lang.pascal
Titolo: Convertire in EXE

Come fare ?
Vorrei convertire alcuni miei PAS in EXE per renderli eseguibili. Potete
aiutarmi ?

che compilatore usi?


 che compilatore usi?
TP 7.0



Nel menu Compile fai clic su 
"Destination Memory"
perchè deve diventare
"Destination Disk"
e poi "Build"
Lasciami indovinare: Liceo PNI, vero?
Ciao
PV

> Lasciami indovinare: Liceo PNI, vero?
EX-Liceo.. senza PNI
Ora "Corso di Laurea in Informatica"
Sto cominciando a smanettare col Pascal ;-)

Dovrebbe generalteli automaticamente se invece non te lo fa fai questi
semplici passagi:
Compile -> Destination Memory
sembra che non fa nulla ma se vai di nuovo su compile vedi che ora č
Compile -> Destination Disk
vuole dire che ti salva l'EXE del tuo file
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 aiutarmi ?
hai bisogno del compilatore, vedi l'indirizzo in firma
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.turbo-pascal.cjb.net
 Tutto sul turbo Pascal 7
per il reply togliere NOSPAZZATURA

Newsgroup: it.comp.lang.pascal
Titolo: vi prego

salve a tutti avrei bisogno di sapere dove posso trovare compilatori per
pascal e
anche esempi cioè programmi codificati in pascal, per vedere un pochino la
struttura.
avrei anche bisogno di trovare siti che parlano di programmazione ma siti
ben forniti e anche più di uno possibbilmente...anche dove posso trovare
manuali e guide che incomincino da zero io conosco un po di
assembler,html,javascript.tutto questo mi potrebbe essere utile

salve a tutti avrei bisogno di sapere dove posso trovare compilatori per
pascal
(sulla rete possibbilmente free) e



http://www.freepascal.org/
Per un ottimo compilatore Pascal.
Se ti serve una libreria per codificare istruzioni assembly x86 in
linguaggio macchina:
http://www.xungame.com/public/open_source/c8086/
Se ti serve una libreria grafica per DOS:
http://www.xungame.com/public/open_source/cgraph/
(Richiede driver XMS 3.0 per funzioanre correttamente, Windows XP ha una
versione del driver XMS 2.0, quindi non funziona correttamente su Windows
XP)

 salve a tutti avrei bisogno di sapere dove posso trovare compilatori per
[...]
sito in firma, il miglior sito sul pascal... dai, scherzo :-))))
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5
Newsgroup: it.comp.lang.pascal
Titolo: Chudere pc

Salute
Io vorrei sapere se c'é una ligna di commanda per accendere e spegnere il
pc.perche vorrei caricare le mail nella notte e dei film sopra internet
Garazzie a tutti di legere questo messagio.



Muble spiegati meglio perche non ho capito ma...
cmq che OS? DOS (allora sei nel posto giusto) Windows 3.11 (ancora nel
posto giusto) Win9x (spostati su it.comp.lang.delphi)
e cmq si piu chiaro
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 posto giusto) Win9x (spostati su it.comp.lang.delphi)
non x polemiche.. ma che os vuoi che abbia se usa outlook express 5?
bye.. Cereal



bhe  solo perche usa OLE 5 non vuol dire che vuole scrivere un
programma per Win32s anche se è MOOOOOOOOLTO probabile


 Il Razziatore,
Aggiungiamoci altre tre o quattro OOOO !!!
;-)
Ciauz, Cereal

Newsgroup: it.comp.lang.pascal
Titolo: Cercasi programma per convertire un sorgente da PASCAL a C

Stò cercando un programma per convertire da PASCAL a C anche commerciale
preferibilmente con il sorgente. Qualcuno mi sa dire dove trovarlo ??

 Stņ cercando un programma per convertire da PASCAL a C anche commerciale


Newsgroup: it.comp.lang.pascal
Titolo: nuovo NG su Pascal

free.it.programmazione.pascal

               Attenzione all'anti-spam XXX
Un carro funebre si ferma presso un'autofficina:
"Scusi, mi controlla le candele?".
		-- Da it.hobby.umorismo

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

buondě newz..
conoscete qualche algoritmo di hash semplice?
Mi servirebbe per fare un confronto tra alcune
centinaia di file.. ce ne sono molti duplicati, ma in directory
diverse.. vorrei fare un bel programmino che trovi
questi dupli-file..
esistono altri modi, ma questo mi ispira particolarmente :)
Thanks, Cereal

> conoscete qualche algoritmo di hash semplice?
o magari anche non semplice e già bello fatto.. ;-)
Newsgroup: it.comp.lang.pascal
Titolo: <!-- To use a different cobrand, make sure you have a template for it in /parts/cobrand/ -->

<b><font color="#800000">
IT</font><font color="#008000"><i>net</i></b></a></FONT>.
                        <br>
                        <BR clear=all><IMG height=5 hspace=0
            src="
http://media.xoom.it/new/spacer.gif
" width=314><BR></TD>
          <TD bgColor=#000000 width=2><SPACER HEIGHT="2" WIDTH="2"
            TYPE="BLOCK"></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 height=2 width=489>
        <TBODY>
        <TR>
          <TD bgColor=#000000 colSpan=2 height=2 width=489><SPACER HEIGHT="2"
            WIDTH="1" TYPE="BLOCK"></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=left colSpan=2 vAlign=top><IMG height=20 src="
http://media.xoom.it/new/fade_bottom.gif
" width=250>
</TD></TR></TBODY></TABLE>
</FORM>
</BODY>
</HTML>




 
<HTML>
<HEAD>




<!--- inizio HOTSPOT --->






<!--- fine HOTSPOT --->





<TD bgcolor=#FFCC66 align=center WIDTH=487>

<IFRAME SRC="
http://ad.it.doubleclick.net/adi/xoom.it/membersarea;area=membersarea;sz=468x60;ord=2848
?" WIDTH=468 HEIGHT=60 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR="#FFCC66">
<SCRIPT language="JavaScript1.1" SRC="
http://ad.it.doubleclick.net/adj/xoom.it/membersarea;area=membersarea;abr=!ie;sz=468x60;ord=2848
?">
</SCRIPT>
<NOSCRIPT>
<A HREF="
http://ad.it.doubleclick.net/jump/xoom.it/membersarea;area=membersarea;abr=!ie4;abr=!ie5;sz=468x60;ord=2848
?">
<IMG SRC="
http://ad.it.doubleclick.net/ad/xoom.it/membersarea;area=membersarea;abr=!ie4;abr=!ie5;sz=468x60;ord=2848
?" BORDER=0 WIDTH=468 HEIGHT=60>


Newsgroup: it.comp.lang.pascal
Titolo: radice ennesima e elevazione ad n

come faccio ad elevare qualcosa per n
oppure a fare la radice ennesima?
grazie

oppure a fare la radice ennesima?
Calcola l'esponenziale del prodotto tra esponente e base.
Esempio:
2^3 = exp(3*ln(2))
Invece la radice cubica di 2 la calcoli:
2^(1/3) = exp((1/3)*ln(2))
-- 
Andrea Laforgia
#exclude <windows.h>
Newsgroup: it.comp.lang.pascal
Titolo: Assembly

Ciao a tutti,
vorrei sapere se in Pascal esiste una cosa tipo l'assembly
inline del C.
Se non fosse possibile, sarebbe possibile estendere il
Pascal "standard" per supporterle?
Oppure e' possibile compilare
programmi Pascal con programmi assembly?
--------------------------------
Inviato via 
http://usenet.iol.it

ci sono i blocchi asm e l'Inline violento, se hai il tp puoi guardare
nell' help sotto questi topic.
--
Dreadnaut
(Life would be easier if I had the source code)

 inline del C.
Ciao, si è possibile con ASM e INLINE come ha detto Dreadnaut... ma puoi
anche importare codice in formato oggetto: OBJ generato da terze parti fra
cui l'assembler stesso.
Cordialmente, Cooper.
PS: Il codice oggetto (.obj) è semi-compilato... quindi non dipende più dal
software che lo ha generato.
Tempo fa avevo fatto qualcosa del genere a titolo di esperimento... fra ASM
e PASCAL... e ha funzionato abbastanza bene, solo che adesso come adesso non
ricordo più come ho fatto.... sighhh non ho più lavorato in quel senso...e
tralasciato il pascal... per altri progetti.
Newsgroup: it.comp.lang.pascal
Titolo: Programma per gioco del 15

Sto alla disperata ricerca di un programma (in qualsiasi linguaggio anzi va
benissimo anche il solo algoritmo) che risolva il gioco del 15......
chiunque abbia del materiale lo prego di mandarmelo....č importantissimo !!!
Grazie a tutti !!!!!!
bic...@geocities.com


Come si gioca al gioco del 15?


E' (credo) quel quadrato 4x4 in cui sono inserite 15 caselline con numeri da
1 a 15, ed uno spazio e' vuoto.
Spostando le caselline nello spazio vuoto, devi ordinare i numeri dall'1
al 15...
...suvvia... l'hai gia' visto sicuro.
Rispondendo ad El_Barto, invece, c'e' da dire che il problema non ha
sempre soluzione.
Se ne e' discusso in NG quali it.hobby.enigmi, e se ne e' discusso
tanto... quindi guardati i msg gia' postati (leggi: evita di postarne
nuovi).
Ciao!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Se qualcosa puo' andar male, lo fara'", legge di Murphy

sempre soluzione.
Ci risiamo !!!
Vediamo di chiarirci una volta per tutte.
Il problema ha SEMPRE soluzione se si adopera un tipo di mescolamento
che parte dalla configurazione originale e finisce con lo spostare il
cursore in modo casuale.


banale.
Pero' se si parte da una configurazione del tutto casuale,
la soluzione esiste se e solo se per ottenere la config.
originale, mediante scambi di celle, si compiono un numero
*pari* di scambi.
Ciao!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Quando lo metti in memoria, ricordati dove lo metti", primo assioma di Leo
Beiser sui Computer

*pari* di scambi.
Non si puo' agire in questo modo perche' :
1) non si ricostruisce il caso reale.
2) si rischia di non trovare soluzione.

 
appunto: non sempre ha soluzione.
La domanda iniziale, pero', chiedeva un metodo risolutivo
del gioco dei 15, e' ovvio che se sono io a mescolarlo, ho
anche una soluzione banalissima... tornare indietro.
Il problema, semmai, e' risolverlo quando hai una combinazione
casuale... e qui devi stare attento se la soluzione esiste
oppure no.
ciao
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"1. Un funzionario vorra' sempre moltiplicare i suoi subordinati, non i rivali
 2. I funzionari creano lavoro l'uno per l'altro", assiomi di Parkinson

oppure no.
NON E' COSI' !!!!
Rimescolare in questo modo non significa *ricordare* per poi agire
all'incontrario.
Se, teoricamente, le procedure sono due : Mescola() e Risolvi() la
seconda non sa nulla su cio' che ha fatto la prima e applica
l'algoritmo di risoluzione come se il quadrato fosse stato fornito
dall'utente.
Ma e' cosi' difficile capirlo ?
Il gioco deve ricostruire il caso reale in cui c'e' SEMPRE soluzione.

 
ah... ora ho capito cosa intendevi...
Potevi dirlo prima!! :-DD
bye!
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Il lavoro d'equipe e' essenziale. Ti permette di dare la colpa a qualcun
altro", ottava regola di Finagle
Newsgroup: it.comp.lang.pascal
Titolo: Tempo rimanente, come?

1 secondo
come potrei fare, mi mostrate un esempio?
Un altro modo che mi piace molto di scandire il tempo è rappresentato
dallo slash "/ " che ruota o dai puntini che avanzano " . " " .." "
..." etc....
Mi mostrate un esempio di codice x ottenerli?
Thx

"JoeBlack®" <
joe_...@tiscali.it
^> ha scritto nel messaggio
news:l44b10dj5cl37q22h...@4ax.com...

Senza scomodare interrupt e robe simili, puoi fare un ciclo for da 1 a 7 (o
da 6 a 0 come preferisci) dentro il quale fai un delay(1000) e aggiorni il
countdown a schermo (o lo slash che ruota)
Ciao
 Max

 countdown a schermo (o lo slash che ruota)
se solo delay fosse attendibile :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 se solo delay fosse attendibile :-)
Beh, sotto DOS era abbastanza attendibile, anche perche' si basava
sull'interrupt del clock. Sotto windows in effetti un po' meno...
Ciao
 Max

 sull'interrupt del clock. Sotto windows in effetti un po' meno...
ups scusa errore mio. non e' questione di dos o windows, ma di velocita'
delle macchine, qualunque so facciano girare: il problema e' che delay
_non_ si basava sull'interrupt, ma su un conteggio che a frequenze maggiori
di ~200Mhz va in overflow e quindi in pappa. L'interrupt restera' sano ed
affidabile finche' non cambiera' troppo l'hardware :-)
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

 affidabile finche' non cambiera' troppo l'hardware :-)
Gia'
Ciao
 Max

> Sei sicuro? Io ricordo diversamente. Non insisto...
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
ed altri
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

 
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
Ok, maledetti contatori a 16 bit...
Ciao
 Max

ed altri
L'errore del delay non erra stato risolto con la famosa patch anti div
0 { di cui tra parentesi parla il sito che posti }? almeno nella mia
c'č scritto che esperessamente che hanno modificato il delay... { ho
ancora il readme? }
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

 ancora il readme? }
[a parte che ci sono 99 patch diverse in giro] mmh si patchato il delay
funziona, sotto dos. Sotto windows, proprio perche' si basa su un ciclo
e non su interrupt, non da risultati sempre uguali perche' dipende da
quali altri programmi stanno girando in quel momento :-\
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

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

Sono un novellino, ho da poco iniziato la programmazione in pascal!
Vorrei creare un menu che mi consenta di poter far avviare dei file con lo
stesso programma.
Se avete voglia e capacita' :-)) di aiutarmi, fatevi avanti ve ne saro' sin
d'ora grato!!!
Ciriciao,
Splash!

...

Newsgroup: it.comp.lang.pascal
Titolo: Lanciare eseguibili dal codice

Salve a tutti,
vorrei sapere come fare per lanciare eseguibili dal codice, ovvero
come far partire dei programmi. Ho già posto questa domanda e voi mi
avevate riposto ma ahimè non trovo più qui post e ho anche perso l'url
della pagina di fabioman , dove se non erro era ben spiegato.
DeV



{$M 8192, 0, 0}
uses dos ;
begin
  SwapVectors;
  Exec ( NomeProgramma, Parametri ) ;
  SwapVectors;
end.
 

>{$M 8192, 0, 0}
^^^^^^^^^^^^^^^
Mi spieghi che significa questa riga che ogni tanto trovo all'inizio
di un programma?
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

di un programma?
Serve a ridimensionare l'utilizzo della memoria da parte del
programma.
La "M" della direttiva dovrebbe appunto ricordare il termine "Memory".
Quando un programma viene mandato in esecuzione ha, per default, a sua
disposizione uno stack (solitamente di 16 Kbyte, espandibile a tempo
di compilazione) e la memoria heap, che non e' altro, su un sistema
DOS, che tutta la memoria disponibile al programma, compresa tra i
dati e lo stack.
Dato che questa memoria risulta tutta utilizzata dal programma, non
c'e' modo di caricarci dentro alcun programma esterno e quindi bisogna
ridurla con la direttiva in questione.
Il primo valore e' quello dello stack (per questo programmino bastava
anche 1Kbyte), il secondo e' la quantita' /minima/ di memoria heap e
il terzo la quantita' /massima/ di memoria heap da riservare.

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto!!!Division by zero!

Salve, e mai possibile che nonostante scrivo USES CRT ,digitando GOTOXY
(x,y),
al momento della compilazione non mi da errore nell'esecuzione mi da come
errore:
200 DIVISION BY ZERO (ma non c'è nessun calcolo nel programma!!!!)
n.b: uso tp versione 7.0
Grazie per l'aiuto! :-))

 200 DIVISION BY ZERO (ma non c'č nessun calcolo nel programma!!!!)

Newsgroup: it.comp.lang.pascal
Titolo: pascal per windows

scusate. sono nuovo in questo ng, e vorrei cominciare con una domanda
basilare: dove posso trovare sulla rete un compilatore pascal che funziona
sotto windows? io ho solo quello per il dos, che e' un poco scomodo, anche
perche' i programmi che faccio con questo funzionano tramite finestra dos, e
non come una finestra di win. spero tanto che mi potete aiutare. grazie in
anticipo
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
per il replay togliere NOSPAZZATURA

 win. spero tanto che mi potete aiutare.
http://www.freepascal.org/

sotto windows?
Passa a Delphi.
Le versioni standard precedenti alla 5 (o 4) dovrebbero essere free.
www.borland.com

 ha scritto nel messaggio
news:4BpT6.9877$Cq3.1...@news2.tin.it...


 Passa a Delphi.
 cosa mi offre in +? e' semplice come il pascal? il salto dal pascal al
delphi, puo' essere duro? grazie


 ha scritto nel messaggio
news:bC6U6.172$a44....@news1.tin.it...


> Le versioni standard precedenti alla 5 (o 4) dovrebbero essere free.
sto bel pesce! :)
solo la delphi 1.0 e la Delphi 2.0 sono free (e le scarichi da borland, oppure su
ioprogrammi di 'sto mese) le altre no, trovi le trial,

Newsgroup: it.comp.lang.pascal
Titolo: (OT) Guadagno Sicuro

 griggia!
è incredibile fin dove arriva l' inventiva della gente...e poi quella pagina
è così invintante che secondo me avrà pure successo questo metodo...dite che
arriverò anche a me qualche milioncino?=)


Newsgroup: it.comp.lang.pascal
Titolo: stampa in dos

ho reinstallato il Tp7, che avavo da anni.
In Dos non mi da problemi nella compilazione di tutti i vecchi listati.
L'unica funzione che da errore è la stampa, non ricordo e non trovo un
vecchi autoexec che setti la stampante in modalita dos.
Grazie per l'aiuto

ulisse ha scritto:

se sei in finestra DOS da windows forse non hai accesso alla parallela 
... in ogni caso se la tua stampante supporta il modo testo non devi 
impostare niente.
Il tutto è comunque subordinato al fatto che tu abbia impostato la 
parallela come Standard (SPP) nel BIOS.

 ha scritto nel messaggio
news:6eOwb.146339$e6.52...@twister2.libero.it...

devi dichiarare l'uses printer, ed ad ogni chiamata writeln(prn,...);
corrispondera una riga stampata sul foglio
-- 
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
Newsgroup: it.comp.lang.pascal
Titolo: Help lettura file

Salve, sono Michele e in un precedente post ho chiesto come si possa far
visualizzare non solo la prima riga di un file, ma anche le altre, ebbene,
non mi sono spiegato bene, quello che vorrei tanto sapere è se esiste un
comando che mi faccia visualizzare una singola riga. GRAZIE davvero e CIAO!!
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Re Di Cuori :
In che senzo una sola riga ? Una qualsiasi all'interno del file di testo ?
Che io sappia eseste una funzione seek, ma non la puoi utilizzare con i file
di testo controlla sul help
se non la puoi utilizzare prova questo :
function leggiriga(fi : text; riga : integer) : string;
var s : string;
begin
    resert(fi);
    while Not eof(fi) And riga>0 do
         begin
             readln(fi,s);
             riga=riga-1;
         end;
    if riga=0 then leggiriga=s
    else leggiriga="";
end;
Ciao Re Di Cuori

Newsgroup: it.comp.lang.pascal
Titolo: futuro ingegnere

ciao a tutti,
sono nuovi di qui, sono iscritto al primo anno di ing informatica e abbiamo
iniziato con Pascal, mi sapete indicare qualche sito interessante con
manuali, esempi, tutorials, e qualsiasi altra cosa?

http://members.xoom.it/kosby
Passa fra una settimana, ora è fuori uso....
Kosby
rancesco Magagnino ha scritto nel messaggio ...

Newsgroup: it.comp.lang.pascal
Titolo: Esiste un manuale online..

Ciao,
esiste online un manuale online o una guida di turbo pascal 6.0 o 7.0?
io ho provato a cercare ma ,in  italiano, non ho trovato niente...
Grazie a tutti...

Prova a questo indirizzo
http://tibur.dis.uniroma1.it/guide_dos_e_turbo_pascal/guidaTP.html
qui troverai un'introduzione al Turbo Pascal, se trovi altro fammelo
sapere!
Ciao
Gianluca
http://ganimede.freeweb.org
Jo ha scritto:

Newsgroup: it.comp.lang.pascal
Titolo: Intestazione .... (???) e Label Queste sconosciute

Ciao volevo sapere cosa cambia se inserisco o non inserisco
nell'intestazione la riga (input, output)
es.
program bho; (input, output);
mentre l'altra domanda riguardava le label !!! non le ho capite ...
cioč iniziano con
Label prova (; ???)
e finisce con
prova : (???)
giusto ??? cioe indica che se uso il goto torna alla riga Label prova... no
??? e kosa mi serve la scritta prova : ???
=D non so se son stato chiaro... e che mi e arrivato oggi il libro sul
Pascal quello della mcGray Hill e non mi riesco a spiegare ste label !!!
grazie a tutti
p.s. Buon Anno !!!


Buon Anno a te e a tutto Ng

nell'intestazione la riga (input, output)
input e output indicano che utilizzerai come dispositivo di input
la tastiera e come dispositivo di output il video.
Credo che sia una sintassi del Pascal standard
ciao, DF

Newsgroup: it.comp.lang.pascal
Titolo: [SemiOT] - FreePascal per Linux

Ho installato Linux (Mandrake8) e volevo avere un compilatore/ambiente 
anche sotto Linux.
Cosě scarico FreePascal, la versione in un unico grande file .tar
Per installarlo si deve scompattare il TAR ed eseguire "sh install.sh"
Beh, mi da errore sulla riga 16 dello script .sh; qualcuno di voi ha 
provato ad installare FP con questo sistema?
Grazie, ciao.
--
Cesare

 - ICQ# 92905138
http://www.mascanc.net/~skolem

"Cesare" <a@b.c> ha scritto nel messaggio
news:MPG.1596ca48a...@news.iol.it...

E' possibile ke tu non abbia qualke programma necessario alla compilazione,
come ad es. yacc bison flex ecc...
Io l'ho installato senza problemi...
Qual e' l'errore in questione??
'l rasune'
Per rispondere privatamente togliere NO SPAM dall'indirizzo!
-----
Sao ko kelle terre, per kelle fini que ki contene,
trenta anni le possette parte Sancti Benedicti.
( placiti cassinesi )
Newsgroup: it.comp.lang.pascal
Titolo: come faccio a mettere il..

come faccio a mettere il contenuto di un file txt creato col pascal in un
array?
grazie
(ecco il programma)
program zzz;
uses wincrt;
var
z:text;
procedure inserisci(var f:text);
var
i:integer;
nomi:array[1..20]of string;
begin
  Assign(F, 'elenco.txt');
  Rewrite(F);
  for i:=1 to 3 do
  begin
  writeln('inserisci nome');
  readln(nomi[i]);
  Writeln(F, nomi[i]);
  end;
  Close(F);
  reset(f);
end;
begin
clrscr;
inserisci(z);
end.
Come faccio ora a leggere ciò che ho creato col pascal?

   end;
readln invece di writeln cosi' leggi righe dal file
pero' invece del for sarebbe piu' sicuro una cosa
del tipo
while not eof(f) do
 begin
...
 end;
cioe' lavora finche' non sei alla fine di F (eof = End Of File)
-- 
Dreadnaut
(Life would be easier if I had the source code)

come faccio a trasformare i numeri contenuti nel file di testo in integer,
visto che sono stringhe?
grazie
"Dreadnaut" <Drea...@liberoDallaSpam.it> ha scritto nel messaggio
news:1dN8a.174075$ZE.52...@twister2.libero.it...


 visto che sono stringhe?
hey non vale, i numeri non c'erano prima :-)
Beh se li hai scritti con qualcosa tipo
 writeln ( f, nome, voto );
puoi ricaricarli con
 readln ( f, nome, voto );
e la conversione avviene automaticamente, altrimenti se
leggi tutta la riga come una stringa puoi tagliarne una
parte con `copy` (e `pos` per sapere dove tagliare ) e
poi convertire in numero con la procedura `val`.
Hai qualcosa tipo un help del tp vero ? :-)
-- 
Dreadnaut
(life would be easier if I weren't afraid)

 visto che sono stringhe?
hey non vale, i numeri non c'erano prima :-)
Beh se li hai scritti con qualcosa tipo
 writeln ( f, nome, voto );
puoi ricaricarli con
 readln ( f, nome, voto );
e la conversione avviene automaticamente, altrimenti se
leggi tutta la riga come una stringa puoi tagliarne una
parte con `copy` (e `pos` per sapere dove tagliare ) e
poi convertire in numero con la procedura `val`.
Hai qualcosa tipo un help del tp vero ? :-)
-- 
Dreadnaut
(life would be easier if I weren't afraid)

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