17 lines
398 B
ObjectPascal
17 lines
398 B
ObjectPascal
// Èñïîëüçîâàíèå êîìïëåêñíûõ ÷èñåë
|
|
{$reference 'System.Numerics.dll'}
|
|
uses System.Numerics;
|
|
|
|
begin
|
|
var a := new Complex(0,1);
|
|
writeln('Ìíèìàÿ åäèíèöà: ', a);
|
|
|
|
var b := Complex.Sqrt(a);
|
|
writeln('Ãëàâíûé êîðåíü èç ìíèìîé åäèíèöû: ', b);
|
|
|
|
var c := a*a;
|
|
writeln('Êâàäðàò ìíèìîé åäèíèöû: ', c);
|
|
|
|
var d := new Complex(1,2);
|
|
writelnFormat('Ìîäóëü {0} ðàâåí {1}', d,d.Magnitude);
|
|
end. |