feedback buat pak dosen

hai teman-teman disini saya bisa dibilang ingin mereview hasil-hasil apa saja yang sudah saya dapat dalam mempelajari algoritma.

sebelumnya saya ga ngerti apa itu algoritma, yang saya tau adalah algoritma yang mengenai pelajaran SMA, maklum saja karena saya lulusan dari SMA. kemudian saya masuk jurusan bisa dibilang berbau dengan komputer dan saya diajarkan oleh dosen saya yang bernama pak Awan. Pertama-tama pak Awan memperkenalkan dirinya yaa maklum karena saya diantara mahasiswa dan mahasiswi baru disuatu universitas swasta.Waktu itu saya datang agak terlambat karena sedang tidak enak badan, mungkin itu sayang sekali untuk dilewati karena beliau sedang menceritakan dirinya dan disaat itu posisi saya hanya mengikuti saja namun kurang mendengar cerita beliau.Tapi diantara ceritanya terdapat kata-kata motivasi yang membuat saya menjadi semangat.

lalu pertemuan selanjutnya dan selanjutnya kelas saya diberikan tugas yang sangat banyak tentang soal-soal algoritma padahal dikelas lain tidak mendapatkan tugas sebanyak ini, dan saya pun baru tahu kalau beliau hanya mengajar dikelas kami, entah alasannya apa. apakah kelas kami terlalu pintar atau kelas kami terlalu rendah namun itu tidak menjadi masalah hanya saja disaat itu saya memikirkan tugas yang begitu banyak dan tugas - tugas tersebut di upload ke youtube dan dimasukan ke blog.

disaat itu saya ga mengerti harus menggunakan aplikasi apa, dan bertanya pada siapa karena satu kelas saya masih belum pada kenal, kita pun masih terlalu gengsi satu sama lain, namun pada akhirnya saya mendapatkan aplikasi membuat video tutorial.

banyak video video tutorial tentang algoritma pascal kalian bisa masuk ke youtube indah trizkiyani di subscribe yaa nah satu demi satu akun youtube saya dipenuhi dengan video tutorial pemrograman pascal, lalu apalgi yaa hmm terlalu banyak kenanagan dengan pak Awan jadi bingung mau cerita yang mana dulu hahaha. lalu tugas 50soal algoritma yang harus diupload ke blog dalam jangka seminggu, memang lama namun tugas kami bukan itu saja-____-tapi yasudahlah tetap dihadapi.

nah setiap pertama pelajaran beliau, beliau selalu memberikan intermezo kepada kelas saya, apapun itu. dari cerita tentang antara pengemudi becak dengan ferari semuanya sama hanya jarak becak yang harus lebih panjang dibandingkan ferari tidak ada yang mustahil jika becak bisa mendahulukan ferari, kemudian cerita tentang Elon Musk yang merupakan pendiri CEO SpaceX yang intinya dia gagal berkali-kali dan menghabiskan uang yang banyak dan rintangan yang banyak dihadapi dan Elon Musk juga ikut mendirikan PayPal, yang hebatnya lagi dia belajar pemrograman komputer sejak usia 12tahun. banyak banget yang dapat diambil pelajaran dari Elon Musk, saya sangat berterimakasih kepada dosen saya yaitu pak Awan menceritakan Elon Musk, saya mempunyai pemikiran kedepan tentang hidup saya, lalu cerita tentang suatu web yang terdapat banyak programmer dari manapun tapi saya lupa nama web itu apa, masih banyak lagi cerita yang beliau sampaikan kepada kami, ada juga kata-kata motivasi dari beliau yaitu intinya gausah mendengarkan pendapat dari orang lain karena pendapat dari orang lain belum tentu benar dan kita lah yang dapat membuat itu menjadi kebenaran.

tentang beliau, menurut saya. saya sangat berterimakasih karena sudah bertemu beliau yang sekarang adalah salah satu motivator untuk saya, dengan kegiatannya didalam alam, hobinya membaca buku dan pernah mengatakan kalau malas beliau membaca buku, menjelaskan sesuatu dengan penuh sabar dan konsisten intinya saya sangat berterimakasih kepada beliau sudah mengajar dikelas saya. banyaknya wawasan yang lebih luas yang saya dapatkan, lalu beliau selalu menekankan kita untuk mencari informasi dari buku. tidak harus membeli yang penting bisa dibaca mau pinjem diperpustakaan atau apapun itu, yaa namanya juga mahasiswa yaaa bukunya saja menggunakan bahasa inggris hahaha


diakhir pelajaran yang ingin menghabiskan 1semester ini beliau pun tidak akan melanjutkan untuk mengajar, dikelas saya pun menjadi sedih. sekarang saya paham mengapa beliau memberikan tugas yang sangat banyak dan diupload kedalam blog mungkin saja jika blog diantara 1kelas saya ada seseorang programmer yang visit ke blog tersebut dapat membuat suatu program bersama dan hasilnya bisa berupa uang. beliau pun menceritakan tentang steven Jobs yang inti nya adalah stay humble and stay foolish. tetap lapar dan tetap merasa bodoh. mungkin menrut saya lebih mengena kehati hahaha.
 sebenernya masih banyak banget ceritanya, sebelumnya saya minta maaf pak, karena fdbcknya baru saya publish, maaf atas keterlambatan ini pak





jangan lupa dicomment ya pak

20 SOAL DARI PAK DOSEN

SOAL-SOAL ALGORITMA BESERTA JAWABAN PASCALNYA

 

 

 

 

8 SOAL PENGULANGAN DARI PAK DOSEN

 

program ripit_ganjil;
uses crt;

