Nilai Akhir AP2

Akhirnya, nilai lab AP2 diposting juga. Silahkan diklik link di bawah ini, jika ada keluhan berikan komentarnya :)


http://www.4shared.com/photo/fyGrfWZW/Nilai_Akhir_AP2.html

Jawaban Nilai UAS AP2

Assalamualaikum wr wb,
Kali ini saya akan memberikan solusi dari soal UAS lab AP2, berikut soal beserta jawabannya.

Jawaban no.1 :


program satu;
uses crt;
var
   a,b : integer;
begin
     clrscr;
     write ('Masukkan a : ');
     readln (a);
     write ('Masukkan b : ' );
     readln (b);
     writeln;
     if a>b then
     begin
     write ('',a,' lebih besar dari ',b,'');
     end
     else
     begin
     write ('',b,' lebih besar dari ',a,'');
     end;


     readln;
end.

Jawaban no.2 :


program dua;


uses crt;
var
   n, m, hasil : integer;


procedure faktorial(n : integer; var hasil : integer);
   begin
      if n<=1 then
         hasil := 1
      else
         begin
           faktorial(n-1, hasil);
           hasil := n*hasil;
         end;
   end;


begin
   clrscr;
   write('Input n! = ');
   readln(n);
   faktorial(n, m);
   writeln;
   writeln(n ,' ! = ', m);
   readln;
end.

Jawaban no.3 :


program tiga;
uses crt;
var
   n,i,j,k : integer;
begin
     clrscr;
     write('Input n : ');
     readln(n);
     writeln;
     for i:=1 to n do
     begin
          for j:=1 to i do
          write(j);
          begin
          for k:=j-1 downto 1 do
          write(k);
          writeln;
          end;
     end;
     readln;
end.

Bentuk Segitiga dalam Pascal

Hai semuanya, kali ini saya akan memberikan posting tentang Pascal. Udah lama ga update tentang bahasa pascal. Yang dibahas kali ini adalah salah satu bentuk segitiga dalam Pascal. Hal ini diawali dari pertanyaan seorang mahasiswa junior yang bertanya bagaimana cara membuatnya. Tapi waktu itu lagi banyak tugas, jadi ga sempat deh, maaf ya aisah hehehe :).

Bentuk segitiga yang dimaksud adalah :

1
121
12321
1234321
123454321

Berikut adalah coding programnya :


uses crt;
var
   n,i,j,k : integer;
begin
     clrscr;
     write('Input n : ');
     readln(n);


     for i:=1 to n do
     begin
          for j:=1 to i do
          write(j);
          begin
               for k:=j-1 downto 1 do
               write(k);
               writeln;
          end;
     end;
     readln;
end.


Output Programnya :

Algoritmanya sederhana. Pertama buat for yang memberikan batasan dari i=1 sampai n yang merupakan inputan awal. Lalu buat looping bersarang, yaitu for kedua, yang memberikan batasan j=1 sampai i, dan cetak j. Hasilnya akan menampilkan bilangan 1, 1 2, 1 2 3, dst. Lalu for ketiga diberi nilai k=j-1 sampai turun ke (downto) 1, dan cetak k. Maksud j-1 agar hasil yang ditampilkan tidak mengikuti nilai j sebelumnya sehingga hasilnya adalah - (tidak ada), 1, 2 1, dst. Lalu writeln berfungsi untuk pindah ke baris selanjutnya. Sehingga hasi yang ditampilkan berbentuk :

1
1 2 1
1 2 3 2 1


Semoga bermanfaat :)

Sebelas "11" Januari

Tak terasa waktu telah berjalan, 11 januari akhirnya tiba. Tanggal yang selalu ditunggu-tunggu, tanggal yang selalu dinanti-nanti. Ada apa dengan 11 januari? Di tanggal 11 januari 2011, aku telah memiliki seseorang yang benar-benar kusayang, yang bisa membuat semangat bergejolak, yang membuat hidupku lebih bermakna. Sebut saja namanya "RSY". Sosok wanita yang tidak begitu cantik, namun terlihat indah di bola mataku. Suaranya saja bisa membuat semangat tak terhingga.

Tapi itu dulu, sebelas januari yang dulu, sebelas januari yang sekarang sangat berbeda. Sebelas januari 2012, aku harus menjalani semuanya sendiri. Tanpa perhatian, tanpa rasa sayang, dan sempat membuatku jatuh, kehilangan rasa semangat. Bingung karena dia yang mengakhiri, tanpa alasan yang jelas. Tapi dia berkata, dia bukan yang terbaik untukku. Yasudahlah, mungkin itu jalan yang harus diambil. Makin lama aku mengerti, kenapa dia mengakhirinya. Timbul rasa yang berkecamuk, tapi, ikhlas adalah pilihan yang terbaik.

Tetapi ada masalah yang terjadi. Setelah tidak bersama lagi, ada suatu kejadian yang membuatnya menjadi benci kepadaku (perasaanku mengatakannya seperti itu). Aku ingin menjelaskan semuanya, agar kesalahpahaman bisa dihindari. Tapi apa daya, dia sepertinya sudah tak ingin mendengarkanku lagi. Mungkin ini sudah jalannya. Jalan pahit yang harus kuterima.

Sebenarnya sangat malu untukku membuat posting seperti ini, tapi semua itu harus dibuang, karena ini hal yang sangat berpengaruh di hidupku. Tapi, harapan untuk bersamanya takkan sirna. Aku masih ingin dia kembali suatu saat nanti...