Struktur Data (Tugas 3)

Pascal : Program menghitung kombinasi bilangan

Pada tugas ini saya menggukan metode PROCEDURE, jika ingin menggunakan metode langsung yaitu memfaktorialkan tiap input bilangan tetap bisa digunakan, tapi akan lebih banyak menggunakan perulangan. Oleh karenanya lebih mudah menggunakan procedure, karena bisa digunakan berulang kali untuk tiap input angka yang ingin kita faktorialkan.

berikut listing programnya :

program kombinasi;
uses wincrt;

procedure fak (var f,hasil:real);
var i:integer;
begin
hasil:=1;i:=1;
while i <= f do
      begin
           hasil:=hasil*i;
           i:=i+1;
      end;
end;

var
   n,r,n_r,c,f1,f2,f3,k_hasil:real;

begin
     Write('Nilai N = ');readln(n);
     Write('Nilai R = ');readln(r);
     Writeln;
     n_r:=n-r;
     fak (n,f1);
     fak (n_r,f2);
     fak (r,f3);
     c:=f1/(f2*f3);
     Writeln(n:0:0,' Faktorial = ',f1:0:0);
     Writeln(n_r:0:0,' Faktorial = ',f2:0:0);
     Writeln(r:0:0,' Faktorial = ',f3:0:0);writeln;
     Writeln(n:0:0,' Kombinasi ',r:0:0,' = ',c:0:0);
end.

Jika dijalankan, tampilannya seperti gambar dibawah :

Read more!

Good and Bad - Be Your Self

Membincangkan masalah dengan temanku siang tadi. Orang kaya, orang pintar, cantik, bagus, dan banyak istilah lainnya. kenapa ada istilah seperti itu, kaya, pintar, cantik, dsb,, menurut pendapat awamku, itu karena keadilan dari Alloh dalam menciptakan dunia ini dan isinya. semua diciptakan dengan berpasangan, ada perbedaan diantaranya. ada kata-kata kaya karena ada orang miskin didunia ini. ada kata-kata pintar, itu karena ada orang yang tidak pintar atau belum pintar. ada kata-kata cantik, itu juga karena ada orang yang tidak cantik. dan seterusnya. Subhanallah... Maha suci Alloh dengan semua penciptaanNya di dunia ini. Semoga kita selalu dalam lindungan Alloh dan diberikan petunjuk agar tidak jauh dari jalanNya. Amin!!

Bicara antara baik dan buruk, dari apa yang selama ini saya pikirkan, itu semua tergantung dari masing-masing individu yang menjalani. tidak ada orang yang dilahirkan menjadi buruk, yang merubah orang itu menjadi buruk itu adalah proses hidup. orang baik itu juga bukan karena dari proses yang baik pula, terkadang orang baik itu karena dari orang yang buruk. banyak cerita yang menceritakan perubahan seorang yang bener-bener dari jalan yang tidak baik, jadi berubah menjadi orang baik-baik dan membantu sesama untuk keluar dari jalan yang tidak baik itu. Alloh mempunyai jalan untuk tiap umatnya, manusia hanya bisa berupaya, tapi semuanya sudah ditentukan. Bersyukurlah karena apa yang kita miliki saat ini, orang yang baik itu tidak hanya pandangan orang lain, nilai yang sesungguhnya ada pada hati masing-masing orang. Semoga kita jadi orang yang baik didunia sampai nanti di dunia yang kekal abadi. AMIN!

"Sebagai manusia biasa yang tidak lepas dari salah dan dosa, ingatkan jika ada ucapan saya yang salah"

Read more!

My World Is Full With You - Ten2Five

Dari judul tulisan ini saya bukan ingin menulis lirik lagunya Ten2Five, tapi tidak ada judul lain yang menurut saya tepat untuk tulisan saya kali ini. Prihatin melihat temanku yang ada masalah dengan pacarnya, dia curhat kalau dia selalu disakitin perasaannya sama pacarnya,tapi masih saja temanku ini tetap sayang sama dia, pertanyaanku "Kenapa kamu masih sayang sama dia?", dan temanku menjawab, dan ternyata jawabannya sesuai dengan keinginanku, apa jawabnya, "Karna aku udah sayang bgt sama cowokq...dan gak mungkin aq putus sama dia,,,", waww,, kata-kata temanku ini jawaban yang sederhana tapi jawaban yang dari hati. Memang rasa sayang tidak membutuhkan alasan, tidak ada alasan yang bener-bener tepat untuk mengungkapkan rasa sayang sama seseorang, karna rasa sayang itu yang membuat tidak bisa melupakan atau meninggalkan dia.

Dari cerita temanku ini saya bisa menanggapi, bahwa kalau hati sudah penuh maka tidak akan bisa diisi lagi. Hati yang penuh denga rasa kasih dan sayang, maka tidak akan bisa diisi atau digantikan dengan sayang yang lain. Ilmu alam lah ini saya pikir, ibaratkan hati itu seperti gelas dan sayang adalah airnya, jika gelas penuh sudah tidak bisa lagi diisi, kalu dipaksa pasti airnya

Read more!

Struktur Data (Tugas 2)

Tugas 2 :

Buat program untuk menampilkan rincian uang kembalian dari suatu pembelian!

Penyelesaian :

- Listing program pascal

Program rincian_uang_kembali;
uses wincrt;

var
uang,bayar,kembali : longint;

begin
  write('Jumlah Bayar : ');readln(bayar);
  write('Jumlah Uang : ');readln(uang);
  kembali:=uang-bayar;
  writeln('Total Kembali : ',kembali);
 
  if kembali div 100000 > 0 then begin
    writeln(kembali div 100000, ' lembar seratus ribuan');
    kembali := kembali mod 100000;
  end;

Read more!

Struktur Data (Tugas1)

Mata Kuliah : Struktur Data

Soal :

1. Buat program untuk perkalian 2 Matrix !

2. Buat Program untuk Menampilkan Matrix dibawah ini :

     0  0  0  0  1

     0  0  0  1  0

     0  0  1  0  0

     0  1  0  0  0

     1  0  0  0  0

Jawaban : (Listring program dan contoh hasil output program)

1. Listing program :

program matrik;
uses wincrt;
var
   A,B,C:ARRAY[1..10,1..10] of integer;
   X,Y,KOL,BAR:INTEGER;
begin
     WRITE('Jumlah Kolom=');READLN(KOL);
     WRITE('Jumlah Baris=');READLN(BAR);
     WRITELN;
WRITELN('Masukkan Matrik A');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write('[',X,':',Y,']=');Readln(A[X,Y]);
     end;
end;

Read more!