Tempat wisata menarik dan indah di pulau lombok (edisi lombok timur)




Selamat malam para sahabat blogger, malam ini saya lagi teringat akan daerah asal saya, saya berasal dari desa kecil bernama desa Suntalangu Lingkungan Aik Ampat Kelurahan Kelayu Jorong Kecamatan Selong Lombok Timur - NTB - Indonesia (verisi Lengap) (lombok i love you) :D
gak tau juga gara-gara apa tiba-tiba teringat saja akan keindahan dan ketenangan hidup di desa sendiri.
oleh karena itu saya akan berbgai tentang keindahan di pulau saya tercinta pulau lombok,,,
Ahir-ahir ini pulau Lombok mulai banyak dikunjungi, baik oleh wisatawan mancanegara maupun oleh wisatawan nusantara, karena itu saya sebagai penduduk asli disana tertarik untuk mengulas sedikit tempat wisata yang saya tahu:
Saya ingin mengulas mulai dari daerah tempat tinggal saya dulu Lombok Timur.


WISATA KEINDAHAN DI LOMBOK TIMUR
  1. Pantai Pink (Pantai Tangsi [nama asli sebelum terkenal])
    Pantai Pink
    Pantai Pink
    Satu hal yang menjadi daya tarik dari Pantai Tangsi / Pantai Pink adalah pasirnya yang berwarna Pink alias Merah Muda. Di Indonesia cuma ada dua lho pantai yang berpasir Pink, salah satunya adalah yang berlokasi di Pulau Komodo NTT. Kalau dilihat lebih dekat, sebenarnya warna asli pasir Pantai ini sebenarnya putih, namun karena bercampur dengan serpihan serpihan terumbu karang yang berwarna pink, seiring prosesi alam lalu serpihan serpihan terumbu karang ini kemudian menyatu dan membentuk warna merah muda, apalagi saat terkena air laut dan terpapar sinar matahari, sehingga warna Pink nya jelas sekali terlihat.
    Selain pasir pantainya yang berwarna khas pink, Pantai ini juga memiliki panorama alam yang sangat mengesankan. Dikelilingi oleh tebing - tebing yang cukup tinggi dengan berugak (semacam pondok/pendopo) diatasnya yang disediakan untuk  para wisatawan menikmati hamparan lautan lepas. Pemandangan dari atas tebing juga akan membuat anda terpukau dengan panorama indah dibawah tebing. Aroma air laut yang khas, belaian hembusan angin dan suara ombak yang membentur karang membuat hati siapapun yang berkunjung kesini menjadi tenang
    Pantai Pink  memiliki arus yang cukup tenang dengan deburan ombak yang sangat kecil, sehingga asik untuk bermain - main dan tidak membahayakan. Jika sempat bersnorkeling, maka anda akan dibuat takjub oleh terumbu terumbu karangnya yang sangat indah. Walaupun sebagian titik terumbu terumbu karang yang terlihat hanya berupa sisa sisa terumbu karang yang sudah hancur oleh jangkar - jangkar perahu para Nelayan.
  2. Gili Sulat dan Gili Lawang
    Penjelasannya bisa dilihat dalam video dibawah ini:
  3. Gili Kondo
    Kebersihan dan keindahan
    airnya jernih
    Kebersihan dan kerapihan pulau ini sangat terjaga, Pulau ini bersih dari sampah-sampah buangan manusia dan juga sangat rapi dengan penataan pohon pohon serta tanaman tanaman hias yang semakin menambah keasrian pulau ini.
    Untuk terumbu karang di sini lumayan terjaga keasriannya, dihiasi ikan yang berwarna warni, bintang laut biru dan merah serta beberapa bulu babi yang harus diwaspadai.
    Sehabis berenang/snorkling di laut, jangan khawatri badan jadi lengket, karena disini ada tempat bilas dengan air tawar, ditempat tersebut tertulis tarif Rp 10.000/gentong. Air tawar ini diangkut menggunakan jerigen jerigen besar dari Lombok.
    Di pulau ini kita juga bisa mendirikan tenda atau camping, gratis broo asalkan tetap menjaga kebersihan pulau. Hamparan pasir putih yang cukup luas, birunya laut yang memiliki gradasi warna akibat berbeda kedalaman, dan cerahnya langit ditambah awan yang menggumpal menambah keindahan di pulau kecil ini. Air di pinggir pantainya sangat jernih, sehingga kita bisa melihat terumbu karang yang cantik. Pemandangan di seberang pulau pun tidak kalah indahnya.
    Jika kita menghadap ke barat, maka kita akan melihat pulau Lombok yang gagah dengan perbukitannya dan awan yang menggantung bagi selendang perbukitan.
    Mengalihkan pandangan kita ke arah timur maka kita akan menyaksikan gugusan Pulau Sumbawa besar dan kecil yang begitu memesona. Saat kita menghadap utara, maka Gili Bedagan dan Bidara akan terlihat cantik dengan bibir pantai berwarna putih bersih.
    Gili Kondo sendiri, nama aslinya adalah Gili Bagik. Namun, pihak pengelola, mengubah namanya menjadi Gili Kondo. Untuk yang ingin menginap jangan khawatir, karena ada fasilitas cottage yang terbuat dari kayu yang sangat eksotis. Persediaan air bersih pun cukup memadai di sini. di pinggir pantai ada beberapa tempat bilas yang terbuat dari anyaman bambu dengan shower di dalamnya. Ada juga makanan yang dijual oleh pengelola. Jika ingin menyewa alat snorkeling, maka cukup mengeluarkan uang sebesar 25 ribu rupiah untuk masa sewa sehari alias sepuasnya. Berbeda dengan Gili trawangan yang penyewaannya 25 ribu hanya untuk 1 jam.
    Jika berkunjung ke Lombok maka jangan lupa untuk datang ke Lombok timur, tepatnya ke Gili Kondo, Gili Bidara, dan Gili Bedagan. Sungguh kalian akan menyaksikan secuil surga yang ada di dunia.
  4. Gili Lampu
    Gili Lampu
    Gili Lampu
    Beberapa orang Lombok yang pernah datang ke Gili Lampu mungkin lebih mengenal nama tempat tersebut sebagai Pulau Lampu. Sebuah pulau kecil atau lebih tepat dikatakan Gili ini terletak di Kecamatan Sambelia, Lombok Timur. Gili Lampu bukanlah sebuah pulau yang berisi lampu atau diterangi oleh lampu. Namun pulau ini merupakan tempat berdirinya sebuah mercusuar peninggalan jaman Jepang yang masih ada dan berfungsi hingga saat ini.
    Dahulu Gili Lampu dimanfaatkan sebagai tempat peristirahatan para nelayan yang memancing di laut sekitar daerah tersebut. Namun lambat laun, karena keindahan alamnya serta inisiatif dari berbagai pihak terutama pemuda dan pemerintah setempat, Gili Lampu dipromosikan sebagai daerah wisata.
    Para wisatawan dapat menikmati keindahan alam, mereka dapat berenang di pantai sekitar Gili dan bagi para wisatawan yang menginap, mereka akan menyaksikan keindahan matahari terbit dari Gili Lampu.
    Gili Lampu terletak sekitar 2 Km di sebelah timur Desa Labuhan Pandan, Kecamatan Sambelia, Kabupaten Lombok Timur. Gili ini diapit oleh Selat Alas dan Gili Petagan.
  5. Danau Segara Anak
    Segara Anak
    Photo saya saat mendaki digunung rinjani sebelum turun ke segara anak
    Danau Segara Anak merupakan sebuah danau yang terbentuk di Kaldera Gunung Rinjani yang berketinggian 3775 mdpl. Pemandangan di Danau ini sungguh menakjubkan dan sangat indah sehingga banyak wisatawan luar maupun dalam negeri bendatangan dan mendaki Gunung Rinjani untuk menyaksikan ke indahan Danau tsb.  Danau Segara Anak yang luasnya 1.100 ha dengan kedalaman 230 m dan Topografinya 2.010 mdpl, di Danau tsb banyak sekali ikan. Banyak orang datang ke sana bukan saja menyakisikan ke indahan Alamnya tapi juga sekaligus mancing. Di tengah-tengah Danau tsb terbentuk Kerucut Baru yang di namakan Gunung Baru Jari ("gunung baru jadi", dalam bahasa sasak) yang tingginya 2.376 mdpl. Gunung ini meletus terahir 2004 7 tahun yang silam. Gunung Rinjani, terletak di Pulau Lombok Nusa Tenggara Barat. Tepatnya di Desa Sembalun Lawang, Kecamatan Sembalun Kabupaten Lombok Timur.
  6. Pantai Surga
    Pantai Surga
    Pantai Surga
    Pantai Surga berada di wilayah Lombok Timur bagian selatan tepatnya Jerowaru, sekitar 50km dari kota Selong. Pantai ini terkenal memiliki pemandangan alam yang indah dan pantainya yang bersih dan berpasir putih, maka tidak heran pantai ini dinamakan pantai surga. Bagi yang menyukai olahraga Surfing pantai ini adalah salah satu pilihannya. Selain pantai surga masih ada sejumlah pantai di Wilayah selatan yang sangat indah, seperti pantai heaven on planet, pantai kaliantan, cemara, Teluk Ekas dengan daya tarik budidaya perikanan lautnya, disebut sebagai kawasan Gili indah.
    Namanya sih emang Pantai Surga, tapi akses jalan menuju kesana kayak �jalannya neraka� tapi sekarang baru mulai digarap jalannya, para pengunjung biasanya terutama bule-bule lebih memilih jalur air untuk mengunjungi pantai ini.
  7. Pantai Cemara
    Keindahan pantai cemara
    pesisir pantai cemara dengan pasir yang putih
    Pantai Cemara terletak di Lombok Timur, letaknya di antara Pantai Surga dan Tanjung Ringgit. Banyak dari orang-orang Lombok kebanyakan masih belum mengenal tempat ini, mungkin karena tempatnya yang cukup terpencil dan akses menuju tempat ini lumayan sulit menjadi alasan banyak orang-orang Lombok sendiri tidak mengetahuinya, apalagi dari luar Pulau Lombok.
    Sesuai dengan namanya �cemara�, di pantai ini kiri-kanan kulihat saja banyak pohon cemara hahay. Pantai ini tidak seperti pantai-pantai terkenal di Pulau Lombok, pantai ini bisa dikategorikan sepi pengunjung, tempat berteduhnya jarang :D.
    Pantai Cemara memiliki pasir putih, seperti tepung terigu yang terhampar luas. Jika agan-agan pingin ngeliat Samudra Hindia secara langsung, agan-agan bisa sewa boat dari pantai menyeberang kira-kira 10 menit ke pulau seberang pantai, dan disana ane yakin mata agan akan terbelanga melihat Samudra Hindia yang biru dengan karang-karang laut yang terukir indah.
    Dulu saat saya mengunjungi pantai ini, tidak kami temukan ada pengunjung lain selain kami dari kelmpok yang melakukan study tour kesana, disana ada tempat lapang yang luas yang kira-kira mantep buat camping sambil menikmati pemandangan yang sangat menakjubkan
  8. Pantai Labuhan Haji
    Pantai labuhan haji
    Narsi dikit, photo saya baru selesai mancing di dermaga labuhan haji
    Nah pantai yang satu ini dekat dengan rumah saya hehew... saya sendiri dulunya sangat sering bermain dan memancing di pantai ini, tuh ada photo saya sendiri lagi menghitung jumlah ikan hasil pancingan haha,,, pantainya sih lumayan bagus dan indah kalau menurut saya, tapi agak kurang tertata dengan baik dan masih banyak sampah yang berserakan disana, dan sekarang juga sedang dibangun dermaga yang lumayan besar dikawasan ini. 
  9. Desa tete batu dan air terjun jeruk manis
    Jerman (jeruk manis)
    pemandangan indah tete batu
    Tetebatu seperti keadaan desa pada umumnya, Tetebatu masih memiliki suasana yang asri dan keasliannya masih terjaga dari tangan-tangan manusia. Tete Batu merupakan desa dengan penduduk yang ramah terhadap wisatawan luar desa mereka. Desa Tetebatu terletak di lereng pegunungan Rinjani. Tempat ini menjadi landasan awal bagi para pendaki sebelum mereka melanjutkan perjalanan mereka menuju gunung Rinjani. Sebagai bagian dari wisata Lombok, desa Tetebatu menawarkan pemandangan yang indah serta udara yang masih segar. Bagi sebagian orang yang tinggal di kota, udara pedesaan yang segar menjadi hal yang sangat berharga seiring dengan polusi udara di kota yang semakin kotor dan memenuhi sudut-sudut kota. Selain keadaan desa yang masih asri dan udaranya yang segar, di desa ini juga terdapat pemandangan sawah yang sangat luas dan terhampar di sepanjang jalan yang terdapat di desa Tetebatu. Selain sawah, di desa Tetebatu juga terdapat kebun tembakau yang indah dan menyegarkan mata dari setiap wisatawan yang mengunjungi desa Tetebatu ini. Melalui desa Tetebatu, anda bisa menyusuri jalan-jalan yang masih asri dan mengunjungi air terjun yang terdapat di desa Tetebatu. Keadaan air terjunnya juga masih jernih dan sangat bersih.  Anda bisa berenang bersama kerabat atau teman-teman anda di desa Tetebatu yang terkenal sebagai bagian dari wisata Lombok ini. Disni juga terdapat akomodasi lengkap mulai dari penginapan atau hotel dan juga restoran. Anda bisa menginap disni untuk menikmati suasana desa yang sudah tidak bisa anda rasakan lagi bila anda sekarang tinggal di kota besar di Indonesia. Ya penginapan disni memang menjadi rujukan beberapa tempat wisata disekitar desa Tetebatu seperti objek wisata Otak Kokoq, air terjun Aiktemer, serta dua desa terdekat bernama Desa Pringgasela dan Desa Suradadi.
  10. Otak Kokoq Joben
    Air terjun joben
    kolam renang joben
    Tempat ini adalah salah satu andalan dari wisata dilombok timur, airnya sangaaaaat dingin, dulunya saat kesini saya sendiri masuknya gratis hehew karena teman saya sebangku pas di MAN Selong berasal dari tempat ini, jadinya gratis dehh,, [colek dulu] teman saya itu namanya Muhammad Tohri Isnadi :D
    Obyek wisata air terjun ini berada di Desa Montong Betok Kecamatan Montong Gading. Salah satu yang menjadi daya tarik obyek wisata ini, air terjunnya dipercaya dapat menyembuhkan berbagai macam penyakit lhoo mungkin karena airnya yang kelewatan dingin kali yaa, saya saja gak kuat lama-lama mandi di tempat ini. Selain itu pemandangan di sekitar Otak kokoq Joben juga sangat indah yang berbatasan langsung dengan Taman Nasional Gunung Rinjani (TNGR). Disini juga disediakan sejumlah fasilitas seperti tempat peristirahatan dan kolam renang.

