mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: vettore da function in TP

Salve,
Qualcuno sa dirmi se in Turbo Pascal e' possibile fare in modo che una
function restituisca un vettore? So che la cosa e’ possibile in C, mi
chiedo se e come e’ possibile anche in TP.
Supponiamo ad esempio di voler risolvere il seguente problema:
Semplificare una frazione.
Per semplificare una frazione si divide il numeratore ed il denominatore
per il loro massimo comun divisore.
Vorrei una function che restituisca un vettore di due elementi dove il
primo elemento sara’ il numeratore ed il secondo elemento il
denominatore della frazione.
Abbozzo il procedimento:
Supponiamo di avere gia’ fatto una function mcd per ricavare il massimo
comun divisore di due numeri interi che segua il seguente prototipo:
mcd(a: longint; b: longint): longint;
Allora la function da scrivere dovrebbe essere piu’ o meno cosi’:
function semplifica(num: longint; den: longint): …???
var max: longint;
begin
   max:= mcd(num, den);
   num:= num div max;
   den:= den div max;
   semplifica:= …???
end;
Grazie per l’attenzione.
Massimo.

end;
No, dovrebbe essere :
procedure semplifica( var num, den : longint ) ;
var max : longint ;
begin
  max := mcd( num, den ) ;
  num := num div max ;
  den := den div max ;
end ;  
Un modo migliore e' quello di definire un tipo "frazione" all'inizio :
type frazione = record
                  num, den : longint ;
                end ;
procedure semplifica( f : frazione ; var fs : frazione ) ;
var max : longint ;
begin
  max := mcd( num, den ) ;
  fs.num := f.num div max ;
  fs.den := f.den div max ;
end ;
--
Andrea Laforgia
andrea_...@bigfoot.com

Newsgroup: it.comp.lang.pascal
Titolo: Corrispondenza dei tasti= A cosa Ë uguale invio, fr su, fr. gi?, ecc... ?????

7 spazio
a:=readkey;
if ord(a)=13 then writeln('INVIO');
per gli altri mi sa che è un po' + impestato in quanto Readkey riempie a
(in questo caso) solo dopo l'immissione di un tasto "utile" (ovvero una
lettera, un numero, INVIO ecc ) ma non quando premi spazio o le frecce...
Ciao
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
HomePage: 
http://www.insieme.net/andy

lettera, un numero, INVIO ecc ) ma non quando premi spazio o le frecce...
Non e' vero.
Le frecce sono tasti estesi che comportano l'inserimento di due
caratteri, anziche' uno solo, nel buffer di tastiera.
Una chiamata ripetuta a readkey restituisce il valore desiderato.
Andrea Laforgia
*************************************************
Cerca sempre di percorrere una strada contromano.
Sara' piu' difficile prenderti alle spalle.
*************************************************

devi mettere
if keypressed then a:=readkey;
case a of
#72:freccia su
#80:freccia giu
#75:freccia sinistra
#77:freccia destra
ooops, lo spazio non me lo ricordo...dovrebbe essere #32...
ciao

#77:freccia destra
Questo codice non e' giusto.
Difatti nasce l'ambiguita' con i tasti H, M, P, K e non viene
prelevato tutto il contenuto dal buffer della tastiera.
Va aggiunto un controllo dopo la lettura di a in cui si assicura che
se a = #0 venga prelevato il carattere successivo nel buffer con un
altro a := readkey ;
Newsgroup: it.comp.lang.pascal
Titolo: problema con random

Avrei un piccolo problema: dopo aver creato un programma di un questionario
a rispote multiple, vorrei che,dopo che metto le risposte (esempio Marco,
Luca, Stefano),  i nomi non vadono per forza in A) Marco, B) Luca, C)
Stefano ma si posizionino in modo casuale ( cioč A) Luca, B)StefanoC)Marco).
Qualcuno puo dirmi come si fa?
Grazie ancora
Spike


Ciao Luca, credo che una soluzione sia questa:
Dato che il random funziona solo con i numeri, allora fai un random di tre
numeri (1,2,3) e fai un controllo, se 1 allora il nome è Luca, se è 2 allora
il nome è Stefano ......
Questo è ciò che ti so dire, puoi provare.
Ciao ciao
Francesco.

 ha scritto nel messaggio
news:9j6it9$pac$1...@nreadA.inwind.it...


 Spike
Come volevo dirti, io ho trovato questa soluzione:
Visto che ci sono 3 domande da disporre su 3 posti, abbiamo 6 permutazioni:
1) 1, 2, 3
2) 1, 3, 2
3) 2, 1, 3
4) 2, 3, 1
5) 3, 1, 2
6) 3, 2, 1
Basta creare un array di array (anzi, facciamo una matrice) che contiene
queste terzine:
const seq : array[1..6,1..3] of byte = ((1, 2, 3), (1, 3, 2), (2, 1, 3), (2,
1, 3), (3, 1, 2), (3, 2, 1));
poi con una random scegli una di queste 6 terzine. Tu memorizzi le tre
risposte non in 3 variabili diverse ma in un array di stringhe, quindi fai:
rnum := random(6) + 1;
writeln(domande[seq[rnum, 1]]); { risp A }
writeln(domande[seq[rnum, 2]]); { risp B }
writeln(domande[seq[rnum, 3]]); { risp C }
A questo punto devi fare un piccolo calcolo. Infatti, anche se tu in memoria
hai una certa sequenza delle risposte, questa sequenza viene cambiata quando
le proponi all'esaminando. Quindi l'esaminando inserirà il numero della
risposta in relazione alla sequenza STAMPATA e non MEMORIZZATA, perciò devi
ritrovare il numero della risposta come è memorizzata e non stampata. Ho
scritto da una parte già come fare,  adesso non trovo il file, appena lo
aggiusto te lo mando, ciao
--
BlackDemon - bdemon(at)
iol.it

Newsgroup: it.comp.lang.pascal
Titolo: Chi usa  Borland 7 per Win?

PER FAVORE
Il programma sotto non funziona se utilizzo Borland 7 per Win: non riconosce 
textbackground(RED);
ed anche textcolor(YELLOW+BLINK) indica un errore del tipo:"Identificatore 
sconosciuto" Perchč?
Grazie, Carlo
 program grafica;
 uses WinCrt, WinDos;
   begin
   ClrScr;
   textbackground(RED);
   textcolor(YELLOW+BLINK);
   gotoxy(40,12);
   writeln('Ciao');
   readln;
   end.

 uses WinCrt, WinDos;
