Вычислить натуральный логарифм Паскаль

[Rokko195]

Написал код все работает только при ввода отрицательного числа она должна показать надпись об ошибке . и потом завершать работу. чета я напутал немогу разобраться.

 Pascal

Uses 
   crt;
   
   var a,b:integer;
   rez:real;

   
   function c(x,n:integer):real;
   begin
   
      c:=exp(n*ln(x));
      end;
      begin
      b:=(1);


     while   b>=1  do    repeat

     write('Введите число :');
      readln(a);
      write('Введите степень:');
        readln(b);
        if b<=1 then
       writeln('Введено  отрицательное число программа завершает работу!');
    rez:=c(a,b);

     writeln('Результат:',rez:10:0);


   until b<=1


end.

[Mad_Cat]

Uses crt;
var a,b:integer;
rez:real;

function c(x,n:integer):real;
begin
c:=exp(n*ln(x));
end;
begin

write('Введите число :');
readln(a);
write('Введите степень:');
readln(b);
if a<0.0001 then
writeln('Введено отрицательное число программа завершает работу!')
else
begin
rez:=c(a,b);
writeln('Результат:',rez:10:0);
end;

end.

[Rokko195]

Все верно спасибо. Но не то. Простите меня я не указал правила работы программы. А вес соль в том что программа должна работать с использованием бесконечного цикла т.е закончить работу только при введением отрицательного числа. При чем еще сообщить что введено отрицательное значение. Хожу вокруг с бубном колдую. Цикл выполняется надпись нет.Надпись есть цикл не работает.

Вот что надыбал

program логарифм;

{$mode objfpc}{$H+}

uses
   crt;
   
   var a,b:integer;
   rez:real;

   
   function c(x,n:integer):real;
   begin
   
      c:=exp(n*ln(x));
      end;
      begin
      b:=(1);


        repeat

     write('введите число:');
      readln(a);
      write('введите шаг:');
        readln(b);
        if b<-1 then
       writeln('введено отрицательное число программа завершает работу!');
    rez:=c(a,b);

     writeln('шаг:',rez:10:0);


    until b<=-1



end.

Ребята где косяк.Дайте намек.....

[Serge_Bliznykov]

ну, во-первых, судя по всему число b - это не "шаг", а степень (в исходном коде было названо верно).

во-вторых, Вы так и не удосужились привести полностью исходное задание (не пересказать своими словами, а именно в формулировках, как оно было задано.

в-третьих, очень сомневаясь, в том, что же Вам надо получить, могу предложить попробовать такой код:

function c(x, n: integer): real;
begin
  c := exp(n * ln(x));
end;

var a,b:integer;
 rez:real;
begin

  repeat
    write('введите число:');
    readln(a);
    write('введите шаг:');
    readln(b);
    if b < 0  then
      writeln('введено отрицательное число программа завершает работу!')
    else begin
      if a>0 then
         rez := c(a, b)
      else
         rez:=0;
      writeln('результат вычисления:', rez: 10: 0);
    end;
  until b < 0;

  WriteLn('Программа завершила работу. Bye!');
  Readln
end.

может для Вас будет откровением, но при числе a меньше/равно нуля, вычисление не будет работать - нельзя получить логарифм отрицательного числа!