Программа на паскале

[vadiprog]

Помогите решить

[Dush]

прикольная задачка.

<ввод x и y>
k:=0;
if (x>=1/y) and (x<1) then k:=0
else
begin
  flag:=false;
  if x<1/y then
  begin
     while not flag do
     begin
       k:=k-1;
       if (x>=Exp((k-1)*ln(y))) and (x<Exp(k*ln(y))) then flag := true; 
     end  
  end
  else
  begin
     while not flag do
     begin
       k:=k+1;
       if (x>=Exp((k-1)*ln(y))) and (x<Exp(k*ln(y))) then flag := true; 
     end  
  end;
  <вывод k>
end;

[grom333]

Можно пожалуйста перевести на русский задание?

[Dush]

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

[vadiprog]

Сообщение от Dush

прикольная задачка.

<ввод x и y>
k:=0;
if (x>=1/y) and (x<1) then k:=0
else
begin
  flag:=false;
  if x<1/y then
  begin
     while not flag do
     begin
       k:=k-1;
       if (x>=Exp((k-1)*ln(y))) and (x<Exp(k*ln(y))) then flag := true; 
     end  
  end
  else
  begin
     while not flag do
     begin
       k:=k+1;
       if (x>=Exp((k-1)*ln(y))) and (x<Exp(k*ln(y))) then flag := true; 
     end  
  end;
  <вывод k>
end;

я так уже делал =) експонента налаживает дополнительное одз, числа меньше 0 взять нельзя... поэтому нада через функцию или процедуру степень делать...

[Dush]

какие числа меньше 0? в условии четко сказано

(x>0, y>0)

а k свободно принимает значение меньше 0!

[vadiprog]

Сообщение от Dush

какие числа меньше 0? в условии четко сказано а k свободно принимает значение меньше 0!

туплю... х и у меньше еденицы надо чтоб принимало