mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Rappresentare dei punti su di un piano cartesiano

Salve sono uno che adesso sta incominciando ad imparare il pascal e ho
questo problema:
- Devo rappresentare tre punti su un sistema di assi cartesiani e le linee
che collegano questi tre punti
Grazie 1000 a chi risponde

 che collegano questi tre punti
Ma qual'è il problema????
Considera che il punto (0,0) è il primo pixel in alto a sinista.....

 ha scritto nel messaggio
news:bW4l6.9160$k55.3...@news.infostrada.it...

Spegati meglio
Ciao ReDiCuori
----------------------------------------------------
Pascal sul web 
http://www.pascalonline.f2s.com/
Pascal su irc   #turbopascal
-----------------------------------------------------

Il problema è che non so usare bene la graph per cui non so farlo!!!!!!!!!!
Per favore tu che lo sai fare potresti spiegarmelo??????????
GRAZIE :)))))))))


Mo ho capito cosa vuoi :
type punto=recod
          x : real;
          y: real;
end;
Prima di tutto ti devi creare un riferimento cartesiano ossia il punto di
origine (0,0)
diciamo che il punto (0,0) č il centro de video per trovarlo fai cosě
        OrigineX:=GetMaxX div 2;
        OrigineY:=GetMaxY div 2;
Ora puoi creare gli assi cartesiani sul video
       setcolor(15);
       line(OrigineX,1,OrigineX,OrigineY*2);
       line(1,OrigineY,OrigineX*2,OrigineY);
Ora possiamo disegnare i punti
nasce questo problema i punti possono avere questa forma A(1.5 , 3.6)
siccome sul video puoi rappresentare solo numeri interi devi trasformare 1.5
e 3.6 in interi  usando la funzione trunc o round, io preferico round che
arrotonda
disegnamo i punti
         setcolor(14);
         putpixel(round(p.x)+OrigineX,round(p.y)+OrigineY);
disegnamo un linea tra i punti :
        setcolor(6);
line(round(p1.x)+OrigineX,round(p1.y)+OrigineY,round(p2.x)+OrigineX,round(p2
.y)+OrigineY)
cosi hai disegnato punti e linee, ricordati di inizializzare prima la
grafica con initgraph, ti conviene traslare tutti i punti di almeno 100
pixel altrimenti non riesci a disegnarli
mi spiego meglio
nella formula che genera i punti f(x) aggiungi un moltiplicatore per 100 o
500


Grazie per l'aiuto!!!
MA....
....
....
....
....
....
....
....
....
....
....
....
....
....
....
C'è ancora una cosa che non ho capito!!!!!!!!! quando disegno un punto
putpixel(??,??)
come mi hai spiegato, mi chiede anche un altro valore
putpixel(??,??,??)
cosa rappresenta il 3° valore????????????
GRAZIE ANCORA

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

 cosa rappresenta il 3° valore????????????
il colore, mi sembra
Newsgroup: it.comp.lang.pascal
Titolo: uso di clrscr

Per caso ho scoperto la funzione CLRSCR , che permette di "pulire" lo
schermo posizionando il cursore in alto a sinistra.
Uso Turbo Pascal 7.0, ma inserendo nel mio codice questa funzione mi torna
l'errore "Unknow Identifier" quando tento il run.
Qualcuno sa aiutarmi?
Grazie mille,
ALVISE

 wrote in message
Ol8x6.111920$lj4.3...@news6.giganews.com...


 ha scritto nel messaggio
news:nFfx6.6000$Oz4.1...@news2.tin.it...


 ClrScr (procedure)     (Crt unit and WinCrt unit)
E' molto utile...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Newsgroup: it.comp.lang.pascal
Titolo: Append sui file....

Ciao..
Vorrei sapere come è possibile fare un append ( intendo aggiungere una
stringa o qualcosa ) a un file già esistente.
Es. Voglio aggiungere in fondo al file testo.txt la parola "casa"......è un
esempio stupido ma almeno potrò capire...

DaX wrote in message ...

