Rabu, 27 Juni 2012

KUtipan cerita dari blog "Mario Paulus Pele Colin "

Nama ku Romi (bukan nama sebenarnya), aku adalah seorang yang telah berusia 24 tahun, dan kini aku cukup bahagia dengan seorang istri dan anak yang kumiliki. Awalnya kisah ku berjalan sangat indah. Tak ada yang membuatku merasa lebih bahagia daripada bersama mereka.

Hari-hari kulalui dengan mencari cara untuk membahagiakan mereka, memang aku bukan seorang yang serba berkecukupan, tapi dengan apa yang sudah kudapat aku sangat senang karena apa yang kulakukan disambut dengan senyum indah di wajah istriku. Namun, memang ini juga salahku, waktu ku lebih banyak kuhabiskan untuk mencari peluang, bahkan sering kali aku tidak pulang ke rumah karena harus terus mencari peluang dalam satu hari (24 jam) yang kujalani...

Akhirnya istri ku pun merasa bahwa apa yang kulakukan itu sia-sia!!!. Karena apa yang kudapat tidaklah seberapa. Memang kata-kata yang diucapkannya tidak langsung membahas masalah ini, tapi sering kali dia menyindir dengan kata-kata yang sedikit menyakiti hatiku.

Ketika itu aku pulang dari pekerjaanku yang hanya seorang pemimpi dan menjalankan karir di dunia yang kata orang tidak mungkin, aku pulang dalam keadaan lelah dan sudah bekerja lebih dari seharian. Memang aku tidak membawa seperpun uang di dompet ku yang bisa kuberikan untuk istri tercinta. Kata-katanya adalah "habisin aja uang itu terus!!!".

Aku tahu, istriku dulu adalah seorang berada, tapi kini keadannya berubah semenjak nikah denganku. Aku hanya bisa berharap, apa yang kulakukan ini adalah benar, karena aku hanya ingin membuat mereka bahagia. Setiap kali aku bekerja, aku selalu mengingat mereka untuk mengembalikan semangat ku.

Tapi jujur, hati ku kini benar-benar perih....dan sangat perih, ketika aku sedang ingin pergi mencari peluang yang selalu menjadi mimpiku. Aku sempat bertengkar kecil dengannya. Salahku juga, karena aku bersikap egois, tapi mataku seakan ingin menangis ketika mendengar "sudah ngabisin banyak uang, masih aja!!!!!"...katanya kepadaku dengan wajah yang terlihat benci, ketika aku sedang bersemangatnya ingin kembali bangkit dari ke putus asaan yang kurasakan. Aku tahu apa maksudnya, ia mungkin ingin memperjelas apa yang telah kulakukan selama ini hanyalah sebuah kebodohan belaka!!! dan hanya sebuah khayalan belaka!!!.

Apa istri ku sudah bosan dengan keadaan seperti ini, dan ditambah lagi seringkali dia melihat teman atau saudaranya menikmati hari dengan bahagia dan bisa mendapatkan apa yang mereka inginkan. Sementara dia hanya diam dan tak bisa berkata ketika teman-temannya menunjukkan kekayaan mereka.

Aku berkata dalam hati "andai aku adalah seorang yang kaya". Aku pastikan memenuhi semua yang mereka minta...semuanya. Sekarang aku hanya bisa memberikan sebuah harapan, tapi aku rela melakukan apa saja saat ini untuk membuatnya tersenyum, apapun...bahkan aku rela menukar hidupku ini untuk mereka jika Yang maha kuasa tak juga memberiku sebuah jalan, asal mereka tersenyum dengan kepergianku.

Maafkan aku yang tak sempurna, dan maafkan aku yang tak seperti yang kamu inginkan. Jika aku harus pergi, maka aku akan pergi asalkan kamu bahagia. Tapi aku akan selalu memberikan segenap cinta yang kumiliki ini untuk seorang yang paling kusayangi, yaitu kamu...

Selasa, 26 Juni 2012

Tugas Final


1.      Membuat program statistik (data berkelompok).
2.       Membuat program perkalian matriks  : AB = C .
3.       Membuat program menghitung permutasi.
4.       Menggabungkan program-program diatas.

      Program digabungkan menggunakan procedure yang menggabungkan program rata-rata, perkalian matriks, dan perhitungan permutasi adalah sebagai berikut :

Program Prosedure;
Uses crt ;
var pilih : char;
Procedure rata_rata;
Var
   i,n : integer ;
   x,sum,mean : real;
begin
   write('banyaknya data = ');readln(n);
   sum:= 0;
   for i:= 1 to n do
