СРОЧНООООООО ПЛИИИИЗ ДО ЗАВТРА ПАМАГИТЕ С ИНФОРМАТИКОЙ ДАЮ 30 БАЛЛОВ!!! Исправьте алгоритм,чтобы можно было найти 10 степень любого заданного числа: REM-"2^10" CLS S=0 FOR i=1 TO 10 STEP 1 S=S×2 NEXT i PRINT - S=" ";S END
S=0 *** Здесь нужно сделать ввод значения S c клавиатуры
FOR i=1 TO 10 STEP 1
S=S×2 *** Здесь нужно написать S=S×S
NEXT i
PRINT - S=" ";S
END
Объяснение:
У Вас в цикле S равное нулю умножается 10 раз на 2, получится 0
Нужно ввести значение числа в S и 10 раз умножить его само на себя, тогда будет в результате десятая степень этого числа.
Я на бейсике на программирую могу только так помочь
1 votes Thanks 1
fedrfedr
Нужно написать команду для ввода любого числа с клавиатуры. Как на бейсике это выглядит я не знаю
Ziorar
вот поправленная (с нумерацией строк): 10 REM "x^10" 20 CLS 30 LET S=1 40 INPUT "x= ";x 50 FOR i=1 TO 10 STEP 1 60 LET S=S*x 70 NEXT i 80 PRINT "S= ";S 90 END
ну или как у вас было (без №строк и без LET ): REM "x^10" CLS S=1 INPUT "x= ";xFOR i=1 TO 10 STEP 1 60 LET S=S*x 70 NEXT i 80 PRINT "S= ";S 90 END
Нужно у вас пробовать запускать,
Ziorar
ну или как у вас было (без №строк и без LET ): REM "x^10" CLS S=1 INPUT "x= ";x FOR i=1 TO 10 STEP 1 S=S*x NEXT i PRINT "S= ";S END Надо запускать у вас, не знаю что там за версия Бейсик, возможно что то ещё надо будет править.
Answers & Comments
Verified answer
Ответ:
CLS
S=0 *** Здесь нужно сделать ввод значения S c клавиатуры
FOR i=1 TO 10 STEP 1
S=S×2 *** Здесь нужно написать S=S×S
NEXT i
PRINT - S=" ";S
END
Объяснение:
У Вас в цикле S равное нулю умножается 10 раз на 2, получится 0
Нужно ввести значение числа в S и 10 раз умножить его само на себя, тогда будет в результате десятая степень этого числа.
Я на бейсике на программирую могу только так помочь
10 REM "x^10"
20 CLS
30 LET S=1
40 INPUT "x= ";x
50 FOR i=1 TO 10 STEP 1
60 LET S=S*x
70 NEXT i
80 PRINT "S= ";S
90 END
ну или как у вас было (без №строк и без LET ):
REM "x^10"
CLS
S=1
INPUT "x= ";xFOR i=1 TO 10 STEP 1
60 LET S=S*x
70 NEXT i
80 PRINT "S= ";S
90 END
Нужно у вас пробовать запускать,
REM "x^10"
CLS
S=1
INPUT "x= ";x
FOR i=1 TO 10 STEP 1
S=S*x
NEXT i
PRINT "S= ";S
END
Надо запускать у вас, не знаю что там за версия Бейсик, возможно что то ещё надо будет править.