program scrivi;
var f:text;
begin
assign (f,'testo.txt);
append(f);
writeln(f,'casa');
close(f);
end.
Credo  che sia cosi`, scusami ma non ho tempo di provarlo.
Ciao
P4E

 esempio stupido ma almeno potrò capire...
Esiste proprio il metodo Append! :)
Append(F:text) apre un file posizionandosi sull'EOF.
-- 
Salvadori Danilo
 
ilb...@tin.it

Newsgroup: it.comp.lang.pascal
Titolo: Controllo avvio degli exe.

Vorrei sapere come fare un programma con il pascal che una volta fatto
partire si accorge se vengono lanciati altri programmi .exe e in quel
caso salvi in un file .dat il percorso e il nome del file attivato
ringrazio anticipatamente chiunque mi dia una mano.
Crucio&Fabio

caso salvi in un file .dat il percorso e il nome del file attivato
Devi scrivere un programma residente che intercetta la chiamata del
sistema operativo (dovrebbe essere la 4Eh dell'interrupt 21h) che
serve a lanciare i programmi.
L'intercettazione della funzione in questione avviene mediante
sostituzione del vettore di interrupt corrispondente con la propria
routine.
Non e', comunque, un'operazione semplicissima.
Newsgroup: it.comp.lang.pascal
Titolo: var x : integer & char

Scusate se ultimamente rompo spesso le pa..e con le mie domande
semplicemente inesperte, ma gli esami stanno arrivando!!
La mia domanda è questa: è possibile dichiarare una var x sia come integer
che come char, e più in generale dichiarare una variabile con più tipi??
Grazie anticipate.

mi pare esista questo tipo in pascal e turbo pascal...
No... nemmeno in Object Pascal... Io uso Borland Pascal with Objects
7.0 e non si può
forse in Delphi....
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Non puoi usare proprio la stessa variabile, ma puoi
far condividere a due variabili la stessa memoria:
var
 a : char;
 b : byte absolute a;
a e b adesso sono lo stesso byte di memoria, qundi cambiando
una cambia anche l'altra...
Per altri esempi c'e' l'help di 'absolute'
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Aggiuntina... c'e' anche il modo con il 'case', pero' non so'
se e' quello che ti serve...
ciao again


Record a campi variabili:
TYPE
    campi = (a,b);
    tipou = RECORD
      CASE campi OF
        a : (num : INTEGER);
        b : (lett : CHAR);
    END;
  VAR
    uni  : tipou;
NB:
1) i campi variabili devono essere sempre specificati per ultimi in un
record, qui non c'e' problema perche' non ci sono campi fissi
2) le vaiabili si assegnano con
 uni.num:=
 uni.lett:=
a,b specificano solo il tipo di variabile 
2) le variabili condividono la stessa area di memoria e se assegni una
delle due sovrascrivi l'altra.
Byez - "Siamo polvere di stelle che si affascina per il fulgore degli
astri " Carl Sagan

 ha scritto nel messaggio
news:3ae56d5a.11884843@pws...


Infatti, object pascal e il pascal di delphi!!
Object Pascal del delphi e una delle cose che il delphi a preso da
pachetti come il mio... infatti ha mantenunto la numerazione....
delphi 1 era object pascal 8


 Il Razziatore,
[cut]
Ti ringrazio per l'informazione... mi e stata utile a capire come mai delphi
ha digerito tutte le librerie che avevo scritto con TP...
comunque ho dato una ripassata al mio manuale delphi e il tipo variant
esiste... probabilmente e stato aggiunto con le versioni successive di
delphi...
Ciao!
--
el rasune'


guarda, a me sembra che il tipo 'real' comprenda sia i 'char' che gli
'integer'... provaci. ciao.
Newsgroup: it.comp.lang.pascal
Titolo: Vale la pena di imparare Pascal?

O piů precisamente, quale linguaggio general purpose vale la pena di
imparare?
Con Pascal ho giŕ capito che (lo uso solo da un anno e mezzo) prima o poi,
quando tenterň di fare qualche cosa di veramente bello, dovrň sbattere la
testa contro un muro e capire che devo imparare un altro linguaggio, piů
potente. Delphi, per esempio, č attuale? Voglio dire, Delphi, al giorno
d'oggi lo si impara per passione come Pascal o č diffuso č potente? O č
meglio C++ (o sono due cose che non centrano niente?)? O ancora, č meglio
Java? c++, lo lascerei perdere, dato che ho provato a leggere un sorgente
commentato, ma per fare un programma che in pascal č la prima cosa che ti
fanno fare, in c++ devi impazzire, tanto č difficile. Java, essendo
anch'esso molto potente, č anche lui cosě complicato?
Infine, meglio Delphi o Visual Basic?
Vi chiedo tutto questo (un po' tanto!), non in quanto ddevo realizzare un
particolare progetto, ma per pura curiositŕ.
Grazie mille!
Filippo

Grazie mille!
Prego.
rhymes
rhy...@tiscalinet.it

 Grazie mille!
Di niente e alla prossima!

Newsgroup: it.comp.lang.pascal
Titolo: Problema con interrupt per ESAMI

Ciao,
ho un problemone con questo programma....
che utilizzando l'interrupt (00h --> preso dalla lista di Ralph Brown)
dovrebbe sostituire all'errore di runtime 200 (TP7) division by 0 la scritta
"infinito".
Vi prego aiuto non funziona!!! Che mi sono dimenticato di mettere?
Vi ringrazio in anticipo!!
-----------------------------------------------
program graffinterrupt;
uses crt,dos;
var  vettore: pointer;
     a:real;
procedure alternativo; interrupt;
          begin
          writeln('Infinito');
          a:=a+1;
          setintvec($00,vettore);
          end;
Begin
clrscr;
repeat
getintvec($00,vettore);
setintvec($00,@alternativo);
a:=sin(1)/0;
writeln(a:0:2);
until a=2;
end.
-------------------------------------------------------
Roberto Ferraro
Socio S.T.I.C. n. 5082 A
Nick-name I.R.C. : SatURnO
----------------------------------------------------------
"Gaudeamus igitur,
iuvenes dum sumus".
                                  Anonimo Tedesco
[Godiamo dunque, finchè siamo giovani]
----------------------------------------------------------

Roberto Ferraro ha scritto:

Purtroppo non posso aiutarti, ma tu puoi aiutare me, dove posso trovare
questa famosa lista di interrupt?
Grazie
MaTTeO.
Newsgroup: it.comp.lang.pascal
Titolo: tsr

Sto cercando di generare un piccolo TSR che emette un suono ogni volta che
si preme un tasto.
Il programma descritto nell'help del PASCAL non funziona (e dire che e' lo
stesso riportato nella versione 5.0!!).
Qualcuno sa come fare, senza utilizzare le procedure del PASCAL getintvec,
setintvec ?
vi riporto quello che ho scritto finora :
program tsr;
{$M $2000,0,0}
uses dos;
{-----------------------------}
procedure appoggio;
begin
    ASM
            PUSH    AX
            PUSH    BX
            PUSH    CX
            PUSH    DX
            STI
    END;
    sound (1000); delay (100); nosound;
    ASM
            CLI
            MOV      AX,20H
            OUT       20H,AX
            INT        50H
            IRET
    END;
end;
{-------------------------------}
begin
    ASM
            MOV    AX,0
            MOV    ES,AX
            MOV    SI,9*4    ;  Interrupt di tastiera
            MOV    DI,50H*4  ;  Interrupt di appoggio
            MOV    AX,WORD PTR [ES:SI]
            MOV    [ES:DI],AX
            MOV    AX,WORD PTR [ES:SI+2]
            MOV    [ES:DI+2],AX                        ; Metto in int50H i
riferimeti di int9H
            MOV    WORD PTR [ES:SI],OFFSET appoggio
            MOV    WORD PTR [ES:SI+2],SEG appoggio   ; Metto in int 9H
l'indirizzo della routine di servizio
    END;
    keep (0);
end.
Ciao
    Carlo




Con le 2 funzioni che non vuoi usare il tutto si risolverebbe in 2 righe...
perché non ti piacciono?? Parlacene :-))
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

setintvec ?
Ti riferisci forse al programmino dell'Help sul comando KEEP?
Se e' cosi' sulla quartultima riga devi eliminare una chiocciola, la
riga diventa in pratica cosi':
           GetIntVec($9,@kbdIntVec);
Ciao,   Fabio.
fabi...@rocketmail.com

E' esattamente quell'esempio.
Ho provato a fare tutte le modifiche del caso (anche quella della
chiocciola), ma non c'e' nulla da fare. Appena lancio un'applicazione, la
macchina si blocca. Da te il tsr non genera mai conflitti ?
Ciao
  Carlo




perché non ti piacciono??
non e' che non mi piacciono, e' che non funzionano in un'applicazione di
questo tipo. Hai mai provato a lanciare il programma suggerito nell'help di
keep ?
Ciao
  Carlo

  [...]



No! Ah... era un invito!??
Proverò :-)


Io ho provato (a suo tempo) e tutto è funzionato a meraviglia!!!
Con queste 2 funzioni ho scritto anche altri programmini carini e
FUNZIONANTI
Ciao, Matteo
rma...@geocities.com
http://rossini.home.ml.org
Newsgroup: it.comp.lang.pascal
Titolo: Problema conversione wxWindows2

Salve a tutti,
Da qualche giorno ho iniziato a convertire la libreria wxWindows2 per c++ in
modo da utilizzarla con il compilatore FreePascal, ma ho incontrato un primo
problema: nel file wx\defs.h c'è la riga
#ifdef __GNUG__
    #pragma interface "defs.h"
#endif
Come si converte il comando "#pragma interface" in pascal?
Grazie a tutti per l'attenzione.
Bye

 Come si converte il comando "#pragma interface" in pascal?
Non l'avevo mai vista prima questa direttiva #pragma interface, dovrebbe
essere una specie di include per interfacce di classe io lo tradurrei come
uses defs;
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

uses defs;
Credo anche io anche se un bel manuale di C ke riporta questa dicitura
non farebbe male... visto da sapere essatamente il compilatore cosa fa
quando trova questa diretiva
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: variabili string con dentro valori integer

vorrei comporre una variabile string che contenga però anche dei valori
numerici inseriti, x esempio dal'utente, ho provato a fare :
program prova;
var a:integer;
    b:string;
begin
 readln(a);
 b:='Io ho '+a+' anni';
end.
però non funziona.
Come posso fare ?

 però non funziona.
Devi usare la procedura str(intero,stringa)
program prova;
var a : integer;
      b : string;
begin
    readln(a);
    str(a,b);
    b:='Io ho '+b+ ' anni'; ***
end.
Ciao ReDiCuori

Newsgroup: it.comp.lang.pascal
Titolo: HELP : software gestione internet point

Salve,
avrei necessita' di entrare in contatto con qualcuno in grado di
programmare un'applicazione di database con supporto di rete da
utilizzare per la gestione tempo/cliente di un internet point.
l'attivita' viene svolta con 12 postazioni + un server. tutte le
macchine, server compreso, sono pentium 200 con windows 95 installato
e collegate in rete ethernet.
cio' di cui avrei bisogno e' un software-database, che permetta di
gestire il tempo per ogni singolo utente registrato in modo automatico
(il cliente entra, si siede, digita la sua userid e pw e
automaticamente ha a disposizione il suo tempo prepagato a scalare).
invito coloro che pensano di potermi aiutare a contattarmi in email
per discutere delle caratteristiche specifiche del programma, varie ed
eventuali.
ringrazio fin d'ora tutti coloro che hanno letto e mi scuso per il
crosspost sui vari gruppi.
E. Gori
e.g...@dada.it


Newsgroup: it.comp.lang.pascal
Titolo: Due consigli please...

Ciao a tutti, ho bisogno di due consigli:
1) Mettiamo che ho un programma che elevi al quadrato un numero e che
l'utente non inserisca un numero, ma per esempio una lettera o altro. Come
faccio a fare in modo che se non viene immesso un numero(intendo ad esempio
un integer), esca fuori una scritta del tipo "Carattere non valido". Ho
provato scrivendo :
if numero <> integer then begin
writeln('Carattere non valido')
ma non funzia.
2) Come faccio a ripetere il programma (poichè l'eseguibile creato dal tp lo
esegue solo una volta) finchè non premo un preciso tasto, per esempio esc?
Grazie. Bye Alex.
P.S. Scusate per l'italiano schifoso



esegue solo una volta) finchè non premo un preciso tasto, per esempio esc?
In TP puoi fare cosi' :
const ESC : char = #27 ;
...
var   ch : char ;
...
...
while ( ch <> #27 ) do
begin
  ...
end ;  
 
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------


Ciao.
Simone.

Come faccio a fare in modo che se non viene immesso un numero ...
Puoi provare anche cosi':
-------------------------------------------------
St:='';
FineInput:=False;
While not FineInput Do 
              Begin
               K:=ReadKey;  
               Case K of
                      #0: ReadKey;
                      #8: Delete(St,Length(St),1);
                     #13: FineInput:=True;
                     #27: Begin
                           St:='';
                           FineInput:=True;
                          End;
                '0'..'9': St:=St+K;
                   End;
               GotoXY(x0,y0);
               Write(St);
              End;
Val(St,num,err);
------------------------------------------ 
Ciao
Andrea C

esegue solo una volta) finchè non premo un preciso tasto, per esempio esc?
Ok ...
----------------------
Uses Crt;		{ Per la funzione Readkey }
Var   Stringa : String;	{ Variabile String di input }
        Numero: Integer;	{ Stringa trasformata in numero }
        Code    : Integer;     { Variabile di controllo nel passaggio da string->integer }
        Ch        : Char;	{ Variabile primo carattere }
Begin
Repeat;
Ch:=Readkey;              { Attende che venga premuto un tasto }
If Ord(Ch)<>27 then     { Se il tasto non è ESC, allora ... }	
Begin
Write(ch);
Readln(stringa);			{ Legge la stringa }
Stringa:=Ch+Stringa;		{ Stringa assegna il primo carattere + stringa }
Val(Stringa, Numero, Code);	{ Converte da string->Integer e memorizza in "numero" }
If code<>0 then  		{ Se "Code" non è zero allora ci sono errori } 		
  Writeln( 'Non hai inserito un numero!');
Else 
Writeln(numero, ' ^2 = ',numero*numero);  { Stampa sullo schermo il valore del numero al quadrato }
End;
Until Ord(Ch)=27;
End.
---------------
Entrambi i programmi leggono INTEGER ... dunque fino a a poco piu' di 32500 ...
-=> NeGuS <=-
www.infinito.it/utenti/negus80
Newsgroup: it.comp.lang.pascal
Titolo: Dove trovare le Faq?

Dove posso trovare le FAQ di questo newsgroup?

Non c'è :-(
rhymes
rhy...@insieme.net



AH GRAZIE!!! Io mi sbatto per scriverla e dici pure che non c'č!??
Naturalmente scherzo.... č che la posto poco di frequente.
Ciao.

Naturalmente scherzo.... è che la posto poco di frequente.

 bah mi sa che non lo sapevo x' non ne ho mai avuto bisogno ^_^
Buon per te.

Newsgroup: it.comp.lang.pascal
Titolo: oop dove trovo materiale?

Ciao a tutti so' de nuovo io....
Mi ero dimenticato di chiederve dove posso trovare, anche in internet,
materiale (tutorial, manuali, guide ecc. possibilmente in italiano) sulla
programmazione ad oggetti in windows e casomai anche qualcosa x delphi.
Al limite andrebbe bene anche un libro che nn costasse troppo..
Graziu!
--
----------------------------------------------
ICQ NUMBER: 147421455
http://www.posieidon.3000.it

 ha
scritto: 


Prova su 
marinsalta.net
--------------------------------
Inviato via 
http://usenet.iol.it

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

salve,
qualcuno saprebbe dirmi dove trovare libri online  e/o corsi gratuiti
sull'algebra di bull?
grazie
ea

pasquale wrote:

http://www.apogeonline.com/supertony/indip/bbb_sito/SPALLE/INDEX_MENU.html
beccate sto sito!
ciao
cristian

> sull'algebra di bull?
o era boole ? :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: Ricerca di una parola all'interno di un file di testo

Con una procedura ho caricato la parola in un array chiamato word.
Poi ho cercato di sviluppare la procedura di ricerca.
PROCEDURE CercaParola (VAR t: text; word: string; totaleelementiword:
integer; VAR cont: integer);
TYPE
    lettere = 'a'..'z';
VAR
    i            : integer;
    alfabeto     : SET OF lettere;
    carattere    : char; (* carattere appena letto *)
    precedente   : char; (* carattere che precede la parola in esame *)
    seguente     : char; (* carattere che segue la parola in esame *)
BEGIN
    reset (testo);
    i:=1;
    precedente:= ' '; (* inizializzato come carattere non alfabetico per
trattare la prima parola *)
    WHILE not eof (t) DO begin
        WHILE not eoln (t) DO begin
            read (t, carattere);
            IF word[i] = carattere THEN begin
                i:=i+1;
                IF i > totaleelementiword THEN begin
                    read (testo, carattere); (* leggo un nuovo carattere *);
                    seguente:= carattere (* il carattere letto è successivo
ad una parola *)
                    IF (not (precedente in alfabeto)) AND (not (seguente in
alfabeto)) THEN cont:= cont+1;
                    i:=1;
                    precedente:= seguente;
                END;
            END
            ELSE begin
                 precedente:= carattere;
                 i:=1;
            END;
        END;
        readln;
    END;
    close (t);
END;
Mi dà errore in runtime.

Troppo complicato da verificare dove sta l'errore.
Per risolvere il tuo problema, sarebbe meglio scomporlo in problemi più
elementari.
Ci vuole una funzione che ti dice se un carattere è una lettera
dell'alfabeto.
Un sottoprogramma (procedure) che carica in una struttura di memoria una
riga di testo.
Una funzione di ricerca che controlla se esiste una parola in una riga di
testo o stringa.
Così sarebbe molto più semplice.
Cmq ho già fatto delle cose simili, se vai sul mio sito 
www.xungame.com
vai su tutorials, e poi ti scarica l'esperimento di ricerca associativa,
potresti trovare funzioni scritte in Delphi (sono facili da convertire per
Pascal) che potrebbero fare al caso tuo.
Ciao.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                           Giovanni Ceglia
                WebMaster & WebDesigner
 
http://www.xungame.com/
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

             read (t, carattere);
Domanda :  ma perchè leggere carattere per carattere una stringa fino all'
enf of line se hai una bella procedura readln(t,stringa) che ti fa proprio
questo....?
Risposta : per processare un carattere alla volta !!!
 ma puoi sempre processare un carattere alla volta dato che il pascal
implementa le stringhe come arrai di caratteri e quindi puoi riferirti al
carattere iesimo in questo modo STR[i];
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: sono nuovo

scusate ma questo ng da chi è frequentato sopratutto?
io sono uno studente d'informatica alle prime armi e saluto a tutti!
ps ormai posso realizzare un s.o. ho fatto un programma che fa la
moltiplicazione di 2 numeri!!!!!!!

moltiplicazione di 2 numeri!!!!!!!
Spero che tu stia scherzando... Un OS ha talmente tante cose dietro
che tu neppure te le puoi inmaginare...
PS:
Ma l'OS in pascal scritto da qualcuno di questo NG come va avanti?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

escursus sulla mia stroria informatica...
Spero che tu ti faccia aiutare da qualcuno quando scrivi i messaggi di
errore dei tuoi programmi perchè i casi sono due:
a) Quando ti spiegavano la grammatica italiana dormivi.
b) Hai la tastiera guasta... :-))))
-- 
(*metallikop*libero*it*)
{
http://web.tiscali.it/mbsoftware
}

b) Hai la tastiera guasta... :-))))
No... ho perso il CD.... e non la posso studiare :o) ma a dire la
verita non me ne importa un Cluster fresco.


 ha scritto nel messaggio
news:3bf55546.32014369@apache...

Anche a noi ci interessa poco di tutti i linguaggi con cui ti diletti.
Poi cosa vuol dire programmare con la P maiuscola?
Basic, Pascal e????

Newsgroup: it.comp.lang.pascal
Titolo: Variabili un po' strane

Come identifico la cella e il campo di una variabile fatta cosě:
info:array[1..50] of record
               nome:string[13];
               max_f:real;
               max_c:integer;
               materiale:string[25];
               tipo:string[10];
               tempo:integer;
               temperatura:integer;
         end;
cioč, per esempio, come faccio a scrivere "Ciao" nel campo nome della 5^
cella di info?
Inoltre, dovrei aggiungere due campi di questo tipo
freq:array[1..1024] of real
count:array[1..1024] of integer
ma se lo faccio il compilatore dice che il dato supera i 65Kb concessi. Come
si puň fare secondo voi?
Grazie a tutti.
Davide

 si può fare secondo voi?
e te credo!! o aumenti la memoria disponibile per il programma oppure dichiari i
vettori dinamicamente

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

salve a tutti,
non so se questo e' il posto giusto ma dovrei realizzare un
programma in pascal standard e ho un po' di problemi.
c'e' qualcuno che mi puo' aiutare?
-- 
Sgresu!	                           	e-mail:  
sgr...@hotmail.com
					ICQ#  :  31442859
                                        To Reply remove -NOSPAM- 
http://www.silab.dsi.unimi.it/~eg565550/home/
   SiLabZ Up Your Life!

 c'e' qualcuno che mi puo' aiutare?
E' un programma sulle liste?? Chiedi e otterrai risposta!!! Ormai tra liste e d
alberi sono una bestia!!!!!!!!!

 ha scritto nel messaggio
news:8rg9rr$1s8$5...@nslave1.tin.it...

non ti e' arrivata la mia mail?

 non ti e' arrivata la mia mail?
Mi è arrivata ma sono un po' incasinato, vedo se riesco a trovare un po' di
tempo.......
Newsgroup: it.comp.lang.pascal
Titolo: array ?

Dovrei fare un prog. per ordinare due vettori, a e b, di interi di
dimensioni non note a priori e copiare il risultato nel vettore c.
Non so come dichiarare il tipo per a, b e c.
Nel caso in cui sapessi a priori le dim. di a e b, per il vettore c dovrei
precisare un nuovo tipo con dimensioni pari alla somma?
Grazie, Gianmaria.

 wrote in message
9q6tk1$qa5$1...@pinco.nettuno.it...


 wrote in message
9q6tk1$qa5$1...@pinco.nettuno.it...



wrote:

Tecnicamente mi sembra che non ci siano problemi in quello che fa
(tecninacamete ho detto, in estetica gli do 2)
ma nessuno sa che esistono le procedure e uno puo' dichiare paramento
sensa tipo? (e un po' complicato forse il vostro livello è un po basso
io ci sono diventato bravo quest' anno)
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

> dichiare paramento sensa tipo?
hiihihih Razz troppe birrette del Ven sera ? :-)
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)


non ho capito:
type vettore=array[1..100] of integer;
const a:vettore=(1,2,14,15,8,9);
          b:vettore=(4,5,7,8,9,45,76,67);
var c:vettore;
       dim_a,dim_b,dim_c:integer;
<fare il merge di a e b in c>
il tp6 si ferma dopo il 9 e si aspetta una virgola e poi gli altri elementi.
Questo e' conforme alla regola che i vettori hanno dimensione fissata fin
dall' inizio, ma allora come si risolve questo problema? Con tre
dichiarazioni separate, a di 6 el., b di 8 e c di 14 ? E quando i vettori
hanno lunghezza non nota a priori ?
Grazie di nuovo, Gms.

 ha scritto nel messaggio
news:9q6tk1$qa5$1...@pinco.nettuno.it...


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

Hi All!
I need an advice! I must programe Database of students in Pascal. I have
already wrote all procedures (Insert person, list of persons, find a
person), but I need delete person from base procedure. All data I have
putted in text file are like this:
Alex
Cooler
15-11-63
1
12
Merry
Santa
1-2-65
Tony
Ramos
0-0-0
19
1
etc..
I don't know how to delete the person and all information about the person
in text file.
Please help me!!!!!!
--
Dmitry
   ---===<HoMe PaGe>===---
 http:// 
bodorin.homepage.com
  ---===<ICQ#40416364>===---

Please help me!!!!!!
Open two files, the source (with "reset") and a temporary file (with 
"rewrite"). Then copy all records from the source to the temp file, 
except the record(s) you want to delete. Then you can delete the 
source and rename the temp file as the source file... :-)
-- 
Ciaooooo
Mr_Brain

 wrote in message
9035A23E1nos...@127.0.0.1...

Newsgroup: it.comp.lang.pascal
Titolo: Database di array

Salve a tutti mi intendo poco delle funzioni sulla gestione dei file in
pascal,
ho cercato di documentarmi ma tutti i testi ke ho trovato non sono molto
chiari a riguardo
perciň chiedo aiuto a voi e spero che voi mi rispondiate. Ringrazio in
anticipo.
Spiego:
Devo costruire un database (su file) contenente un array di record (domanda,
risposta)
In modo totalmente random devo far comparire la domanda e confrontarla con
la relativa risposta...
Il problema e che nn voglio caricare tutti gli array all'avvio ma voglio ke
ad ogni volta ke si genera
il numero random si deve avere l'accesso al file e la lettura del relativo
array perchč anche il numero
di domande poste č random(massimo 15) e perciň ci potebbero essere da 1 a
max 15 accessi ma non tutti i 50
array cosě si avrebbe un risparmio di memoria.
ciao e grazie
--------------------------------
Inviato via 
http://usenet.libero.it

> cosě si avrebbe un risparmio di memoria.
saggio uomo. Cosi si fa' :-)
In tuo aiuto vengono i file ad accesso casuale, cioe' da cui puoi
leggere blocchi un po' dove vuoi senza scorrere tutto il file in modo
sequenziale.
Metodo semplice:  record a lunghezza fissa (spreca un po' di spazio su
disco)
rec = record
 domanda: string[128]; { per le dimensioni vedi un po' tu }
 risposta: string[32];
end;
var
 f : file of rec;
 v : rec;
begin
 {...}
 Assign(f, <filename>);
 Reset(f, sizeof(rec) ); { specifichiamo che un blocco e' grosso come
un rec }
 {...}
a questo punto per leggere la domanda n-esima (con n in
[0..maxdomandeinfile])  basta usare
 
 seek(f, <n>);  { spostati all'ennesimo blocco }
 read(f, v);  { o write per scriverla... }
 
filesize(f) ti da' il numero di blocchi di cui e' composto il file,
quindi
puoi usarlo per sapere quante domande ci sono.
-- 
Dreadnaut
(Life would be happier if I hadn't to study physics)

  Reset(f, sizeof(rec) );
 - Reset(f);
per i file tipati il secondo parametro non e' necessario...
anzi, non ci va proprio :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: chi mi aiuta?

ho fatto il semplice programmino di prova che segue
program prova;
uses crt;
var c:char;
begin
repeat
repeat
write('vuoi continuare? (s/n) ');
readln(c)
until (c='s') or (c='n');
until c='n';
end.
in turbopascal7 tutto ok mentre in freeepascal 2.2.2 la compilazione non
è positiva. mi dice internal error 200509181
basta però aggiungere qualche riga di programma e l'errore di
compilazione scompare.
qualcuno sa di cosa si tratta?
ringrazio in anticipo chiunque mi risponderà e saluto tutti

 end.
uhm non so cosa causa il tuo errore ma di sicuro trovo inutile quei 2 
cicli ne basta uno
...
begin
    repeat
      write('Vuoi continuare? (s/n)');
      readln(c);
    until (c='n') or (c='N');
end.
-- 
______________________________
  Omega
 
http://gnammo.altervista.org
ï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œï¿œ
Newsgroup: it.comp.lang.pascal
Titolo: Scambio di esperienze

sono un ragazzo che da qualche anno si diverte a programmare con il pascal
chi vuole mettersi in contatto con me per scambiare esperienze?
ICQ# 10768717
email: 
ab...@numerica.it
ciao







"

Newsgroup: it.comp.lang.pascal
Titolo: BP7 sul web...

Qualcuno di voi mi sa dire dove posso trovare il BP7 sulla rete?? Vi prego
rispondetemi!
Grazie.

 Grazie.
Non vorrei sbagliarmi, ma ci dovrebbero già essere dei post che possono
rispondere alla tua domanda.
MaTTeO.

Lo credo anch'io ma con autluk xpress i post vecchi spariscono dopo non so
quanti giorni...
Come faccio a ritrovare i vecchi post??


Filippo ha scritto:

Non saprei anche Messanger cancella i post datati, però la durata è
personalizzabile!
MaTTeO.

www.deja.com
Ciao
                   :-) Hd (-:
-^- Verso l'infinito e oltre...  -^-

 wrote in message
8fp8a2$bvc$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto: Division By Zero

Qualsiasi algoritmo (funzionanti sui computer dei miei amici) sul mio non
funziona!!
La compilazione risulta corretta ma quando si cerca di eseguirlo comunica:
"error 200: division by Zero"
Ho sentito che potrebbe essere dovuto dal processore ma non so che fare.
La mia configurazione č:
( Turbo Pascal7.0)
Pentium II 400
Riva TNT
Ringrazio tutti in anticipo.

 wrote in message
8iqin3$gvn$1...@nslave2.tin.it...


 Ringrazio tutti in anticipo.
Prova a scaricare la patch!
MaTTeO.

 >
Sicuramente sotto dos funziona meglio, ma il problema č risolvibile
applicando la patch!
MaTTeO.

La patch la trovi sul mio sito: 
http://web.tiscalinet.it/Airex
.
Ciao by Airex





il problema si ha con i pentium II e III, ci vuole 
la patch, io ce l' ho, te la posso fare avere, contattami!


brol...@libero.it
Newsgroup: it.comp.lang.pascal
Titolo: HTML: il Pascal non li apre?

Se cerco di aprire dei files HTML non riesco a farlo, mentre se i files
hanno estensione HTM ci riesco.
E' una limitazione del Pascal o forse sbaglio qualcosa io?
Un altro dubbio che ho: č possibile creare un programma che apra diversi
files contemporaneamente
e legga i dati contenuti, in modo automatico, cioč senza specificare da
INPUT  i nomi dei files? Oppure č necessario che il programma conosca in
qualche modo tutti i nomi e le estensioni dei files da aprire?
Quello che volevo fare io era creare un programma che leggesse dei dati da
questi files e li elaborasse scrivendoli e riassumendoli poi in un nuovo
file, il tutto in modo automatico, senza INPUT da tastiera. Il problema č
che questi files vengono aggiunti ogni tanto, e quindi dovrei modificare
ogni volta il programma, se non fosse possibile apririli con una opzione di
tipo "apri i file *.htm".
(forse č possibile risolvere il problema solo con Delphi? ...o anche lě ci
vogliono i nomi esatti dei files?)
Stefano

 qualche modo tutti i nomi e le estensioni dei files da aprire?
Puoi farlo utilizzando findfile e findnext in un cliclo testando doserror
queste funzioni ti ritoranon i nomi dei file
e puoi passargli (*.*   *.h??  etc...)
Ciao ReDiCuori

 e puoi passargli (*.*   *.h??  etc...)
Grazie!
Ciao

Non è che abbia capito bene cosa tu voglia cmq il pascal usa per i
file il formato dos (8.3) percui i file .html non li puo aprire perche
sono 4 dopo il punto... Si è possibile arire + file in contemporanea
usanto + variabili....
I file .html cmq per il dos sono normali file .htm
altra cosa i file con + estenzioni esempio
nome.primaestenzione.secondaestenzione = NOMEPR~1.SEC
nomefile.primaestenzione.secondaestenzione = NOMEFI~1.SEC
come si è visto il formato dos per i file con + di 8 carateri nel nome
è uguale ai primi 6 carateri + ~ (ALT+126) + nummero crescente questo
numero cambia da Directory a directory e non è assegnato rispetto alla
creazione del file nella directory
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 wrote in message
3ace08c4.2207549@pws...

Newsgroup: it.comp.lang.pascal
Titolo: Sto imparando Pascal a scuola, mi servirebbe un aiuto grazie

Salve io usavo la vecchi versione di Turbo Pascal in cui il colore del testo
si cambiava normalmente con Textcolor(nome colore)
con turbo pascal 7 di borland mi da come sbagliata questa sintassi, come
devo fare?grazie
ah se qualcuno a l'indirizo di una guida online me lo puň dare?grazie


Prova con: Textcolor(numero) :)

 Prova con: Textcolor(numero) :)

 ah se qualcuno a l'indirizo di una guida online me lo puň dare?grazie
Ops dimenticavo funge anche se metti il nome del colore perň devi
mettere
PROGRAM nomeprogramma;
USES CRT;
poi il resto :)

 wrote in message
388CB23F...@citiesonline.it...



Giusto per completezza, "PROGRAM nomeprogramma;" non e' necessario.
Ciao.
Simone.

 Simone.
l'avevo scritto per fargli capire che se lo mette dopo non funge :)

 wrote in message
388F6A9E...@citiesonline.it...


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

Un mio amico mi ha mandato il TP 7.0
Lo eseguo ma mi da la tastiera Americana... e per fare il punto e virgola ci
vuole mooolta pazienza... che mi aiuta?
Nottarget



1) Per la tastiera americana devi vedere che tastiera è attiva in DOS
cioè la tastiera di defout del dos è quella americana, per avere
quella italiana basta fare KEYB IT se non funziona bisonga setare
alcuni parametri con il comando MODE
2) il punto è virgola sul tastiera americana sta  essatamente dove sta
la ç (ò - @) senza nessun Sift/Alt gr.
PS: Se apri TP da Windows la tastiera di sistema è quella che usi in
windows
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 The Only Good Windows in an uninstalled Windows
Grazie ankora!
Claus

 -----------------------------------------------
Grazie!
Nottarget


Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------


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

Qual'é il modo migliore per poter stampare un programma in Turbo Pascal?
Caccioppoli


 in Che senso?
Se vuoi Stampare i sorgenti è meglio stamparli da Delphi, visto che mette i
vari colori
per i commenti le procedure etc
oppure esistono vari conertitori da .pas a .html che fanno la stessa cosa

Se ti accontenti di farlo in bianco e nero puoi aprire i file col blocco
note .... :-)
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)
Newsgroup: it.comp.lang.pascal
Titolo: HELP!!!! Error 203: Heap Overflow Error

Sto compilando un programmino sull'inserimento in testa di variabili
(interi e stringhe) in una lista di puntatori.  Il compilatore non dà
errori ma quando provo a farlo girare su TP7 ho Error 203, con il
cursore che punta alla riga di  "new (Paux)".  ho provato anche a
cambiare "new (l)" con "l:=NIL" ma con lo stesso risultato.  Su un
compilatore TP 3.0 girava con gli interi, ma avevo errore se usavo
stringhe.  Com'è 'sto fatto?  Come posso fare in modo che il programma
giri?  Qualcuno là fuori mi dia una mano!!!!!!!!!
Program pila;
{pila di numeri - il puntatore punta a NIL se il numero inserito è 0}
type lista= ^puntatore;
     puntatore= record
     val: integer;
     next: lista;
     end;
var b: integer;
var l: lista;
procedure insert (var p: lista; s: integer);
var paux: lista;
begin
new (paux);
paux^.val:= s;
paux^.next:=p;
p:=paux;
end;
procedure scrivi (p: lista);
begin
while p<> NIL do
      begin
      writeln (p^.val);
      p:=p^.next;
      end;
end;
begin
new (l);
writeln ('inserisci i numeri fino a 0');
readln (b);
repeat
insert (l, b);
until b=0;
scrivi (l);
end.

 wrote in message 3A6896CD...@tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: urgente successione in TP

Ciao a tutti!!!Sono nuovo nel NG e sono molto ignorante in materia!!! Ho
bisogno urgente d'aiuto: devo fare un programma con turbo pascal per
calcolare i valori di una successione (1+1/n)^n, partendo da 1 fino a n
scelto dall'utente, mi potete aiutare?
GRAZIE 1000 in anticipo

...


 ha scritto nel messaggio
news:heBS5.12516$FV2.3...@news.infostrada.it...


...


 ha scritto nel messaggio
news:G%WS5.20988$FV2.5...@news.infostrada.it...


S:=Potenza(S,N);
puoi fare direttamente:
for i := 1 to NUM do
s := Potenza ((1 + 1 / i), i);
Ciao
 
-- 
Posted from [195.223.215.7] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: Sono nuovo e ho bisogno di imparare

Ciao, sono Paolo e ho intenzione di imparare il Pascal visto che lo devo
fare per scuola. Mi dite dove posso trovare dei buoni manuali in italiano su
internet? Ma è possibile fare giochi platform con il Pascal? Perfavore,
fatemi imparare. Mi voglio imparare assolutamente. Aiutatemi.
Ciao


wrote:

Primo trovati il TP in rete a meno che non te lo dà la scuola
Secondo trovati un bel tutorial
Terzo inizia a smanettare e poi ne riparliamo.
ps. col pascal puoi fare quasi tutto, compresi i platform
rhymes
rhy...@insieme.net

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


se ti interessa imparare il pascal STANDARD vai qui:
http://homes.dsi.unimi.it/~pighizzi/prog1999/lezioni/index.html
scaricati le lezioni del mio prof di programmazione 1
per compilare ti consiglio l'irie pascal 
www.irietools.com
ciao
-- 
Sgresu!	                           	e-mail:  
sgr...@hotmail.com
					ICQ#  :  31442859
                                        To Reply remove -NOSPAM- 
http://www.silab.dsi.unimi.it/~eg565550/home/
   SiLabZ Up Your Life!
Newsgroup: it.comp.lang.pascal
Titolo: Seriale 232

Come si comunica in seriale 232 tra PC con il TP?

 Come si comunica in seriale 232 tra PC con il TP?
http://www.geocities.com/SiliconValley/2926/tp.html
chapter "serial"
has lots of sources, articles, examples.
;-) Sorry, I can read a little Italian, but not write!
Franz Glaser

Newsgroup: it.comp.lang.pascal
Titolo: TURBO PASCAL PER WINDOWS

Dove posso scaricarlo?????
grazie

> Dove posso scaricarlo?????
Si chiama Delphi. L' ultima versione e' la 5. Sul sito della Inprise (ex
Borland) puoi trovare gratuitamente la versione 1.
www.inprise.com

fantoibed ha scritto:

Dove? Non sono riuscito a trovarla!
Comunque il turbo pascal per Windows esiste, basta fare un giro sui siti
Abandonware...
Riccardo

 Borland) puoi trovare gratuitamente la versione 1.
Esiste anche una versione del TURBO PASCAL per Windows (se non sbaglio è la
versione 2.1) ma è una grossa fregatura... ti conviene prendere il Delphi...
su molte riviste trovi gratis la versione 1.0 (ottima per cominciare)...
--
_________________________________
#ICQ: 17079401
http://quartaa.cjb.net
_________________________________
-->René<--
:-)

Newsgroup: it.comp.lang.pascal
Titolo: assembrer <---> pascal

esiste un programma per convertire un file .asm in un .pas, grazie mille
Pex
--
Lil...@G3informatica.it

 esiste un programma per convertire un file .asm in un .pas?
 
 Non puo' esistere, perche` la traduzione asm -> Pascal non
 puo' mai essere univoca!

sarebbe un sogno!!
rhymes
rhy...@tiscalinet.it




Perň sarebbe possibile ottenere uno dei possibili codici pascal che
generano quel codice assembler o equivalente.
Esistono Decompiler da Exe a C (per cui potenzialmente, 
ma non ne sono informato potrebbero esistere anche da 
exe a Pascal)
 il problema e che il codice <<equivalente>> possibile che 
creano 
1) quando lo ricompili ti da un exe diverso dall'originale
    (che perň generalmente funziona) 