non č che mi potresti dire dove posso trovare queste unit? grazie.
--
IgnazioC
Newsgroup: it.comp.lang.pascal
Titolo: gestione data

Ciao a tutti sono nuovo del NG ho bisogno di una funzione che mi restituisca
il giorno della settimana immettendo una determinata data.
Ad esempio se inserisco 25 03 2002
voglio che mi restituisca Lunedi
Sapete dovo posso andarla a recuperare?
Grazie

 ha scritto nel messaggio
news:dynd8.5150$_u5.1...@news1.tin.it...


 ha scritto nel messaggio
news:dynd8.5150$_u5.1...@news1.tin.it...

function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
  century, yr, dw: Integer;
begin
  if Month < 3 then
  begin
    Inc(Month, 10);
    Dec(Year);
  end
  else
     Dec(Month, 2);
  century := Year div 100;
  yr := year mod 100;
  dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
    (century div 4) - (2 * century)) mod 7;
  if dw < 0 then DayOfWeek := dw + 7
  else DayOfWeek := dw;
end;
Per interpretare il risultato osserva che
0 --> Domenica
1 --> Lunedì
....
6 --A Sabato
Semplice no!
Ciao.

Newsgroup: it.comp.lang.pascal
Titolo: help puntatori

Chiedo scusa, ma avrei bisogno di un piccolo aiuto.
Dato un record T e un puntatore a record di tipo T, come faccio ad assegnare
al puntatore l'indirizzo del record?
In soldoni, se il puntatore si chiama p, in C si scrive c = &T (assegna
l'indirizzo di T a p): in pascal come si scrive?
grazie
--
San Vegeta from Hell
http://www.geocities.com/Area51/Dungeon/8436
(da visualizzare col browser della Netscape)

l'indirizzo di T a p): in pascal come si scrive?
c := addr(T) ;

grazie
quando tu allochi la memoria per contenere il record devi fare
	NEW(P)
e proprio in P ti ritorna l'indirizzo del record. In pratica P e' il
puntare al record creato, che quindi lo puoi copiare su un tuo altro
puntatore.
Fabio
--
fabi...@rocketmail.com

Sai se il  think pascal per Mac usa le stesse istruzioni?
Non lo so, anche se queste sono estensioni Borland.

puntatore.
Il problema sorge quando si vuole ottenere l'indirizzo di un elemento
non allocato dinamicamente.
In questo caso si usa addr() o "@".

Newsgroup: it.comp.lang.pascal
Titolo: A scuola ho avuto questo problema da risolvere.....

Il problema si pone così:
Codificare le parole di una frase data in input utilizzando per ogni
lettera che compone le parole il suo valore ASCII.Fornire per ogni
parola il suo valore numerico.
Io avevo pensato di usare un ciclo Repeat Until dove inseriamo in un
array ogni lettera delle parole.Il ciclo finisce quando inseriamo
caratteri tipo "." ";" "!" "?".In seguito dovrei distinguere ogni
parola dalle altre usando un ciclo ke controlli dove ci siano gli
"spazi" per poi stampare a schermo i valori ASCII della parola
indicando quale sia.
Avete  sul come aiutarmi ? Grazie Anticipatamente

 Il problema si pone cosě:

perchč non metti tutto direttamente in una stringa all'inizio?
readln(stringa);
poi
for i := 1 to lunghezza_stringa do begin
 while(stringa[i] <> ' ') do
  write(ord(stringa[i]));
 writeln;
end
aggiungendo opportuni if..then puoi far sě che non scriva la
punteggiatura.
bye
-- gabri

 Il problema si pone cosě:


 > Il problema si pone così:


 Il problema si pone cosě:


 > > Il problema si pone cosě:

Newsgroup: it.comp.lang.pascal
Titolo: Stampare in Pascal Standard

Ciao a tutti!
Volevo chiedere come si fa in Pascal Standard a reindirizzare l'output su
stampante.
Grazie mille per l'eventuale aiuto.
er...@tin.it



Guarda qui.
http://users.iol.it/fabio.manzo/stampare.htm
Ciao,  Fabio
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore in italiano

Esiste un compilatore in italiano di Pascal o Turbo Pascal?SE si dove lo
posso scaricare?

 posso scaricare?
Non esiste, anche se immagino quello che vuoi sia l'ambiente scritto in italiano
anzichč in inglese

Newsgroup: it.comp.lang.pascal
Titolo: Free Pascal

Dove posso scaricarlo?
Grazie
--
Luigi Cartelli

 wrote in message
8gqros$j51$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.pascal
Titolo: programmino Media

salve a tutti.  ho un professore pazzo che senza aver fatto nula su PASCAL
ci ha assegnato un esercio:
un programma per generare la media matematica di n numeri.
avete qualche esempio? grazie 1000

 salve a tutti.  ho un professore pazzo che senza aver fatto nula su PASCAL
e cosa aspettate a ribellarvi???? ;)

 avete qualche esempio? grazie 1000
program media;
var n ,i: integer;
       somma,temp:real;
begin
    writeln('Inserisci il numero di valori da immettere');
    readln(n);
    somma:=0;
     for i:=1 to n do
        begin
            writeln('Inserisci il valore numero ',i);
            readln(temp);
            somma:=somma+temp;
        end;
    writeln('La media è: ',somma/n);
    readln;
end.
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

Io personalmente il programma l'ho fatto con il codice seguente, nel quale
non è necessario scrivere il numero di dati che si inseriranno... fammi
sapere se è quello che volevi...
program media_num;
uses crt;
var     a,b,c,f:integer;
        d:real;
begin
textcolor(10);
writeln('Per terminare scrivere il numero 0');
textcolor(10);
writeln;
a:=1;
while a<>0 do
begin
write('Inserisci il numero: ');
readln(a);
b:=b+a;
c:=c+1;
end;
c:=c-1;
d:=b/c;
f:=round(d);
readln;
readln;
writeln('La media dei ',c,' numeri inseriti '#138': ' ,d,' che arrotondato
equivale a ',f);
readln;
end.
CIAO CIAO                             SAVE

> writeln('Per terminare scrivere il numero 0');
E se uno vuole inserire propio il numero 0?
Se vuoi fare una cosa del genere (si termina l'inserimento di dati quando si
vuole)ti conviene trattarer i dati come stringa e poi trasformarli in
valore. Se la stringa = "esci"
per es allora esci dal while.



Prova questo programmino che è senza ciclo:
{Questo programma calcola la media aritmetica di n numeri con n inserito da
tastiera}
Program media;
uses crt;
var n, s: Integer
Begin
clrscr;
writeln ('Inserisci un numero n da tastiera');
readln (n);
s:=(n*(n+1))/2;
writeln ('La media aritmetica di ' , n , ' numeri è ' , s);
readln;
end.
Se il tuo prof ti chiede che formula hai usato (quella di s) tu digli che è
la formula di Gauss per calcolare la media aritmetica di n numeri);
Ciao ciao
Paolo

