tugas Softskill 3

Program perhitungan jumlah terminal atau jumlah jaringan yang digunakan pada telekomunikasi menggunakan program Pascal.

uses crt;

var

pil:char;

s,p,l,c,b,t:integer;

a:real;

selesai :boolean;

begin

clrscr;

writeln('');

writeln('*-_-* program perhitungan banyaknya penggunaan jaringan *-_-*');

writeln(' *_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*');

writeln;

writeln('  *_* 1. menghitung jaringan Fully Interconected  ');

writeln('  *_* 2. menghitung jaringan Single Mesh  ');

writeln('  *_* 3. menghitung jaringan Star Network  ');

writeln('  *_* 4. exit');

writeln('            *_* pilih 1-4: *_* ');

readln(pil);

clrscr;

selesai := false;

case pil of

'1' :

 Begin

writeln('');

writeln('*_* menghitung jaringan Fully Interconected *_*');

write('* masukan terminal:');

readln(s);

a:=(s/2)*(s-1);

write('*_* maka jumlah terminal yang digunakan adalah :',a:3:0);

writeln;

writeln;

writeln('**** hasil dijamin benar....!!!! ****');

readln;

end;

'2' :

Begin

writeln('');

writeln('*_* menghitung jaringan Single Mesh *_*');

    write('* masuka terminal:');

    readln(p);

    b:=p;

    write('*_* maka jumlah terminal yang digunakan adalah:',b);

    writeln;

    writeln;

    writeln('**** hasil dijamin benar....!!!! ****');

    readln;

    end;

'3' :

    begin

    writeln('');

    writeln('*_* menghitung jaringan Star Network *_*');

    write('* masukan jumlah terminal:');

    readln(l);

    c:=l-1;

    write('*_* maka jumlah terminal yang digunakan adalah:',c);

    writeln;

    writeln;

    writeln('**** hasil dijamin benar....!!!! ****');

    readln;

    end;

'4' : selesai := true;

    else

    write('salah pilih');

    readln;

    end;

end.

Output Program

*-_-* program perhitungan banyaknya penggunaan jaringan *-_-*

              *_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

  *_* 1. menghitung jaringan Fully Interconected

  *_* 2. menghitung jaringan Single Mesh

  *_* 3. menghitung jaringan Star Network

  *_* 4. exit

            *_* pilih 1-4: *_*

Output PIL. 1

*_* menghitung jaringan Fully Interconected *_*

* masukan terminal:8

*_* maka jumlah terminal yang digunakan adalah : 28

**** hasil dijamin benar....!!!! ****

Output PIL. 2

*_* menghitung jaringan Single Mesh *_*

* masuka terminal:8

*_* maka jumlah terminal yang digunakan adalah:8

**** hasil dijamin benar....!!!! ****

Output PIL. 3

*_* menghitung jaringan Star Network *_*

* masukan jumlah terminal:80

*_* maka jumlah terminal yang digunakan adalah:79

**** hasil dijamin benar....!!!! ****

Dengan menggunakan Program Pascal ini kita dapat dengan mudah mengetahui berapa banyak terminal atau jumlah jaringan yang akan digunakan atau yang akan dipasang.