Soal :
Buat aplikasi untuk menentukan status warga dari variabel penghasilan :
Jika penghasilan
- 0 s/d 2jt : Sangat Kurang
- 2jt s/d 4jt : Kurang
- 4jt s/d 8jt : Cukup
- 8jt s/d 15jt : Lebih
Jawaban :
uses
SysUtils;
var
penghasilan: Integer;
begin
write('Input Penghasilan :'); Readln(penghasilan);
case penghasilan of
0 .. 2000000:
writeln('Sangat Kurang');
2100000 .. 4000000:
writeln('Kurang');
4100000 .. 8000000:
writeln('Cukup');
8100000 .. 15000000:
writeln('Lebih');
end;
Readln;
end.