2) risulta assolutamente incomprensibile e stravolto nella struttura
rispetto all'originale. Anche il classico programma c per dos
void main()
{
printf("hello C");
}
compilato e riconvertito viene stravolto al punto che
č difficile da capire.
Almeno per i decompilatori che ho visto io.
Immagino che per un programma pascal che č
un linguaggio ad un livello di astrazione un po' piů
alto il divario sia anche maggiore.
Newsgroup: it.comp.lang.pascal
Titolo: [REQ]Rot 13

Qualcuno mi aiuterebbe a fare un programmino che mi faccia il Rot13?
Il Rot 13 cambia la lettera con quella che gli sta 13 volte dopo....
Ok non si e' capito nulla, ma ora vi faccio un esempio:
Immagino = Vzzntvab
cioe' scorre le lettere di 13!
Io so pochissimo di pascal, ne ho fatto un po' l'anno scorso a scuola, ma ho
fatto un po' troppe assenza e non ci ho capito una mazza degli array (mi
hanno bocciato ^_________^)
Quindi vi prego di mandarmelo gia' completo, in modo che me lo studio bene e
poi me lo compilo...
Ciao!
--
Petizione Anti Censura negli Anime
http://www.geocities.com/tokyo/towers/4689/petizion.htm
ranma...@iol.it

