mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: come riprogrammare il timer di sistema

qualcuno sa dirmi come posso aumentare la velocità di chiamata della INT 8
senza per questo mandare in crash il sistema. Vanno bene anche algoritmi in
assembly.

 assembly.
Procedure SetSpeedTimer(Speed: Word);
Begin
   Asm
   Mov Dx, 43h
   Mov Al, 36h
   Out Dx, Al
   Mov Dx, 40h
   Mov Ax, Speed
   Out Dx, Al
   Mov Al, Ah
   Out Dx, Al
   End
End;
Che poi il sistema non vada in crash ... beh questo non
te lo prometto :))
Bye, Mobius

Newsgroup: it.comp.lang.pascal
Titolo: Parentesi Graffe

Come si fanno le parentesi graffe in pascal?
..........>>>............grazie.. ..>>>  ...  ..  .   .          ..
.

.
Ctrl + alt + 123
Ctrl + alt + 125
Fabio 
fabi...@rocketmail.com

..........>>>............grazie.. ..>>>  ...  ..  .   .          ..
Con il NumLock acceso,
    Alt+123 e Alt+125
Ciao

>Come si fanno le parentesi graffe in pascal?
ALT + 123 e ALT + 125 del tastierino numerico.
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?"
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Con il NumLock acceso,
Anche senza ! ...
Andrea, mica uno qualunque...
----------------------------------------------------------------
"Sopra il camper la capra campa, sotto il camper la capra crepa"



Tenendo premuto il tasto Alt (sinistro) digita 123 (sul tastierino
numerico) comparirà una parentesi graffa aperta ' { '
Tenendo premuto il tasto Alt (sinistro) digita 125 (sul tastierino
numerico) comparirà una parentesi graffa aperta ' } '
Newsgroup: it.comp.lang.pascal
Titolo: Virus in vista

Attenzione!
Sono Kosby e ho avuto un virus che si trasmette a tutti i miei contatti e
siccome ci sono molte persone di questo ng, mi è sembrato opportuno
avvisare.
Per toglierlo cercare un file di nome creative.htm o .html ( attenzione  non
cancellare i file per l'omonima utilità audio ) e cancellarlo.
Gli effetti sono fastidiosissimi: sposta quasi tutte le cartelle e i file
nella root principale C:.
                                                                Kosby

 wrote in message
fmqZ5.86351$hk4.3...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Informazioni per un nuovo utente

ciao a tutti, sono nuovo del newsgroup, vorrei gentilmente porvi una
domanda, circa un paio di anni fa mi dilettavo a fare programmini per pascal
e turbo pascal, la versione piu' recente del pascal qual'e' ?
Mi hanno detto che se voglio programmare in pascal devo prendere il delphi,
ma e' davvero come il vecchio pascal ?
Io mi ricordo che il pasca, essendo per dos, si usava in una sola shell,
scrivendo prima il nome del programma, poi specificando le viariabili o
stringhe, e poi iniziava il programma vero e proprio con un bel begin, ora
con il delphi cosa cambia ?
Ringrazio tutti in anticipo,
ciao a tutti,
Diabolik.
( rimuovere NOSPAM per risposte in E-Mail )
________________________
Andrea "Diabolik" Cambiaso
   >>> ROMA - ITALY <<<
       --> Linux  User  <--
E-Mail: 
Diabolik...@flashnet.it
E-Mail: 
and...@tin.it
E-Mail: 
Diab...@mclink.it
________________________
___________________________
"Nessuna cosa al mondo
potrebbe darmi l'esaltazione che
mi da' l'idea di combattere contro
il mondo intero..."  > diabolik <
___________________________
ICQ: # 7196528
IRC: canale: #it - Server: 
irc.tin.it
___________________________

Non conosco il delphi ma l'ultima versione del turbo pascal č la versione
7.0 (per windows e non)
rma...@geocities.com
http://rossini.home.ml.org

L'ultima versione del Pascal e' appunto la 7.0
Poi si passa al delphi che, in parole povere, e' l'equivalente del visual
basic rapportato al pascal (molto piu' divertente pero' :-)
Ciao
 Carlo



Perchè + divertente?
Paolo Perini
par...@iname.com
http://users.iol.it/kaiohshin/
------------------
Italian Rendition World
http://irw.home.ml.org/
------------------
"Non ho bisogno di riviste: la mia vista divina
mi permette di vedere chi si fa la doccia e chi
si cambia!" - il dio KaiohShin


Hei re kaioh, non ti sembra piu' divertente ?
P.s. Salutami Kibit
Ciao
  Carlo
Newsgroup: it.comp.lang.pascal
Titolo: A proposito di quel sito....

Sono un po' sotto pressione, ultimamente, comunque su
http://it.geocities.com/povigna/
 ho già messo qualcosa.
Non riguarda solo il Pascal e PasMath, e devo ancora verificare i link
e completare la pagina dei link riguardanti il Pascal. Se sopportate
l'URL, fatemi sapere se posso mettere anche le faq, ecc.
La grafica a me piace molto, e a voi?.
Avete consigli?
---
Ciao
PV


Io non me ne intendo molto ma onestamente, di grafica non ci vedo niente,
apparte le scritte colorate con frontpage...
Non so se questa si può definire grafica spero che almeno nei contenuti sia
migliore questo sito.
Non è una critica ma graficamente si può fare di meglio, anzi se vi serve
una mano me la cavo con applet java e flash5
ciao

una mano me la cavo con applet java e flash5
... ma questo è un bel pugno nello stomaco a Mosaic. :-)
E poi, volendo, anche io me la cavavo benino con Java. ;-)
---
Ciao
PV

 ha scritto nel messaggio
news:3c6ea49...@news.virgilio.it...


Newsgroup: it.comp.lang.pascal
Titolo: search: Videogiochi in tp



Newsgroup: it.comp.lang.pascal
Titolo: Esercizio...sicuramente banale ma...

purtroppo non lo so fare!!
Scrivere un prog che, data una stringa di n caratteri alfabetici, per
esempio un nome, conti il numero delle vocali e delle consonanti in essa
contenute.
Allora lo so che dovrei prendere il libro e ristudiare molte pagine ma ce sò
stato mezz' ora a sbatterci la testa...niente!
SE qualcuno ha voglia (di perdere tempo lo so) di farlo gliene sarei molto
grato.
N.B. Senza né procedure né funzioni (ancora le devo fare...lo so sono un
lattante)
P.S. Una cosa poi ma la stringa da inserire va come tipo Char o String?
Grazie

