Calcolatrici! - Altri programmi MCD

La TI-89 Titanium si programma utilizzando TI-Basic, una versione particolare del linguaggio BASIC con un orientamento adatto alla calcolatrice. Il programma per semplificare le frazioni è simile come struttura a quello RPL preparato per la HP 50g: un programma che usa parte delle funzioni di interfaccia utente e che chiama una funzione che calcola il MCD.

Sempli (programma di semplificazione)	MCD (routine di calcolo del MCD)
`:Sempli() :Prgm : Local n,d,m : Dialog : Title "Semplificazione" : Request "Numeratore",n : Request "Denominatore",d : EndDlog : expr(n)→n : expr(d)→d : MCD(n,d)→m : n / m→n : d / m→d : Disp n : Disp d :EndPrgm`	`:MCD(n,d) :Func : Local z,w,t : max(abs(n),abs(d))→z : min(abs(n),abs(d))→w : While w≠0 : z→t : w→z : t-w*int(t / w)→w : EndWhile : z :EndFunc`

Per eseguire il programma basta digitare Sempli() sullo schermo Home della calcolatrice. Comparirà un dialog che chiederà numeratore e denominatore. Dato l'invio il risultato verrà visualizzato sullo schermo di I/O.

MCD su TI-89 - visualizzazione risultato

Come per la HP, anche questo programma non ha senso visto che la TI è in grado di lavorare con le frazioni e il calcolo simbolico. Nelle immagini di seguito si vede come si può semplificare una divisione di polinomi.

La TI-74 BASICALC è un pocket computer e dispone di una buona implementazione del linguaggio BASIC con la possibilità di definire procedure (simili a quelle del FORTRAN).

Programma

100 INPUT "N=";N

			110 INPUT "D=";D

			120 CALL MCD((N),(D),M)

			130 PRINT "MCD=";M:PAUSE

			140 N=N/M

			150 D=D/M

			160 PRINT "N/D=";N;"/";D:PAUSE

			170 END

			180 SUB MAX(A,B,R)

			190 R=A

			200 IF B>A THEN R=B

			210 SUBEND

			220 SUB MIN(A,B,R)

			230 R=A

			240 IF A>B THEN R=B

			250 SUBEND

			260 SUB MCD(N,D,R)

			270 CALL MAX(ABS(N),ABS(D),Z)

			280 CALL MIN(ABS(N),ABS(D),W)

			290 IF W=0 THEN R=Z:SUBEXIT

			300 T=Z

			310 Z=W

			320 W=T-W*INT(T/W)

			330 GOTO 310

			340 SUBEND

Per quanto potente, il BASIC della TI-74 non è integrato con la calcolatrice: sono due mondi diversi. In realtà è possibile utilizzare l'interprete BASIC per fare calcoli ma non non c'è l'immediatezza necessaria.

La Casio fx-6300G è una calcolatrice algebrica pertanto il programma di semplificazione delle frazioni somiglia molto a quello in TI-Basic della TI-89 Titanium con la differenza che le strutture di controllo sono molto semplici.

PROG0 (Programma di semplificazione)	PROG1 (routine di calcolo del MCD)
`"N"?→N:"D"?→D:Prog 1:N÷Z,D÷Z`	`Abs N>Abs D=>Goto 1:Abs D→Z:Abs N→W:Goto 2:Lbl 1:Abs N→Z:Abs D→W:Lbl 2:W=0=>Goto 3:Z→T:W→Z:T-W*Int (T÷W)→W:Goto 2:Lbl 3`

Anche in questo caso il programma risulta abbastanza inutile visto che la fx-6300G supporta il calcolo frazionario. Notare che nel riportare qui questo programma ho usato la virgola al posto del triangolino in basso e i simboli => al posto della freccia con due code.