Ciao!
program Rot13;
var s : string;
function rotate_char(c : char) : char;
begin
  rotate_char := char((ord(c)+13) mod 255);
end;
function rotate_string(s : string) : string;
var i : integer;
begin
  for i := 1 to length(s) do s[i] := rotate_char(s[i]);
  rotate_string := s;
end;
begin
  write('stringa in input : '); readln(s);
  writeln('trasformazione ROT13 : ' + rotate_string(s));
end.
Andrew Cleverland
-----------------
Disse il saggio "Avěta parč bbell sop 'o marm !"...

end.
Ciao, ho compilato il programma, ma non fa esattamente quello che avevo
chiesto, cioe'
Dovrebbe ruotare solo tra le lettere dell'alfabeto, mentre se non ho visto
male ruota tra tutti i caratteri ascii(o qualcosa del genere)
Il mio esempio di prima:
Immagino = Vzzntvab me lo trasforma in Vzzntv{|
mentre tutti gli altri simboli che non siano lettere dell'alfabeto devono
restare uguali:
Immagino!123$£?,: = Vzzntvab!123$£?,:
Mi saro' spiegato bene? Boh!
Comunque grazie lo stesso...

Newsgroup: it.comp.lang.pascal
Titolo: info su debugger

Esiste un buon debugger per pascal? Io uso il Turbo Pascal 7, esiste di
meglio?
--
San Vegeta from Hell
http://www.geocities.com/Area51/Dungeon/8436
(da visualizzare col browser della Netscape)

meglio?
Credo che quello del TP sia gia' abbastanza buono.
Cos'ha che non va ?

 wrote in message
371dcd34...@diesel.cu.mi.it...


Ha che non ci capisco un accidente. So' de coccio...
Cioe', di preciso che cosa ?
Forse possiamo vedere di chiarire...

 wrote in message
37230192...@diesel.cu.mi.it...


Non mi č per niente chiaro, soprattutto perchč l'help non dice piů di tanto
Per watch (watch = osservare) si intende un'espressione che coinvolga
alcune variabili del programma, di cui bisogna analizzare l'andamento.
Per break point invece, si intende spezzare l'esecuzione di un
programma sino ad un certo punto, in modo da riprendere in modalita'
passo passo.
Supponi per esempio che vuoi analizzare il funzionamento di un
algoritmo di ordinamento di numeri in un array.
Se il programma e' il seguente :
for i := 1 to 10 do
  a[i] := random ( 100 ) ;
ordina(a) ;
Allora quando si esegue passo-passo (con F8 per intenderci), magari
non e' necessario eseguire ogni singolo assegnamento nel ciclo e lo si
salta, ponendo un break-point sull'istruzione ordina(a); in modo da
eseguire si' passo passo, ma saltando le operazioni che siamo sicuri
vadano a buon fine.
A questo punto quando si esegue il programma esso eseguira' il ciclo e
si fermera' sulla chiamata alla procedura "ordina".
Con F7 entreremo in ordina e con F8 la percorreremo passo passo ...

 wrote in message
3721567...@diesel.cu.mi.it...


Questo lo so fare... Non mi è chiaro l'uso delle espressioni da inserire.
*Quali* espressioni ?
Nel watch si inseriscono per lo piu' nomi di variabili ...

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

Come abiltare l' uso del mouse in pascal?
E come trattare il click?
Kosby

 ha scritto nel messaggio
news:8hrm0h$rct$1...@pegasus.tiscalinet.it...



Si gestisce tutto in asm utilizzando gli interrupt di sistema, se  vuoi
posso mandarti tutte le funzioni 
redicu...@libero.it
Ciao

 wrote in message
news:rms05.156044$VM3.1...@news.infostrada.it...


 Kosby
C'è una unit apposita, facile e comoda da usare, niente a che vedere con
l'asm!
La trovi da scaricare in qualsiasi sito con qualche sessione dedicata al
caro pascal.
--
Fabio Feuli
E-Mail 
fe...@libero.it
"O natura, o natura,
Perché non rendi poi
Quel che prometti allor? perché di tanto
Inganni i figli tuoi?"
(Leopardi: Dai Canti, A Silvia vv. 34-39)

Newsgroup: it.comp.lang.pascal
Titolo: scusa Vegeta!!

Ma te come fai  a scrivere del codice PASCAL??
Scuse infinite...se vuoi non rispondere!!

bisogna conoscerlo!!!!
per il 1° problema non ti conviene usare il soft che rallenta la cpu: è un
casino e poi se compili un programma e lo usi su un'altro pc (>= P II) non
funzionerà!
Usa la path fatta apposta: la trovi sul sito
http://utenti.tripod.it/TorreSoft/
E' un file (turbo.tpl) che devi sostituire nella dir "bin"  di tp.
Ciao ciao
Newsgroup: it.comp.lang.pascal
Titolo: Aggiornamento sito

Ho aggiornato il mio sito, aggiungendo un articolo sui pesci rossi e
cambiando l'impostazione dell'indice:
www.acquarioweb.com
: tutto sui pesci d'acqua dolce.
Iding

 ha scritto nel messaggio
news:93i959$1r8$1...@lacerta.tiscalinet.it...
