pemograman menggunakan pascal

SOAL
1.Karyawan honorer di bimbingan belajar "Al-Fikri" digaji berdasarkan jumlah jam kerja selama satu minggu. Upah per jam Rp. 5000,00. Bila jumlah jam kerja lebih besar dari 48 jam, maka sisanya dianggap jam lembur. Upah lembur Rp. 3000,00/jam. Buat algoritma dan program jika yang ingin ditampilkan di piranti keluaran adalah nama karyawan, jumlah jam kerja karyawan selama seminggu, upah mingguan, jumlah jam kembur dan upah lembur.
2.Indeks nilai mahasiswa ditentukan berdasarkan nilai ujian yang diraih. Buatlah algoritma dan program yang membaca nama mahasiswa, nilai ujian, menghitung indeks nilainya, kemudian mencetak nilai dan indeks nilainya. Kemudian mencetak nama, nilai dan indeks ke piranti keluaran. (NB. Indeks nilai berdasarkan indeks nilai resmi UIR).
JAWAB:
1.PROGRAM MenentukanUpahMingguanDanLembur
{Menentukan upah mingguan dan upah lembur. Keluaran program adalah Nama karyawan, Jumlah jam kerja selama seminggu, Upah mingguan, jumlah jam lembur dan upah lembur}

DEKLARASI
NamaKaryawan : string
JlhJamKerja : integer
Lembur : real
UpahMingguan, UpahLembur : real

ALGORITMA :
read (NamaKaryawan, JlhJamKerja)
UpahMingguan← JlhJamKerja *5000
if JlhJamKerja≤ 48 then
else
if JlhJamKerja > 48 then
Lembur ← JlhJamKerja – 48
UpahLembur ← Lembur * 3000
write (NamaKaryawan, JlhJamKerja, UpahMingguan, Lembur, UpahLembur)
end.
       

2.PROGRAM Indeks_Nilai_Mahasiswa
{ Menghitung indeks nilai ujian mahasiswa}
DEKLARASI
Nama mahasiswa: string
Nilai : real
Indeks : string
ALGORITMA :
read (Nama mahasiswa, Nilai)
if Nilai ≥ 86 then indeks ← ‘A’
else if (Nilai ≥ 80) and ( Nilai ≤ 85) then indeks ← ‘A-’
else if (Nilai ≥ 76) and ( Nilai ≤ 79) then indeks ← ‘B+’
else if (Nilai ≥ 70) and ( Nilai ≤ 75) then indeks ← ‘B’
else if (Nilai ≥ 66) and ( Nilai ≤ 69) then indeks ← ‘B-’
else if (Nilai ≥ 60) and ( Nilai ≤ 65) then indeks ← ‘C+’
else if (Nilai ≥ 56) and ( Nilai ≤ 59) then indeks ← ‘C’
else if (Nilai ≥ 50) and ( Nilai ≤ 55) then indeks ← ‘C-’
else if (Nilai ≥ 45) and ( Nilai ≤ 49) then indeks ← ‘D’
else if (Nilai≤45) then indeks ← ‘E’
write (Nama, Nilai, Indeks)
end
     

Komentar

Posting Komentar

Postingan populer dari blog ini

ANALISIS DAN SOLUSI FENOMENA PELANGGARAN ETIKA OLEH GURU

BAB II PEMBAHASAN Sertifikasi atau Pendidikan Profesi Guru dan Peningkatan Profesionalitas Guru Guru adalah sebuah profesi yang sangat mulia, kehadiran guru bagi peserta didik ibarat sebuah lilin yang menjadi penerang tanpa batas tanpa membedakan siapa yang diteranginya demikian pulan terhadap peserta didik. Tetapi, dalam mengemban amanah sebagai seorang guru, perlu kiranya tampil sebagai sosok profesional. Sosok yang memiliki ilmu pengetahuan dan wawasan, sosok yang dapat memberi contoh teladan dan sosok yang selalu berusaha untuk maju, terdepan dan mengembangkan diri untuk mendapatkan inovasi yang bermanfaat sebagai bahan pengajaran kepada anak didik. Keberhasilan pendidikan masing-masing bangsa di dunia berbeda-beda tergantung dari predikat yang disandang negara itu.  Pada negara maju, kita ketahui bersama bahwa prospek pendidikannya lebih terarah dan terfokus dengan ditunjang fasilitas-fasilitas modern dan system pembelajaran internasional. Sedangkan pada negara berkembang...
Baca selengkapnya

membuat garis singgung lingkaran menggunakan GSP

Gambar
MAKALAH PEMBELAJARAN MATEMATIKA BERBASIS IT LANGKAH – LANGKAH MEMBUAT GARIS SINGGUNG LINGKARAN LUAR DAN DALAM DAN MEMBUAT POLIGON TERTUTUP MENGGUNAKAN SOFTWARE GEOMETER’S SKETCHPAD Dosen Pemangku : ENDANG ISTIKOMAH, S.Pd., M.Ed. DISUSUN OLEH : KELOMPOK 3 APRILIA SRI RAHAYU NUR AZMI FITRIANI SRI MARLISA KELAS MKP 4E PROGRAM STUDI PENDIDIKAN   MATEMATIKA FAKULTAS KEGURUAN DAN ILMU PENDIDIKAN UNIVERSITAS ISLAM RIAU TAHUN AJARAN 201 7 /201 8 A.     Garis Singgung Lingkaran Luar ( Dipresentasikan oleh Sri Marlisa) 1.       Klik kanan pilih Show Grid. 2.       Pada menu Tool Klik Compass Tool. 3.       Buatlah 2 lingkaran dengan jari-jari berbeda dan buat lah label titik-titik tersebut dengan cara Klik kanan pilih label point. 4.       Klik straightedge tool. 5.       Tarik garis pada diatas ling...
Baca selengkapnya

TIPE TIPE DALAM APLIKASI PASCAL

Presentasi berjudul: "Tipe, Nama, dan Nilai Anifuddin azis." — Transcript presentasi: 1   Tipe, Nama, dan Nilai Anifuddin azis 2   Tipe Data Tipe data ada dua macam, yaitu : tipe dasar dan tipe bentukan Tipe dasar adalah tipe data yang dapat langsung dipakai. Tipe bentukan dibentuk oleh tipe dasar atau tipe bentukan lain yang sudah didefinisikan Yang termasuk dalam tipe dasar adalah : bilangan bulat (integer), logika (bool), karakter, (char) bilangan riil (float) 3   Tipe Integer data ini terdiri atas integer positif, integer negatif dan nol Pada C++ ada 2 : int dan longint Jenis operasi : penjumlahan (+), pengurangan (-), pembagian (/), perkalian (*), sisa bagi (%) 4   Tipe Bool , Tipe Float, Tipe Char Tipe data ini mempunyai nilai TRUE atau FALSE Operator untuk jenis data ini adalah operator logika, yaitu : NOT, AND, OR dan XOR Tipe Float :Penulisan untuk jenis data ini selalu menggunakan titik desimal. Operasi sama...
Baca selengkapnya