MENENTUKAN JUMLAH KEBUTUHAN LAMPU PADA INSTALASI GEDUNG

MENENTUKAN JUMLAH KEBUTUHAN LAMPU PADA INSTALASI GEDUNG

program menentukan_jumlah_kebutuhan_lampu_pada_instalasi_gedung;
uses crt;
var
E,P,L,Q,LLF,CU,N : real;
pilihan, pilihan2 : string ;
clrscr;
writeln('program menentukan jumlah kebutuhan lampu pada instalasi gedung');
writeln(' ');
writeln(' ');
write('masukkan nilai E (kuat penerangan) : ' );
readln(E);
write('masukkan nilai P (panjang gedung) : ' );
readln(P);
write('masukkan nilai L (lebar gedung) : ' );
readln(L);
write('masukkan nilai LLF (faktor cahaya rugi(0.7-0.8)) : ' );
readln(LLF);
write('masukkan nilai CU (faktor pemanfaatan (50%-65%)) : ' );
readln(CU);

write(' apakah anda ingin menghitung jumlah kebutuhan lampu? (y atau t);
readln(pilihan);
if(pilihan = 'y' ) then
begin

write (' masukkan nilai Q ( lamp luminous flux : ' );
readln(Q);

N := (E*P*L) / (Q*LLF*CU);
write('nilai N=', N : 2: 3, ' titik ' );
end
else if (pilihan = 't') then
write ('tidak dapat menghitung');
end
else
begin
write('salah input');
end;
readln;
end.

HASIL PROGRAM

FLOWCHART


 SUMBER PUIL 2000