mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Pascal 7.0 e Access 97

Ciao a tutti
ho un problemino:
Ho dei files creati da una procedura fatta in Pascal 7.0
che contengono dei records che naturalmente devo importare Access.
Alcuni campi dei vari records sono in un formato non leggibile (sono stati
modificati dal programma di origine) e quindi non riesco ad importarli
neppure in formato txt.
Ho il compilatore ma non ho i sorgenti.
Qualche buon programmatore saprebbe aiutarmi ?
A buon rendere naturalmente
p...@telware.it

 wrote:

I files di record del turbopascal non sono in formato testo.
Se ti serve che in formato sia in txt ti devi scrivere un programma
che ti faccia la conversione.
Se sai di che tipo sono i record (conosci i vari campi) il programma
di conversione e' semplicissimo da fare.
Fabio.
fabi...@rocketmail.com

Un bel di' Pietro scrisse:
P> Ciao a tutti
P> ho un problemino:
P> Ho dei files creati da una procedura fatta in Pascal 7.0
P> che contengono dei records che naturalmente devo importare Access.
P> Alcuni campi dei vari records sono in un formato non leggibile (sono stati
P> modificati dal programma di origine) e quindi non riesco ad importarli
P> neppure in formato txt.
P> Ho il compilatore ma non ho i sorgenti.
P> Qualche buon programmatore saprebbe aiutarmi ?
P> A buon rendere naturalmente
Come e' gia' stato detto sul NG di access: hai ancora le procedure... se
puoi dare qualche info in piu' :-)
-- 
"Note spese il cui totale e' divisibile per 1000 sono sempre guardate con
sospetto", principio di O'Brien (teoria delle 750 lire)
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

Purtroppo non conosco il tipo di struttura del file e quindi nemmeno i campi
vedo solo alcuni dati descrittivi in chiaro ma altri dati no.
Non conoscendo la struttura è ugualmente possibile fare un programma che
trasformi i files in txt.
ciao
p...@telware.it

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

Salve, volevo domandare dove potrei scaricare Turbo Pascal 7.0