Saya rasa cukup itu dulu postingan kali ini,,, tapi sebenarnya masih banyak sekali tempat-tempat wisata yang ada di lombok timur ini, nantilah kalau ada kesempatan saya tambahkan lagi,,,
Tunggu saja edisi selanjutnya mungkin saya mengulas tentang lombok tengah, lombok barat atau lombok utara.

Related Posts:

Program Statistik dengan delphi 7



Assalamualaikum Wr. Wb.
Selamat sore menjelang malam kawand-kawand semua, sambil menunggu waktu adzan maghrib saya ingin berbagi terlebih dahulu kepada teman-teman semua, khususnya mungkin kepada anak-anak praktikan saya kelas C1 yang super dan hebat-hebat, selamat belajar teman-teman, yang tadi pertemuan terakhir untuk kelas alpro lhoo.. :D
Kami juga minta maaf kepada teman-teman jika sekiranya banyak salah dalam menyampaikan dan membimbing. Semoga kita dapat bertemu pada praktikum selanjutnya :D
Ini materi yang mungkin bisa membantu dalam pembuatan laporan terakhir.
Programnya dibuat sebagus mungkin yaa.. jangan lupa nanti dikumpulkan juga dalam bentuk kepingan CD.

Kira-kira nanti hasilnya akan seperti ini


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TFrmDataStatistik = class(TForm)
GroupBox1: TGroupBox;
BtnHitung: TButton;
GroupBox2: TGroupBox;
Label1: TLabel;
E_data: TEdit;
BtnAdd: TButton;
ListBoxData: TListBox;
Label2: TLabel;
E_banyak: TEdit;
Label3: TLabel;
E_total: TEdit;
E_rata: TEdit;
E_besar: TEdit;
E_kecil: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
BtnHapus: TButton;
procedure BtnAddClick(Sender: TObject);
procedure BtnHitungClick(Sender: TObject);
procedure BtnHapusClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmDataStatistik: TFrmDataStatistik;

