|
View profile | Send message
<< < Page 12 of 12 > >>
Forums >
Everything >
Про микрокомпьютеры МК
Программа 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
|
Forums >
Everything >
Про микрокомпьютеры МК
Программа 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
|
<< < Page 12 of 12 > >>
|
Social