Salve, volevo domandare dove potrei scaricare Turbo Pascal 7.0
TP7 e` un programma commerciale... usa freepascal che e` gratuito e 
fa le stesse cose (o di piu`? :-) )
-- 
Ciaooooo
Mr_Brain
Newsgroup: it.comp.lang.pascal
Titolo: Environment in Pascal 2 (scusate...)

Ciao
Come faccio a settare una variabile d'ambiente in pascal ?
 
(una cosa del tipo 'SET XYZ=blabla' )
 
--
Bye bye....
 
ne...@tvol.it
 
szn...@usa.net
***************************
* Team Os/2 Italia member *
***************************
My Dream ? PROTECTONLY=YES !
HOMEPage : 
http://delenda.biella.alpcom.it/zamprogno/
ICQ UIN  : 4708891
HAL-9000: "What are you doing with those Windo$e disks Dave? Dave?
DAVE!!!!!
S.E.T.I Project supporter

(una cosa del tipo 'SET XYZ=blabla' )
Non ci sono procedure predefinite per farlo, l'unico metodo che conosco e' 
di chiamare il command con
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C SET XYZ=blabla');
SwapVectors;
Ovviamente ricordati di lasciare abbastanza memoria per l'esecuzione del
programma chiamato con la direttiva {$M}
Ciao
Andrea      
(per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo)
ICQ# 8328956

 programma chiamato con la direttiva {$M}
--


Newsgroup: it.comp.lang.pascal
Titolo: per chi usa Win Httrack: info

hey.. psss.... stai sbagliando NG :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> hey.. psss.... stai sbagliando NG :-)
sssssssssssssshhhhhhhh che non se ne accorge nessuno :-)
(vuoi vedere che quelli del pascal magari sono dei gran utilizzatori
di tale software e riescono a darmi una mano alla faccia dei motori)
dalla legge di  murphy (mi sembra ma non ricordo l'autore americano che
comunque scrivendo
queste leggi della vita vissuta ci ha fatto un sacco di soldi)
la cosa che stai cercando stai pur certo che non si trova dove dovrebbe
essere:
infatti come si fa a dimostrare che i maggiori utilizzatori di tale
software non si trovino proprio qui
(nel dubbio ...)
excuse se dimenticato ot
excuse per ot
sssssssssssssssssssssshhhhhhhhhhhhhhh
ffffffffffiuuuuuuuuuuuuuuuu

 hey.. psss.... stai sbagliando NG :-)
sssssssssssssshhhhhhhh che non se ne accorge nessuno
:-)
nel post richiedevo eventuali altri software specifici per risolvere il
problema e quindi con la possibilità che qualche programmatore (magari
pascal) possa aver risolto il problema
per altri mediante la creazione di software fatto a misura (quindi
perchè non chiedere anche ai
programmatori pascal se hanno risolto tale problematica);ciò  da
aggiungere al fatto che
 in rete e nei news stessi non si riesce a trovare materiale e che
magari  qualcuno
del news già utilizza il software in questione e quindi può darmi una
mano a risolvere il problema
Newsgroup: it.comp.lang.pascal
Titolo: ioProgrammo [1/2 OT]

Buongiorno a tutti. 1/2 Ot perchè con la programmazione ha a che fare, ma
programmazione in generale.
Su un numero di IoProgrammo (so che è di luglio, ma non ricordo se 2000 o
2001) era uscito un articolo
che dava le prime basi per la grafica 3d, dimostrando come fosse possibile
passare da una rappresentazione
3d sui tre assi "xvz" alla 2d sullo schermo "uv". La mia domanda è semplice:
qualcuno ha quella rivista?
E' davvero importante.. su internet non sono riuscito a trovare nulla,
neanche sul sito di ioprogrammo, che
a quanto pare ha gravi problemi nel modulo per la ricerca (non funziona
mai...)
Grazie a tutti, Augusto

Io ce l'ho...devi darmi il tempo di cercarla!
Daniele

 ha scritto nel messaggio
news:a1ig95$6npa$1...@stargate1.inet.it...


 wrote in message
a1k20a$r84fh$1...@ID-94218.news.dfncis.de...


 ha scritto nel messaggio
news:a1kqjd$6v4q$1...@stargate1.inet.it...


No problem...dimmi solo quanto ti posso mandare...non vorrei intasarti la
casella postale!!
Daniele

 Daniele
scusate se m'intrometto, ma la cosa interesserebbe anche a me
--
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

Vi mando tutto domani, ok?
Ciao by
Daniele
Newsgroup: it.comp.lang.pascal
Titolo: Grafica

Ciao
Vorrei utilizzare la grafica per creare qualche giochino in Pascal, ma la
BGI è un tantino limitante.
Dove posso trovare di meglio ??
Grazie.
Stefano

 wrote in message
ZUV_3.863$ge....@typhoon.libero.it...


http://www.chesworth.com/pv/graphics/denthor/index.html


Newsgroup: it.comp.lang.pascal
Titolo: Come creo una mia libreria?

Ciao a tutti
Volevo sapere se era possbile crearsi una propria libreria di comandi.Mi
dite come posso fare?
Grazie 1000
Ciao
Gio
Br1

 ha scritto nel messaggio
news:lk%t8.16587$vF6.5...@news2.tin.it...

Se intendi una unit (ovvero serie di funzioni e procedure raggruppate per
categorie anche se potresti metterle anche a casaccio) basta cercare
sull'help la parola UNIT
poi non è difficile...
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

 poi non è difficile...
Beh, le UNIT sono le UNITA' ovvero i moduli.... le librerie sono le DLL.
Forse intendeva una DLL :D
Cooper.

Io con librerie intendo creare una nuova serie di comandi.
Ad es. voglio poter inserire all'inizio Uses Crt, Libreria
dove Libreria contiene una serie di comandi inventati da me.
Questo é quello che intendevo dire.
Come faccio?
Adesso provo a vedere nell'help sotto Unit e spero di saltarci fuori
Ciao e grazzzzzzie
Gio
Br1

 ha scritto nel messaggio
news:a9ac9r$a1k$1...@newsreader.mailgate.org...

Visto coop stavolta ti ho fottuto... Forse sono stato un pò fortunato nel
senso che Giovanni si è espresso male... Però avevo intuito...


 ha scritto nel messaggio
news:Ggbu8.17417$vF6.5...@news2.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: pascal per linux

Ho letto che esiste la possibilita` di programmare
in pascal con le GTK...
qualcuno ne sa qualcosa?
grazie!

 ha scritto nel messaggio
news:vYgU9.111498$Ou4.3...@twister2.libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Visual Pascal

Ciao vorrei sapere se esiste una qualsiasi versione di Visual Pascal e se
no, quale linguaggio visual si avvicina di più a un probabile Visual Pascal.
Grazie

...

Il Compilatore Delphi della Borland!
Ciao

segui l'oracolo di DELPHI........

Newsgroup: it.comp.lang.pascal
Titolo: suggerimento su array di record...

Ciao a tutto il ng! Il mio problema è questo: devo realizzare una tabella
(array di record) dentro la quale devo permettere l'inserimento delle
precipitazioni in mm in 50 città italiane nei 31 giorni di un mese, e
permettere dopo l'inserimento la visione dei dati. Il problema sta nel fatto
che non riesco a capire in che modo devo creare la tabella. Ho provato a
fare una cosa simile ma misà che nn funge:
prec = record
                città : string[15]
                qnt : real
                gg: dimensmax
tabella = array[dimens] of prec
Qualche suggerimento?
Grazie
--
----------------------------------------------
ICQ NUMBER: 147421455
http://www.posieidon.3000.it
Newsgroup: it.comp.lang.pascal
Titolo: function Fullscreen !

Esiste qualche comando per attivare, all'esecuzione del prg in windows, la
modalità DOS in fullscreen ??? Se si,come si fà ??
Grazie
--
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

                 Ciao.
Alex
Devi andare nelle proprietà dell'eseguibile. In una delle schede, si può
impostare l'opzione che ti serve.
Spero di esserti stato utile e... di aver risposto alla tua domanda.
Ciao!
Filippo

 Alex
Solo ora mi rendo conto che, probabilmente, ti riferivi a qualche istruzione
"PASCAL". Non so che dirti.
Ciao!
Filippo

istruzione "PASCAL". Non so che dirti.
entra in modalità grafica, Windows attiverà automaticamente il full screen
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++  
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r  tv--  
b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

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

Sto realizzando un programma, un gioco stupido, ma mi serve un suono per
indicare un esplosione, qualsiasi suono vą bene.
Vi ringrazio e auguro buona programmazione a tutti.

Se ti accontenti c'è la procedura sound... guarda nell'help.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
Newsgroup: it.comp.lang.pascal
Titolo: disegnare parabola

Qualcuno mi sa spiegare in che modo è possibile disegnare una parabola col
turbo pascal usando le bgi??
grazie
-----------------------------------------------------
s...@gem.it
IRCNet:KiNg[G]hZ »»» #mp3.ita

turbo pascal usando le bgi??
Si potrebbe fare cosi':
risolvi l'equazione della parabola in modo da averla in forma
cartesiana   y=f(x)
Poi scelto l'intervallo di interesse  (nell'esempio sono x1 e x2) fai
andare x da x1 a x2 secondo un passo (k) dipendente dall'intervallo e
ti calcoli il valore della funzione nei punti che poi visualizzi
interpolandoli.
program  parabola;
uses     graph;
function f(x:real):real;     (* equazione parapola *)
var      a,b,c:real;
begin
         a:=10; b:=0; c:=20;
         f:=a*(x*x)+(b*x)+c
end;
var      gd,gm,gx,gy,i,j:integer;
         x1,x2,k,x,y:real;
         primo:boolean;
begin
         gd:=detect;
         initgraph(gd,gm,'');
         gx:=GetMaxX;
         gy:=GetMaxY;
         SetColor(7);
         line(0,gy div 2,gx,gy div 2);     (*  asse x  *)
         line(gx div 2,0,gx div 2, gy);    (*  asse y  *)
         SetColor(12);
         x1:=-10;
         x2:=10;
         k:=(abs(x1)+abs(x2))/gx;
         x:=x1;
         primo:=true;
         repeat
             i:=(gx div 2)+trunc(x/k);
             y:=f(x);
             j:=(gy div 2)-trunc(y);
             if primo then begin
                MoveTo(i,j);
                primo:=false
             end
             else begin
                if (j>0) and (j<gy) then
                   LineTo(i,j)
                else
                   primo:=true
             end;
             x:=x+k;
         until x>=x2;
         readln;
         CloseGraph
end.
By Fabio
--
fabi...@rocketmail.com