"Lolo" :

program conta;
uses crt;
var s : string;
      vocali, consonanti,lung,i : integer;
begin
    writeln('CONTA LETTERE');
    writeln;
    write('Digita una parola :');
    readln(s);
    lung:=length(s);     consonanti:=0;  vocali:=0;
    for i:=1 to lung do
       begin
           if s[i] in ['A','E','I','O','U','a','e','i','o','u'] then
vocali:=vocali+1
             else if s[i] in ['B'..'Z','b'..'z'] then
consonati:=consonanti+1;  <--- il set contiene anche le vocali ma non ci
sarà mai una vocale contata come consonante per if precedente
       end;
     writeln('Numero di vocali presenti : ' vocali);
     writeln('Numero di vocali consonanti : ' consonati);
end.
Newsgroup: it.comp.lang.pascal
Titolo: borland pascal 11 floppy

interessava a qualcuno? s volet posso zipparli e spedirli
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

mmmh.. ma e' BP o TP ? non e' che riesci ad infilarli in
un angolino nascosto del tuo sito ? :-)
--
Dreadnaut
(Life would be easier if I had the source code)

A me una copia nn dispiacerebbe...

"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:4rpk8.22718$%g7.6...@twister2.libero.it...

Già.. scaricarlo sarebbe meglio..

Precisamente e' il: Borland Pascal With Objects, composto da 10 floppy piu'
uno di bonus. si, ho intenzione di upparli nel mio sito, pero' aspettate un
po' di tempo, sono 13 mb e con la 56 k si perde un bel po' di tempo. cmq
appena lo carico vi avverto.
cmq cosa ha di diverso dalle altre edizioni che si trovano in rete?
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:4rpk8.22718$%g7.6...@twister2.libero.it...


 uno di bonus. si, ho intenzione di upparli nel mio sito, pero' aspettate
un
Vo subito alla SIAE (mo si dice cosi?) per registrare i diritti su "UPPARLI"
hehehhe :PPPPPP
No dai scherzo... sennň mi pigliano a diskellate :PPP
Cmq l'undicesimo dischetto non č di bonus.... ma contiene i sorgenti delle
UNIT standard.
ScherZoZamente, PoUer Cooper :PPPP (hihihi)
Newsgroup: it.comp.lang.pascal
Titolo: E' possibile criptare i file .dat?

Posso sapere gentilmente come si cripta un file .dat fatto con il pascal ?
Il problema in parole povere č questo devo vare un piccolo data-base con il
pascal, e salvare le informazioni in un file . dat e non voglio che l'utente
possa cambiare i settaggi del file dat semplicemente utilizzando il blocco
notes di windows o qualsiasi altro editor testi !!! GRAZIE A TUTTI
Crucio

notes di windows o qualsiasi altro editor testi !!! GRAZIE A TUTTI
Utilizza il sistema seguente per la crittazione (usato tra l'altro
anche in Word, Excel, ecc...), considera pero' che nell'esempio
seguente il file di dati e' di testo.
Il sistema e' il seguente :
Considera un flusso di bit :
10001011100101011010101010111
e una password 111101010101001111010101
La crittazione consiste in :
flusso_non_criptato xor password = flusso_criptato
La decrittazione in :
flusso_criptato xor password = flusso_non_criptato.
Si ha difatti :
10001011100101011010101010111 (flusso non criptato)
xor
111101010101001111010101111101010101001111010101
[-------password-------][-------password-------]
=
01111110110001100111111101001 (flusso criptato)
xor
111101010101001111010101111101010101001111010101
[-------password-------][-------password-------]
=
10001011100101011010101010111 (flusso non criptato)
Nel file di testo generato hai il seguente output :
stringa non crittata :
questa stringa è la simulazione dei miei dati
stringa crittata :
%:5<8(n< =9!+(nÅt#1o? #:8.*&#'+o0*9o! +&t+1;%
------------------------------------------------------------------
Program Criptiko ;
var password : string ;
    s : string ;
    t : text ;
    i, j : integer ;
begin
  i := 1 ;
  password := 'TOPOLINO' ;
  s := 'questa stringa è la simulazione dei miei dati' ;
  assign ( t, 'MIOFILE.DAT' ) ;
  rewrite ( t ) ;
  writeln ( t, 'stringa non crittata :' ) ;
  writeln ( t, s ) ;
  writeln ( t ) ;
  writeln ( t, 'stringa crittata :' ) ;
  for j := 1 to length ( s ) do
  begin
    write ( t, chr ( ord(s[j]) xor ord ( password[i]) ) ) ;
    inc ( i ) ;
    if ( i = length ( password ) + 1 ) then i := 1 ;
  end ;
  close ( t ) ;
end.

 wrote in message
37762103...@diesel.cu.mi.it...

Non ci sarebbe un modo più facile ? il problema è questo se io ho un
programmino tipo agenda telefonica, che memorizza i dati in un file dati
criptato con il prog di Laforgia, per andare a leggere le informazioni con
il programma di agenda lo devo prima decriptare giusto ???

il programma di agenda lo devo prima decriptare giusto ???
Be', scusami, mi sembra ovvio !
Non puoi pensare di scrivere i dati criptati e andarli a leggere come
se fossero dati normali.
Ma il problema a mio avviso non sussiste.
Si puoi scrivere una routine di scrittura che cripta e scrive e una di
lettura che legge e decripta e utilizzarle come fossero normali
routine di i/o.

 
embe'?? Se non ti va l'idea, non criptarli.
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"La durata di una riunione aumenta col quadrato del numero dei presenti",
legge di Shanahan
Newsgroup: it.comp.lang.pascal
Titolo: Manuale

Ho bisogno di un manuale elettronico di Pascal .. Nessuno conosce qualche
sito dove lo possa trovare ???
Grazie
Please, rispondetemi solo in e-mail (oppure, se volete sia su newsgroup che
mail)...
ciao
--
E-Mail To:
sti...@tiscalinet.it
sti...@tin.it
Home Page: 
http://come.to/stighy

 wrote in message
7u0062$31j$1...@draco.tiscalinet.it...


 Grazie
Prego

Newsgroup: it.comp.lang.pascal
Titolo: Creare una Unit in Turbo Pascal 7.0

Ciao a tutti
Sapete dirmi come creare una Unit *.TPU a
partire da un sorgente *.PAS.
Grazie

 ha scritto nel messaggio
news:%N4jd.275902$35.12...@news4.tin.it...

prova con :
(** unit di esempio incompleta **)
unit mcga;
interface
Procedure WaitRetrace;
Procedure SetMcga;
Procedure SetText;
Procedure Pal(Col, R,G,B : Byte);
Procedure GetPal(Col:Byte; Var R,G,B : Byte);
implementation
Procedure Pal(Col, R, G, B : Byte);
Begin
   Asm
      mov   dx, 3c8h
      mov   al, [Col]
      out   dx, al
      inc   dx
      mov   al, [R]
      out   dx, al
      mov   al, [G]
      out   dx, al
      mov   al, [B]
      out   dx, al
   End;
End;
Procedure GetPal(Col : Byte; Var R, G, B : Byte);
Var
   Rt,Gt,Bt : Byte;
{..versione completa disponibile sul mio sito
http://web.tiscali.it/bojan_space
 liberamente
scaricabile e/o modificabile.........}
poi bisognerebbe compilare e settare la destinazione di
compilazione su disco come descritto sui manuali...
Ciao,
Bojan. 
boj...@tiscali.it

 ha scritto nel messaggio 
news:cmjmm9$ur0$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio 
news:cmjmm9$ur0$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Mi servono alcune Units.

Ciao a tutti.
Qualcuno ha le units "Wincrt" e "Windos"?
Me le potreste e-mailare?
Od eventualmente da dove posso scaricarle?
Utilizzo il Turbo Pascal 7.0 della Borland.
Grazie mille.
by Joseph'79 ***

Non ne sono sicuro, ma forse sul sito della borland, nella sezione museo, ci
sono le units (pero' tp5.5)

Newsgroup: it.comp.lang.pascal
Titolo: far muovere il cursore

Salve a tutti,
sto tentando di fare un programma in cui, in base al tasto premuto, il
cursore possa muoversi verso destra,sinistra,su,giů. Allora, x quanto
riguarda destra e giů (cioč a capo) ci sono riuscito, assegnando i
tasti freccia. Invece x su e sinistra no :( Quale istruzione devo
usare ?? 
Poi, come posso collocare caratteri, oggetti, sullo schermo in modo
permanente tipo
X                H
 
       L
Rendo l'idea ?
Boh :-))))
DeV


