Найти степень

[vadiprog]

Дано действительные числа x,y (x>0,y>0). Получить целое число k (положительное, отрицательное, или ровно 0) что удовлетворяет условие y^(k-1)<=x

[vadiprog]

Ах, Ещё забыл, без использования експоненты.... тоисть степень надо выразить через функцию

[Serge_Bliznykov]

а ничего, что таких K может быть бесконечное множество?!!

если y<=x - тогда K равно 2
если y>x - тогда K меньше 2х - я бы в цикле искал y*y пока 1/произведение не станет меньше или равно x

var P : extended;
     K : longint;
...
begin
  k:=1;
  P := 1;
  while (1/P)>X do begin
    dec(k);
    P := P * Y;
  end;
  WriteLn(K);

[vadiprog]

А может ктото полный код программы написать... ато я чтото в неё никак не въеду

[Serge_Bliznykov]

ктото полный код программы написать

добавьте в определение переменных описание переменных X,Y : extended, сделайте ввод X,Y (через Readln(X,Y)

добавьте проверку, если Y<=X then K:=2;
иначе мой вышеприведённый код.

и всё, программа полностью готова!


p.s. кстати, я подобные задачи ни разу не встречал, решал "наощупь", за 100% правильность своего решения НЕ ПОРУЧУСЬ! (тем более, что решений может быть бесконечно много!)

[vadiprog]

Ага всё то правильно только почемуто до конца не дописало начало а там формула
y^(k-1)<=x<y^(k)