Script M-file PROGRAM PENGHITUNG UPAH HARIAN BURUH (Niza Rosyda A/2413100019)

close all
clear
clc
respon='Y';
while upper (respon)=='Y'
disp(' ')
disp('_____________________________________')
disp('PROGRAM PENGHITUNG UPAH HARIAN BURUH')
disp('_____________________________________')
n=10;
a=400000;
Nama=input('Masukkan Nama Anda: ','s');
t=input('Masukkan Nomor Induk Buruh Anda: ');
disp('Range jam kerja antara 0-10')
m=input('Berapa jam Anda bekerja hari ini: ');
disp('Range jam lembur antara 0-14')
b=input('Berapa jam Anda lembur hari ini: ');
p=m+b;
r=(100000+(15000*((p)-n)));
s=(10000*m);
q='MASUKAN ANDA SALAH, IKUTI PETUNJUK, DAN MOHON ULANGI';
if m>10;
    disp(q);
elseif b>14;
    disp(q) ; 
    h=(q);
elseif (m<10)&&(b>0);
    disp(q);
    h=(q);
elseif (((m+b)-n)>0);
    disp('UPAH ANDA HARI INI SEBESAR Rp.')
    disp(r);
    h=(r);
elseif m==n;
    disp('UPAH ANDA HARI INI SEBESAR Rp.')
    disp(a);
    h=(a);
elseif (((m+b)-n)<0);
    disp('UPAH ANDA HARI INI SEBESAR Rp.')
    disp(s);
    h=(s);

end
respon = input ('Apakah Anda ingin mengulangi? (Y|T) : ','s');
w=[1 1 1 7 7 1 2];
y=[1 20 17 17 2 2 2];
figure
plot(w,y,'g','linewidth',2);title('UPAH','Fontsize',16);
hold on
s=[1 1 7 7 1];
l=[24 29 29 24 24];
plot(s,l,'g','linewidth',2);
text(2.5,27,'BUKTI TANDA TERIMA UPAH BURUH HARIAN','Fontsize',16);
text(1.5,23,'Nama              : ' );
text(2.5,23,num2str(Nama));
text(1.5,20,'Nomor Induk Buruh : ');
text(2.5,20,num2str(t));
text(1.5,15,'Jam Kerja : ');
text(3,15,num2str(m));
text(1.5,13,'Jam Lembur : ');
text(3,13,num2str(b));
text(1.5,11,'Total Upah Hari Ini : ');
text(3,11,num2str(h));
text(5.5,9,'Mengetahui');
text(5.4,8,'Petugas Administrasi');
text(5.3,5,'(                                             )');
text(1.5,8,'*Keterangan: ');
text(1.5,7,'@jam kerja = Rp.10.000,00');
text(1.5,6,'@jam lembur = Rp.15.000,00');
text(3,3,'TERIMA KASIH DAN SELAMAT BERISTIRAHAT');
end