implementation

{$R *.dfm}

procedure TFrmDataStatistik.BtnAddClick(Sender: TObject);
var
data : integer;
begin
{mengecek data yang diInput user, harus berupa bilangan}
if trystrtoint(E_data.Text,data)=false then
begin
showmessage('invalid input data');
E_data.Clear;
E_data.SetFocus;
exit;
end
else
begin
listboxData.Items.Add(E_data.Text);
BtnHitung.Enabled:=true;
end;
E_data.Clear;
E_data.SetFocus;
end;

procedure TFrmDataStatistik.BtnHitungClick(Sender: TObject);
var
banyak,i : integer;
total : integer;
rata : real;
besar,satu,dua : integer;
kecil,n: integer;

begin
banyak := 0;
total := 0;

for i:=0 to listboxData.items.count-1 do
begin
banyak := banyak + 1;
total := total + strtoint(listboxData.Items.strings[i]);
end;

besar := 0;
satu := strtoint(listboxData.Items.strings[0]);
n := listboxData.items.count-1;

{code untuk mencari data terbesar}
for i:=1 to n do
begin
dua := strtoint(listboxData.Items.strings[i]);
if(satu > dua) then
besar := satu
else
begin
besar := dua;
satu := besar;
end;
end;

{code untuk mencari data terkecil}
kecil := 0;
for i:=1 to listboxData.items.count-1 do
begin
dua := strtoint(listboxData.Items.strings[i]);
if(satu < dua) then
kecil := satu
else
begin
kecil := dua;
satu := kecil;
end;
end;

