Решение.
Для возведения числа A в степень N, необходимо число A умножить на самого себя N раз, т.е. организовать цикл по умножению числа A.
program functions_3; uses crt; var a: real; b: integer; function S(sa: real; sb: integer): real; var i: integer; x: real; begin x:=sa; if sb=0 then S:=1 else if sb ‘); read(a); write(‘B > ‘); read(b); write(a, ‘^’, b, ‘ = ‘, S(a, b)); readkey; end.
Другое решение:
Uses Crt; Var a,n,i,p: Integer; Begin ClrScr; Write(‘n=’); Readln(n); Write(‘a=’); Readln(a); p:=1; For i:=1 To n Do p:=p*a; Write(‘p=’,p); Repeat Until KeyPressed End.
Первое решение возводит в степень не только в положительную, но и в отрицательную степень.
Просмотр 0 веток ответов
Источник: pro-prof.com
Как в экселе возвести число в степень
Программа которая возводит число в степень
Все, что необходимо начинающему и опытному программисту
Возведение числа в указанную целую степень
Рассмотрим задачу: возвести число а, введенное с клавиатуры, в степень n.
Задачу будем выполнять за n + 1 шаг. Например, возведем число 2 в степень 3 (2 3 ):
0 шаг: 2 0 =1
1 шаг: 2 1 = 2 0 • 2 (1 • 2)
2 шаг: 2 2 = 2 1 • 2 (2 • 2)
3 шаг: 2 3 = 2 2 • 2 (4 • 2)
Пример 7.2.
Возведение числа а, введенного с клавиатуры, в степень n
Задание 7.2.
Используя цикл с предусловием, написать программу вычисления N!.
Задание 7.3.
Выполните задачу из предыдущей темы (задание 6.8), но используйте для этого цикл с предусловием. Блок-схема алгоритма вывода звездочек в верхней (2-й) строке с 3-го столбца (координата х) до 75-го столбца приведена на рис. 7.3. Продолжите блок-схему. Будьте внимательны с условиями!
Рис. 7.3. Блок-схема алгоритма вывода звездочек во 2-й строке экрана с 3-й по 75-ю позицию
Обратите внимание: нам понадобилось самим устанавливать значение х до входа в цикл и увеличивать х на 1 в теле цикла! В цикле со счетчиком это все делалось за нас в самой конструкции цикла.
Задание 7.4.
Измените в задании 7.3 в теле цикла шаг счетчика, сделав его равным 3.
Задание 7.5.
Проведите звездочки по диагонали из нижнего левого угла в верхний правый. Сначала заполните блок-схему алгоритма (рис. 7.4).
Рис. 7.4. «Слепая» блок-схема алгоритма вывода звездочек по диагонали из левого нижнего в правый верхний угол
Пояснение: координата хизменяется быстрее, чем у,, поскольку экран прямоугольный.
Задание 7.6.
Выведите в центр экрана с задержкой друг относительно друга следующие числа: 1,2,4,8,16, 32,64,128,256.
Вероятно, вы поняли, что это степени числа 2.
Заполните блок-схему алгоритма (рис. 7.5), затем напишите программу.
C++ | Цикл возведение числа в степень
Рис. 7.5. «Слепая» блок-схема алгоритма вывода в центр экрана степеней числа 2 с временной задержкой
Задание 7.7.
Введите два числа (например, А = 5 и В = 8) и найдите их произведение, используя только операцию сложения. Заполните блок-схему алгоритма (рис. 7.6).
Рис 7.6. «Слепая» блок-схема алгоритма вычисления произведения двух чисел с использованием только операции сложения.
Задание 7.8.
Введите два числа (например, А = 45 и В = 8) и найдите частное от деления нацело первого числа на второе (А на В) (в переменной к) и остаток от деления нацело (в переменной А), используя только операцию вычитания. Заполните блок-схему алгоритма (рис. 7.7).
Рис. 7.7. «Слепая» блок-схема алгоритма вычисления целого частного и остатка от деления одного числа на другое с использованием только операции вычитания
Пояснение: в переменной к подсчитывайте, СКОЛЬКО раз сделана операция вычитания, то есть СКОЛЬКО раз число В содержится в числе А.
2014-04-21 ответил Нелли
Источник: www.programmer-lib.ru
Написать программу на языке паскаль, возведение числа в степень. Степень вводится с клавиатуры.
Возведение вещественного числа x в натуральную степень n (без использования стандартных функций):
var n,i:integer; x,xn:real;
begin
write(x = );
readln(x);
write(n = );
readln(n);
xn:=1;
for i:=1 to n do xn:=xn*x;
writeln(xn = ,xn:6:3);
end.
Пример:
x = 2
n = 5
xn = 32
Только степень вводится с клавы:
Var
P:integer;
St:real;
Begin
Write(Показатель степени(целое число) = );ReadLn(P);
St:=1;
For P:= 1 to P do
St:=St*2;
WriteLn(2^,P, = ,St);
End.
Пример:
Показатель степени(целое число) = 4
2^4 = 16
Степень и число вводится с клавы:
Var
P:integer;
St,O:real;
Begin
Write(Показатель степени(целое число) = );ReadLn(P);
Write(Основание степени(вещественное число) = );ReadLn(O);
St:=1;
For P:= 1 to P do
St:=St*O;
WriteLn(O,^,P, = ,St);
End.
Показатель степени(целое число) = 3
Основание степени(вещественное число) = 2.5
2.5^3 = 15.625
Источник: otvechu.com