Mei 2016

My Blog

Latest blog

Aplikasi yang saya buat bertujuan untuk menentukan titik lampu pada suatu ruang (N). Dengan terdapat 2 menu pilihan yaitu menentukan jumlah titik lampu pada (perkantoran/ restauran/ store/ toko) dan juga menentukan jumlah titik lampu pada (rumah sakit/ sekolah). Input yang diketahui antara lain: kuat penerangan (E), panjang bangunan (P), lebar bangunan(L), faktor cahaya rugi 0.7-0.8 (LLF), faktor pemanfaatan 50%-65% (CU), dan juga total lumen (Q). Output yang dihasilkan dapat dilihat pada gambar2 dan gambar3.

1.   

Berikut adalah listing programnya:
program menentukan_jumlah_titik_lampu_pada_suatu_ruang;
uses crt;
function f_N(f_E, f_P, f_L, f_Q, f_LLF, f_CU, pil: real): real;
var result: real;
begin
if (pil =1) then
begin
result := ((500-f_E) * (f_P) * (f_L) / (f_Q) * (f_LLF) * (f_CU);
end
else
begin
result := ((800-f_E) * (f_P) * (f_L) / (f_Q) * (f_LLF) * (f_CU);
end;
f_N := result;
end;
var
E, P, L, Q, LLF, CU, N, pilihan: real;
begin
clrscr;
writeln(' program menentukan jumlah titik lampu pada suatu ruang ');
writeln(' ');
writeln(' ');
write(' masukkan nilai E (kuat penerangan) : ');
readln(E);
write(' masukan nilai P (panjang bangunan) : ');
readln (P);
write(' masukkan nilai L (lebar bangunan) : ');
readln(L);
write(' masukkan nilai LLF (faktor cahaya (0.7-0.8)) : ');
readln(LLF);
write(' masukkan nilai CU (faktor pemanfaatan (50%-65%)) : ');
readln(CU);
writeln;
writeln('---------------------------------------------------------');
writeln('-------------------MENU------------------------------');
writeln('[1] menentukan jumlah titik lampu pada (perkantoran/ restauran/ store/ toko) ');
writeln('[2] menentukan jumlah titik lampu pada (rumah sakit/ sekolah) ');
write('masukkan pilihan);
writeln('---------------------------------------------------------');
if (pilihan = 1) then
begin
write('masukkan nilai Q : ');
readln(Q);
N:= f_N(E, P, L, Q, LLF, CU, pilihan;
writeln('nilai N= ', N:1:2, ' titik');
end
else if (pilihan = 2) then
begin
write('masukkan nilai Q : ');
readln(Q);
N:= f_N(E, P, L, Q, LLF, CU, pilihan;
writeln('nilai N= ', N:1:2, ' titik');
end
else
begin
writeln('salah input');
end;
readln;
end.
 Gambar1. Flowchat
Gambar2. hasil program1

Gambar3. Hasil program2

Contact Me

Contact With Me

Lorem Ipsum is simply dummy text of the printing and type setting industry when an unknown printer took a galley of type

  • 9908B Wakehurst St.Rockaway
  • 990800113322
  • info@domain.com
  • www.yourinfo.com