begin
   write('data ke',i,'=');
   readln(x);
   sum := sum + x ;
   end;
   mean := sum/n;
   writeln('rata-rata = ',mean:9:4);
readln;
end;
Procedure Perkalian_Matriks;
var
   a,b,c : array [1..50,1..50] of integer;
   i,j,k,n,m,p : integer;
begin
     clrscr;
     writeln('Perkalian Matriks : AB = C');Writeln;
     write('Banyak baris matriks: m = '); readln(n);
     write('Banyak kolom matriks: n = '); readln(m);
     write('Banyak kolom matriks: r = '); readln(p);
     writeln;
     for i:=1 to n do
     for j:=1 to m do
     begin
          write('Elemen A[',i,',',j,'] : ');
          readln(a[i,j]);
     end;
     writeln;
     for i:=1 to m do
     for j:=1 to p do
     begin
          write('Elemen B[',i,',',j,'] : ');
          readln(b[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to p do
     for k:=1 to m do
     c[i,j] := c[i,j] + a[i,k]*b[k,j];
     writeln;
     writeln;
     writeln('Didapat matriks C : ');
     Writeln;
     for i:=1 to n do
     begin
          for j:=1 to p do
          write(c[i,j],' ':5);
     writeln;
     end;
     writeln;
     readln;
end;
Procedure Kombinasi_Faktorial;
Var  Com,P:Real ;
     i,j,k,n,r,a,b,c:integer;
     begin
     clrscr;
     writeln('kombinasi dan permutasi');
     writeln;
     write('Nilai n = ');readln(n);
     write('Nilai r = ');readln(r);
     writeln;
     a:= 1;
     b:= 1;               ;
     c:= 1;
     for i:= 1 to n do
     a:=a*i;
     writeln('nilai n! = ',a:3);
     for j:= 1 to r do
     b:= b*j;
     writeln('nilai r! = ',b:3);
     for k:= 1 to (n-r) do
     c:= c*k;
     writeln('nilai (n-r)! = ',c);
     P:=a/c;
     com := a/(b*c);
     writeln;
     writeln(n,'Permutasi ',r,' = ',P:4:2);
     writeln(n,'Kombinasi ',r,' = ',com:4:2);
     readln;
end;
begin clrscr;
writeln('       MENU     ');
writeln;
writeln('1. Nilai rata-rata');
writeln('2. Perkalian matriks');
writeln('3. Menghitung Permutasi');
writeln;
write('pilih (1-3) : ');readln(pilih);
case pilih of
'1': rata_rata;
'2': Perkalian_Matriks;
'3': Kombinasi_Faktorial;
end;
readln;
End.

1.       Hasil run untuk Program Nilai rata-rata :


      

2.       Hasil run untuk Program Perkalian Matriks :

       

3.       Hasil run untuk Program Permutasi :

    



Pascal Median


program mean_median_modus;
uses wincrt;
type larik = array[1..100] of integer;
var n,m,max : integer;
x,y,f : larik;
jawaban : char;
procedure inputdata(var x:larik; var n:integer);
var i : integer;
begin
write(‘Write sum of data input: ‘);readln(n);
for i:=1 to n do
begin
write(‘File of- ‘,i,’ : ‘);readln(x[i]);
end;
end;
procedure urutdata(var x:larik; var n:integer);
var i, j, temp : integer;
begin
for i:= 1 to n-1 do
for j:= i to n do
begin
if x[j]max then max:=f[i];
end;
procedure modus(y,f:larik; m, max:integer);
var i:integer;
begin
if max = 1 then write(‘There are not modus’)
else
begin
for i:=1 to m do
if f[i]=max then write (‘Modus : ‘,y[i]);
end;
writeln;
end;
procedure median(var x:larik; n:integer);
var md:real; ltk:integer;
begin
if (n mod 2 = 1) then
begin
ltk:=(n div 2)+1;
md := x[ltk]
end
else
begin
ltk:=(n div 2);
md :=(x[ltk]+x[ltk+1])/2;
end;
write(‘Nilai Median : ‘,md:4:0);
end;
begin
repeat
clrscr;
gotoxy(20,2);writeln(‘***************************************** ‘);
gotoxy(20,3);writeln(‘* Find Mean Median and Modus * ‘);
gotoxy(20,4);writeln(‘***************************************** ‘);
writeln;
inputdata(x,n);
urutdata(x,n);
mean(x,max,n);
frekuensi(x,n,y,f,m);
maxfrekuensi(f,x,m,max);
modus(y,f,m,max);
median(x,n);
writeln;writeln;
write(‘Repeat again [Y/T]? : ‘);readln(jawaban);
until upcase(jawaban)’Y';
end.