FEEDBACK For Mr. Awan Rimbawan (Lecturer Basic Algorithms and programming)

kepada bapak awan rimbawan saya ucapkan terimakasih atas bimbingan dan ajaran nya setiap saya masuk matkul Alpro saya serasa bukan belajar alpro tapi lebih mendengarkan pengalaman pengalaman bapak dan selalu ata cerita cerita yang sangat inspiratif yang bapak berikan sebelum kita mulai ke perkuliahan inti. ini yang menbuat sangat menarik dibandingkan dosen dosen yang lain nya... walaupun bapak bilang tahun depan tidak akan ngajar lagi tapi saya harap bapak tetap konsisten terhadap sistem ajaran bapak. Mengenaim Perkuliahna dalam hal materi dan tugas saya rasa bapak juga berpeda dengan dosen yang lain, ketika bapak memberikan tugas segudang, dan ketikan saya tanyakan ke teman kelas lain tugas nya berbeda dengan kelas saya. Awalnya saya agak tidak terima karna tugas kami di diskriminasi dengan tugas kelas lain yang berbedan namun akhirnya saya mulai menyadari ini dan kami belajar lebih dibandingkan kelas lain. Jujur walupun saya terkadang sulit mengerti terhadap tugas tugas yang bapak berikan namun saya mencoba berusaha mengerjakan loh pak walaupun ujung-ujung nya di bantu oleh teman-teman saya, ketika saya sudah mentok banget dan tidak mengerti jujur saya sering mengcopy punya teman dan hanya menggati variabel dari suatu program itu sendiri. Saya ucapkan terimakasi sekali lagi atas ajaran dan didikan serta kata-kata mutira dan motivasi dari bapak, mudah-mudahan kita bisa berjumpa di lain kesempatan...

Soal Looping 2

3.Buatlah algoritma dan program untuk menampilkan angka seperti berikut:

Contoh inputan :

Jumlah angka : 5 1   5  2 4   3   2 4 1   5

Jumlah angka : 6 1    6  2  5   34    34   2  5 1    6

Jumlah angka : 9 1       9  2     8   3   7     4 6       5       4 6     3   7   2     8 1       9

PROGRAM PASCAL NYA :

program no3;

uses crt;

var

   i, j , k , l : integer ;

begin

    clrscr;

    write('Inputkan Jumlah Angka:');

    readln(i);

    j := i ;

    for k := 1 to i do

    begin

       for l := 1 to i do

       begin

         if ((l=j)or (l=k)) then

         begin

           write (l);

         end

         else

          write (' ');

       end;

       j := j - 1;

       writeln();

     end;

     readln();

end.

ouputan jika kita inputkan 5 :

jika kita inputkan 6 :

jika kita inputkan 9 :

Soal Looping 2

2. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?

ALGORITMA loop2

KAMUS DATA

I,j,n: Integer

BEGIN

Input(n)

For i :=0 to n-1 do

        begin

  For j:=0 to n-1 do

   begin

             Output(j+1)

   end 

         Output("\n") //ganti baris

    end 

End

PROGRAM PASCAL NYA:

program no2;

uses crt;

var i , j, n : integer;

begin

    clrscr;

    write('Masukan Inputan:');

    readln(n);

    for i := 0 to n - 1 do

    begin

      for j:=0 to n - 1 do

      begin

        write(j + 1);

      end;

      writeln();

    end;

    readln();

end.

 jadi pada saat kita inputkan 5 maka akan muncul outputan seperti gambar di bawah:

Soal Looping 2

1. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?
ALGORITMA loop1
KAMUS DATA
 I,j,n: Integer
BEGIN
  Input(n)
  For i :=0  to  n-1 do
begin
  For j:=0 to n-1 do
         begin
           Output(i+1)
         End
      Output("\n") //ganti baris
    End
End.

PROGRAM PASCALNYA :

program no1;
uses crt;

var
 i, j, n : integer;

begin
   clrscr;
   writeln('Masukan Inputan:');
   readln(n);
   for i :=0 to n - 1 do
     begin
        for j := 0 to n - 1 do
        begin
        writeln(i + 1);
        end;
         writeln();
     end;
   readln();

end.

jadi jika kita inputkan 5 maka outputan nya kan seperti gambar di bawah :

Essay no 4 Soal Menghitung Gaji dan Upah Lembur

Soal Menghitung Gaji dan Upah Lembur

Pada suatu perusahaan terdapat 5 golongan karyawan. Gaji karyawan ditentukan berdasarkan gaji tetap dan juga dari lamanya bekerja. Gaji tetap dan gaji per jam tergantung kepada golongan karyawan sesuai dengan tabel berikut:

Golongan	Gaji tetap (Rp)	Upah lembur per jam (Rp)
1	500.000	5000
2	300.000	3000
3	250.000	2000
4	100.000	1500
5	50.000	1000

Buatlah program untuk menghitung total gaji karyawan yang diterima dengan rumus: gaji sesuai golongan + (banyaknya jam lembur * tarIF lembur sesuai golongan karyawan)!

Contoh tampilan program:

INPUT:

Golongan: 2

Jumlah jam lembur: 5

OUTPUT:

Total gaji: 315000

Jawab :

ALGORITMA MenghitungGajiDanUpahLembur

var i

     igolongan,ilembur : integer ;
     itot : real ;
begin
 input(igolongan)
 input(ilembur)

 case igolongan of
   1 <-- (500.000 + 5000) ;
   2 <-- (300.000 + 3000) ;
   3 <-- (250.000 + 2000) ;
   4 <-- (100.000 + 1500) ;
   5 <-- (50.000 + 1000) ;

 end

Essay no 3 Soal Menghitung Jumlah Bus

Soal Menghitung Jumlah Bus
Sebuah acara wisatadigunakan bus yang berkapasitas 30 orang.Tulisalgoritmauntukmenghitungjumlah bus wisata yang diperlukanbilajumlahpesertadiINPUTdari keyboard.Catatan :bilajumlahpesertatidakkelipatan 30, makajikasisanya> 5 harusdisediakan 1 bus tambahan, bilasisanya<= 5 makatidakperlutambahan bus.

AlgoritmaWisata
//
Kamus Data
jpeserta  :
j_bus:
BEGIN
INPUT(jpeserta)
      ...
OUTPUT(j_bus)
END

 JAWAB:

ALGORITMA

var 

ijmlbus,ijmlpeserta,iSisa : integer ;

begin

 input(ijmlpeserta);

 if ijmlpeserta < 30 then

   if  ijmlpeserta mod 30 > 5 then

        ijmlbus := (ijmlpeserta div 30 ) + 1

   else

        ijmlbus := ijmlpeserta div 30

 else

   ijmlbus :=  0 ;

 input(ijmlbus)

end.

Essay no 2 Soal Menghitung Gaji Bersih

Soal Menghitung Gaji Bersih
Gaji bersih seorang pegawai dihitung dari gaji pokok dan tunjangan dipotong pajak yang harus di bayar. Besar tunjangan adalah 15 % dari gaji pokok, dan besar pajak adalah 10 % dari gaji pokok ditambah tunjangan. Buat algoritma untuk menghitung gaji bersih tersebut jika gaji pokok nya di INPUT.

JAWAB :
ALGORITMA

var 
gaji_bersih,gaji_pokok,tunjangan,pajak : real
begin
 input(gaji_pokok)
 gb <-- {gaji_pokok + (gaji_pokok* 0,15) - ((gaji_pokok + (gaji_pokok * 0,15))* 0.1)}

 output(gaji_pokok)
end.