turbo pascal usando le bgi??
{$X+}
uses CRT, Graph ;
const X_AXE_STEP   =    -50 ;   
{ distanza in pixel dal basso dello schermo dell'asse X }
const WINDOW_MAX_X =    400.0 ; 
{ dimensione orizzontale finestra video }
const WINDOW_MAX_Y =  10000.0 ; 
{ dimensione verticale finestra video }
var GD, GM : integer ;
    X, Y, LastX, LastY : real ;
    function TX (X : real ) : word ;
    { trasforma e scala la X per il video }
    begin
      TX := GetMaxX div 2 + round( X * GetMaxX / WINDOW_MAX_X ) ;
    end ;
    function TY (Y : real ) : word ;
    { trasforma e scala la Y per il video }
    begin
      TY := GetMaxY + X_AXE_STEP -
            round( Y * GetMaxY / (WINDOW_MAX_Y + X_AXE_STEP) ) ;
    end ;
begin
  GD := detect ;
  InitGraph ( GD, GM, '\tp\bgi' ) ;
  LastX := -100.0 ;
  LastY := LastX * LastX ;
{ condizioni iniziali }
  SetColor(LightGray) ;
  Line (0, GetMaxY + X_AXE_STEP, GetMaxX, GetMaxY + X_AXE_STEP ) ;
  Line (GetMaxX div 2, GetMaxY, GetMaxX div 2, 0 ) ;
{ disegna gli assi }
  SetColor(LightBlue) ;
{ imposta il colore della parabola }
  X := LastX ;
  repeat
    Y := X * X ;
    Line (  TX(LastX), TY(LastY), TX(X), TY(Y) ) ;
    LastX := X ;
    LastY := Y ;
    X := X + 1.0 ;
  until ( X = 100.0 ) ;
  readkey ;
  CloseGraph ;
end.
Andrea Laforgia
---------------
Newsgroup: it.comp.lang.pascal
Titolo: Comandi DOS su Pascal

Ue !
C'è x caso qualcuno fra voi ke sa kome utilizzare comandi dos
(copy,move,fomat,ecc,..) su un programma pascal ?
Per ora so solo ke bisogna mettere uses dos; ma poi ??
DEvo creare variabili particolari ?
Fateme sapere,
SaLuTi !
DeV
DeV
skywa...@usaADREM.net
cut adrem for reply
#grungepunkitalia
Byez

Fateme sapere,
Testo tratto dal mio sito
http://members.xoom.com/fabioman
Lancio di comandi ed eseguibili
Dai programmi in Pascal è possibile lanciare altri programmi oppure
dei comandi DOS.
Per quanto riguarda il lancio di eseguibili fate riferimento a questo 
esempio: 
program     esegui_programma;
{$M $8192,0,0 }
uses        dos;
var         programma,parametri:String;
begin
            programma:='program.exe';
            parametri:='';
            SwapVectors;
            Exec(programma, parametri);
            SwapVectors
end.
Quest'altro è invece per lanciare dei comandi DOS 
program     esegui_comando_dos;
{$M $8192,0,0 }
uses        dos;
var         comando:String;
begin
            comando:='dir c:\';
            SwapVectors;
            Exec(GetEnv('COMSPEC'),  '/C' + comando);
            SwapVectors
end.
Comunque, in base alle proprie esigenze, si può modificare la
direttiva M aumentando o diminuendo la dimensione dello Stack o della
Heap.
Nel sito c'e' anche una procedura scritta in pascal per fare una copia
di un file senza passare per il dos.
Ciao
--
fabi...@rocketmail.com

DEvo creare variabili particolari ?
Devi usare la procedura "Exec"
Esempio :
{$M 8192, 0, 0}
uses DOS ;
begin
  SwapVectors ;
  Exec(GetEnv('COMSPEC'), '/C dir /s');
  SwapVectors ;
end.
Andrea Laforgia

Concordo con la spiegazione di Fabioman, solo una precisazione
Programma deve essere composto dal path dell'applicazione + il nome del file
compreso di estensione.
Comandi come il copy, dir, risiedono all'interno del 
commando.com
quindi se vuoi usare ad esempio il copy
dovrai :
Programma := 'C:\Command.com';
Parametri := '/c copy File1.txt File2.Txt'
Lo stesso per il dir
Programma := 'C:\Command.com';
Parametri := '/c dir' + path (* il path visualizzare C:\ o C:\Windows per il
DIR C:\Windows .... *)
Bye Dav

Parametri := '/c copy File1.txt File2.Txt'
Difatti sia io che fabio abbiamo scritto :
Exec(GetEnv('COMSPEC'),  '/C' + comando);
Che fa esattamente questo.
Andrea Laforgia

Scusate č stata una mia svista, non avendo letto per intero il messaggio,
comunque spero di non aver offeso nessuno.
Ciao e scusate ancora.



Ma *scusami* perche' temi di offendere qualcuno ???
D'altronde questo e' un gruppo di discussione...
Andrea Laforgia
Newsgroup: it.comp.lang.pascal
Titolo: Come interfaccio Pascal e Assembler

Salve.
So che mettendo ASM posso scrivere in Assembly.
Ma ho un file .ASM come faccio ad interfacciarlo con il pascal
es :
il file č cosě, queste sono le prime righe :
   PUBLIC   ChkSumBIOS
   INCLUDE  EXTASM.INC
   EXTRN    __Ret : Far
   DOSSEG
  .MODEL    SMALL
  .DATA
            SEG      EQU 0F000H
            START1   EQU 0FF5CH
            START2   EQU 0FFF5H
            LEN1     EQU 20
  .CODE
   ChkSumBIOS PROC   FAR
            push     bp
            mov      bp,sp
            push     ds
            mov ax,@data
            mov ds,ax
Il risultato dell'operazione viene memorizzato in un registro : come faccio
a mettere il contenuto del registro in una variabile ????
grazie mille (sapete qualche sito con una bella guida su prog a basso
livello (ASM) in ITALIANO ?????
--
Posted from 
mta10-acc.tin.it
 [212.216.176.41]
via Mailgate.ORG Server - 
http://www.mailgate.org

Ma ho un file .ASM come faccio ad interfacciarlo con il pascal
Prova ad ottenere il .obj e a scrivere nel tuo sorgente :
{$L miofile.obj}
dichiara, inoltre, "extern" tutte le funzioni che utilizzi e che sono
presenti in codice macchina.
--
Andrea Laforgia        (
andrea_...@bigfoot.com
)

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

Qualcuno sa dirmi se ci sono compilatori pascal, c, o c++ per win 98 da
poter scaricare gratuitamente dalla rete...oppure se ci sono programmi
integrati ( editor + compilatore ).
Tempo fa avevo trovato 'Borland turbo c++' sotto dos....che adesso non
riesco più a trovare.
..Adriano

Qualcuno è per caso in possesso del 'Turbo Pascal 7' ...magari da potermi
gentilmente inviare per mail ( ..se non è troppo esoso per il
collegamento ), ne ho un disperato bisogno e non riesco a trovarlo...
grazie in anticipo...Adriano

 ha scritto nel messaggio
news:8rhsk9$pmm$1...@pluto.sm.dsi.unimi.it...






Tempo fa trovai sul sito 
www.warez.com
 nella sezione Toolz un compilatore 
Turbo Pascal 7!!!


Ciao




QUANDO DEVI VERCARE QUALCOSA LEGGI PRIMA GLI ALTRI MESSAGGI PERCHE' MOLTO
SPESSO QUELLO CHE SI VUOLE C'E' GIA'.
COMUNQUE VAI SU 
http://www.crackstore.com/tools
 PERO' GUARDA CHE E' TUTTO
ILLECITO, QUINDI STAI ATTENTO...
CIAO

 QUANDO DEVI VERCARE QUALCOSA LEGGI PRIMA GLI ALTRI MESSAGGI PERCHE' MOLTO
[cut]
Scrivere in maiuscolo equivale ad urlare.
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________
Newsgroup: it.comp.lang.pascal
Titolo: Domanda

Io nel mio programma ho inserito una guida che si attiva premendo H e invio.
Come si fa a farla partire premendo H e basta o meglio ancora F1?




Presumo avrai utilizzato una funzione tipo readln per prendere il carattere
H...
Guarda sull'help la funzione ReadKey...
per quanto riguarda F1 è identico ad H... basta cambiare il codice del
carattere...
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"

Come si fa a farla partire premendo H e basta o meglio ancora F1?
Credo che il modo più semplice sia usare la funzione "readkey" :
var c : char;
c := readkey;
case c of 
   'H' : attiva guida;
   #0 : begin { attiva la guida alla pressione del tasto F1 }
              c := readkey;
              if (c = #59) then attiva guida;
          end;
end;
Tieni presente che tasti "speciali" come i tasti funzione non corrispondono ad
un unico carattere di scansione nel buffer della tastiera ma a due, di cui il
primo e' il carattere #0.
Per cui per leggere qual è l'effettivo tasto premuto bisogna leggere, in questi
casi, due caratteri con due readkey consecutivi.
L'ultimo readkey restituisce il carattere di scansione vero e proprio, utile per
riconoscere il tasto premuto.
Andrea Laforgia
----------------------------------------------------------------------
Sto facendo il militare.....vi rispondo tra una o due settimane !!! :)

Newsgroup: it.comp.lang.pascal
Titolo: Calcolo combinatorio-Disposizione semplice

Ciao ragazzi,
so che non è il ng adatto ma la domanda comunque va sul pascal.Il professore
di mat l' altro giorno ci ha dato da studiare la disposizione semplice e ci
ha detto di fare una procedura in tp che esegua il calcolo.Poi aggiunge che
questo argomento non c'è sul libro quindi dovevamo ricavarci noi la formula.
Ci ha fatto degli esempi(senza spiegarci niente):
n=1 k=1 comb=1
n=2 k=2 comb=2
n=3 k=3 comb=6
n=4 k=4 comb=24
Uno dice: va be' tanto il libro l'ho comprato per questo ma il prof ci
comunica che sul libro non c'è.Vado a controllare e non lo trovo.
L' unica possibilità rimasta è far lavorare quell' ammasso celebrale che mi
ritrovo nella scatola cranica.
Sono arrivato a comb=n(n-1)(n-2)(n-3) k volte.
Sembra trovarsi. Ho ricavato bene la formula generale o è sbagliata.
C'è qualcuno che me la corregge e magari mi fa anche il programmino?
GRAZIE!!!

 ha scritto nel messaggio
news:t00D6.42658$s93.1...@news.infostrada.it...


 End;
Grazie 1k!


wrote:

Che ne pensi di una bella soluzione ricorsiva?
function DSemp(N,K : integer) : integer;
begin
if K>N then
    DSemp := 0 {Condizione di errore K>N}
else if k=0 then 
    DSemp := 1
else
    DSemp := N*DSemp(N-1,K-1);
end;

 end;
L'avevo pensato anch'io (infatti se guardi nel mio post c'era un oppure
senza riferimento...) ma quanto pensi ke possa resistere lo stack?? Anche
ampliando l'area riservata ad esso non penso riesca a sostenere fino a 50 o
60 chiamate, se invece vogliamo parlare di numeri non penso vada oltre una
D60,5 o poco piů... prova...
--
By Ser Kill

Newsgroup: it.comp.lang.pascal
Titolo: Funzione analoga a "Split" di VB?

Cioč che, nota una stringa ed un char di separazione, possa depositare le
sottostringhe in un vettore [0..100] con in posizione 0 il numero delle
stringhe e da 1 a 100 le sottostringhe?

stringhe e da 1 a 100 le sottostringhe?
in VB5 era impensabile crearsi la propria split(), e quindi tutti
attesero trepidanti la versione 6, in cui split() era una funzione
delle runtime, dunque più veloce. In Pascal mi pare d'aver capito che
grossi problemi di velocità non dovrebbero essercene, quindi la
funzione fattela tu :)

SE HO COMPRESO BENE QUELLO CHE HAI CHIESTO LA FUNZIONE SPLIT DOVREBBE ESSERE
PIU' O MENO COSI'.
Ciao, Gianluca.
############################################################
Uses Crt;
Var
   sp : char;           { CARATTERE DELIMITATORE }
   testo : string;      { TESTO DA "SPLITTARE" }
   sub_strings : array [0..100] of string; { CONTIENE LE SOTTOSTRINGHE }
   i, num_parole : integer;
Procedure SPLIT(stringa : string);
Var
   k, separ, delim, prec, parole : integer;
   temp : string;
Begin
   separ := 0;
   stringa := stringa + sp; { AGGIUNGO UN DELIMITATORE ALLA FINE DELLA STR.}
   { CON QUESTO CICLO TROVO QUANTI DELIMITATORI CI SONO (QUANTI = separ) }
   for k:=1 to length(stringa) do
      if stringa[k]=sp then separ:=separ+1;
  parole := 0;
  delim  := 0;
  prec   := 0;
  { CICLO PRINCIPALE: TROVA LA POSIZIONE DI OGNI DELIMITATORE UTILIZZANDO  }
  { LA FUNZIONE POS, LO SOSTITUISCE CON UN CARATTERE NON STAMPABILE (SE NO }
  { LA VOLTA DOPO TI RITROVA LO STESSO DELIM), RIESEGUE IL CICLO E TROVA IL}
  { DELIMITATORE SUCCESSIVO; TAGLIA LA PAROLA CONTROLLANDO CHE NON SIA UNA }
  { SEQUENZA DI DELIMITATORI (ES. PIU' SPAZI) E LA SALVA IN sub_strings;   }
  { DI VOLTA IN VOLTA SCRIVE IL NUMERO DI PAROLE TROVATE IN sub_strings[1] }
  for k:=1 to separ do
    begin
      delim := Pos(sp, stringa);  { ==> POSIZIONE DEL DELIMITATORE <== }
      stringa[delim] := chr(0);   { ==>SOSTITUISCE IL DELINMITATORE<== }
      FillChar(temp, SizeOf(temp), sp); { ==>INIZIALIZZA LA STRINGA<== }
      temp := copy(stringa, prec+1, (delim-1)-prec); {==>COPIA LA PAROLA<==}
      if temp[1] <> sp then   { CONTROLLA CHE NON SIA UNA SEQUENZA DI... }
           begin
             parole := parole + 1;
             sub_strings[parole+1] := temp;
             str(parole, sub_strings[1]); { CONVERTE IN STRINGA IL NUMERO }
           end;
    prec := delim; { MEMORIZZA LA POSIZIONE DEL DELIMITATORE CORRENTE}
  end;
end;
{ ESEMPIO DI UTILIZZO }
BEGIN
  ClrScr;
  write('QUALE CARATTERE USO COME DELIMITATORE? ==> ');
  readln(sp);
  writeln('INSERISCI LA STRINGA (MAX 255 CHAR):');
  readln(testo);
  SPLIT(testo);
  Val(sub_strings[1], num_parole, i);
  clrscr;
  writeln('PAROLE: (',num_parole,')');
  writeln('CARATTERE SEPARATORE: #', sp, '#');
  writeln;
  for i:=1 to num_parole do
     writeln('(', i, ')  ==>  #',sub_strings[i+1],'#');
  readln
END.
############################################################
Newsgroup: it.comp.lang.pascal
Titolo: cerco collaboratori per gioco

Ultimamente mi sono fissato di dover programmare  un semplice
( Impossibile ) gioco di simulazione sportiva-manageriale col Pascal.
Mi sono reso conto che è complicatissimo e perciò cerco collaboratori,
esperti di Pascal e soprattutto avvezzi alla grafica in Tp.
Grazie a chi accetterà la sfida.
Kosby

kosby wrote:

Airex è pronto a seguirti nel tuo progetto...potresti rivelare qualche
cosa in +?? X es. che tipo di sport ???

 Kosby
Che tipo di sport ti interessa? (spero non calcio :) )
PS vuoi assolutamente solo TP e usare il veccio dos?
(accetto anche in TP ma secondo me se usi un sistema un pò
+ nuovo avremo prestazioni MOOOLTO superiori)

Per tua sfortuna il gioco che ho in mente è una simulazione di gestione di
una squadra di calcio.
Se vuoi ancora partecipare inviami ituoi quesiti privatamente a
studio...@tiscalinet.it
Kosby
TaGoH ha scritto nel messaggio ...


Newsgroup: it.comp.lang.pascal
Titolo: problema stupido ma fastidioso

Qualcuno sa dirmi perchč il mio compilatore TP7 non mi fa piů digitare il
punto e virgola e al suo posto mi fa questo carattere < ?? grazie, ciao.
steve

 punto e virgola e al suo posto mi fa questo carattere < ?? grazie, ciao.
Il problema non riguarda il compilatore.
Mette questo carattere perché la tastiera che hai impostato sotto dos č
quella inglese, devi impostare la tastiera italiana con "keyb it", e tutto torna
normale.
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

grazie, sei stato molto gentile :-)
Newsgroup: it.comp.lang.pascal
Titolo: scrittura dll

Sapete dirmi come si scrivono le dll?
Io uso borland pascal. Ho visto un esempio sull'help in linea alla voce
write dll
ma mi sa che è per 16 bit. 
Per scrivere dll a 32 bit sapete come si fa?
Se potete postate anche un esempio funzionante. Grazie

...


 C'è poi un modo di cambiare qsa nelle dll esistenti?
Purtroppo no: le DLL esistenti sono già compilate. È come voler modificare
col Pascal un EXE oppure una TPU (unit già compilata).
Purtroppo è impossibile "decompilare" un programma in Pascal, poiché, come
ho letto non ricordo dove (mi pare in una FAQ del Pascal), al momento della
compilazione del codice vengono perse troppe informazioni.
Ciao,


, il giorno 16 Sep 1997 05:46:56 GMT
hai scritto:
...
# 
#> C'è poi un modo di cambiare qsa nelle dll esistenti?
#
#Purtroppo no: le DLL esistenti sono già compilate. È come voler
modificare
#col Pascal un EXE oppure una TPU (unit già compilata).
#Purtroppo è impossibile "decompilare" un programma in Pascal, poiché,
come
#ho letto non ricordo dove (mi pare in una FAQ del Pascal), al momento
della
#compilazione del codice vengono perse troppe informazioni.
#
Ciao Mauro,
hai ragione! 
pero' non puoi scordarti di dirgli che nelle dll si possono modificare
le resources (come si puo' negli exe, vbx, drv, ecc. ecc.) il che e'
molto importante soprattutto per quel che riguarda le traduzioni del
software delle varie lingue.
Saluti a tutti e scusate (soprattutto Mauro) la "puntualizzazione" ;-)
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668/
(Programmazione in Pascal)
** Concentrazione = Forza **

Newsgroup: it.comp.lang.pascal
Titolo: Problemuccio :))

