Kamis, 27 November 2014

Terimakasih pak awan



Assalamu’alaikum :)
Selamat Malam,
Semoga masih malam yang dirahmati dan diampuni oleh Allah
Seperti biasanya, cerita saya tak pernah jauh-jauh dari orang-orang di sekitar saya, biasanya saya bercerita tentang keluarga, para sahabat, malam ini, saya ingin sedikit berbagi cerita tentang salah satu dosen favorit saya.

Pertama kali masuk kelasa ALPRO(algoritma pemrograman)
saya merasa sangat asing dengan ucapan-ucapan dosen saya saat ituDan saya menyatakan saya kurang suka dengan mata kuliah tersebut. Saya sempat bercerita kepada salah seorang teman saya di kelas lain bahwa saya merasa kesulitan terhadap mata kuliah tersebut. Tapi, respon dari teman saya malah heran. Dia berkata bahwa dia sangat menyukai mata kuliah ini. 
Dia berkata bahwa, meskipun susah, tapi dia menyukai mata kuliah ini. Dosen yang mengajar katanya juga mengasyikkan. Dia menambahkan lagi bahwa Dosennya lulus dari Universitas di  belanda Satu respon saya saat itu hanya sebuah gumaman, “Oh..hebat”..

Hari ke hari, ternyata saya mulai menikmati mata kuliah ALPRO ternyata sangat menyenangkan. Satu-satunya dosen yang bisa membuat saya tertawa sekitar dua menit. tapi kemampuan saya yang tidak mumpuni mungkin ya hehehe. Saya suka mendengarkan, memperhatikan, dan memahami materi yang disampaikan dosen..

Hari ini adalah hari terkahir kami belajar ALPRO dengan dosen tercinta Pak Awan atau yang di sebut bapak gaull habis J yang haus dengan ilmu ..saya sangat tertarik dengan prinsip beliau yang sangat cekatan untuk mau belajar..namum diri saya sendiri sangat lambat untuk mendapatkan materi pembelajaran maupun mata kuliah lain.namun bagi saya!!saya harus cekatan untuk mau belajar agar cita cita sama mampu tercapai “impian terindah”

Thanks pak awan atas pembelajaran selama ini yang bapak ajarin ke kami.kami gak akan pernah lupa dengan apa yang bapak ajarin ke kami..saya merasa bersyukur telah mengenal bapak yang terus ajarin kami bagaimana cara kodingan yang baik dan bagus,ya begitu sulit sih koding”annya..heheheh,soryy saya akan berusaha kok agar belajar kodingan program yang luar biasa..saya harus buktikan ke pak awan kalau SAYA BISA!!!!

Semoga bapak di lindungi oleh allah swt,dan di mudahkan jalannya sehingga sukses tersebut tercapai ..amin.
Salam velly darma J mahasiswa telkom university jurusan teknik komputer,PCE 14-03..hidup itu benar-benar ada mimpi,wujudkan mimpi anda untuk menjadi sukses.tekadkan diri agar mampu berusaha yang keras..semoga anda-anda mampu bertekad keras !!!


Rabu, 29 Oktober 2014

contoh program 17

uses crt;
var
       uan, bun: real;
       bul: integer;
begin
clrscr;
       write('Masukkan Jumlah Uang            : '); readln(uan);
       write('Masukkan Berapa bulan kedepan   : '); readln(bul);
       
       for bul := 1 to bul do
       begin
                   bun := uan * 0.02;
                   uan := uan + bun;
       end;
       
       write('Jumlah Uang setelah ', bul, ' bulan, adalah ', uan:0:0); readln;
end.

contoh program 15

uses crt;
var
       bul, beb: integer;
begin
clrscr;
       write('Jumlah bebek sekarang 1000 bebek'); writeln;
       write('Masukkan berapa bulan kedepan   : '); readln(bul);
     
       beb:= 1000;
     
       for bul := 1 to bul do
                   begin
                   beb:= (beb * 20 div 100) + 1;
                   end;
                 
       write('Jumlah bebek setelah ', bul, ' Bulan kedepan   : ', beb);
       readln;
end.

contoh program 14

uses crt;
var
       bat, x, y: integer;
begin
clrscr;
       write('Masukkan Batas deret   : '); readln(bat);
       
       x:= 1;
       y:= 1;
                   
       write(x, ' ');
                   
       while (x <= bat) or (y <= bat) do
       begin
                   x:= x + y;
                   y:= y + x;
                   
                   if (x <= bat) then
                   write(x, ' ');
                   if (y <= bat) then
                   write(y, ' ');
       end;
       readln;
end.

contoh program 13

uses crt;
var
       deb, jam, men, det, njam, nmen: integer;
begin
clrscr;
       write('Masukkan Waktu dalam Detik   : '); readln(deb);
       
       jam := 0;
       men := 0;
       det := 0;
       
       njam := deb;
       nmen := deb;
       
       repeat
       begin
                   njam:= njam - 3600;
                   jam := jam + 1;
       end;
       until njam < 3600;
       
       repeat
       begin
                   nmen := nmen - 60;
                   men := men + 1;
                   
                   if (men > 60) then
                               men := men - 60;
       end;
       until nmen < 60;
       
       write(jam, ' Jam, ', men, ' Menit, ', nmen, ' Detik '); readln;
end.