MENENTUKAN JUMLAH TITIK LAMPU PADA SUATU RUANG [PROCEDURE]

MENENTUKAN JUMLAH TITIK LAMPU PADA SUATU RUANG [PROCEDURE]

 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). Dan juga tidak lupa untuk sistem ini saya menggunakan "procedure" yang bertujuan untuk membedakan dari sistem yang sebelumnya terdapat diblog ini juga. 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.

 Berikut adalah listing programnya:
 program menentukan_jumlah_titik_lampu_pada_suatu_ruang;
uses crt;
var
E, P, L, Q, LLF, CU, N, pilihan, r_N : real;
function f_N(f_E, f_P, f_L, f_Q, f_LLF, f_CU, pil: 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;
end;
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); 
f_N(E, P, L, Q, LLF, CU, pilihan, r_N);
writeln('nilai N= ', r_N:1:2, ' titik');
end
else if (pilihan = 2) then
begin
write('masukkan nilai Q : ');
readln(Q); 
f_N(E, P, L, Q, LLF, CU, pilihan, r_N);
writeln('nilai N= ', r_N:1:2, ' titik');
end
else
begin
writeln('salah input');
end;
readln;
end.

Gambar1. Flowchart
Gambar2. Hasil Program 1
Gambar3. Hasil Program 2