"Для разработчиков", "Серверные скрипты", "Описание функций", "Математические", "Sqrt".

 

Вычислить квадратный корень от целого или вещественного положительного числа.

 

Синтаксис

function Sqrt(x: extended): extended;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

x

extended

число, от которого нужно вычислить квадратный корень. Не может быть отрицательным числом.

 

Результат функции

Вещественное число. Если параметр x < 0, то функция вернёт 0.

 

Пример

var
  i, iValue: integer;
  x: extended;
  s: string;
begin
  for i := 100 downto 1 do begin
    x := Sqrt(i);
    iValue := Trunc(x);
    
      if iValue = x then begin
        s := IntToStr(iValue);
        mLogScript(IntToStr(i), s + 'x' + s);
      end;  
  end;
end.

Результат работы скрипта

[13:28:56] (Log "Sqrt"): [10x10] 100

[13:28:56] (Log "Sqrt"): [9x9] 81

[13:28:56] (Log "Sqrt"): [8x8] 64

[13:28:56] (Log "Sqrt"): [7x7] 49

[13:28:56] (Log "Sqrt"): [6x6] 36

[13:28:56] (Log "Sqrt"): [5x5] 25

[13:28:56] (Log "Sqrt"): [4x4] 16

[13:28:56] (Log "Sqrt"): [3x3] 9

[13:28:56] (Log "Sqrt"): [2x2] 4

[13:28:56] (Log "Sqrt"): [1x1] 1

[13:28:56] (Run "Sqrt"): Время выполнения скрипта: 3 мс

[13:28:56] (Run "Sqrt"): Скрипт выполнен успешно.
 

Ещё посмотреть

IntToStr

mLogScript

Trunc