Консультация № 136979
15.05.2008, 18:51
0.00 руб.
0 2 2
Дана степень натурального числа A. Найти ее показатель.

Обсуждение

давно
Профессор
401888
1232
16.05.2008, 11:36
общий
это ответ
Здравствуйте, Raevil!
Решение с небольшими пояснениями в приложении.

Приложение:
uses crt;var a,st,p,k:integer;{a-число, st-степень, р-показатель}beginclrscr;write(‘Vvedite A: ‘);readln(a);write(‘Vvedite A v stepeni p: ‘);readln(st);p:=0;k:=1;repeat k:=k*a; {пока k<st умножаем его на себя и считаем, сколько раз} p:=p+1;until k=st;writeln(‘p=‘,p);readlnend.
Неизвестный
17.05.2008, 14:27
общий
это ответ
<i>Здравствуйте, <b>Raevil</b>!</i>

Насколько я понимаю, по условию натуральным является только число А. Т.е. показатель степени и сама степень не обязазы таковыми являться (т.е. могут быть, например, вещественными).

Т.е. если пользователь введет число А = 9 и его степень, равную 3, то p = 0,5 (число в степени 0,5 - это квадратный корень).

Пример решения находится в приложении.

Приложение:
program q91719; uses Crt; var a: Integer; ap, p: real; begin {Очистка экрана} ClrScr; {Ввод данных} write(‘A = ‘); readln(a); write(‘A^P = ‘); readln(ap); {Определение показателя степени} p:= ln(ap)/ln(a); {Вывод результата} writeln(‘P = ‘, p:1:3); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn(‘Press any key...‘); ReadLn; end.
Форма ответа