Учебник Turbo Pascal. Введение - Решение неравенства

Решение неравенства

В следующем примере речь идет о решении неравенства bⁿ <= а <= bⁿ⁺¹ относительно n при условии а >= 1, b > 1. Неравенство решается перебором значений n, метод решения реализован в функции largestpower, аргументами которой являются значения а и b.

Листинг 1.10. Решение неравенства

program solve_linequality;

function 1argest_power(a, b: LongInt): Word;
var
    n: Word;
    x: LongInt;
begin
    x := b;
    n := 0;
    while x <= a do
    begin
        x := b*x; 
        Inc(n);
    end;
    largest_power := n;
end; 

begin
    WriteLn('3^n <= 10000 < 3^(n+l)');
    WriteLn('n = ', largest_power(10000, 3));
    Write('Нажмите <Enter>');
    ReadLn; 
end.