rata := total / banyak;

E_banyak.text := inttostr(banyak);
E_total.text := inttostr(total);
E_rata.text := formatfloat('.##',rata);
E_besar.text := inttostr(besar);
E_kecil.text := inttostr(kecil);

end;

procedure TFrmDataStatistik.BtnHapusClick(Sender: TObject);
begin
ListBoxData.Items.Clear;
E_data.SetFocus;
BtnHitung.Enabled:=false;
end;

procedure TFrmDataStatistik.FormCreate(Sender: TObject);
begin
BtnHitung.Enabled:=false
end;

end.

O yaa bagi yang mau mencoba program delphinya silahkan sedot sendiri DISINI
Semoga bermanfaat
Have FUN.

Related Posts:

program pengurutan - quick sort pada delphi atau pascal



Assalamualaikum Wr. Wb.
Langsung saja tanpa berlama-lama, syntaxnya bisa dilihat dibawah ini...


program quicksort;

{$APPTYPE CONSOLE}
uses
SysUtils;
Type
TipeArray = string[20];
ArrayUrut = array[1..1000] of TipeArray;
Procedure QuickSort(var x : ArrayUrut; Bawah, Atas : word);
var
I, J : word;
Sementara : TipeArray;
Begin
While Atas > bawah Do
begin
I := Bawah;
J := Atas;
Sementara := X[Bawah];
While I < J Do Begin
While X[J] > Sementara Do J := J - 1;
X[I] := X[J];
While (I<J) And (X[I] <= Sementara) Do I := I + 1;
X[J] := x[I];
end;