Il programma mi da uno strano errore...
.. dice che vengono aperti troppi file e, poichè il DOS supporta solo 15
"open" il prgramma è costretto ad interrompersi...
E' POSSIBILE RISOLVERE IN QUALCHE MODO IL PROBLEMA ???

E' POSSIBILE RISOLVERE IN QUALCHE MODO IL PROBLEMA ???
Il numero di file apribili da dos e' impostato nella variabile di
sistema FILES.
Il problema secondo me e' nel perche' il tuo programma abbia bisogno
di aprire piu' di 15 file !...
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------




 
in config:
FILES=100
bye!
-- 
Emanuele Cesena                  
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
 - Attenzione antispam: ROT13 per rispondermi 
Ssshhhh!  Mi raccomando: saliva in bocca!

 bye!
ciao

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per fare programma agenda

Questo teoricamente e\' un programma che crea una agenda su un file e dovrebbe aggiornarlo ogni volta che si lancia il programma:perche\' non funziona?
program agenda;
const t=\'c:\\windows\\desktop\\dati\\adenda.dat\';
type persona=record nome,cognome:string[25];tel:string[15];end;
var p:persona;d:file of persona;n,i:integer;
begin
writeln(\' \');
writeln(\'introduci nome\');
readln(p.nome);
writeln(\'introduci cognome\');
readln(p.cognome);
writeln(\'introduci numero di telefono\');
readln(
p.tel
);
assign(d,t);reset(d);
while not eof do
begin
read(d,p.nome,p.cognome,
p.tel
);
end;
write(d,p.nome:25,p.cognome:25,
p.tel:15
);
close(d);
end.
------------------------------------------------------------------------
Questo messaggio e' stato inviato tramite i Newsgroup di Punto
http://www.punto.it
------------------------------------------------------------------------

funziona?
Non metto commenti, penso si capisca dov'erano gli errori
Ciao Minjo
***********************************
program agenda;
const
t='agenda.dat';
type persona=record
     nome,cognome: string[25];
tel:string[15];
end;
var p:persona;
    d:file of persona;
n,i:integer;
begin
  writeln(' \');
  writeln('introduci nome\');
readln(p.nome);
  writeln('introduci cognome\');
  readln(p.cognome);
writeln('introduci numero di telefono\');
  readln(
p.tel
);
  {$I-}
assign(d,t);
  reset(d);
  {$I+}
  if IOResult = 0 then
  begin
Seek(d,FileSize(d));
  end
  else
    rewrite(d);
  write(d,p);
close(d);
end.
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.pascal
Titolo: OT - Io sono un coglione

cdo
-- 
Maurizio
Registered Linux User #339586
Vecchioni da ragazzo si chiamava Jovanotti?

 cdo
Io pure.
Newsgroup: it.comp.lang.pascal
Titolo: dos shell

Ciao NG,
devo chiedervi una cosa interessante:
io sto facendo una routine che richiama un programma esterno per fare "delle
cose" (hanno poca importanza al fine della mia domanda), eseguendo il
programma con il semplice "exec" mi da un DosError #5 = access denied ma
eseguendo il programma aprendo una dos shell non ho alcun problema, mi
sapete dire il motivo?
Ho ancora una domanda: (sempre riprendendo i discorso di prima) il programma
che devo eseguire per terminare la sua applicazione ha bisogno che sia
battuto un tasto a tastiera, come faccio io da programma a dirgli di battere
la tastiera? so che devo fare qlc con assembler ma non so cosa (non conosco
l'assembler)!!!!
Se esegueguissi il programma su internet con una riga di comando da client
il mio programma apre lo stesso la dos shell o non funzionerebbe???
grazie per i vostri futuri consigli!!!
iosephus, ego locutus

l'assembler)!!!!
Se non erro da DOS stesso è possibile eseguire una cosa tipo PIPELINING (non
ricordo esattamente il termine) ma tramite l'uso di un particolare carattere
nella riga di comando viene annullata la richiesta della pressione di un
tasto.








grazie vegeta,


ma non ho trovato niente che si avvicini neanche 
lontanamente al pipelining...


ho cercato in lungo e in largo ma non c'è 
niente!!!


 


il comando exec alla fine ha 
funzionato...


ma se uso


Exec(GetEnv('COMSPEC'), Command)


è lo stesso o cambia qualcosa?


 


e se lo faccio girare su internet?


 


ho un'altra domanda: io voglio rinominare dei file da maiuscolo a 
minuscolo, ma mi da sempre errore 5:accesso negato. Da cosa può dipendere e come 
faccio a forzarlo?


 


grazie vegeta e a tutti gli altri!


 


iosephus, ego locutus







grazie vegeta ma il pipeling non funziona... esegue 
soltanto un programma in contemporanea ad un altro...


 


non ci sarebbe un altro 
metodo?
Newsgroup: it.comp.lang.pascal
Titolo: Lettura righe.

Dunque, premetto che l'ultimo programma che ho scritto in pascal e' 
stato alle superiori, circa 15 anni fa.
Ho un probelma (ovvio, altrimenti non scriverei da queste parti).
Devo fare una conversione di file.
Ammettiamo di avere un file fatto in questo modo:
1MMMNNNRRRKKKOOOO
2AAAAABBBCCCCCCCDDDDEEEEEEEFFFGGGGGGHHHHHHHHHHHHHHIIIIILLLLL
2AAAAABBBCCCCCCCDDDDEEEEEEEFFFGGGGGGHHHHHHHHHHHHHHIIIIILLLLL
2AAAAABBBCCCCCCCDDDDEEEEEEEFFFGGGGGGHHHHHHHHHHHHHHIIIIILLLLL
3XXXXXYYYYYYYYYZZZZZZZZZTTTTTTTTTTT
3XXXXXYYYYYYYYYZZZZZZZZZTTTTTTTTTTT
3XXXXXYYYYYYYYYZZZZZZZZZTTTTTTTTTTT
3XXXXXYYYYYYYYYZZZZZZZZZTTTTTTTTTTT
(l'ordine delle righe NON e' tassativo) e devo ottenere un file di 
questo tipo:
CCCCCCCGGGGGGIIIIIDDDDEEEEEEE
CCCCCCCGGGGGGIIIIIDDDDEEEEEEE
CCCCCCCGGGGGGIIIIIDDDDEEEEEEE
Cioe'...  ho un file composto da n righe (che non posso sapere a 
priori), ed ogni riga e' composta da "campi" di lunghezza e posizione 
fissa. Devo ottenere un secondo file che e' composto da m righe (diverso 
da n). Devo scartare tutte le righe che iniziano per 3, e dalla riga che 
inizia per 1 (ce ne deve essere una sola per ogni file) mi serve solo un 
"campo". In pratica (a parte il campo della riga tipo 1) devo sposare le 
posizioni di tutti i campi, eliminandone qualcuno e inserendo anche dei 
valori fissi.
Pensavo di usare i record. Ma come inserire nel modo piu' efficiente 
possibile i vari "pezzi" di riga in un record?
E seconda domanda, perche cavolo non mi funziona l'istruzione /case/ ?
La mia idea era quella di partire con una cosa del genere:
==================
Program Cases;                           
 
Var Header: String;                      
 
Begin                                    
ReadLn(Header);                          
Case Header of                           
  'X01' : WriteLn('Header X01');         
  'X02' : WriteLn('Header X02');         
  'X03' : WriteLn('Header X03');         
else                                     
  WriteLn('Error in header');            
end;                                     
 
===================
E l'errore che mi restituisce e' il seguente:
C:\TPX\PROGRA~1\CASES\CASES.PAS(1)
C:\TPX\PROGRA~1\CASES\CASES.PAS(1)
C:\TPX\PROGRA~1\CASES\CASES.PAS(7): Error 39: Ordinal expression 
expected.
Case Header of
            ^
Dove sto sbagliando?
-- 
     __         ____         | We don't need no education.
 __ / /__  ___ / __/__ __ __ | We don't need no thought control.
/ // / _ \/ -_) _// _ \\ \ / | All we need is another brick in the wall
\___/\___/\__/_/  \___/_\_\  | ICQ UIN: 61571298

             ^
Esattamente quello che hai letto nel messaggio: l'istruzione CASE funziona
se la variabile e' di tipo ordinale (quindi intero, singolo carattere,
oppure un set), per le stringhe bisogna mettere una sequenza di
if-then-else.

 sequenza di if-then-else.
Orripilante.
Quindi, visto che la stringa discriminante e' di tipo X01, X02, X03, 
potrei leggere il terzo carattere ed allora funzionerebbe?

Newsgroup: it.comp.lang.pascal
Titolo: pw al Boot

:  venne in mente di scrivere queste parole
il giorno 30/11/01:
ah ah!! a che ti serve??? come prima ctrl+c lo chiude?? e cmq basta fare il
boot da dischetto e il pc eccotelo lì!!
Non è vero che ctrl-c lo chiude. Se un programma come quello postato da
ILRazziatore viene compilato
ed inserito nell autoexec..stai sicuro che nessuno lo chiude :)))
L'unica cosa da fare ed accedere al DOS mediante il tasto F8 o con il
dischetto,come dicevi tu..e modificare
l'istruzione contenuta nell'autoexec.
ciao
^_][ice][man][_^

 inserito nell autoexec..stai sicuro che nessuno lo chiude :)))