---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------

Usa l'interrupt del BIOS per posizionare il cursore

 
Allora... se scrivi sullo schermo, il carattere rimane finche' non ne riscrivi
un altro (oppure finche' cancelli).
Se non ti basta, puoi prenderti un array di 80x25 byte, in cui salvi
i caratteri in ogni punto dello schermo, e, ad ogni movimento, fai un clrscr
e riscrivi tutto.
Se non ti basta ancora, oppure se flicca tutto, puoi prendere un
array 80x25 di word, in cui scrivi non solo il byte contenente il
carattere, ma anche quello contenente gli attributi dello schermo
(colore dello sfondo e del carattere, per ogni carattere).
Infine, per scrivere l'immagine, copi questo array direttamente nella
memoria video, a partire dalla posizione $B800.
Ciao ciao!
Ema ;-)
-- 
"Quando c'e' bisogno di toccar ferro o legno, ci si accorge che il mondo e'
fatto di alluminio e vinile", legge di Flugg
Newsgroup: it.comp.lang.pascal
Titolo: successione dei primi n numeri primi????

Ciao qualcuno sa risolvermi questo problema:
1) Scrivere un programma che calcoli i primi n numeri primi.
2) Scrivere un programma che calcoli le potenze da m a n di ciascun numero
intero compreso fra k e l.
Ciao e grazie mille x l'aiuto!!!!
Lappo

 wrote in message