X[I] := Sementara;
QuickSort(X, Bawah, I-1);
Bawah := I + 1;
end;
end;
Var
Nama : ArrayUrut;
N, I : word;
Begin
Write('Jumlah data yang akan diurutkan ?'); ReadLn(N);
WriteLn;
WriteLn('Masukkan data :');
For I:=1 to N Do Begin
Write('Data ke ',I,' ? '); ReadLn(Nama[I]);
end;
QuickSort(Nama,1,N);
WriteLn;
WriteLn('Data yang telah di urut :');
WriteLn('-------------------------');
For I := 1 To N Do
WriteLn(Nama[I]);
readln;
end.


Selamat menikmati
Semoga bermanfaat
Have Fun..

Related Posts:

program menghitung mean median modus dengan delphi atau pascal



Assalamualaikum Wr. Wb.
Langsung ke TKP aja yaa,,, udah ngantuk neh, lagi malas bikin kata-kata :D
Source codenya bisa ditengok dibawah neh.. :


program modus_median_mean;
{$APPTYPE CONSOLE}

uses
SysUtils;

type
arr = array [1..100]of integer;
var
a : arr;
i,n : integer;
min , max , modus : integer;
mean , med : real;

procedure tukar (var a,b : integer);
var
temp : integer;
begin
temp := a;
a:= b;
b:= temp;
end;

procedure selectionsort (var a : arr; n : integer);
var
i,j,imax : integer;
begin
for i:=n downto 2 do
begin
imax := 1;
for j:= 2 to i do
if(A[j] > A[imax]) then
imax := j;
tukar (A[imax] ,A[i]);
end;
end;

procedure hitungmodus (A:arr; n:integer; var modus : integer);
var
i : integer;
sama : boolean;
frekmod,kanmod,frekkan : integer;
begin
frekmod :=0;
i:=1;
while (i<=n) do
begin
kanmod := a[i];
frekkan := 1 ;
i:=i+1;
sama :=true;
while (sama) and (i<=n) do
begin
if (a[i] = kanmod ) then
frekkan := frekkan+1
else
sama := false;
i:=i+1;
end;
if (frekkan>=frekmod) and (kanmod >modus ) then
begin
modus := kanmod;
frekmod := frekkan;
end;
end;
end;

begin
mean :=0 ; modus := 0;
write ('masukkan banyak data : ');
readln (n);
writeln ('masukkan data : ');
for i:=1 to n do
read (a[i]);
writeln ('Data terurut : ');
selectionsort (A,n);
for i:=1 to n do
begin
write (A[i],' ');
mean :=mean+A[i];
end;
if (n mod 2 = 0 ) then
med:= (a[n div 2+1]+a[n div 2+2])/2
else
med:= (a[n div 2+1]);
mean := mean /n;
min :=a[1];
max := a[n];
hitungmodus (a,n,modus);
writeln ('Jadi nilai Minimal : ',min);
writeln ('Jadi nilai Maksimal : ',max);
writeln ('Jadi nilai Mean : ',mean :0:2);
writeln ('Jadi nilai Median : ',med :0:2);
writeln ('Jadi nilai Modus : ',modus);
readln;
readln;
end.

Selamat beraktifitas...
Have Fun...

Related Posts:

Bubble Sort dengan delphi atau pascal



Assalamualaikum Wr. Wb.

Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.

Teknik sorting dapat digunakan untuk mengurutkan data, baik urutan dari kecil ke besar maupun dari besar ke kecil, baik untuk data numerik maupun untuk data alphabetik. Ada beberapa metode dalam pengurutan data : metode bubble sort, metode quicksort.