no piu' che altro ^C interrompe l'esecuzione del file batch...
quindi se lo premi all'inizio eviti direttamente l'esecuzione
del programma...
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)


Io ho provato ....ma non mi interrompe niente...me lo viisualizza come
carattere!!! stranoo..xkè pure io sapevo che ctrl-c interrompeva
l'esecuzione..ma un mio amico mi ha fatto ricredere!! Provate e fatemi
sapere a voi cosa succede...grazie
^_][ice][man][_^

 dischetto,come dicevi tu..e modificare l'istruzione contenuta
nell'autoexec.
ma se riavvio col dischetto non c'è autoexec su c: che regga....

No no interrompe... solo che deve essere dato durante l'esecuzione
del bat, cioe' fra un comando e l'altro del file :-)
Cio' sembrerebbe un po' impossibile, ma se saturi gentilmente il
buffer della tastiera, e se i programmi dentro il batch non la utilizzano
ne svuotano il buffer, almeno uno dovrebbe arrivare a segno :-)
Sotto 9x forse normalmente (all'avvio) e' disattivato, allora basta
un F5 o F8...  sotto Nt/2k configurati bene non hai speranza
(se non admin)


 > c:\ !!!?
mi sono espresso male: il dischetto di avvio ti carica il sistema operativo
dos attraverso i file presenti sul dischetto e quindi non l'autoexec su c:
Newsgroup: it.comp.lang.pascal
Titolo: Fantomatici TPU

Premetto che uso il turbo pascal 7, quando in un programma utilizzo uses
crt; tutto va per il meglio, ma quando cerco di adoperare tutte le altre
units (ad esempio graph)  il risultato è sempre lo stesso:
 Error 15: File not found ( nomeunit.TPU )
non riesco proprio a risolvere questo problema, sareste così gentili da
aiutarmi?

Ma ce le hai le units? Sono i file TPU nella directory Units


 
Non vorrei essere facilone, ma anch'io ho avuto lo stesso problema e dopo
ore passate a scervellami mi sono accorto che semplicemente non avevo le
librerie grafiche. Controlla anche tu di possedere le librerie che
richiami, soprattutto se hai avuto il compilatore per vie traverse(non
versione originale Borland). Spero di averti aiutato, se non e' cosi'
scusa la perdita di tempo.
Gianluca.

 
menu` Option -> Directories
Imposta bene tutto.
Poi menu` Option -> save as Turbo.tp
bye!
-- 
Emanuele Cesena                  
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
 - Attenzione antispam: ROT13 per rispondermi 
"A quello li', la testa serve solo per tenere separate le orecchie."

 aiutarmi?
Controlla le opzioni (Options-->Directories mi sembra), devi specificare la
directory in cui hai le units...
(in genere è [X]:\[CartellaTP]\Units )
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 scrive:
| Premetto che uso il turbo pascal 7, quando in un programma utilizzo uses
| crt; tutto va per il meglio, ma quando cerco di adoperare tutte le altre
| units (ad esempio graph)  il risultato è sempre lo stesso:
|
|  Error 15: File not found ( nomeunit.TPU )
|
prova ad andare in Options->Directories...
e modificare/aggiungere il percorso completo della cartella in cui sono
presenti le units che devi usare.
--
Ciao, ciao
E-mail: 
pi....@bigfoot.com
        (se 'rispondi al mittente', togli NO_SPAM)
HomePage: 
http://web.tiscalinet.it/pavelo
ICQ #37941259
"Quella sparizione segnava per sempre la
fine dell'Eternità. E il principio dell'Infinito."
   Isaac Asimov

 secono me devi andare in options poi directory quindi gli dai il
percorso(ES: c:\tp\bgi)
Newsgroup: it.comp.lang.pascal
Titolo: sizeof

come faccio a sapere la size della variabile passata alla procedura ?
quella sotto da sempre 0......
function mysizeof(var stuff; ):word;
begin
  mysizeof := sizeof(stuff);
end;
grazie al ng.

come faccio a sapere la size della variabile passata alla procedura ?
Non si puo' per tipi non definiti.
E mi sembra abbastanza ovvio.

 
Please let me answer in English, my Italian is too poor :-)
Var stuff does NOT inform the procedure about the TYPE of the variable.
This is a somewhat "dirty" method to pass parameters in Pascal, it is
not meant to be standard!
In fact the parameter passed to the function is an address only.
Similar: function mysizeof(P : Pointer):word;
The size of a variable is not known at runtime (as opposed to BASIC
programming). Only the COMPILER "knows" the size of a variable. There
is no place in your executable program to store the structure or size
(= type) of a variable at runtime.
Usually such an untyped parameter is made useful with
a) typecasting:
Procedure DoWhat(Var Buf;somethingelse:integer);
Begin
  with TMyRecType(Buf) do
    ....
