fpcsrc/tests/webtbs/tw7195.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{$mode delphi}

Function Test(S : single) : single;
begin
  Result := sqrt(s);
end;

Function Test2(S : single) : single;
begin
  Result := sqr(s);
end;

begin
 writeln(Test(0.123445));
 writeln(Test2(0.123445));
end.