Scusa prima ti ho spedito un programma sbagliato ora ti scrivo lo stesso
programma con le correzioni in maiuscolo!!!!!!
 {Questo programma calcola la media aritmetica di n numeri con n inserito da
tastiera}
Program media;
uses crt;
var s: Real
     N:INTEGER
Begin
clrscr;
writeln ('Inserisci un numero n da tastiera');
readln (n);
s:=((n*(n+1))/2)/2; (QUI HO DIVISO ULTERIRMENTE PER 2)
writeln ('La media aritmetica di ' , n , ' numeri č ' , s:3:2);
readln;
end.
Se il tuo prof ti chiede che formula hai usato (quella di s) tu digli che č
la formula di Gauss per calcolare la SOMMA  n numeri);
QUINDI SE DIVIDO LA SOMMA DEI PRIMI N NUMERI PER 2 TROVO LA MEDIA SEI
D'ACCORDO?
Ciao ciao
Paolo

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

Sto sbattendo la testa da giorni ma non riesco a trovare una soluzione a
questo problema:
Ho bisogno di memmorizzare e di leggere delle variabili di tipo string o
array di string da un file non tipizzato. Come posso fare? ( premetto che l'
eventuale risposta debba essere semplice, sapete sono duro a capire...)
Kosby

 ha scritto nel messaggio
news:8in4v7$plg$1...@lacerta.tiscalinet.it...


...


 Kosby
Allora funziona così :
blockwrite  scrive un blocco su un file (file binario non tipizzato) ha come
parametri :  il file, la variabile da scrivere (blocco), la grandezza
veriabile da strivere, una variabile ret di tipo word che la procedure setta
ad un valore che sarà la prossima posizione di scrittura(almeno cosi mi
sembra).
blockread legge un blocco da un file (binario)
parametri  file, variabile da leggere, grandezza della varaibile, posizione
del prossimo blocco(perlomeno credo, se non è lui è pos+1)
Esempio :
uses crt;
var f  : file;
    s : string;
    r : word;
begin
  assign(f,'c:\temp\emilio.bin');
  rewrite(f,1); { apertura 1° record set}
  s:='Re Di Cuori';
  blockwrite(f,s,sizeof(f),r);
  writeln(r);
  reset(f,1);
  s:='';
  blockread(f,s,sizeof(f),r);
  writeln(s);
  writeln(r);
end.
Ciauz Re Di Cuori

 ha scritto nel messaggio
news:8iprf6$r07$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Programmi e librerie Pascal in FTP

Se cercate qualche libreria particolare o qualche programma particolare
cercate in 
ftp://x2ftp.oulu.fi/pub/msdos/programming
 . Ogni singola
directory rappresenta una argomento di programmazione (Suono, Immagini,
cdrom, decodificatori, directx, gestione memoria...) ed ogni directory
contiene di media 50 sorgenti compattati.
Scaricatevi il file "00index.txt" nel quale è descritto l'argomento di ogni
directory e una descrizione sintetica di cio quello che fa ogni programma.
Attenzione però che non tutti sono sorgenti Pascal, leggete bene la
descrizione.

Se cercate qualche libreria particolare o qualche programma particolare
cercate in 
ftp://x2ftp.oulu.fi/pub/msdos/programming
 . Ogni singola
directory rappresenta una argomento di programmazione (Suono, Immagini,
cdrom, decodificatori, directx, gestione memoria...) ed ogni directory
contiene di media 50 sorgenti compattati.
Scaricatevi il file "00index.txt" nel quale è descritto l'argomento di ogni
directory e una descrizione sintetica di ciò quello che fa ogni programma.


Newsgroup: it.comp.lang.pascal
Titolo: Gioco del 15

Chiedo scusa, ma non c'è nessuno che sappia l'algoritmo di risoluzione del
gioco del 15 o che abbia un programma in Pascal che lo risolva?

gioco del 15 o che abbia un programma in Pascal che lo risolva?
ciao emma'!!!
indovina chi so??? trovatela da solo la soluzione...

 >Chiedo scusa, ma non c'č nessuno che sappia l'algoritmo di risoluzione

Newsgroup: it.comp.lang.pascal
Titolo: Programma senza errori

program noerror;
begin
end.
penso che oltre al fatto di fare un programma per visualizzare il
messaggio "ciao Mondo", questo sia l'unico che si possa scrivere senza
errori.
In qualsiasi programma che elabori qualcosa si puo' fare un errore, anche
solo di battitura.
Sono del pensiero che programmi senza errori non si possano scrivere:
errare e' umano, un programma e' scritto da un umano, e il computer e'
progettato e costruito da un umano!
Buona Discussione
Newsgroup: it.comp.lang.pascal
Titolo: Anagrammi...

Come avrete certamente intuito il mio problema consiste nel troavre gli
anagrammi di una data parola: a prima vista il problema può sembrare
abbatsnaza semplice.
Il mio problema è che l'algoritmo che deve svolgere tale compito deve essere
RICORSIVO! Usando la ricorsività da poco tempo non riesco a capire come
risolvere il problema! [Non risco a pensare """""ricorsivamente"""""]
Ringrazio anticipatamente chiunque abbia la cortesia di rispondermi ed
aiutarmi.

risolvere il problema! [Non risco a pensare """""ricorsivamente"""""]
Allora, in effetti il problema e' risolvibile in modo abbastanza
semplice. Pensare ricorsivamente e' molto piu' semplice ed intuitivo
che non pensare in modo iterativo (anche se sembra il contrario) e la
ricorsione offre una grande potenza, che si paga, pero', con un grande
consumo di risorse. A volte il gioco vale la candela e a volte no.
Nel tuo caso, bisognerebbe capire se hai bisogno degli "anagrammi" o
delle "permutazioni" di una parola.
Non e', difatti, la stessa cosa, in quanto nel primo caso si fa
riferimento alle parole di senso compiuto nella lingua, ottenute
permutando le lettere della parola originale, nel secondo, invece,
tutte le possibili combinazioni di lettere.
Probabilmente a te interessa questo secondo caso e devi ragionare nel
modo seguente :
Considerando la parola ROMA, devi pensare che gli anagrammi della
parola non sono altro che 
R + gli anagrammi di OMA
O + gli anagrammi di RMA
M + gli anagrammi di ROA
A + gli anagrammi di ROM
allo stesso modo (cioe' ricorsivamente) applichi questo principio alle
sottostringhe e cioe' :
gli anagrammi di OMA non sono altro che :
O + gli anagrammi di MA
M + gli anagrammi di OA
A + gli anagrammi di OM
ed ancora 
gli anagrammi di MA sono :
M + gli anagrammi di A
A + gli anagrammi di M
e cosi' via...
Ti scrivo di seguito il programma :
program Anagrammi ;
{ Andrea Laforgia 1999 }
var parola : string ;
function estratto( p : string ; i : integer ) : string ;
begin
  delete(p, i, 1 ) ;
  estratto := p ;
end ;
procedure scrivi_anagrammi( t : string ) ;
var s : string ;
    c : integer ;
    procedure anagramma( p : string ) ;
    var i, l : integer ;
    begin
      l := length( p ) ;
      if l = 0 then
      begin
         c := c + 1 ;
         writeln( c:5, ') ',s )
      end
      else
      begin
        for i := 1 to l do
        begin
          s := s + p[i] ;
          anagramma( estratto( p, i ) ) ;
          delete( s, length( s ), 1 ) ;
        end ;
      end ;
    end ;
begin
  s := '' ;
  c := 0 ;
  anagramma( t ) ;
end ;
begin
  write( 'scrivi la parola : ' ) ;
  readln( parola ) ;
  scrivi_anagrammi( parola ) ;
end.
--
Andrea Laforgia
andrea_...@bigfoot.com

Grazie per il tuo aiuto.
Per fortuna c'è gente che sa spiegare!
Newsgroup: it.comp.lang.pascal
Titolo: Salvare dei dati!

Salve a tutti ho un piccolo quesito:
Avendo una matrice del tipo
Var   a: array[1..3,1..100] of String[3];
Avrei la necessità di salvarla in un file (anche di testo), riservandomi
la possibilità di poterlo modificare facilmente.
Sapreste darmi qualche dritta, magari anche con qualche esempio?
Grazie       MaTTeO

 wrote in message
38BA9EF2...@libero.it...

Perchè di questo array non ne fai il campo di un record, e poi salvi il
record in un file binario con Assign, Rewrite, Read(Var, File) etc.?
Ciao
Davide Carrara
cci...@libero.it

Sapreste darmi qualche dritta, magari anche con qualche esempio?
for i := 1 to 3 do
  for j := 1 to 100 do
    writeln( tuo_file, a[i,j] ) ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: sarà if???'

salve a tutti..
ho un problema.. nn so come scrivere in pascal una cosa:
devo dire qual'è il numero più alto e quello più basso digitato..
so che
devo paragonarli..cioè il secondo numero viene paragonato al primo e tengo
il numero + alto (basso) e via così..
naturalmente il primo sarò
paragonato a zero o a un numero enorme, dipende dai casi..
ma in pascal
come mi devocomportare??
nn ne vengo più a capo,aiutatemi voi!!
grazie
infinite a chi mi risponderà!
kiakim
--------------------------------
Inviato via 
http://usenet.iol.it

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

Penso ke + o - tu cercassi questo... prova a vedere se ti soddisfa e fammi
sapere
(**************************************)
var max,min,j,letto:integer;
procedure analisi;
begin
if j>1 then begin
if letto>max then max:=letto;
if letto<min then min:=letto;
if (j=1) then begin max:=letto;min:=letto; end;
end;
end;
begin
j:=1;
letto:=1;
while letto<>0 do
begin
write('NUM> ');
readln(letto);
if letto<>0 then begin
analisi;
inc(j);
end;
end;
writeln;
write('Max: ',max,' Min: ',min);
readln;
end.
(************************)

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

Vorrei ricominciare a programmare in pascal
dopo averlo fatto diversi anni fa a scuola. Qualcuno sa dirmi
dove posso trovare un compilatore?
GRAZIE MILLE

 GRAZIE MILLE
Prego

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

Ho scritto un piccolo (minuscolo) programma, una rubrica per tenere 
pochi contatti. Mi piacerebbe pero` migliorare lo "stile" e la 
pulizia (alcune cose devono essere proprio risistemate) del codice. 
Qualcuno ha voglia di aiutarmi? Scrivetemi all'e-mail 
mab...@libero.it
 per avere il codice...
-- 
=-=-=-=-=-=-=-=-=
Mr_Brain
=-=-=-=-=-=-=-=-=

Inviami pure il tuo codice e vedrņ se riesco ad aiutarti
Lawrence Oluyede
rhy...@tiscalinet.it
"Se ti credono rozzo,
  fai il raffinato;
se ti credono raffinato,
  mostrati rozzo."
Johnny Mnemonic


Se mi invii il codice vedo cosa posso fare!

=-=-=-=-=-=-=-=-=
Newsgroup: it.comp.lang.pascal
Titolo: [OT][REQ] Ricorsione in coda

Ciao a tutti,
non riesco assolutamente a capire
quale sia la differenza esatta fra ricorsione
in coda e ricorsione "non in coda"..
Cercavo qualche sito che spiegasse bene
la differenza, ma non ho trovato nulla
di illuminante, sapreste aiutarmi?
grazie,
Blob 

E' spiegato abbastanza bene qui':
http://it.wikipedia.org/wiki/Ricorsione

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e Pentium II sono compatibili?

Ho un Pentium II 400 ed utilizzo il Turbo Pascal 7.0 ma ho dei problemi:
perchè quando utilizzo la unit Crt ottengo un messaggio d'errore del tipo
"Runtime errore at xxxx:xxxx"

Si ma per usare la libreria crt devi scaricare una patch
la puoi trovare sul mio sito
http://members.xoom.it/Colo/

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

Sono uno studente di Ingegneria Meccanica dell' Università La Sapienza
di Roma e
sto cercando uno studente/studentessa che sia disposto a studiare
assieme a me Fondamenti di Informatica 1 (professor Belardi, vecchio
ordinamento).
Potete rintracciarmi scrivendo all'email 
claudio...@tiscalinet.it
oppure tramite cellulare
al numero 3287015833.
ciao e ... A PRESTO !
Claudio.

ordinamento).
Peccato io sto a Roma3
byez
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 ha scritto nel messaggio
news:allo3t$1rj0uu$2...@ID-99656.news.dfncis.de...

e io a Torino

 ICQ     : 67552596
cmq la mia e-mail è claudio...@NO-SPAMtiscalinet.it (togli il
NO-SPAM ovviamente ! )
magari potremmo aiutarci a vicenda , che ne pensi ?
ciao
claudio
Newsgroup: it.comp.lang.pascal
Titolo: Ancora forma packed.....

senza usare il tipo string (che non è del pascal standard!!)
bisogna assegnare a 'nome' una parola qualsiasi di max 10 lettere.
il problema è che le lettere devono essere per forza 10! e non di meno.
program prova1;
var
  nome :  array [1..10] of char;
begin
  nome := 'iujhygtfdo';
end.
Con questo primo programma ho un errore di type mismatch ....
... ma se faccio questa modifica (...chissà poi perchè...)
program prova2;
var
  nome :  packed array [1..10] of char;
begin
  nome := 'iujhygtfdo';
end.
scopro che l'istruzione di assegnazione è ammessa, ma se alla variabile nome
assegno una stringa di - di 10 caratteri, ho comunque l'errore.
Chi di voi può aiutarmi (senza adoperare il tipo string?)
Grazie per l'attenzione!!!!!!!

 Chi di voi può aiutarmi (senza adoperare il tipo string?)
Mai usate in vita mia cmq da quello che ho potuto leggere dichiarare packed
significa dire al compilatore di
utilizzare una struttura ottimizzata, quando usi il turbo pascal la
dichiarazione packed non ha effetto in quanto è setta di default
Quindi dato che fai dichiarato un array [1..10] of char il compilatore si
aspetta la seguente assegnazione
a[1]:='c';
Ossia per poter inserire un itera stringa la devi inserire carattere per
carattere quindi devi crearti un costruttore a posta
di seguito è riportato un link che pensio faccia al caso tuo
http://tibur.dis.uniroma1.it/~fondelt/aa-99-00/complem/array/LEGGI.PAS
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------

prova ad utilizzare il tipo PCHAR, non e' semplicissimo ma ...
il mio sito: 
http://web.tiscali.it/licciardi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ho provato ma... rimane sempre il problema che devo per forza effettuare il
riempimento 8 volte !!! (comunque grazie lo stesso!)
"ReDiCuori" <redicu...@NOSPAMinwind.it> ha scritto nel messaggio
news:0eCY8.68960$Jj7.1...@news1.tin.it...


 ha scritto nel messaggio
news:a48b1cc35a2811f390a...@mygate.mailgate.org...


 riempimento 8 volte !!! (comunque grazie lo stesso!)
Purtroppo ti ripero da quello che ho ho trovato in rete la keyword Packed
non definisce un tipo, ma è una direttiva al compilatore per creare la
struttura dati nei vari esempi di codice trovati per leggere una stringa
devi sempre inserira carattere per carattere.

Newsgroup: it.comp.lang.pascal
Titolo: [request] algoritmi fondamentali

ho bisogno di implementazioni pascal degli algoritmi fondamentali (merge
sort, quick sort, ricerca binaria, ....)
spero sappiate aiutarmi
ciao e grazie
--
fm76
--
Maddalena Francesco
url:   
www.fm76.da.ru
        o
 
http://digilander.libero.it/fm76/
cell: 3494701290

 cell: 3494701290
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Vorrei sapere quali sono gli algoritmi fondamentali che dovrei
conoscere(ordinamenti, ricerca, ...).Sai dove posso trovarli?(sempre tramite
internet)In particolare ho l'alg. quicksort che non so far funzionare.grazie
per l'interessamento ciao
[Paolo]

Newsgroup: it.comp.lang.pascal
Titolo: Se interessa io ho questo...





Ma di che si tratta??? Mandameli che sono curiosissimo!!!! Grazie
tantissime in anticipo....
Byez dal grande VEGETA PRINCIPE DEI SAIYAN!!!!!!
....e Dio disse "PKUNZIP UNIVERSO.ZIP"
Il mago delle comete ha scritto:


Newsgroup: it.comp.lang.pascal
Titolo: Borland Pascal With Objects 7 (11 floppy)

Uppato ® (cosi' facciamo contento qualcuno :-)))))   ) il programma in
oggetto nel sito in firma, come vi avevo preannunciato giorni fa
--
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


Hehehehehe, chissà chi :-PPPPPPPPP Forse il Sig. Uppato Uppatore :-P
ScherZoZamente, Cooper.
Newsgroup: it.comp.lang.pascal
Titolo: Convertitore.

qualcuno mi può dire dove trovare un convertitore di programmi da Pascal 3 a
C o C++.
Grazie.
Federico.

 ha scritto nel messaggio
news:8fpmki$mrf$1...@lacerta.tiscalinet.it...

pultroppo non esiste nulla di automatico
ma guarda che non è difficile farlo manualmente, ammeno che dentro non ci
sia grafica

Clrscr e Gotoxy......
clrscr() ------>>in  C


 > sia grafica
in c non esistono clrscr e gotoxy( potenza dello unix) in c++ almeno quello
della borland(dos/win) sono presenti nella libreria conio.h

Newsgroup: it.comp.lang.pascal
Titolo: temporizzazione precisa di 1 sec

ciao a tutti
devo realizzare una temporizzazione precisa di 1 sec in Pascal usando il
timer hardware della CPU.
E' possibile??? Come???
ciao

Be in Dos hai 2 possibilità:
Puoi usare il timer tick (interrupt $1C) che ha una precisione di 1/18 
di secondo oppure la funzione $83 dell'interrupt $1c che ha la 
precisione di 1/1000000 di secondo.
Per la prima:
- dichiarazioni globali -
Var
   VecchioInt1C : Pointer;
   Passato      : Boolean;
   Conteggio    : Byte;
{
  Procedura del nuovo interrupt
}
{$F+}
Procedure Nuovo_Interrupt; Interrupt;
Begin
   Inc(Conteggio);
   If Conteggio >= 18 Then
      Begin
        Conteggio := 0;
        Passato   := True;
      End;	
End;
{$F-}
- all'inizio del programma -
{
  Salvataggio vecchio interrupt
  e riprogrammazione nuovo
}
GetIntVec($1C, VecchioInt1C);
SetIntVec($1C, @Nuovo_Interrupt);
- Funzione di attesa -
Conteggio := 0;
Passato   := False;
Repeat
Until not Passato;
- alla fine del programma -
{
  Ripristino vecchio interrupt
}
SetIntVec($1C, VecchioInt1C);
Per il secondo metodo:
- dichiarazioni globali -
Var
   Passato : Boolean;
{
  Programma l'interrupt in maniera da assegnare
  il valore passato dalla variabile SETTATO
  alla variabile globale PASSATO
  allo scadere di MICROSEC microsecondi
}
Procedure SetEventWait(Settato : Boolean; 
Microsec : Longint);
Type
   MyW = Array[0..1] Of Word;
Var
   R : Registers;
Begin
   R.AH := $83;
   R.Al := Byte(Not Settato);
 
R.ES
 := Seg(Passato);
   R.BX := Ofs(Passato);
 
R.CX
 := MyW(Microsec)[1];
   R.DX := MyW(Microsec)[0];
   Intr($15, R);
End;
- funzione di attesa -
Passato := False;
SetEventWait(True, 1000000);
Repeat
Until Not Passato
Ps: la funzione Delay del Pascal usa il timer tick (quindi precisione 
massima 1/18 di secondo). Se vuoi il massimo della precisione devi usare 
il secondo metodo.
Ciao,
David

Piccola errata corrige...
... la precisione del timer tick è di 1/18.2 di secondo, quindi man mano 
che conti perdi in precisione
ariciao,
David

ciao
ti ringrazio
adesso provo subito
ciao

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal 7.0

Salve a tutti,
vorrei sapere se esite una versione freeware, shareware o demo di Turbo
Pascal 7.0
Grazie
Gradirei risposta in e-mail: 
lapa...@iqsnet.it
  . . . ma se non vi va
rispondete pure sul NG


 
         Gabriele Santanche'
e-mail:gabr...@versilia.toscana.it
Newsgroup: it.comp.lang.pascal
Titolo: Programmillo in Pascal...

Ciao a Tutti!!!
Vi posto un progettino che dovrei realizzare...;)
Non pretendo nulla...:))) Ma se avete qualche consiglio non abbiate
paura....:)
Ah... dovrei evitare di usare le librerie del Turbo...:)
Si tratta di una rappresentazione del tipo di dato numeri
razionali...:) Ogni elemento del dominio Z di questo tipo di dato..
deve essere rappresentato come una coppia di interi, di cui il primo
membro corrisponde al numeratore ed il secondo al denominatore della
frazione che rappresenta il corrispondente numero razionale...
- Definire e realizzare su tale dominio le seguenti operazioni...
somma: ZxZ --> Z ; moltiplicazione: ZxZ --> Z ; Sottrazione: ZxZ -->
Z ; divisione ZxZ --> Z e le seguenti operazioni di lettura e
scrittura... LEGGI_RAZ(legge una coppia di interi e "crea" il
corrispondente razionale..) SCRIVI_RAZ(scrive un razionale come
coppia di interi..), SCRIVI_REAL(scrive un razionale in forma
decimale..)
Usando tale rappresentazione.. calcolare in aritmetica razionale e
reale la soluzione di Ax=b dove A e' una matrice simmetrica di
razionali a scelta (di dim 6x6) e b=(1,1,1,1,1,1)...
Grazie in anticipo a chiunque mi dara' una mano!!!! ;)))))

razionali a scelta (di dim 6x6) e b=(1,1,1,1,1,1)...
A questo non so se ci arrivo... :-)
Ciao ciao...
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672
Newsgroup: it.comp.lang.pascal
Titolo: Esame di Algo.... (vediamo se ci sono nuovi post)

Sia data la seguente definizione di albero di ricerca invertito. Un albero 
binario si dice albero di ricerca invertito se preso un qualsiasi nodo x :
  1)  tutti i nodi nel sottoalbero sinistro di x hanno chiavi maggiori o 
uguali alla chiave di x
  2)  tutti i nodi nel sottoalbero destro di x hanno chiavi minori o uguali 
alla chiave di x.
a) si scriva un algoritmo ricorsivo che trasformi un qualsiasi "albero 
binario di ricerca" (non invertito) T in un albero di ricerca invertito in 
tempo theta(n)
b) si argomenti in maniera convincente la complessità dell'algoritmo 
sviluppato
Esercizio vale 8 punti :))
ReDiCuori
-- 
-- 
L'informatica è un' arte
---------------------------------------------------------
www.securitygroup.it
Società di servizio che opera nel campo
della sicurezza aziendale
---------------------------------------------------------
www.pascallike.too.it
http://utenti.lycos.it/pascallike
il sito sulla programmazione pascal
sorgenti, tutorial ed utility
------------------------------------------------------------
www.treves-srl.com
Libreria Internazionale Treves
Via Toledo 249/250 Napoli
------------------------------------------------------------
www.alphalibri.com
Vendita ingrosso di libri
Via S.Anna dei Lombardi 10 , Napoli
------------------------------------------------------- 

> Esercizio vale 8 punti :))
uh, non e' l'algoritmo di copia modificato per invertire la posizione
dei sottoalberi?  come visita di un albero e' in O(n)... per essere in
omega cosa bisogna fare piu'? essere esattamente in n invece di sotto?
-- 
Dreadnaut


mmmm non è che abbia tanto capito le domande...
cmq per essere un Theta(n) deve essere un O(n) ed un OMG(n)...
io ho modificato la vista dell'albero che vede tutti  i nodi quindi è 
Theta(n), almeno spero.... :)

Newsgroup: it.comp.lang.pascal
Titolo: DLL con Delphi 32 bit

Salve a tutti
Sto cercando di compilare una DLL con delphi 32 bit (ho gia' fatto
diverse dll con la 
versione 16bit), ma senza successo.
Sembra che il programma chiamante (in VB) riscontri degli errori nel
formato di parametri passato alla dll, ma ovviamente cosi' non e'.
Questo e' il sorgente della DLL
--------------FILE: DLLTEST.DPR
library dlltest;
uses
  Main in 'MAIN.PAS';
exports
       TestProc index 1;
begin
end.
--------------FILE: MAIN.PAS
unit Main;
interface
procedure TestProc (a:longint); export;
implementation
uses
    WinProcs;
procedure TestProc(a:longint);
begin
end;
end.
----FILE CHIAMANTE IN VB
Private Declare Sub TestProc Lib "DLLTEST.DLL" (ByVal hdc As Long)
Private Sub Form_Click()
 TestProc 100
End Sub
Come vedete la TestProc non fa nulla, nonostante cio' il programma in VB
mi da un errore (lo stesso errore che da di solito quando si chiama una
DLL e si sbaglia un tipo di parametro per un altro).
Ah, mettendo "double" al posto di "longint" (e mettendo "double" anche
nella chiamante ovviamente al posto di "long") funziona perfettamente.
Ringrazio comunque tutti e attendo ansiosamente risposte!!!!

nella chiamante ovviamente al posto di "long") funziona perfettamente.
Boh, prova a mettere Integer anziché Longint nella DLL scritta in
Delphi (in Delphi, Integer non ha lo stesso significato che in TP).
Non ti assicuro niente, perň.
Ciao,
DjM / Digital Things
aka Mauro Molinari
Internet e-mails: 
=> 
djm...@geocities.com
 (music)
=> 
maur...@tin.it
 (personal/other)
ICQ #: 10379016
Digital Things Home Page:
=> 
http://www.musicnation.com/home/digital_things
 (down?)
=> 
http://www.geocities.com//SiliconValley/Bay/8251
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, put the correct address into "to" field.
*** Per mandarmi una e-mail, metti l'indirizzo corretto nel campo "a"..
Newsgroup: it.comp.lang.pascal
Titolo: eseguire un fuzione.

Salve a tutti,
    ho fatto un programma in cui ad un certo punto ho memorizzato
l'indirizzo di una funzione in un pointer tramite
getintvec(interruptnumer, functionaddress).
dove functionaddress e di tipo pointer
Qualcuno sa dirmi ora come faccio a richiamare la fuzione puntata dal
puntatore?
questo problema mi si presenta perche' l'indirizzo della funzione io lo
prendo dall' interrupt associato e dopo aver eseguito la mia funzione io
vorrei richiamare la vecchia.
Grazie a tutti in anticipo
    Pier Paolo

puntatore?
Prova con questa riga di assembler in linea ...
**************
asm
call functionaddress
end;
************
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

     Pier Paolo
var
    FunctionAddress: procedure;
...
...
getintvec(interruptnumer, @FunctionAddress);
...
FunctionAddress;
...
...
Cmq, occhio che gli interrupt non si richiamano cosi' perche' in generale
devi modificare alcuni registri del processore (AX, BX...)!
Ciao.
Simone.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

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

Scusatemi....
immagino abbiate risposto 2000 volte ad una domanda del genere, ma dove
posso scaricare turbo pascal 7.0 o giů di lě, completo?
č un'ora che mi sto perdendo in ricerche sulla rete e non arrivo a
niente di buono...
grazie infinite per la risposta!!!!
b.

 posso scaricare turbo pascal 7.0 o gių di lė, completo?
http://www.crackstore.com/tools.htm
Bye, Mobius

 
http://www.crackstore.com/tools.htm
grazie mille!! ^____^
b.
-- 
=========================================
CERCASI BATTERISTA   zona Bologna - Modena
REVOLUTION #9
Il vostro gruppo rock di fiducia
http://revolution9.freeweb.org

Newsgroup: it.comp.lang.pascal
Titolo: R: Srivere in ambiente grafico? (URGENTE)


ecc. ecc.
----------
Devi utilizzare :
Directvideo:=false;
nell 'inizializzazione del tuo prg, e poi utilizzare normalmente writeln('
....
Le scritte cosi ' facendo vengono gestite attraverso lo stdout e non con il
fastmode direttamente in memoria video (che in questo momento stai
utilizzando per la grafica).
Rovescio della medaglia :
- puoi utilizzare solo gotoxy(... per posizionarti
- il colore di background delle scritte e' sempre nero, il foreground lo
setti con textattr:=....
Saluti
Davide


outtext ed outtextxy.
Ciao :-)
-- 
Emanuele Cesena		
http://www.geocities.com/SilionValley/Grid/8879
ami...@iol.it
				    Attenti all'antispam NOSPAM
"Il governo si espande fino ad assorbire tutti i redditi, e poi ancora un
po'", legge di Wiker

facendo cosě mi cancella lo schermo?
Se per esempio vuoi scrivere CIAO nella posizione di coordinate
(100,50) de fare cosi'
OutTextXY(100,50,'CIAO');
fabio
--
fabi...@rocketmail.com

Esiste la funzione OutTextXY ( PosX, PosY, Testo )
bye
Newsgroup: it.comp.lang.pascal
Titolo: Dove trovo Il Pascal e varie tutorial?

Salve,
sono un ragazzo di Roma che ha cominciato a sentire una enorme voglia nel
programmare, mi piacerebbe iniziare con il Pascal, considerato dai miei
suggeritori, il linguaggio di programmazione didattivo per eccellenza, ora,
però mi piacerebbe sapere dove posso trovarlo, dove posso scaricarlo e dove
trovare vari tutorial.
Vi ringrazio anticipatamente tutti.
Davide
moj...@interfree.it

...


vai sul sito della borland e scaricati dalla sezione download-museum il
tp5.5. oppure vai su 
freepascal.org

Per il pascal 
www.crackstore.com/tools
per i tutorial dai un'occhiata su
www.astentech.com/tutorials
www.programmersheaven.com
www.programmazione.it


 
moj...@interfree.it
anche io sono di Roma, Ho la versione 7 completa.... (per dos e windows)....
se ti interessa....
--
-----------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
www.geocities.com/il_razziatore/
ICQ:   67552596
-----------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: 3d

Salve mi chiamo Emanuele,
sono 3 anni che programmo in pascal e mi piace molto fare dei giochi. Vorrei
perņ passare dal 2d al 3d, quindi vorrei sapare se qualcuno mi puņ indicare
come iniziare e magari se č possibile utilizzare dei modelli presi da 3d
studio max e se si come.
Grazie,
Saluti
Emanuele.
PS pensate che chieda un pņ troppo?  ;-)))))))))))

Io ho cominciato con "Computer Graphics - Principles and practice" di Foley
ed altri autori. Sono più di 1000 pagine in inglese con i pricipi della
vosualizzazione 3d.
Poi c'è anche l'help dell'SDK delle DirectX.
Per i modelli di 3D Studio MAX mi sa che diventa difficile... formato molto
complesso. Per i 3DS invece qualcosa trovi in giro. Non so perché non me ne
sono mai interessato.
--
Michele
    "Nessun luogo è lontano"
ICQ #64033158

Newsgroup: it.comp.lang.pascal
Titolo: windows e pascal

Scusate,
volevo sapere se esiste una versione del Pascal per Windows.
Marco

Se parli di win 3.x quando installi Pascal7 ti installa anche prg per
windows.
Se invece intendi 32bit allora no, devi passare a Delphi.


E' disponibile il compilatore FREE Pascal. Il compilatore e' licenziato
sotto le specifiche GNU-GPL ed e' ottimizzato per altri sistemi; gira una
versione su Win32. Il compilatore e' sprovvisto di IDE, ma e' compatibile
con le specifiche dell'ambiente TURBO di Borland. Documentazione in Inglese.
Si trova sul WEB.
 e di Editor
Newsgroup: it.comp.lang.pascal
Titolo: Come attivare NumLock, Caps Lock e Scroll Lock

Avrei bisogno di sapere una piccola cosa:
quali istruzioni devo eseguire per poter far accendere le spie di
NumLock, CapsLock e ScrollLock?
Immagino che devo utilizzare delle istruzioni assembler, però non so
quale sia il nome dell'istruzione e tanto meno l'int da chiamare.
Grazie in anticipo
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
ATTENZIONE! Rimuovere "
riccar...@iol.it
"
dall'indirizzo email
Saluti by Riccardo
e-mail : 
riccar...@iol.it

+DeathKnight+ wrote:

Per poter attivare o sapere se sono attivati i tasti NumLock, CapsLock
ecc.,
devi guardare il byte all'indirizzo 0000:0417h. Il significato dei
singoli bit e' il
seguente :
                Bit            Key ( Bit set )
                7                INS
                6                CAPSLOCK
                5                NUMLOCK
                4                SCROLLLOCK
                3                ALT
                2                CTRL
                1                LEFTSHIFT
                0                RIGHTSHIFT
Per poter leggere questo byte puoi scrivere un programma in assembly
o piu` semplicemente usare la funzione PTR del pascal :
         var  State : ^byte;
                NumLock : boolean;
        { ... }
         State : = Ptr (0000,$0417);
         if (State^ and  $20) = $20 then NumLock = True;
        { ... }
                            Alberto Speranzon
                        < 
albe...@intercity.it
 >

Newsgroup: it.comp.lang.pascal
Titolo: Differenze Pascal 6.0 7.0

 
E a livello di unit!?!?!?! Sono sempre le stesse!?!? quelle bas
eintendo...
.oO 73-51 de Tartaruga (* Gabriele *) Oo.
  -=> E-Mail:  
ru...@ita.flashnet.it
 <=-

Ciao.


Newsgroup: it.comp.lang.pascal
Titolo: esame da passare ad ogni costo!!!

Ho difficoltà con questi due problemi.
SCRIVERE UN PROGRAMMA CHE:
_ crei una matrice M 20x4 contenente i dati presi da input (numero
matricola, voto test, voto scritto, voto orale) di 20 studenti.
- crei una lista L contenente il numero di matricola e la media dei voti
delle tre prove dei 20 studenti leggendoli dalla matrice M
- dovranno comparire all'interno della lista L solamente gli studenti che
hanno riportato una media superiore a 18/30.
- stampi la lista L.
SCRIVERE UN PROGRAMMA CHE:
Scrivere un programma che calcoli la differenza simmetrica di due insiemi
rappresentati da LISTE ORDINATE. La differenza simmetrica tra due insiemi è
costituita da tutti gli elementi che appartengono esattamente ad uno solo
dei due.
Il programma dovrà leggere due insiemi di INTERI, rappresentarli con due
liste ordinate L1 e L2. Costruire e stampare l'insieme differenza.
es: Dati di input:
20 3 1 8 21 10 14
12 2 1 4 14 8
output: 2 3 4 10 12 20 21
GRAZIE DELL'AIUTO.
Alfonso.
alf...@tiscali.it

SCRIVERE UN PROGRAMMA CHE:
non ci vedo nessuna difficoltà .... tu cosa ci vedi?
... cmq è un esame.. e lo sai che chi è scoperto a copiare viene
bocciato? 
buon lavoro

 ha scritto nel messaggio
news:aom6vt$sro$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Ordinamento

E' un problema : doveri ordinare delle variabili numeriche ( 15 /16 ) in
ordine crescente memorizzale in un file
Come posso fare?
Kosby

Ti posto la procedura di ordinamento dei valori
all'interno di un array di numeri
è la + semplice che ho quindi spero non ti sia difficile capirla
procedure sort_array(var vettore1:vet; var max:integer);
 var i,j,scambia:integer;
  begin
  for i:=1 to max-1 do
   for j:=i+1 to max do
    begin
     if vettore1[j] < vettore1[i] then
     begin
      scambia:=vettore1[i];
      vettore1[i]:=vettore1[j];
      vettore1[j]:=scambia;
     end;
   end;
 end;
Una volta che l'hai ordinato memorizza l'array in un file
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee



Non credo ti convenga utilizzare 15 variabili, meglio utilizzare un array


Cerco in un qualsiasi libro di programmazione gli algoritmi per
l'ordinamento come il bubble short, quik short,....
CIAO

 l'ordinamento come il bubble short, quik short,....
Un buon libro č: Alfred V. Aho, Jeffrey D. Ullman: "Fondamenti di
Informatica"

Newsgroup: it.comp.lang.pascal
Titolo: Ricerca FAQ e sito ufficiale

Prima di fare domande stupide e gia sentite, potreste indicarmi dove trovare
le faq e il sito ufficiale del NG??
Grazie e a presto.
--
Scionn®
TOGLIMI...@libero.it
TOGLIMI...@scionn.net
icq# 48878755
www.scionn.net
http://digilander.iol.it/scionn
-----
Partecipate alla mia petizione, non ne rimarrete delusi
http://digilander.iol.it/scionn/petition.htm

Non esistono.
ps. potremmo farle...
rhymes
rhy...@tiscalinet.it


 wrote in message
news:96av2to76insbkpo0...@4ax.com...


>


ps. potremmo farle...
vabbè chevulimmo fa?!
io avevo fatto il bravo e guarda un pò non ci sono le faq, allora non ve la
prendete se le domande che vi faccio sono già sentite, volevo sapere un paio
di cosuccie che con la programmazione vera e propria non hanno molto a che
fare.
Voi che compilatore usate?? ho trovato il turbo pascal 7, va bene o c'è
anche qualcosa che funzia per win?? o ancora meglio per linux??
poi non mi ricordo qualche super guida in internet, si trova?? io ho trovato
la solita roba, niente oltre le procedure e gli array, cose che avevo già
imparato a scuola, qualcosa inpiù non c'è??
spero che mi risponderete e non con un coro di vaff......o
ciao a tutti


 poi non mi ricordo qualche super guida in internet, si trova??
cerca "Pascal language" su qualche motore di ricerca.
bye
-- gabri

va bene ma e' a 16 bit, se ti serve la velocita' usa Freepascal...
per velocità cosa intendi quanto ci mette a compilare mille righe di codice?
ciao



bye
-- gabri