5  ! THIS PROGRAM WAS WRITTEN BY DON PENLAND
6  ! SURPRISE VALLEY HIGH SCHOOL, CEDARVILLE  CA  96104
10 DIM A(20)
20 ?:?
30 ? "THIS PROGRAM WILL FIND THE LEAST COMMON MULTIPLE"
40 ? "OF UP TO TWENTY NUMBERS."
50 ?:?
60 INPUT "HOW MANY NUMBERS WILL YOU BE USING? ";M
70 IF M>20 THEN PRINT "ONLY UP TO 20 NUMBERS,": GOTO 60
80 FOR I=1 TO M
90 ? "NUMBER";I;
100 INPUT A(I)
110 NEXT I
120 L=999999
130 FOR I=1 TO M
140 IF L<A(I) THEN 160
150 L=A(I)
155 NEXT I
160 S=1
170 FOR I=1 TO M
180 S=S*A(I)
190 NEXT I
200 S1=S/L
210 FOR K=1 TO S1
220 T=L*K
230 FOR I=1 TO M
240 IF T/A(I)<>INT(T/A(I)) GOTO 310
245 NEXT I
250 ?:?
260 ? "THE LEAST COMMON MULTIPLE OF";
270 FOR I=1 TO M
280 PRINT A(I);
290 NEXT I
300 PRINT " IS ";T
305 GOTO 380
310 NEXT K
320 ?:?
330 ? "THE LEAST COMMON MULTIPLE OF";
340 FOR I=1 TO M
350 ? A(I);
360 NEXT I
370 ? " IS ";S
380 ?:?
390 ? "DO YOU WANT TO FIND ANOTHER LCM ";
400 INPUT A$
410 IF A$="YES" OR A$="Y" THEN 60
420 ? "BYE FOR NOW.  IT'S BEEN FUN WORKING FOR YOU."
999 CHAIN "MATH2"
1000 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.