paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 14:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

- replaced by /cg/taddreal.pas

Browse Source
This commit is contained in:
carl 2001-05-09 19:26:28 +00:00
parent e7e8a8bde4
commit 882c6c697d
1 changed files with 0 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
tests/test/treal1.pp
View File

@ -1,76 +0,0 @@
{$E-}
Procedure TestSub;
var
i : Real;
j : Real;
Begin
i:=99.9;
j:=10.0;
i:=i-j;
Write('RESULT SHOULD BE: 89.9 :');
WriteLn(i);
i:=j-i;
Write('RESULT SHOULD BE: -79.9 :');
WriteLn(i);
j:=j-10.0;
Write('RESULT SHOULD BE: 0.0 :');
WriteLn(j);
end;
Function TestAdd(i : real): Real;
Begin
i:=i+1.5;
if i > 10.0 then
Begin
Write('RESULT SHOULD BE: 10.5 :');
WriteLn(i);
exit;
end;
TestAdd:=TestAdd(i);
end;
Procedure TestDiv;
var
i : Real;
j : Real;
Begin
i:=-99.9;
j:=10.0;
i:=i / j;
Write('RESULT SHOULD BE: -9.9 :');
WriteLn(i);
i:=j / i;
Write('RESULT SHOULD BE: -1.01 :');
WriteLn(i);
j:=i / 10.0;
Write('RESULT SHOULD BE: -0.1001 :');
WriteLn(j);
end;
Procedure TestComplex;
var
i : real;
Begin
Write('RESULT SHOULD BE 2.09 :');
i := 4.4;
WriteLn(Sqrt(i));
Write('RESULT SHOULD BE PI :');
WriteLn(Pi);
Write('RESULT SHOULD BE 4.0 :');
WriteLn(Round(3.6));
end;
Begin
WriteLn('------------ SUB ---------------');
TestSub;
WriteLn('------------ ADD ---------------');
TestAdd(0);
WriteLn('------------ DIV ---------------');
TestDiv;
WriteLn('------------ COMPLEX ---------------');
TestComplex;
end.