MENGHITUNG JUMLAH SALURAN BTS TRANSMISI FULL MESH NETWORK DALAM SATU PULAU

LISTING PROGRAM PASCAL :

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 :