함수 abs()

abs

1 ALGOL 68

Works with ALGOL 68 Revisions 0 and 1. Tested with algol68g-2.4.1.

File: test_abs.a68

#!/usr/bin/algol68g-full --script #
# -*- coding: utf-8 -*- #
 
BOOL bt=TRUE, bf=FALSE;
BITS b2=2r 01, b4=4r 0123, b8=8r 01234567, b16=16 rec0d1f1ed;
CHAR ca="A", cb="B";
SHORT INT sip=SHORT 5, sin=SHORTEN -5;
INT ip=5, in=-5;
LONG INT lip=LONG 5, lin=LENG -5;
REAL rp=4.2, rn=-4.2;
COMPL cp3i4=3I4, cn3i4=-3I4;
 
printf((
  $"Integer results:"$,$g"="g(-0)"; "$,
  "bt", ABS bt, "bf", ABS bf,
  "b2", ABS b2, "b4", ABS b4, "b8", ABS b8, "b16", ABS b16,
  "ca", ABS ca, "cb", ABS cb,
  "sip", ABS sip, "sin", ABS sin,
  "ip", ABS ip, "in", ABS in,
  "lip", ABS lip, "lin", ABS lin,
  $l"Real results:"$,$g"="g(-0,1)"; "$,
  "rp", ABS rp, "rn", ABS rn,
  "cp3i4", ABS cp3i4, "cn3i4", ABS cn3i4,
  $l$
))

Output:

Integer results:bt=1; bf=0; b2=1; b4=27; b8=342391; b16=-1059982867; ca=65; cb=66; sip=5; sin=5; ip=5; in=5; lip=5; lin=5; 
Real results:rp=4.2; rn=4.2; cp3i4=5.0; cn3i4=5.0; 

2 Excel

PHP

Copy

=ABS(-4.2)
// 4.2
=ABS(5)
// 5
=ABS(-5)
// 5

3 JavaScript

JavaScript

Copy

var a=Math.abs(-4.2); // 4.2
var b=Math.abs(5); // 5
var c=Math.abs(-5); // 5
var d=Math.abs(null); // 0
var e=Math.abs("Hello"); // NaN

4 PHP

PHP

Copy

$a = abs(-4.2); // 4.2;
$b = abs(5);   // 5;
$c = abs(-5);  // 5;

5 Python

Python

Copy

a = abs(-4.2); # 4.2;
b = abs(5);   # 5;
c = abs(-5);  # 5;