41561
|
1 |
{*******************************************************}
|
|
2 |
{FDL Declarations}
|
|
3 |
{Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039}
|
|
4 |
{Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.}
|
|
5 |
{*******************************************************}
|
|
6 |
|
|
7 |
|
|
8 |
{DATE : 29-NOV-2010 14:30:17.95}
|
|
9 |
|
|
10 |
{function Sqrt.Isqrt}
|
|
11 |
|
|
12 |
|
|
13 |
title function isqrt;
|
|
14 |
|
|
15 |
function round__(real) : integer;
|
|
16 |
const natural__base__first : integer = pending;
|
|
17 |
const natural__base__last : integer = pending;
|
|
18 |
const integer__base__first : integer = pending;
|
|
19 |
const integer__base__last : integer = pending;
|
|
20 |
const natural__first : integer = pending;
|
|
21 |
const natural__last : integer = pending;
|
|
22 |
const natural__size : integer = pending;
|
|
23 |
const integer__first : integer = pending;
|
|
24 |
const integer__last : integer = pending;
|
|
25 |
const integer__size : integer = pending;
|
|
26 |
var n : integer;
|
|
27 |
var r : integer;
|
|
28 |
|
|
29 |
end;
|