Turbo pascal Penghitungan Gaji dengan IF dan Case

 Silakan di Buka




uses wincrt;
var
nama: string;
a,b:integer;
c:real;
begin
writeln('Selamat Datang di program Penghitungan Gaji');
Writeln;
write('Masukkan Nama anda : ');readln(Nama);
write('Masukkan Jumlah Jam kerja bulan ini : ');readln(a);
writeln('Golongan Apakah anda? ');
writeln('1.Anda Golongan A');
writeln('2.Anda Golongan B');
writeln('3.Anda Golongan C');
writeln('4.Anda Golongan D');
readln(b);

If  b = 1 then
begin
c:= 10000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end
else
if b = 2 then begin
c:= 8000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end
else
if b = 3 then begin
c:= 6000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end
else
if b = 4 then  begin
c:= 5000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end
else
writeln('Pilihan anda salah, silahkan keluar');
readln;
end.


uses wincrt;
var
nama: string;
a,b:integer;
c:real;
begin
writeln('Selamat Datang di program Penghitungan Gaji');
Writeln;
write('Masukkan Nama anda : ');readln(Nama);
write('Masukkan Jumlah Jam kerja bulan ini : ');readln(a);
writeln('Golongan Apakah anda? ');
writeln('1.Anda Golongan A');
writeln('2.Anda Golongan B');
writeln('3.Anda Golongan C');
writeln('4.Anda Golongan D');
readln(b);
case b of
1: begin
c:= 10000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end;
2: begin
c:= 8000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end;
3: begin
c:= 6000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end;
4: begin
c:= 5000 * a + ((192 - a) * 3000);
writeln('Kepada saudara ',nama);
writeln('Gaji total anda adalah ',c:2:2);
end;
else
writeln('Pilihan anda salah, silahkan keluar');
end;
readln;
end.