End;
b) address absolute:
Procedure DoWhat(Var Buf;somethingelse:integer);
Var MyBuf = TMyRecType absolute Buf;
Begin
  with MyBuf do
     ....
End;
There is an article (in English) about this and similar issues:
http://start.at/tp-links
page FAQ, article "Turbo Pascal memory considerations, pointer primer"
and "Dynamic arrays".
:-) Franz Glaser
Newsgroup: it.comp.lang.pascal
Titolo: Aiuto rapido please

Sto facendo un pgm in pascal per la scuola ma
mi sono bloccato in un punto e non so piu'
uscirne.
Io devo trasformare il contenuto di una stringa (solo lettere
dell'alfabeto!) completamente in minuscolo.
Sono riuscito a trasformare la stringa tutta in maiuscolo
usando la funzione UpCase, ma per il contrario
non esiste una funzione!!!
Allora ho detto facciamo funzionare la materia grigia e mi
e' venuto in mente il codice Ascii
Pero' il problema e' come dire al pgm di aggiungere
a ogni lettera che trova nella stringa 32 in decimale
(il 32 trasforma la lettera maiuscola in minuscola , vedi Codice
Ascii)
e dare in uscita il carattere corrispondente al
nuovo codice (codice iniziale+32);
Tutto deve avvenire all'interno della stringa.
Grazie del vostro tempo e della vostra pazienza.
rhy...@tiscalinet.it
Cio che sono e' cio
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :))

 piu' di soldi.... :))
