Hallo sobat blogger, disini saya akan berbagi program cara penyelesaian tugas menggunakan aplikasi Turbo Pascal.
Jadi disini saya akan menyelesaikan salah satu soal yang diberikan dalam mata kuliah Pemograman Terstruktur.
Ini salah satu contoh soalnya :
Buatlah program yang dapat membaca jumlah jam kerja dalam satu minggu dan menghitung upah perminggu yang akan diterima oleh para pegawai.
uses crt;
var
nama : string[20];
gol : integer;
jam, jam_lembur, g_tetap, g_lembur, t_gaji : real;
Begin
clrscr;
gotoxy (1,1); write (' Nama : Aji Ismed');
gotoxy (1,2); write (' PRODI : TEKNIK INFORMATIKA');
gotoxy (1,3); write ('====================================================');
gotoxy (12,5); write ('---------------------------');
gotoxy (11,6); write ('PT. Telkom Indonesia 2020');
gotoxy (12,7); write ('---------------------------');
gotoxy (1,9); writeln('Slip Gaji Mingguan:');
gotoxy (1,10); writeln;
gotoxy (1,11); write('Nama Karyawan : '); readln(nama);
gotoxy (1,13); writeln('Golongan [1] buat Karyawan Tetap ');
gotoxy (1,14); writeln('Golongan [2] buat Karyawan Paruh Waktu ');
gotoxy (1,16); write('Golongan : '); readln(gol);
gotoxy (1,17); write('Jumlah Jam Kerja Perminggu : '); readln(jam);
writeln;
if jam<=40 then
begin
jam_lembur:=0;
end
else
begin
jam_lembur:=jam-40;
end;
case gol of
1: begin {golongan 1}
g_tetap:=jam*40000;
g_lembur:=jam_lembur*(40000)
end;
2: begin {golongan 2}
g_tetap:=jam*30000;
g_lembur:=jam_lembur*(30000)
end;
else
begin
writeln('Golongan tidak ada, data tidak bisa diproses ...!;');
writeln;
end;
end;
writeln('Gaji tetap : ',g_tetap:12:2);
writeln('Lembur : ',g_lembur:12:2);
writeln('----------------------------------------+');
writeln('Total Gaji : ',g_tetap+g_lembur:12:2);
readln;
end.
Terima kasih sudah berkunjung ke blog saya. Semoga bermanfaat