var
  n,a, akhir : integer;

begin
clrscr;
  write('awal: '); readln(n);
  write('akhir: '); readln(akhir);
  write('kelipatan: ');
  a := n;
  repeat
  begin
    if  (a mod 3 = 0) then
       write(a,' ');
       a := a + 1;
  end;
  until (a > akhir);
  readln();
end.

 

program whilee_perkalian;

uses crt;

var
  a, b, perkalian: integer;

begin
clrscr;
  write('perkalian: '); readln(perkalian);
  write('sampai perkalian: '); readln(b);
  a := 1;
  while  a <= b do
  begin
    writeln(perkalian,' * ', a ,' = ',perkalian * a);
    a := a + 1;
  end;
  readln();
end.

DAN MENGGUNAKAN FOR

 program perxan_dgnfor;

uses crt;

var
  perkalian, a, b : integer;

begin
  clrscr;
  write('perkalian: '); readln(perkalian);
  write(' akan dikalikan sampai? '); readln(b);
  for a := 1 to b do
  begin
    writeln(perkalian,' * ', a ,' = ',perkalian * a,' ');
  end;
  readln();
end.

 

program faktorial_pengulangan;

uses crt;

var
  akhir, awal, i : integer;
begin
  clrscr;
  writeln('faktorial (!)');
  write('faktorial dari: '); readln(akhir);
  awal := 1;
  i := 1;

  write(akhir,' != ');
  write(akhir);
  while ( i <= akhir - 1) do
  begin

     write(' * ',akhir - i);
     awal := awal * i;
     i := i + 1;

  end;
  write(' = ',awal * akhir);
  readln();
end.

 

program deret_goyang;
uses crt;

var
  n, a, total : integer;

begin
  clrscr;
  write('masukan anga: '); readln(n);
  write('deret goyang: ');

  total := 0;
  for a := 1 to n do
  begin
     if (a mod 2 = 0) then
      begin
        a := (a * -1);
        total := total + a;
        write(a,' ');
        a := (a * -1);
      end
     else
      begin
        write(a,' ');
        total := total + a;
      end;
  end;
  writeln('jumlah deret goyang ',total);
  readln();
end.

 

 

 

 

program karyawan;
uses crt;

var
 total, jjk, gaji : real;
 i,n : integer;

begin
  clrscr;
  write('masukan jumlah karyawan: '); readln(n);
  total := 0;
  for i := 1 to n do
  begin
     write('jam kerja karyawan ' , i , ' : ' ); readln(jjk);
     if (jjk > 7) then
     begin
        gaji := 7 * 10000 + ((jjk - 7) * (3 * 10000) / 2);
     end
     else
     begin
        gaji := jjk * 10000;
     end;
     writeln('total gaji: ',gaji:0:0);
     total := total + gaji;
  end;
  writeln();
  writeln('total gaji karyawan: ',total:0:0);
  readln();
end.

 

 

 

program game_bintang;

uses crt;

var
  i,j,k : integer;

begin
clrscr;

  for i := 1 to 4 do
  begin
     for j := 1 to i do
     begin
        write(' * ');
     end;
     writeln;
  end;
  readln();
end.

 

 

program game_angka;
uses crt;
{game membentuk bintang dengan angka}

var
  i, j, n : integer;

begin
clrscr;
   write('jumlah angka: '); readln(n);
   for i := 1 to n do
   begin
     for j := 1 to n do
     begin
         if (i=j) or ((i+j)=(n+1))then
            write(i,' ')
         else
            write(' ')

     end;
     writeln;
     writeln;
   end;
   readln();
end.

 

 

program belahketupat;
uses crt;

var
 i,j,n,d,e : integer;

begin
 clrscr;
 write('jumlah bintang: '); readln(n);
 d := ( n div 2 )+ 1;
 e := n div 2;


 if (n mod 2 <> 0)then
 begin
   for i :=1 to d do
   begin
     if i > 1 then
       for j := 1 to n do
       begin
          if(j-1=(n/2)+1-i)or ((j+1)=(n/2)+1+i) then
             write(' * ')
          else
             write(' ');
      end

   else
   for j := 1 to n do
   begin
      if (j=(n/2)+1)then
         write(' * ')
      else
         write(' ');
 end;

   writeln;
 end;

   for i:=n div 2 downto 1 do
   begin
       if i > 1 then
       for j := 1 to n do
       begin
          if(j-1=(n/2)+1-i)or ((j+1)=(n/2)+1+i)then
             write(' * ')
          else
             write(' ');
    end

   else
   for j :=1 to n do
   begin
      if (j=(n/2)+1)then

         write(' * ')
      else
         write(' ');
   end;


 end;
end
else
begin
   for i := 1 to e do
 begin
 if i > 1then
       for j := 1 to n do
       begin
          if(j-1=(n/2)-i)or ((j+1)=(n/2)+1+i)then
             write(' * ')
          else
             write(' ')
    end

   else
   for j :=1 to n do
   begin
      if (j=(n/2)) or (j=(n/2)+1)then
         write(' * ')
      else
         write(' ');
   end;

   writeln;
 end;

   for i:=n div 2 downto 1 do
   begin
   if i > 1 then
       for j := 1 to n do
       begin
          if(j-1=(n/2)-i)or ((j+1)=(n/2)+1+i)then
             write(' * ')
          else
             write(' ');
    end

   else
   for j:=1 to n do
   begin
      if (j=(n/2)) or (j=(n/2)+1)then
         write(' * ')
      else
         write(' ');
   end;

   writeln;
 end;
 end;
   readln();
end.