Carina.. :-)
Ciao, ci vediamo [prima o poi]  :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

e' venuto in mente il codice Ascii
Attento, comunque, al fatto che una tecnica del genere non e'
pienamente portabile, nel senso che non tutte le macchine su cui un
programma gira utilizzano il codice ascii, per cui servirebbe un
programma del genere :
function upcase( c : char ) : char ;
begin
  case c of
    'a' : upcase := 'A' ;
    'b' : upcase := 'B' ;
    'c' : upcase := 'C' ;
    'd' : upcase := 'D' ;
    ...
    'z' : upcase := 'Z' ;
  end
end ;
procedure maiusc( s : string ) : string ;
var i : integer ;
begin
  for i := 1 to length( s ) do
  begin
    s[i] := upcase( s[i] ) ;
  end ;
  maiusc := s 
end ;
In ogni caso, dato che il codice ascii e' di gran lunga il piu'
utilizzato, potresti sostituire upcase() con ;
procedure upcase( c : char ) : char ;
begin
  upcase := c + (ord( 'a' ) - ord( 'A' )) ;
end ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------




beh... perché non fai le cose più spettacolari...
se implementi una piccola procedura assembly forse diventerebbe tutto molto
più semplice (anche se ne dubito fortemente...)
saluti :-)
fabietto
fabi...@libero.it

