Перевод чисел из восьмеричной системы счисления в десятичную систему счисления — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
rem перевод чисел из 8 сс в 10 сс
CLS
INPUT "Введите восьмеричное число";a$
k = LEN (a$)
n = 0
FOR i =1 TO k
IF MID$ (a$, i , 1) <> "." THEN n = n +1 ELSE GOTO 50
NEXT i
50 s =0
FOR i=1 TO k
b$ = MID$(a$, i ,1)
IF b$ = "." THEN n = n+1 : GOTO 100
b = VAL(b$)
s = s +b * 8 ^ (n-i)
100 NEXT i
PRINT "Получим десятичное число";
END

Похожие записи/страницы:

Leave a Comment