|
Moderation History | New Thread | Reply | Subscribe
|
|
ChikiPuki
Member since Feb 27, 2025
|
Тема для обсуждения всего, что есть и мы имеем по МК :-) Программы, документация, статьи. Скидываем все)) |
| Posted Mar 15, 2025, 06:15 AM |
Quote
|
ChikiPuki
Member since Feb 27, 2025
|
Программа 1. Перевод произвольного числа в десятеричное.
10 D=0:INPUT "m",A,"h",B,"l",C:FOR B=B TO C STEP -1:PRINT B;
20 INPUT E:D=D+E*A-B:NEXT B:PRINT D:GOTO 10
Размер: 64, E
Пример: m=100; h=2; l=-1; e2=45; e1=28; e0=81; e-1=32.
Ответ: d=452881,32.
|
| Posted Mar 15, 2025, 06:17 AM |
Quote
|
ChikiPuki
Member since Feb 27, 2025
|
Программа 2. Перевод десятеричного числа в число с требуемым основанием.
10 INPUT "d",D,"m",A:B=INT (LOG D/LOG A+1):E=B-10/LOG A
20 C=INT (D/A-B):IF C>0;PRINT B;C:D=D-C*A-B
30 B=B-1:IF D"`0;IF B>E THEN 20
Размер: 92, E
Пример: d=452881,32; m=100.
Ответ: e2=45; e1=28; e0=81; e-1=32.
|
| Posted Mar 15, 2025, 06:17 AM |
Quote
|
ChikiPuki
Member since Feb 27, 2025
|
Программа 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 |
Quote
|
ChikiPuki
Member since Feb 27, 2025
|
Программа 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 |
Quote
|
ChikiPuki
Member since Feb 27, 2025
|
Программа 5. Разложение числа на простые сомножители.
10 B=2:INPUT A
20 IF A<B*B;PRINT A:GOTO 10
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 |
Quote
|
Social
