Tugas Algoritma Dan Pemograman

1. Buatlah algoritma yang membaca sebuah titik p (x,y) di bidang kartesian, lalu menentukan di kuadran mana letak titk tersebut !
2. Misalkan karyawan PT. “MUSTAHIL MAJU” dikelompokkan berdasarkan golongannya. Upah perjam tiap karyawannya bergantung pada golongannya sesuai tabel dibawah. Jumlah jam kerja yang normal dalam seminggu adaha 48 jam, kelebihan jam kerja dianggap lembur dan upah lembur perjammnya Rp. 3000,00 untuk semua golongan karyawannya. Buatlah algoritma yang membaca nama karyawan dan jumlah jam kerjanya selama seminggu, lalu menghitung gaji mingguannya !

   Golongan	Upah Per Jam
   A	Rp. 4000
   B	Rp. 5000
   C	Rp. 6000
   D	Rp. 7500

3. Indeks nilai mahasiswa ditentukan berdasarkan nilai ujian yang  diraihnya. Ketentuan pemberian nilai indeks sebagai berikut 
   
   ·         Jika nilai ujian ≥ 80, indeks nilai A
   ·         Jika 70 ≤ nilai ujian < 80, indeks nilai B
   ·         Jika 55 ≤ nilai ujian < 70, indeks nilai C
   ·         Jika nilai ujian < 40 , indeks nilai D
   Buatlah algoritma yang membaca nilai ujian seorang mahasiswa, lalu menentukan indeks
   nilainya,kemudian mencetak nilai dan indeksnya ke piranti keluaran.
4. Buatlah sebuah permasalahan algoritma yang mempunyai penyelesaian masalah hingga 3 kasus lebih, kemudian buatlah analisis kasus, notasi algoritmik dan translasi bahasa pascalnya.

 PENYELESAIAN

1.      Program Kartesius

Bahasa Algoritmik

Program Kartesius

deklarasi

x : integer

y : integer

Algoritma

write ('Masukkan nilai x : ')

read (x)

write ('Masukkan nilai y : ')

read (y)

if (x>0) and (y>0) then

write ('Kuadran 1')

if (x<0) and (y>0) then

write ('Kuadran 2')

if (x<0) and (y<0) then

write ('Kuadran 3')

if (x>0) and (y<0) then

write ('Kuadran 4')

endif

Bahasa Pascal

Program Kartesius;

uses winCrt;

var

x : integer;

y : integer;

begin

writeln ('Masukkan nilai x : '); readln (x);

writeln ('Masukkan nilai y : '); readln (y);

if (x>0) and (y>0) then

begin

writeln ('Kuadran 1');

end;

if (x<0) and (y>0) then

begin

writeln ('Kuadran 2');

end;

if (x<0) and (y<0) then

begin

writeln ('Kuadran 3');

end;

if (x>0) and (y<0) then

begin

writeln ('Kuadran 4');

end;

end.