function lowstr(st: string): string;
var
   l: word;
begin
     for l:=1 to length(st) do
         if st[l] in ['A'..'Z'] then st[l] :=
chr(ord(st[l])-ord('A')+ord('a'));
     lowstr := st;
end;
Ingresso: stringa
Uscita: stringa con i caratteri minuscoli

Newsgroup: it.comp.lang.pascal
Titolo: Programma per scheda sonora

Vorrei fare un programma per comandare la scheda sonora..(SoundBlaster)
Sapreste darmi qualche suggerimento a proposito?
Chiedo troppo?
All'incirca come andrebbe fatto?
dovrebbe contenere del codice assembler?
Grazie a chi mi risponderà
Saluti
Michele
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 a écrit dans le message news:
000701c0b8d8$0a001c40$59001d97@computermio...

Newsgroup: it.comp.lang.pascal
Titolo: X tornare indietro in un file text

Come posso fare x tornare indietro di una sillaba mentre stò leggendo un
file text,
cioè far scorrere indietro di una sillaba il file rispetto all'ultima
sillaba acquisita.

 ha scritto nel messaggio
news:9ffvnj$3aa1f$1...@ID-83341.news.dfncis.de...


 ha scritto nel messaggio
news:xZaS6.11227$Ww.2...@news2.tin.it...


> essatamente
ehm... diciamo che e' un rafforzativo :-)


 uno!
mmmh asp ???
read(c);    { dove  c: char  }
a volte ti salta dei caratteri ?


 wrote in message
xZaS6.11227$Ww.2...@news2.tin.it...


file text,
Semplice, non puoi.
Devi bufferizzare l'input (riga per riga, per es.).

Newsgroup: it.comp.lang.pascal
Titolo: Librerie pascal in delphi...

Ciao a tutti.
Ho un sacco di librerie pascal, sviluppate in TP6 e 7 per i miei programmi
di contabilita..... ce un modo per importarle in delphi????
Grazie comunque e riCiao!!
--
el rasune'
-----
Ca custa chiel ca custa...
    Viva la val d'Austa!

 di contabilita..... ce un modo per importarle in delphi????
se non usano accesso diretto al disco e cazzate del genere le puoi
tranquillamente importare nel tuo progetto Delphi senza problemi, al massimo
in fase di compilazione ti dirą lui cosa non gli piace e che quindi devi
correggere

 ha scritto nel messaggio
news:zOED6.54214$s93.4...@news.infostrada.it...

Grazie mille. Ho provato a copincollarle semplicemente e... tutto ha
funzionato...

 Ho provato a copincollarle semplicemente e... tutto ha funzionato...
se hai altri problemi con delphi chiedi pure, qualcosina la so fare.....

Newsgroup: it.comp.lang.pascal
Titolo: Liste e puntatori

Chi mi sa dire un sito dove posso trovare esercizi o appunti su liste e
puntatori?

 puntatori?
mmh forse ce n'era uno sul sito di ReDiCuori ?  
pascallike.too.it
 ?
-- 
Dreadnaut
(signless perche' troppa fatica...)

  
pascallike.too.it
 ?
E me lo chiedi a me? chiedilo a lui!
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Newsgroup: it.comp.lang.pascal
Titolo: Pardon....dove posso trovare un compilatore pascal in internet?

Dove posso trovare un compilatore pascal in internet?
Grazie mille


http://chrisheng.hypermart.net/developer/pascal.html
...se non fosse x gli amici...
Ulisse
_____________
http://surf.to/ulisse
  <--- vieni a scoprire la soluzione del Cubo di Rubik
!!!

Merci beaucoup Ulisse
PAT