Dénominateurs

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Lors de l'addition ou de la soustraction de fractions, contrairement à la multiplication ou à la division, les dénominateurs des fractions doivent être les mêmes.

Afin de trouver le plus petit dénominateur commun (ou le plus petit dénominateur commun) de deux fractions (ou plus), vous devez trouver le plus petit nombre entier que les deux dénominateurs divisent de manière égale. Cela ressemble à un processus sur mesure pour un ordinateur.

Exécutez PPCM.BAS et entrez simplement vos deux dénominateurs.

L'astuce du programme réside dans la variable Q. Examinez la formule (à la ligne 50) : Q=(DB*M)/DA, où M est initialisé à 1 et est incrémenté d'une unité jusqu'à ce que le quotient soit un entier ; voir la ligne 60 pour le test entier.

L'algorithme ne trouve que le PPCM de deux dénominateurs. Ce ne serait pas beaucoup de travail d'étendre le code pour permettre de trouver le PPCM de n dénominateurs à la fois.

10 KEY OFF:SCREEN 9:COLOR 15.1:CLS
20 PRINT "* CALCULATEUR PPCM *"
30 INPUT "ENTRER LE PREMIER DÉNOMINATEUR: ";DA
35 INPUT "ENTRER LE SECOND DÉNOMINATEUR: ";DB
40 M=1
50 Q=(DB*M)/DA
60 IF Q=INT(Q) THEN 90
70 M=M+1
80 GOTO 50
90 PRINT "PPCM(";DA;";";DB;") = ";
100 PRINT DB;"X";M;"=" ;DB*M
110 PRINT:INPUT "Un autre (O/N)";F$
120 IF F$="O" OR F$="o" THEN GOTO 10
130 IF F$="N" OR F$="n" THEN CLS:END
140 GOTO 110