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 |