Menghitung Luas Lingkaran Dalam Bahasa Pascal, C, dan C++

Kasus

Buat program membaca panjang jari-jari (r) sebuah lingkaran, menghitung luas lingkaran, lalu cetak luas tersebut ke layar.

Notasi Pascal

PROGRAM LuasLingkaran;
uses crt;

const pi = 3.15;
var 
    r : real;
    l : real;

begin
    write('r = '); readln(r);
    l := pi * r * r;
    writeln('Luas lingkaran = ', L:0:2, ' cm^2');
end.

Notasi C

#include 

void main()
{
    /* code */
    #define pi 3.14
    float r;
    float l;

    printf("r = "); scanf("%f", &r);
    l = pi * r * r;
    printf("Luas Lingkaran = %.2f cm^2", l);
}

Notasi C++

#include 
using namespace std;

int main()
{
    const float pi = 3.14;

    float r;
    float l;

    cout << "r  = "; cin >> r;
    l = pi * r * r;
    cout << "Luas Lingkaran = " << l << " cm^2";
}