Menghitung Panjang Gelombang Dan Drivent Element

LISTING PROGRAM :

program Fungsi;
uses crt;
Function Rumus(n:real):Real;
begin
            Rumus:=(n*(n-1))/2;
end;
var
x:real;
begin
clrscr;
            writeln(‘||Program Menghitung Jumlah Saluran Transmisi||’);
            writeln(‘------------------------------------------------------------‘);
            writeln;
            write(‘Masukkan Jumlah BTS Yang Ada = ‘)readln(x);
            writeln;
            writeln(‘------------------------------------------------------------‘);
            write(‘Jumlah Transmisi Yang Diperoleh = ‘,Rumus(x):5:0);
            writeln;
readln;
end.

FLOWCHART