Arithmetic/Complex: Difference between revisions
Content added Content deleted
Line 4,118: | Line 4,118: | ||
Furthermore, the GPC defines a function <tt>conjugate</tt> so there is no need for writing such a custom function. |
Furthermore, the GPC defines a function <tt>conjugate</tt> so there is no need for writing such a custom function. |
||
The PXSC, Pascal eXtensions for scientific computing, define a standard data type similar to [[#Free Pascal|Free Pascal’s]] <tt>ucomplex</tt> data type. |
The PXSC, Pascal eXtensions for scientific computing, define a standard data type similar to [[#Free Pascal|Free Pascal’s]] <tt>ucomplex</tt> data type. |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
begin |
|||
var a := Cplx(1,2); |
|||
var b := Cplx(3,4); |
|||
Println(a + b); |
|||
Println(a - b); |
|||
Println(a * b); |
|||
Println(a / b); |
|||
Println(-a); |
|||
Println(1/a); |
|||
Println(a.Real,a.Imaginary); |
|||
Println(a.Conjugate); |
|||
Println(Abs(a)); |
|||
Println(a ** b); |
|||
end. |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
(4 + i*6) |
|||
(-2 + i*-2) |
|||
(-5 + i*10) |
|||
(0.44 + i*0.08) |
|||
(-1 + i*-2) |
|||
(0.2 + i*-0.4) |
|||
1 2 |
|||
(1 + i*-2) |
|||
2.23606797749979 |
|||
(0.129009594074467 + i*0.0339240929051702) |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |