Chapter 8. การคำนวณ

การคำนวณ

เกี่ยวกับการคำนวณ Perl สามารถใช้ Arithmetic Operators ซึ่งจัดเตรียมไว้เพื่อการคำนวณโดยเฉพาะ ดังตัวอย่างโปรแกรมการคำนวณดังนี้

การบวก

ตัวอย่างการบวก

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=30;
$b=10;
$c=$a + $b;

print "<H1>$c</H1>";

ผลลัพธ์ที่ได้

30

การลบ

ตัวอย่างการลบ

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=30;
$b=10;
$c=$a - $b;

print "<H1>$c</H1>";

ผลลัพธ์ที่ได้

20

การคูณ

ตัวอย่างการคูณ

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=30;
$b=10;
$c=$a * $b;

print "<H1>$c</H1>";

ผลลัพธ์ที่ได้

300

การหาร

ตัวอย่างการคูณ

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=30;
$b=10;
$c=$a / $b;

print "<H1>$c</H1>";

ผลลัพธ์ที่ได้

3

การยกกำลัง

ตัวอย่างการคูณ

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=9;
$b=2;
$c=$a ** $b;

print "<H1>$c</H1>";

ผลลัพธ์ที่ได้

81

การคำนวณโดยใช้เครื่องหมายวงเล็บ

ตัวอย่าง

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$a=30;
$b=10;
$c=20;

$d=($a * $b)/$c;

print "<H1>$d</H1>";

ผลลัพธ์ที่ได้

15

Copy righ Passkorn Roungrong