PROCEDURE PASCAL

LISTING PROGRAM :

program hitungan_telemunikasi;

uses wincrt;

var

menu : integer;

ulang : char;

a,t,h : real;

p,l,v:real;

s,j:real;

al,tg,lu:real;

procedure cepat_rambat_bunyi;

begin

     repeat

     clrscr;

     writeln ('Menghitung Cepat Rambat Bunyi');

     write ('Masukan Jarak Yang Ditempuh  : ');readln(s);

     write ('Masukan Waktu Tempu:');readln(t);

     writeln ('Rumus : s / t');

     h:=s/t;

     writeln ('Kelajuan Rambat Bunyi Adalah :',h:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure analisa_trafik_komunikasi;

begin

     repeat

     clrscr;

     writeln ('Menghitung Analisa Trafik Pada Sistem Komunikasi ');

     write ('Masukan Banyaknya Pembicara :');readln(c);                                                      

     write ('Masukan Rata-rata Pembicara :');readln(t);

     writeln ('Rumus : c*t');

    lu:=c*t;

     writeln (Besarnya Trafik :',lu:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

 procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Cepat rambat bunyi ');

      writeln ('2. Analisa trafik komunikasi ');

      writeln ('3. keluar');

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              cepat_rambat_bunyi;

              menu_utama;

         end;

      2: begin

              analisa_trafik_komunikasi;

              menu_utama;

        end;

      3:donewincrt;

      end;

 end;

 begin

 clrscr;

 menu_utama;

 end.

FLOWCHART : 

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 :