Programmazione Strutturata

[Frank1962]

Devo portare in pascal un algoritmo, ma purtroppo non riesco a venirne a capo...

Dato "A" e "B", decidere se "A" è divisibile per "B" e viceversa

la fregatura sta nel fatto che posso utilizzare soltanto le 4 operazioni algebriche

1k grazie a chiunque riesca a darmi una mano!!!

PS: per "divisibile" si intende ovviamente che il risultato sia senza la virgola

[Zalex]

per vedere se un numero A e' divisibile per un numero B basta eseguire n volte la sottrazione tra A e B!
a ogni ciclo controlli il risultati della sottrazione:se e' Zero A e' divisibile per B, se e' un numero negativo A non e' divisibile per B!
ciao

[Zalex]

naturalmente se il risultato della sottrrazione e' ancora > di Zero continui a sottrarre

[r0x]

Finche` e` maggiore o uguale a B.

[Frank1962]

Originariamente inviato da Zalex
a ogni ciclo controlli il risultati della sottrazione:se e' Zero A e' divisibile per B, se e' un numero negativo A non e' divisibile per B!
ciao

mettiamo che "A" e "B" siano rispettivamente "10" e "5" .... se faccio 10 - 5 avrò come risultato 5 e non 0, ma "A" alla fine risulterà sempre divisbile per 5

[Zalex]

Originariamente inviato da Frank1962
mettiamo che "A" e "B" siano rispettivamente "10" e "5" .... se faccio 10 - 5 avrò come risultato 5 e non 0, ma "A" alla fine risulterà sempre divisbile per 5

:master:

Algo:
A=10,B=5;
10-5=5;
5>0? Si
//ancora sottrazione
5-5=0;
0>0?No
//niente piu sottrazione
//controllo
//se e' uguale a zero...
0==0? Si allora A e' divisibile per B
//se e' negativo non e' divisibile



in effetti puoi fare una sottrazione in meno(come ha suggerito r0x.....) poiche' se a un certo punto ottieni un numero uguale a B sicuramente la prox sottrazione dara' zero!!!!allora

**finche' il risultato della sottrazione sara' maggiore di B
continui a sottrarre...
**quando C non e' piu' maggiore di B:
1)e' uguale a B -->> A divisibile per B
2)e' minore di B -->> A non e' divisibile per B


ciao