Metode Bubble Sort : seperti gelembung (bubble) yang timbul ke permukaan air, metode ini juga mengakibatkan angka besar diletakkan pada akhir urutan dan terus diatur sampai urut dari kecil ke besar. Untuk metode sorting ini, semua data dibaca terlebih dahulu ke komputer dan disimpan di main memory, kemudian diadakan pengurutan. Metode ini sering disebut metode penukaran.


program bubblesort;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
deret : array[1..100] of integer;
loop, nested, banyak, tampung : integer;
begin
write ('berapa banyak bilangan yang ingin diurutkan ? = ');
readln (banyak);
for loop := 1 to banyak do
begin
write ('bilangan ke ',loop:3,' = ');
readln (deret[loop]) ;
end;
for loop := 1 to banyak -1 do
for nested := loop +1 to banyak do
if (deret[nested]< deret[loop]) then
begin
tampung:= deret[nested];
deret[nested]:= deret[loop];
deret[loop]:= tampung
end;
writeln;
writeln('Hasil pengurutan bilangan dari besar ke kecil');
for loop:= banyak downto 1 do
begin
writeln ('Data ke ', (banyak- loop+1):3, '=', deret[loop]);
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Terimakasih atas kunjungannya,,,
Semoga Bermanfaat
Have Fun

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Perkalian Matriks 3x3 dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Salam blogger....
Langsung saja yaa,, lagi malas bikin kata-kata soalnya,,, lagi capek, belum minum kopi lagi,, huuhh..

disini yang digunkakan adalah larik atau array.
Dalam mendeklarasikan sebuah variabel berindeks, selain mendefinisikan tipe larik, juga harus menentukan banyaknya indeks yang akan mengisi larik tersebut, yaitu dengan menuliskan : Array[index] of tipe_data.

Larik padat adalah salah satu bentuk array untuk mengatasi pemakaian memori utama yang besar pada array atau larik umumnya, yaitu dengan menambah kata packet di depan kata array atau larik umumnya.

Larik juga dimungkinkan untuk digunakan pada variabel berindeks yang berdimensi banyak, misalnya untuk dimensi dua adalah : matriks : array[1..100,1..100] of integer, yang artinya matriks tersebut disediakan tempat sebanyak 100 baris dan 100 kolom. (berordo 100X100).

program perkalian_matriks;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
maxordo = 3;
type
ordomatrix = array [1..maxordo, 1..maxordo] of integer;
var
matA, matB, matC : ordomatrix;
loopI, loopJ, loopK, Jum : integer;
brsA, klmA, brsB, klmB, brsC, klmC : integer;
begin
brsA := 3; klmA := 3;
brsB := 3; klmB := 3;
brsC := 3; klmC := 3;
writeln ('Masukkan data matriks A');
for loopI := 1 to brsA do
for loopJ := 1 to klmA do
begin
write ('data [',loopI,',',loopJ,']=');
readln (matA[loopI, loopJ])
end;
writeln ('Masukkan data matriks B');
for loopI := 1 to brsB do
for loopJ := 1 to klmB do
begin
write ('data [',loopI,',',loopJ,']=');
readln (matB[loopI, loopJ])
end;
writeln ('Hasil Perkalian matriks C=A*B');
for loopI := 1 to brsA do
for loopJ:= 1 to klmB do
begin
jum:=0;
for loopK := 1 to brsB do
jum := jum + matA[loopI,loopK]*matB[loopK,loopJ];
matC[loopI,loopJ]:= jum;
end;
writeln ('Matriks A');
for loopI := 1 to brsA do
begin
for loopJ := 1 to klmA do
write (matA[loopI, loopJ]:3); writeln;
end;
writeln ('Matriks B');
for loopI := 1 to brsB do
begin
for loopJ := 1 to klmB do
write (matB[loopI, loopJ]:3); writeln;
end;
writeln ('Matriks C');
for loopI := 1 to brsC do
begin
for loopJ := 1 to klmC do
write (matC[loopI, loopJ]:3); writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.


Selamat beraktifitas
Semoga bermanfaat
Have Fun

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Penjumlahan Matriks 3x3 dengan delphi atau pascal



Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.

Dalam mendeklarasikan sebuah variabel berindeks, selain mendefinisikan tipe larik, juga harus menentukan banyaknya indeks yang akan mengisi larik tersebut, yaitu dengan menuliskan : Array[index] of tipe_data.

Larik padat adalah salah satu bentuk array untuk mengatasi pemakaian memori utama yang besar pada array atau larik umumnya, yaitu dengan menambah kata packet di depan kata array atau larik umumnya.

