|
View profile | Send message
<< < Page 11 of 12 > >>
Forums >
Everything >
Иконки Windows 98
Класс! Очень полезно, на самом деле, не все это понимают...
Posted Mar 20, 2025, 11:28 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Примечание (к 10 программе): Алгоритм не повторяет приведенную выше формулу. Прямое ее копирование привело бы к увеличению затрат памяти, дополнительной погрешности вычислений, большей трудоемкости и более узкому диапазону допустимых n.
Posted Mar 15, 2025, 06:19 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 10. Число размещений.
Amn=n! / (n-m)!
10 INPUT "n",A,"m",B:C=1:D=A-B
20 D=D+1:IF D≤A;C=C*D:GOTO 20
30 PRINT C:GOTO 10
Размер: 57, D
Пример: n=8; m=5.
Ответ: A58=6720.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 9. Число перестановок. Расчетная формула:
n! = Хi, i=1...n
10 INPUT A:B=1:FOR C=1 TO A:B=B*C:NEXT C:PRINT B:GOTO 10
Размер: 32, C
Пример: n=5.
Ответ: 5!=120.
Примечание: Программа дает правильный ответ и при n=0.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 8. Наименьшее общее кратное нескольких чисел.
10 INPUT "n",A:C=1:D=1
20 FOR B=1 TO A:PRINT B;:INPUT F(B):NEXT B
30 FOR B=1 TO A:IF F(B)>1 THEN 50
40 NEXT B:PRINT C:GOTO 10
50 D=D+1:IF D>3;D=D+1
60 F=0:FOR B=1 TO A:E=F(B)/D:IF INT E=E;F(B)=E:F=1
70 NEXT B:IF F=0 THEN 30
80 C=C*D:GOTO 60
Размер: 154, F(n)
Пример: n=3; m1=45; m2=125; m3=225.
Ответ: НОК(45;125;225)=1125.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 7. Наибольший общий делитель нескольких чисел.
10 INPUT "n",A:C=1:D=1:FOR B=1 TO A:PRINT B;:INPUT D(B):NEXT B
20 FOR B=1 TO A:IF D(B)≤D;PRINT C:GOTO 10
30 NEXT B:D=D+1:IF D>3;D=D+1
40 FOR B=1 TO A:IF FRAC (D(B)/D)¦0 THEN 20
50 NEXT B:C=C*D:FOR B=1 TO A:D(B)=D(B)/D:NEXT B:GOTO 40
Размер: 145, D(n)
Пример: n=3; m1=45; m2=125; m3=225.
Ответ: НОД(45;125;225)=5.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 6. Наименьшее общее кратное двух чисел.
10 INPUT A,B:E=1:D=2
20 IF A=1;IF B=1;PRINT E:GOTO 10
30 F=0:C=A/D:IF INT C=C;A=C:F=1
40 C=B/D:IF INT C=C;B=C:F=1
50 IF F=1;E=E*D:GOTO 30
60 D=D+1:IF D¦3;D=D+1
70 GOTO 20
Размер: 124, F
Пример: 45; 125.
Ответ: НОК(45;125)=1125.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 5. Разложение числа на простые сомножители.
10 B=2:INPUT A
20 IF A
30 C=A/B:IF INT C=C;A=C:PRINT B:GOTO 30
40 B=B+1:IF B>3;B=B+1
50 GOTO 20
Размер: 75, C
Пример: 1234567890.
Ответ: 2; 3; 3; 5; 3607; 3803.
Posted Mar 15, 2025, 06:18 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 4. Наибольший общий делитель двух чисел.
10 INPUT A,B
20 C=A:D=INT (B/A):A=B-D*A:IF A¦0;B=C:GOTO 20
30 PRINT C:GOTO 10
Размер: 52, D
Пример: 625; 1225.
Ответ: НОД(625;1225)=25.
Posted Mar 15, 2025, 06:17 AM
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 3. Перевод десятеричного числа в число с основанием от 2 до 16. Значения от 10 до 15 выводятся на дисплей буквами от A до F.
10 INPUT "d",D,"m",A:B=INT (LOG D/LOG A):E=B-10/LOG A
20 C=INT (D/A-B):D=D-C*A-B:IF C>9;C=C+7
30 PRINT CHR (48+C);:B=B-1:IF B≥0 THEN 20
40 IF D¦0;IF B>E THEN 60
50 GOTO 10
60 IF B=-1;PRINT ".";
70 GOTO 20
Размер: 137, E
Пример: d=63; m=16.
Ответ: Hex d=3F.
Posted Mar 15, 2025, 06:17 AM
|
<< < Page 11 of 12 > >>
|
Social