a0fc50$4f0$1...@pegasus.tiscalinet.it...


 p := exp(b*(ln(a))
Grazie al tuo suggerimento ce lo fatto, solo il secondo però.
Per il primo:
Io ho già fatto un programma che mi dice se un numero è primo o no, e ho
anche un amezza idea su come fare la successione:
Inserisco da tastiera il numero di numeri primi da scrivere.
Poi partendo dal numero 1, vedo se è primo, se è primo lo scrivo, se non lo
è passo oltre al successivo, finche un contatore è uguale al numero n
immesso da tastiera.
Pensi di aver capito, che me dici??
Ciao ciao
Paolo

 Paolo
Allora... un numero è primo solo sè è divisibile per 1 e x sè stesso
(escludendo l'1 che non è considerato numero primo). Usa la funzione MOD x
vedere se la divisione non da resto resto :=  dividendo MOD divisore. Quindi
in pratica devi vedere se x il num n c'è qualche divisore intero. Basta fai
n MOD (da 2 a n/2) in quanto x vedere se 7 è primo basta dividerlo x 2 e x
3. Potresti ottimizzarlo escludendo le divisione per i numeri pari eccetto
il 2, in modo che il programma occupi meno memoria. Comunque anche facendolo
così semplicemente dovrebbe funzionare. Spero di essermi spiegato abbastanza
bene :P
Ciao ciao! (cosa sono questi i compiti x le vacanze di Natale? :)
Cristian

> n MOD (da 2 a n/2) in quanto x vedere se 7 è primo basta dividerlo x 2 e x
basta fino a sqrt(n)... se un numero ha un divisore maggiore della sua
radice quadrata, il risultato della divisione sara' un numero _minore_
della radice, quindi lo avresti gia' trovato
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Scusa io ho fatto questo programma, ma mi stampa i numeri primi minori di n
e non i primi n numeri primi. (Hai capito?)
Potresti guardare dove sbaglio?
Ciao e grazie  mille
Paolo
Program numeri_primi;
uses crt;
var n, m, s, conts, d, c:Integer;
procedure determinazione;
Begin
 clrscr;
 writeln ('I primi ' , n , ' numeri primi sono');
 m:=1;
 c:=1;
 if (n>1) then
 Begin
  repeat
  s:=1;
  conts:=0;
   repeat
   d:=m mod s;
   if d=0 then
          conts:=conts+1;
   s:=s+1;
   until s>m;
  if conts<=2 then
              writeln (m);
              m:=m+1;
              c:=c+1;
  until c=n;
 end
 else
 writeln (m);
end;
Begin
clrscr;
write ('Inserisci un numero da tastiera: ');
readln (n);
determinazione;
readln;
end.

 intero compreso fra k e l.
2)rovi i numeri fra le due variabili, prendi il primo e lo elevi m a potenza
(basta un ciclo for  nel quale moltiplici il risultato x il numero )
poi a potenza una volta superiore, ecc.
Quando la potenza è unguale a k passi all'altro numero.

Newsgroup: it.comp.lang.pascal
Titolo: Qual'è il mio tipo ?

Utilizzando degli algoritmi matematici, devo operare su potenze molto
elevate ( nell' ordine di 10^400 ).
Utlizzando il tipo longint non riesco a visualizzare numeri di tale
grandezza.
Ho pensato, quindi, di rivolgermi al tipo extended, ma essendo un tipo reale
( operazioni in virgola ) non mi permette l'elevazione a potenza ( mi da
"Type mismatch" ).
Come posso aggirare questo ostacolo ?
Magari inserendo qualche spezzone di codice asm ?
                                                                    Kosby

 Come posso aggirare questo ostacolo ?
Se i tuoi numeri sono tutti espressi in maniera esponenziale potresti
rappresentare il numero tramite un record
type numero
      mantissa : longint;
      esponente : longint;
end
e poi riscriverti qualche funzione matematica per utilizzare il tipo numero
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

 ha scritto nel messaggio
news:3c2S8.67285$j65.1...@twister1.libero.it...

Esprimi la potenza in funzione di exp(x) e log(y) dove x,y sono interi dati
in ingresso... l'uscita sarà cmq un tipo reale, quale ad esempio extended.
Cooper.

Newsgroup: it.comp.lang.pascal
Titolo: AIUTO PLEASE!!!!!!!!!!

come è possibilie effetturare una READ da terminale di un numero intero e
non far spostare il cursore se chi digita preme solo INVIO??
ps. la cosa mi sarebbe facile se la possibilità di digitare fosse solo una,
invece, essendo un codice, non riesco a descrivere in codice la seguente
cosa:
 GoToXY(x,y);
 Repeat
   Read(input);
   GoToXY(xy);
 Until (input) = [0..MaxInt];    (il pblm è sulla sintassi?????)
AIUTOOOOOOOOOOOO  grazie a tutti!!!!!!

Entro nella stanza e...cosa ti vedo ? sette lettini.
Su uno di essi c'era scritto Riccardo :
#come è possibilie effetturare una READ da terminale di un numero intero e
#non far spostare il cursore se chi digita preme solo INVIO??
repeat
  gotoxy(x, y) ;
  read(input);
until input in [0..MaxInt] ;
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------


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

 wrote in message 7mfh3v$j70$1...@nslave1.tin.it...

Perchè in Pascal:
    valore_intero in [Min...Max]
non si può scrivere, cioè puoi usare "in" solo quando il valore (ed il
range) è di tipo byte......
praticamente, il codice va riscritto così:
Uses
    Crt;
var
   i: integer;
   x, y: word;
   st: string;
   err: integer;
begin
     clrscr;
     writeln('valore ?');
     x := wherex; y := wherey;
     repeat
           gotoxy(x, y);
           readln(st);
           val(st, i, err);
     until (err=0) AND (st[0]>#0);
end.
Ciao!
Simo.
P.S.: il "guru" perde colpi?

Entro nella stanza e...cosa ti vedo ? sette lettini.
#P.S.: il "guru" perde colpi?
E' vero in TP, non in Pascal in generale.

Newsgroup: it.comp.lang.pascal
Titolo: Lavorare con i files...

Salve a tutti ho un piccolo problemino che adesso vi espongo...
Allora ho un file di testo ed io devo assegnare ad alcune variabili un 
carattere contenuto nel suddetto file...sapendo in quale posizione si trova 
il carattere del file come faccio ad assegnarlo alla variabile ?? 


Supogno che per "posizione" intendi dire riga Y colonna X. Beh allora ti 
basta leggere le prime Y righe con un for e prenderti la X lettera. 
qualcosa del tipo
Assing(F, 'nomefile' );
Reset(F);
for I := 1 To Y do
	ReadLn( F, Line );
Varibile := Line[X];
Close(F);
ovviamente puoi gestire casi come Y > di Eof e X > Length(Line ) con un 
po' di if, ma il codice "minimale" dovrebbe funzionare. Devi solo 
modificare un po' il codice per fare si che invece di essere 1 carattere 
di cordinate ( X, Y ) ci sia un array di caratteri e il gioco è fatto.
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

Newsgroup: it.comp.lang.pascal
Titolo: aiuto array

Il problema è la generalizzazione di alcuni che ho letto. Scrivere un
programma che restituisca una serie di 10 numeri interi in ordine
casuale facendo attenzione a un estrarre quelli già estratti. Se per
esempio consideriamo random (10)+1 ovvero da 1 a 10, potrebbe uscire in
output 6 3 4 1 10 2 7 8 9. So che bisogna utilizzare gli array
unidimensionali, ma non conosco la modalità boolean (forse neppure
serve?). Potete aiutarmi?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
procedure inizializza(var a:t_arr;  n_elem:byte);
var i,j:byte;
    ok:boolean;
begin
a[1]:=random(10)+1;
i:=2;
repeat
      a[i]:=random(10)+1;
      j:=1;
      ok:=true;
      while (ok) and (j<i) do begin
                              ok:=not(a[j]=a[i]);
                              j:=j+1
                              end;
      if ok then i:=i+1;
until i>n_elem
end;
--
Luca Molari @progrexive

 serve?). Potete aiutarmi?
L'esempio che hai fatto con 10 numeri è un caso assurdo.... essendo una
serie di 10 numeri ed essendo il range da 1 a 10, e non devono essere
ripetuti è chiaro che in output si avrà sempre: 1 2 3 4 5 6 7 8 9 10
Quindi.... si ridurrebbe a scrivere:
FOR X := 1 TO 10 DO WRITELN (X);
In tutti gli altri casi, (si DEVE ipotizzare che il random sia più alto
possibile esempio:  547587899).
In questa ipotesi, è sufficiente estrarre un numero indefinito di volta un
intero, confrontarlo col precedente già estratto e se maggiore del suo
precedente memorizzarlo nel vettore, altrimenti basta ripetere l'estrazione
e cosi via.
Dopo aver estratto i dieci numeri della serie, esci dal ciclo :-).
Ciao e in bocca al lupo, Cooper.
Newsgroup: it.comp.lang.pascal
Titolo: Can anyone tell me what's wrong?

The function below is supposed to seperate Comma seperated values, for
example:
     Name, char
          becomes
    Name
I have been trying to solve this problem for the last 2 days but without
success.
Can anyone help please?
Thank you,
David
Function Filter(Stg:string):String;
Var
  S,st:String;
  I:Integer;
  c:char;
Begin
st:=stg;
S:='';
I:=1;
 Repeat
   c:=St[I];
   if c <> ',' then S:=S+c;
   gotoxy(2,22);
   write(c);
   inc(I);
 until St[I-1]=',';
 readln;
 Filter:=S;
end;

 wrote in message
news:38a4...@news.waldonet.ent.mt...

=====================================================
I'm not sure if this is exactly what you are trying to do but try it:
Var
  S,st:String;
  I:Integer;
  c:char;
Begin
st:=stg;
S:='';
I:=1;
 gotoxy(2,22);
 Repeat
   c:=St[I];
 if c <> ',' then
  begin
  write(c);
  S:=S+c;
  end;
   inc(I);
 until St[I-1]=',';
end.

Do you want a function like this one?
function Filter(stg:string):string;
var i:integer;
  begin
    i:=pos(',',stg);
    if i=0 then i:=length(stg)+1;
    Filter:=copy(stg,1,i-1);
  end;
begin
  gotoxy(2,22);
  write(Filter('Name, char'));
end.
Alex
-- 
** Pepsi Cola and animal protection **
**  
http://www.pepsibloodbath.com/
  **
Author of the free Chatsystem PINO! || Website: 
http://www.alcomp.net
Available at 
http://pino.cjb.net
    || Chat   : 
pinochat.dhs.org:8080

  until St[I-1]=',';
Since you put the gotoxy() within the loop, you're returning to the exact
same position before printing each character, and each one just overwrites
the one before it.
-- 
William McBrine * 
wmcb...@clark.net
 * 
http://www.clark.net/~wmcbrine/
Newsgroup: it.comp.lang.pascal
Titolo: AIUTOOOOOOOOO

Dovendo consegnare la nuova esperienza di laboratorio entro breve e non
avendo ancora incominciato la grafica chiedo aiuto ai LUMINARI di questo
newsgroup...
Non è che c'è qualcuno che ha sottomano qualche semplice presentazione
grafica da mandarmi? Anche qualcosa già utilizzato da riciclare che io possa
cambiare a seconda delle mie esigenze. Può essere qualsiasi cosa, dalla
presentazione comica a quella ultra tecnologica-professionale, basta che non
sia troppo complessa, se no il prof mi becca e mi fa il culo!!!!!!!!
Vi ringrazio anticipatamente
Vittorio


Cerca Qui:
http://gpi.infomedia.it/

Newsgroup: it.comp.lang.pascal
Titolo: DRIVER SU ISA BUS

Ciao a tutti,
devo costruire un driver che legge e scrive
su di un indirizzo di una ISA BUS
idee? Documentazione in merito ?
Vi ringrazio anticipatamente delle possibili
risposte.


mi pare ne avessimo gia discusso, qual'è il problema da risolvere?

 
mandala a babayaga(at)
bassocosto.it
a presto

 ha scritto nel messaggio
news:bn0ani$s42qg$1...@ID-132562.news.uni-berlin.de...


 
non ho ricevuto ancora nulla, cmq rimango a disposizione, manda quando vuoi
ciao

 ha scritto nel messaggio
news:bnekqp$10onsr$1...@ID-132562.news.uni-berlin.de...


Newsgroup: it.comp.lang.pascal
Titolo: Programmatore inesperto

Ciao! sono un microprogrammatore di 14 anni.
So far qualcosina col turbo pascal 7.0, ma vorrei degli esempi.
Ad esempio la cosa che ancora non riesco a capire completamente
è il linguaggio assembler per Tp 7, potete darmi qualche sorgente dove
spiega le funzioni base del linguaggio assembler?
Grazie molte...
Marco
E-Mail : 
cba...@tin.it

spiega le funzioni base del linguaggio assembler?
Ciao Marco, 
dipende di quale linguaggio assembly parli, ovvero di quale
processore.
Nel caso tu ti riferisca allo standard di base, cioe' quello dell'8086
esiste un set di comandi abbastanza facile da utilizzare che comprende
funzioni aritmetiche, di aggiustamento, logiche e di controllo molto
semplici.
E' raro, comunque, trovare un sorgente in cui ti vengano spiegate
*tutte* le funzioni dell'assembly.
Ma se hai bisogno di un aiuto particolare chiedi pure.

 spiega le funzioni base del linguaggio assembler?
Non esiste il linguaggio assembler per TP7.
Il fatto è che il Pascal, nelle sue ultime versioni ( almeno 6 e 7 ) dà la
capacità ai programmatori di inserire nel programma codice assembler.
Se vuoi imparare l'assembler, posso aiutarti ...
Newsgroup: it.comp.lang.pascal
Titolo: Ecco dove trovare la Patch per i P2

http://digitezine.cjb.net
Guido Revello


http://digitezine.cjb.net
Non ho un Pentium II quindi non ho mai avuto la necessita' di
scaricare la patch benche' a volte lavori ancora con il TP7.
Ma.... sul sito della Borland non c'e' nulla a proposito?
Ho visto consigliare tanti siti ma mai un sito ufficiale. 
Solo una curiosita'.... :-)
Ciao, Paolo.

...


completamente indipendente...
Scusami se intervengo, e' la prima volta. Non capisco il senso della
societa' che ha rilevato la Borland. In realta' e' sempre Borland solo
che ha cambiato nome, in Inprise.
Quanto al fatto che Inprise non supporti piu' il TP, non disperatevi.
Io uso il Borland C++ ed OWL (la libreria C++ per Windows) non e'
neanche piu' supportata (a favore della VCL del Delphi e del C++
Builder). Ed e' veramente un peccato, perche' resto dell'idea che il
compilatore turbo pascal e' uno dei migliori in ambiente DOS. Almeno
e' quello che ho usato di piu' :-))).
Bye.
Jo.
Jo Parrello - OWL/C++ Programmer
http://www.geocities.com/SiliconValley/Hills/8145
(
jopar...@geocities.com
)

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

Mi è stato assegnato questo esercizio:
"Scrivere una procedura che controlli che il dato introdotto sia del tipo
previsto per la variabile adoperata."
Qualcuno sa dirmi come posso fare?
Thenks...

Qualcuno sa dirmi come posso fare?
Se ti spieghi meglio, forse, ma non č bello che siano gli altri a
farti i compiti :-)))
cosě non imparerai mai...
Prima prova da solo, poi magari chiedi qualcosa in particolare dove ti
sei arenato ;)
-- 
(*metallikop*libero*it*)
{
http://web.tiscali.it/mbsoftware
}

 così non imparerai mai...


 wrote in message
_EcK7.129919$sq5.6...@news.infostrada.it...



prova cosi:
repeat
 {$I-}
  read(var)
 {$I+}
until ioresult=0;
--
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

viene visualizzato un messaggio di errore
La funzione standard IOResult e' automaticamente impostata a zero se
l'ultima operazione di input/output e' avvenuta senza errori.
Per dati di tipo predefinito basta quindi inserire, subito dopo l'operazione
di input un'istruzione del tipo:
if IOResult<>0 then mia_routine_di_errore;
alla quale si puo' affidare ad esempio la richiesta di un nuovo input o
l'invio di una lettera di licenziamento all'operatore.
Occorre pero' eseguire la compilazione con la direttiva:
{$I-}
per disattivare l'input/output checking di default, che, in caso di input
errato, causa automaticamente l'arresto dell'esecuzione del programma e la
stampa sul video di un messaggio run-time error.
-- 
 Elio Proietti        
Debian GNU/Linux
Newsgroup: it.comp.lang.pascal
Titolo: funzione random

Ciao a tutti,
sto studiando il pascal da poco tempo. Ora vorrei fare un programma un po
piu complesso (per me), in cui mi serve la funzione random. Allora ho fatto
un piccolo programma di prova in cui viene tirato un dado a 6 facce. Pero,
il risultato è sempre lo stesso, e se cambio il numero di possibilità
ottengo sempre lo stesso rapporto (con x da 0 a 5 ottengo 4, con x da 0 a
100 ottengo 71, con x da 0 a 1000 ottengo 713).
Perchè? Ecco il programma, e scusate la mia ignoranza.
program dado;
uses crt;
var x:integer;
begin
clrscr;
x:=random(6)+1;
writeln ('hai tirato', x);
repeat until keypressed;
end.

 clrscr;
RANDOMIZE;


Ti da sempre gli stessi risultati perché hai dimenticato di inizializzare il
generatore di numeri casuali ovvero, se intendi usare la funzione rand(),
prima di richiamarla, devi eseguire la randomize:
....
randomize;
a:=rand(200);
Prova e vedrai che funzionerà :)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 vittima.
 Grazie mille a te e a solid snake, ho risolto.
Ciao


Di nulla.


Newsgroup: it.comp.lang.pascal
Titolo: Cercasi programma disperatamente

Sono uno studente delle scuole superiori e vorrei chiedere se qualcuno ha un
programma in pascal che può risolvere un'equazione di 1° grado. Se qualcuno
ce l'ha, per favore risponda alla e-mail sotto. E' molto importante per me.
Grazie.
rizz...@keycomm.it

ce l'ha, per favore risponda alla e-mail sotto. E' molto importante per me.
program Equazione;
var a, b : real;
begin
  a := 0.0;
  writeln('soluzione di a * x + b = 0 ');
  while (a = 0.0) do
  begin
    write('a ? '); readln(a);
  end;
  write('b ? '); readln(b);
  writeln(' x = ', -b/a);
end;

Newsgroup: it.comp.lang.pascal
Titolo: string to integer

come faccio ad inizializzare una stringa all'inizio come vuota? grazie.


wrote:


Newsgroup: it.comp.lang.pascal
Titolo: [IRC] se non sapete che fare

21:30 circa
irc.underchat.it
#pascal
--
Dreadnaut
(Life would be easier if I had the source code)

 #pascal
ritentiamo stasera ? :-)
per i disperati con troppe istanze di mIRC aperte, e' uscita
la ver 6 che e' multiserver...


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

Cerco un compilatore TurboPascal 5 o 7.Ho provato su vari siti tra cui
quelli citati in questo NG ma non riesco a scaricarli!!!
Grazie 1000 a tutti coloro che mi potranno aiutare!!!

 ha scritto nel messaggio
news:93vm8m$go7$1...@nread1.inwind.it...