Larik juga dimungkinkan untuk digunakan pada variabel berindeks yang berdimensi banyak, misalnya untuk dimensi dua adalah : matriks : array[1..100,1..100] of integer, yang artinya matriks tersebut disediakan tempat sebanyak 100 baris dan 100 kolom. (berordo 100X100).

Untuk Syntaxnya bisa dilihat dibawah ini:

program penjumlahan_matriks;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
maxordo = 3;

type
ordomatrix = array [1..maxordo, 1..maxordo] of integer;
var
matA, matB, matC : ordomatrix;
loopI, loopJ : integer;
brsA, klmA, brsB, klmB, brsC, klmC : integer;
begin
brsA := 3; klmA := 3;
brsB := 3; klmB := 3;
brsC := 3; klmC := 3;
writeln ('Masukkan data matriks A');
for loopI := 1 to brsA do
for loopJ := 1 to klmA do
begin
write ('data [',loopI,',',loopJ,']=');
readln (matA[loopI, loopJ])
end;
writeln ('Masukkan data matriks B');
for loopI := 1 to brsB do
for loopJ := 1 to klmB do
begin
write ('data [',loopI,',',loopJ,']=');
readln (matB[loopI, loopJ])
end;
writeln ('Hasil Penjumlahan Matriks C=A + B');
for loopI := 1 to brsC do
for loopJ:=1 to klmC do
begin
matC[loopI,loopJ]:= matA[loopI,loopJ]+matB[loopI,loopJ];
end;
writeln ('Matriks A');
for loopI := 1 to brsA do
begin
for loopJ := 1 to klmA do
write (matA[loopI, loopJ]:3); writeln;
end;
writeln ('Matriks B');
for loopI := 1 to brsB do
begin
for loopJ := 1 to klmB do
write (matB[loopI, loopJ]:3); writeln;
end;
writeln ('Matriks C');
for loopI := 1 to brsC do
begin
for loopJ := 1 to klmC do
write (matC[loopI, loopJ]:3); writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Terimakasih telah berkunjung,,,
Selamat beraktifitas,,
Have Fun...

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Fungsi pada delphi atau pascal - deret



Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja, syntaxnya bisa teman-teman sedot dibawah:

Fungsi merupakan subprogram yang mengolah suatu masalah tertentu untuk menghasilkan suatu keluaran tertentu. Keluaran fungsi harus mempunyai tipe.

FUNCTION nama_fungsi (parameter1, parameter2, ���: tipeparameter): TYPE_fungsi ;


Perbedaan utama antara fungsi dan prosedur adalah, prosedur tidak harus mempunyai keluaran, tetapi fungsi harus mempunyai keluaran.



program deret;

{$APPTYPE CONSOLE}

uses
SysUtils;

var batas : integer;
function jumlahderet (batas:integer) : integer;
var
i, jumlah : integer;
begin
jumlah := 0;
for i:=1 to batas do
jumlah := jumlah +i;

jumlahderet := jumlah;
end;

begin
write ('masukkan batas angaka yang dijumlahkan : ');
read (batas);
jumlahderet (batas);
write ('jadi jumlahnya adalah ',jumlahderet(batas));
readln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Demikian, Semoga bermanfaat
Have Fun...

Related Posts:

Procedure pada delphi atau pascal - menghitung luas dan keliling persegi panjang



Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Prosedur merupakan subprogram yang terdiri dari sekelompok perintah untuk mengolah suatu masalah dengan suatu atau lebih masukan untuk mengahasilkan satu atau lebih keluaran. Adapun cara mendeklarasikan prosedur adalah :

PROCEDURE nama_prosedur (parameter1, parameter2, ���: tipeparameter);

Perbedaan utama antara fungsi dan prosedur adalah, prosedur tidak harus mempunyai keluaran, tetapi fungsi harus mempunyai keluaran.


program luas_keliling_persegipanjang;

{$APPTYPE CONSOLE}

uses
SysUtils;

var {deklarasi variabel global}

p, l, ls,kel: real; {ls:luas, kel:keliling}

Procedure Hitung_Luas; {Prosedur untuk menghitung luas}
begin
ls:=p*l;
writeln('Luas :',ls:3:2);
end;

Procedure Hitung_Keliling; {Prosedur untuk menghitung keliling}
begin
kel:=(2*p)+(2*l);
writeln('Keliling :',kel:3:2);
end;

{===program utama===}
begin
writeln('Program Untuk Menghitung luas dan keliling persegipanjang');
writeln;
write('Masukan panjang : ');readln(p);
write('Masukan lebar : ');readln(l);
writeln;
Hitung_Luas; {Memanggil prosedur Hitung_Luas}
Hitung_Keliling; {Memanggil prosedur Hitung_Keliling}
readln;

readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.


Selamat menikmati
Have Fun


Related Posts:

contoh program perulangan dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Program menghitunga biaya hidup perminggu dan perbulan

