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.