Grazie 1000 a tutti coloro che mi potranno aiutare!!!
Perche` TurboPascal??
FreePascal: 
http://www.freepascal.org
 ;)
[Anche x Linux :PP]
-- 
Ciaooooo
Mr_Brain
Newsgroup: it.comp.lang.pascal
Titolo: Installazione Borland turbo pascal 7.0

Mi hanno dato il turbo pascal in 4 floppy..quando lo installo partendo dal
1° floppy con il file install arriva fino alla fine del 2° floppy e mi dice
che l'installazione è terminata...mi sembrava, avendolo installato anni fà
che mi dovesse chiedere tutti e 4 i floppy, o sono io che ricordo male ? Nel
3° e 4 ° floppy che cosa c'è allora ?
..grazie di cuore a chi mi darà un aiuto..:)
..Adriano

Dimenticavo..lo sto installando su windows me.....dipenderà da questo ?
..Adriano


Anche a me succede il tuo stesso problema ???
Prima mi chiedeva tutti e quattro i floppy ora solo 2 ???
Strano vero ????

Newsgroup: it.comp.lang.pascal
Titolo: Gestione Porta seriale

Ciao, vorrei conoscere i comandi in Pascal per la gestione della porta
seriale asincrona bi-direzionale 1200,n,8,1; è  urgente. Ringrazio chiunque
voglia fornirmi notizie o indicazioni in merito. Br (
bon...@tin.it
)





vedi il sito 
www.senet.com.au/~
cpeacock


c'è molto per il seriale.


-----------------------------------------------------
Click here for 
Free Video!!
http://www.gohip.com/free_video/

Newsgroup: it.comp.lang.pascal
Titolo: HELP!WINDOWS ME! ARRESTO SISTEMA

Ho installato W ME, ma quando deve spegnere il computer o riavviarlo mi da
questo errore:
VMM(01) + 0000C01  ERRORE: OE: 0028:C000D0C1
SAPETE AIUTARMI?
GRAZIE

 ha scritto nel messaggio
news:C3DS5.14026$FV2.4...@news.infostrada.it...


cmq, come errore è davvero strano... questo tipo di errore ti appare in uan
finestra standard di "error message" di windows o sulla schermata blu a
caratteri biachi?
--
Roberto De Giuli
--------------------------
Pascal avrà mai fatto un viaggio a Delphi??


 wrote in message


 GRAZIE
Allora, sappi che molti miei amici hanno avuto un bruttissimo impatto con
winme, loro tutti lo hanno avuto successivamente all' aggiornamento da win98
a winme, io personalmente con winme ho risolto i miei problemi e mi trovo
davvero bene!
Però, io a differenza dei miei amici prima di istallare winme ho formattato
il mio HD!
Il mio consiglio quindi é se vuoi win me ti conviene formattare la
partizione contenente i file di sistema di win98!
buona fortuna!

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Cercasi beta tester

Ho appena terminato un contascatti e sto cercando più persone con
computer diversi (SO, hardware, ecc...) per testare il programma.
A tutti coloro che mi aiuteranno sarà inviata la versione definitiva
gratuitamente.
Contattatemi per maggiori informazioni.
Grazie
Zeus

...

Mi offro volontario come cavia per i tuoi esperimenti.
Ho un 486 Win97 e un portatile 386 con DOS 6.22.
P.S.
Ho possibilità di utilizzare altri HD e SO!
by ARTAX
ar...@freemail.it
Newsgroup: it.comp.lang.pascal
Titolo: DOVE LO PRENDO...

..il Pascal??
Mi serve un programma per poter scrivere in pascal, mi sapete dare una mano?
Grazie
--
estizi - 
est...@iol.it
HOLY METAL
http://members.xoom.it/holymetal

\"estizi\" ha scritto:

http://memebers.xoom.it/Colo
Ciao
Peppe
--
---------------------------------------------------
 Giuseppe Di Rienzo  NICK: Peppe ICQ:25025139
 E-mail: 
gaed...@tin.it
 / 
scou...@hotmail.com
  HOME PAGE: 
http://utenti.tripod.it/scoutismo
   Campobasso 3° WWW: Scouting on the Net...
  Vivete per il presente, sognate per l'avvenire,
              imparate dal passato...
---------------------------------------------------

Scaricolo dal mio sito
http://members.xoom.it/lollo_1/
Troverai anche molte utiliti, oltre il TP 5 e il TP 7
Ciao
lorenzo....@libero.it

Newsgroup: it.comp.lang.pascal
Titolo: Freeware: Simulazione Atomi 4.0 in Delphi + Test velocità Linguaggi

Ditemi cosa ne pensate:
http://www.alessandropulvirenti.it/programmazione/
Delphi in alcuni test è risultato il linguaggio più performante!!!
Ciao
--
Alessandro Pulvirenti
al...@alessandropulvirenti.it
http://www.alessandropulvirenti.it

 Delphi in alcuni test è risultato il linguaggio più performante!!!
Delphi sicuramente è uno dei migliori, però ti devo contraddire su alcuni
tuoi test.
C++ Builder è un compilatore, ne esistono tanti di compilatori,
probabilmente se avessi compilato il tuo progetto con un'altro compilatore
senza fare uso magari della VCL, sicuramente i test che hai fatto
cambierebbero nettamente faccia.
Altro punto dolente:
Tu dici:
 I sistemi operativi Monotask dovrebbero essere più veloci di quelli
Multitask in quanto il sistema operativo dedica tutte le  sue risorse ad un
unico programma.
E poi dici che secondo il tuo test, questo non si è verificato.
Però è ovvio che non si è verificato, ci sono 2 possibili ragioni e
probabilmente dipende da entrambe le ragioni.
1) Hai usato il compilatore C++ della borland per Dos il quale compila a 16
bit, il che significa che il programma per DOS non era equivalente a quello
per Windows, siccome era come uno a cui gli mozzano le gambe. Un programma a
16 bit su una CPU a 32 bit è sempre più lento di uno a 32 bit su una CPU a
32 bit.
2) Hai probabilmente usato la libreria grafica del C++ della borland, che di
fatto è una delle più lente per DOS e una delle meno potenti. Se vuoi ti
posso inviare la mia libreria grafica per DOS, però funziona solo con TP7 e
non funziona sotto Windows XP, però in compenso è una delle più potenti e
veloci esistenti al mondo.
Quindi io ti consiglio di rifare i test con il seguente compilatore C++
   DJGpp + Allegro. il quale è a 32Bit e Allegro è una libreria grafica
decente.

 decente.
Sfortunatamente in C++ per DOS ho dovuto fare molte routine che gestiscono
l'interfaccia grafica; mi scoccerebbe troppo rifarle con un'altra
libreria...

Newsgroup: it.comp.lang.pascal
Titolo: tombola

come facci a fare un programma che simuli l estrazione di 90 numeri
nella tombola?
(solo l estrazione).
Ovviamente non devono esserci 2 numeri uguali!

...

Un modo stupido di farlo potrebbe essere:
Var
  Estratti : array [1..90] of boolean;
  NumRimasti, i, j, Estratto : integer;
{Inizializzazione}
for i := 1 to 90 do
  Estratti[i] := false;
NumRimasti := 90;
Randomize;
{Estrazione di un numero}
{Deve essere NumRimasti>0}
i := Random(NumRimasti) + 1;
Dec(NumRimasti);
j := 1;
while i>0 do
  begin
    if not Estratti[j] then Dec(i);
    Inc(j);
  end;
Estratto := Pred(j);
Ho buttato li il codice senza testarlo, quindi vedi un po'.
Ho dei dubbi soprattutto su Random(x), che credo restituisca un real: se č
cosě devi troncarlo ad intero.
Ciao, Max.

Estratto := Pred(j);
Estratti[Estratto] := true;
Ciao, Max.

cosě devi troncarlo ad intero.
random(X) restituisce un intero "r" tale da essere : 0 =< r < X

...Semplicemente utilizzando un SET, una variabile INTEGER ed una CHAR:
Uses crt;
Var
  estratti:set of 1..90;
  i: integer;
  x:char;
begin
{Inizializzazione}
estratti:=[1..90];
Randomize;
writeln(' Premi un tasto per estrarre un numero, [q] per uscire.');
x:=readkey;
{Estrazione di un numero}
while not x='q' do
begin
if estratti<>[] then begin
                           repeat
                              i := Random(90) + 1;
                           until i in estratti;
                           estratti:=[estratti - i];
                           writeln(' Il numero estratto è: ',i:2);
                           x:=readkey;
                           end
                    else begin
                           writeln(' Tutti i numeri sono gia stati
estratti');
                           x:=readkey;
                           x:='q';
                           end;
end;
end.
...può sembrare complesso ma l'apparente complessità è dovuta all'immissione
e all'output, l'algoritmo che 'estrae' i numeri è banale.
Dovrebbe funzionare ma non l'ho testato.
Bye, bye...
Ulisse

Dovrebbe funzionare ma non l'ho testato.
No, non dovrebbe ;)
Difatti la condizione del while cerca di negare la x mentre dovrebbe
essere while not (x = 'q') o meglio ancora while (x <> 'q') ed inoltre
la riga estratti := [estratti-i] genera un conflitto di tipi.
Dovrebbe essere estratti := estratti - [i] ;

Newsgroup: it.comp.lang.pascal
Titolo: corso in italiano!

Qualcuno mi sa dire dove posso trovare un corso di pascal in ITALIANO?
GRAZIE.


Bo!
Comunque se ti interessa vedere qualche cosa sulle funzioni e
procedure del TP puoi trovare un po' di roba nel mio sito che sto
realizzando in questi giorni. Non e' nienti di che ma qual'cosa ci ho
messo.
http://users.iol.it/fabio.manzo
Se hai delle idee su come migliorarlo scrivimi pure, magari dicendomi
anche cosa ti piacerebbe trovarci dentro.
CIAO,   Fabio.
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: ma...

Scusate ma i programmi che avete scritto sono tutti e due sbagliati!!!
Ciao
Paolo

> Scusate ma i programmi che avete scritto sono tutti e due sbagliati!!!
se rispondessi usando RE: e mantenendo lo stesso object magari capiremmo
anche a chi ti stai riferendo!!!!

Guardando tutte le missive mandate da te e ordinandole x data sono riuscito
a capire, che forse ti riferivi al triangolo di Floyd, la prox volta
rispondi utilizzando il tasto rispondi al newsgroup (molto prob. hai outlook
si vede dal R: di altri msg che hai mandato ;-) ) .
Ho testato il mio prg, e non dà nessun errore se non una piccola
imprecisione di impaginazione dell'output, ovvevro quando aumentano le cifre
dei numeri visulaizzati il prg soposta l'incollonamento un po' avanti, ma è
una cosa normale.
In ogni caso quello che ti avevo mandato non era tutto il programma bensì
una procedura e basta ti rimando il prg pronto da coppia incollare ;-)
--cut--
uses crt;
Procedure Triangolo(n:integer); {n inerire il numero di elementi che la proc
deve disegnare}
var i,k,pos:integer;
begin
        k:=1;
        for i:=1 to n do
        begin
             write(i,' ');
             if ((i-pos) mod k)=0 then
             begin
                  writeln;
                  k:=k+1;
                  pos:=i;
             end;
        end;
end;
begin
     clrscr;
     Triangolo(100);
     readln;
end.
--cut--
Ps: mi sento un po' Sharlock Holmes dei poveri ;-)
--
{G}eppo
Panther Power 3D Studio - Coder of GBA Team
www.panther3d.com
L'uomo utilizza solo il 10% del suo cervello
il restante 90% è file di swap del sistema operativo

 il restante 90% è file di swap del sistema operativo
Scusa, cosa vuol dire "swap del sistema operativo"?
Ciao
Daniele

 Paolo
...allora mostraci tu come fare :)
-- 
KNOWLEDGE IS POWER
Linux: the choice of a GNU generation!
http://www.sverzat.com

Un applicazione, genera un file di swap quando deve gestire una quantità di
informazioni tali che non possono essere contenute in ram, allora il
programma le memorizza sull'hd inn modo da cricare solo la parte che gli
serve.
Questo detto alla buona, in realtà le cose sono un po' più complicate
--
{G}eppo
Panther Power 3D Studio - Coder of GBA Team
www.panther3d.com
L'uomo utilizza solo il 10% del suo cervello


Azz mi sono dimentica il Ps :
Ps: E quando questo file viene creato di solito vi è un tremendo calo di
prestazioni


 wrote in message
b19V7.28657$OP2.1...@news2.tin.it...


Scusami, ma io continuo a dire che il tuo programma non va:
se io inserisco come numero di righe 4, il programma mi stampa
1
2  3
4
e non va bene perchč dovrebbe stamparmi 4 righe cosě
1
2  3
4  5  6
7  8  9  10.
Ti faccio un altro esempio
se io metto nel tuo programma 7
lui mi scrive
1
2  3
4
5
6
7
e non va bene xkč dovrebbe scrivere
1
2  3
4  5  6
7  8  9  10
11 12  13  14 15
16  17  18 19 20 21
22  23  24  25  26  27 28
Capito...
A presto e buone feste
Paolo

 e non va bene xkè dovrebbe scrivere

Newsgroup: it.comp.lang.pascal
Titolo: Modalità grafica

Cosa devo fare per utilizzare la modalità grafica di TP7 ???
Quali sono i comandi specifici ?
Eventualmente ci sono siti che mettono a disposizione giude per fare questo
??
Grazie.
--
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

 ha scritto nel messaggio
news:sCvZ5.88651$hk4.3...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal?

Cerco compilatore Pascal per 68K magari freeware.
Qualcuno puo' aitarmi?
Franz K.

, a oggi direi l'ambiente di
sviluppo più usato su Macintosh, attivamente sviluppato e supportato. Se
ti serve solo la versione 68K, mi pare che la versione più adatta sia
quella inclusa nel pacchetto "Discover Programming"; comunque dai
un'occhiata al sito per saperne di più.
Saluti
Sebastiano Pilla

 Qualcuno puo' aitarmi?
C'e' il ThinkPascal 4 della Symantec che troverai a costi contenuti.
Oppure CodeWarrior Pro (che pero' e' decisamente piu'
professionale=>complesso&costoso).
A proposito, conoscete qualche sito o qualche tutorial dedicato alla
programmazione pascal per Mac??
Ciao, David
-- 
  David Sebastio    -    
seba...@joynet.it
PGP Key Available -       IEEE Student Branch Bari    
 
http://www.poliba.it/IEEESB/

> Mi dite cos'è questo tipo di compilatore ?
Grazie Ciao..Giuseppe.


PREGO?
Non capisco la domanda...
intendi:   1)  - che cos'e' il PASCAL ?
                 2)  - che cos'e' un compilatore PASCAL?
                 3)  - che cosa e' un compilatore PASCAL per 68K?