program biayahidup;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
ongkosHPM, jumlahOHB, rerataOHM : real;
i, m : integer;
begin
jumlahOHB := 0.0; { Nilai awal penjumlah }
m := 4; { Jumlah minggu dalam sebulan dianggap 4 }
for i := 1 to m do
begin
write('Data minggu ke : ', i,' : ');
readln(ongkosHPM);
jumlahOHB := jumlahOHB + ongkosHPM;
end;
rerataOHM := jumlahOHB/m;
writeln('Total ongkos hidup per bulan = Rp ',jumlahOHB:7:2);
writeln('Rerata ongkos hidup per minggu =Rp ',rerataOHM:7:2);
readln;
{ TODO -oUser -cConsole Main : Insert code here}
end.
Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Program memeriksa hari dengan delphi atau pascal



Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;


program pemeriksaan_hari;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
tgl : integer;

begin
writeln ('Program memeriksa hari dalam bulan Februari 2007');
write ('tanggal ');
readln (tgl);
case tgl of
5,12,19,26 : writeln ('Hari Senin');
6,13,20,27 : writeln ('Hari Selasa');
7,14,21,28 : writeln ('Hari Rabu');
1, 8,15,22 : writeln ('Hari Kamis');
2, 9,16,23 : writeln ('Hari Jumat');
3,10,17,24 : writeln ('Hari Sabtu');
else
begin
writeln ('Hari Minggu');
end;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here}
end.

HaveFun
Sumber: Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Penentuan skor A,B,C,D,E menggunakan percabangan if pada delphi / pascal



Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;


program skor_abcde;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nilai : integer;

begin
write ('Masukkan nilai ujian (0-100): ');
readln (Nilai);
if Nilai >= 90 then
writeln ('Skor A')
else
if Nilai >= 70 then
writeln ('Skor B')
else
if Nilai >= 60 then
writeln ('Skor C')
else
if Nilai >= 40 then
writeln ('Skor D')
else
writeln ('Skor E');
readln; // Menunggu tombol Enter ditekan
{ TODO -oUser -cConsole Main : Insert code here}
end.

Selamat beraktivitas,
Have Fun
Sumber : Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

membuat program perhitungan rata-rata, variansi dan standar deviasi dengan delphi / pascal



Assalamualaikum Wr. Wb....
Selamat sore,, selamat berlibur buat sahabat-sahabat blogger semuanya,,,
Sore Minggu yang hujan ini saya ingin berbagi kepada sahabat-sahabat semuanya, kebetulan lagi terjebak sama hujan lebat dikampus jadinya tidak bisa pulang karena tidak bawa mantel hoho :D

yaa sesuai dengan judul diatas langsung saja cek dibawah ini..


program Variansi_StandarDeviasi;
uses
SysUtils;
var i,n:integer;
j,k,l,m:real;
x:array[1..100] of integer;

begin
write('jumlah data= '); readln(n);
j:=0;
for i:=1 to n do

begin
write('suku',i,'=');
readln(x[i]);
j:=j+x[i];
end;

k:=j/n;
l:=l+(sqr(x[i]-k)/(n-1));
m:=sqrt(l);
writeln;
writeln('jumlah data = ',n);
writeln('jumlah nilai= ',j:1:2);
writeln('rata nilai= ',k:1:2);
writeln('variansi= ',l:1:2);
writeln('standart deviasi= ',m:1:2);
readln;

end.

Semoga bermanfaat..
Have Fun..

Related Posts:

Deret Fibonaci dengan Delphi atau Pascal



Assalamualaikum Wr. Wb.
Selamat sore kawand-kawand blogger,,,
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Dalam matematika, bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut:


Penjelasan: barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonaccci yang pertama adalah:
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

Barisan bilangan Fibonacci dapat dinyatakan sebagai berikut:
F(n)= (X1^n - X2^n) / sqrt(5) 
dengan
Fn adalah bilangan Fibonacci ke-n
X1 dan X2 adalah penyelesaian persamaan X^2 � X � 1 = 0.

Perbandingan antara Fn+1 dengan Fn hampir selalu sama untuk sebarang nilai n dan mulai nilai n tertentu, perbandingan ini nilainya tetap. Perbandingan itu disebut rasio emas yang nilainya mendekati 1,618. (Wikipedia)

Oke langsung saja syntax programnya bisa dilihat dibawah ini:


{$APPTYPE CONSOLE}

uses
SysUtils;
var
i,j,k,l,m : integer ;

begin
write('masukkan Jumlah bilangan : ');readln(l);
k:=1;
m:=0;
for i:=1 to l do
begin
writeln(k,'');
j:=k+m;
m:=k;
k:=j;
end;
readln;

end.


Demikian Postingannya,
Semoga bermanfaat,,
Have Fun gan :D

Related Posts: