Newsgroup: it.comp.lang.delphi
Titolo: MCD

salve
come posso fare il MCD tra due frazioni?
grazie

function MCD(a:integer;  b:integer):integer;
begin
  if(a>b)
  then MCD:=MCD(a-b,b)
  else if(a<b) then
         MCD:=MCD(a,b-a)
        else MCD:=a;
end;
Questa dovrebbe andare :)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 ha scritto nel messaggio
news:a36bo3$gq9$1...@news.ngi.it...


MCD è una funzione già compresa in turbo pascal?
Cosa vuol dire nella tua funzione MCD(a-b,b)??? GRAZIE!!

 
E' una funzione ricorsiva ovvero che richiama se stessa (č stata la seconda 
lezione di laboratorio a informatica 1...): non ho fatto altro che 
convertire il codice C++ originario in pascal :-P
Ciauz
-- 
KNOWLEDGE IS POWER
Linux: the choice of a GNU generation!
http://www.sverzat.com

 Cosa vuol dire nella tua funzione MCD(a-b,b)???
Praticamente dice al programma di chiamare la funzione che ho scitto 
passandogli come parametri, rispettivamente, la differenza tra a e b, e b.
Ciauz
-- 
KNOWLEDGE IS POWER


Cosa vuol dire nella tua funzione MCD(a-b,b)??? GRAZIE!!
Ricorsione: "una funzione può anche richiamare se stessa"...
---
Ciao
PV

 ha scritto nel messaggio
news:a36bo3$gq9$1...@news.ngi.it...


 ha scritto nel messaggio
news:a36bo3$gq9$1...@news.ngi.it...


scuole di pensiero... un paio di gg fa c'era un thread
proprio su questo :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

si, probabilmente credo (correggetemi se sbaglio) che convenga farlo con un
repeat until perchè le istruzioni da seguire sono 2 anzichè 6
bho fate voi...
"Dreadnaut" <Drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:3Tx68.1061$5M4....@twister2.libero.it...


 grazie
Di nulla.


 ha scritto nel messaggio
news:3c5a...@news.cis.it...



Beh è del tutto indifferente... tutti i problemi che richiedono una
iterazione (operazione ripetuta + volte) possono essere fatte sia in
modo Ricorsivo sia con cicli ( e stato anche dimostrati che con una
struttura esempio For e una o + IF si replicano alla perfezioni le
carateristiche delle altre)
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 carateristiche delle altre)
Non mi dire che se ti venisse chiesto di stampare in modo ordinato un albero
binario avresti il coraggio di adottare una soluzione iterativa al posto di
una ricorsiva... :-)


Ciao a tutti. E' da un pň di tempo che programmo con il turbo pascal 7 ed ho
sentito che il delphi č molto simile e molto piů potente, quindi sarei
interessato a conoscere questo linguaggio. Ho molti dubbi in riguardo. Ad
esempio:
1) La struttura e le parole riservate dei programmi sono le stesse?
2) Mi serve lo stesso un manuale anche se conosco il pascal?
3) Quale libro e quale editor mi consigliate?
Grazie in anticipo a tutti!
Un saluto

 3) Quale libro e quale editor mi consigliate?
Per il libro non saprei dirti, io trovo che spesso sono solo copie dei
manuali,
fatti per chi il manuale "originale" non ce l'ha...
(cmq anche in questo caso, delphi ha tutti i suoi manuali in pdf sul cd se
non sbaglio)
X l'editor, quello integrato va piu' che bene.
Ciao e buon lavoro
Claudia