soal 1-4

soal 4

program Soal4;
uses crt;
function terbilang(x:longint):string;
function bilang(x:longint):string;
begin
  case x of
  0:bilang:='';
  1:bilang:=' satu ';
  2:bilang:=' dua ';
  3:bilang:=' tiga ';
  4:bilang:=' empat ';
  5:bilang:=' lima ';
  6:bilang:=' enam ';
  7:bilang:=' tujuh ';
  8:bilang:=' delapan ';
  9:bilang:=' sembilan ';
  10:bilang:=' sepuluh ';
  11:bilang:=' sebelas ';
  end;
end;
begin
  if x<12 then
  terbilang:=''+bilang(x)
  else if x<20 then
  terbilang:=terbilang(x-10)+'belas'
  else if x<100 then
  terbilang:=terbilang(x div 10)+'puluh'+terbilang(x mod 10)
  else if x=100 then
  terbilang:='Seratus' else
  Writeln('Angka Yang dimasukkan Lebih dari 100');
end;

var
i:longint;
lanjut:char;
begin
  repeat
  clrscr;
  writeln('======================================');
  writeln('PROGRAM KONVERSI ANGKA TERBILANG 1-100');
  writeln('======================================');
  writeln;
  writeln('');
  write('Masukan Angka = ');readln(i);
  writeln('');
  write('Terbilang = ',terbilang(i));
  writeln('');
  writeln;
  writeln('Coba Lagi? (Y/T) = ');readln(lanjut);
  until (lanjut='t')or(lanjut='T');
end.


soal 3

Program SOAL3;

uses CRT;

Var
        A, B, C, X    : STRING[20];

Begin
        CLRSCR;
        A := 'informatika' ;
        B := 'si'          ;
        C := 'Sistem'      ;
        X := COPY(A,1,7)   ;
        WRITELN(C,' ',CONCAT(X,B));
        REPEAT UNTIL KEYPRESSED;

End.

soal 2

Program Nama;

Uses CRT;

Var
    NM : STRING ;
    X,Y: INTEGER;

BEGIN
    CLRSCR;
    NM:= 'M.RIDHO DWI JAYA' ;
    WRITELN('PANJANG STRING ','"',NM,'"',' ADALAH ',LENGTH(NM));
    WRITELN;
    FOR X := 1 TO LENGTH(NM) DO
    BEGIN
        IF Y = 1 THEN
        BEGIN
           Y:= X;
        END
        ELSE
        BEGIN
           TEXTCOLOR(10);
           INC(Y);
        END;

    WRITE(COPY(NM,X,1));
    DELAY(100);
    END;
    REPEAT UNTIL KEYPRESSED;
END.

soal 1

Program SOAL1;

uses CRT;

var
    X , Y ,
    KATA    : STRING ;

Begin
    CLRSCR;
    X   := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ;
    KATA:= 'FGH'                        ;
    WRITELN(X);
    WRITELN;
    WRITELN(KATA,' Di Posisi ',POS(KATA,X));
    WRITELN;
    Y   := COPY(X,POS('FGH',X),3);
    WRITELN(Y);
    READLN;
End .

Latihan 7

Program edoganteng;

Uses crt;

Var
 D,A,M,
 NI,T1,
 NAMA,I,B1      : string;

begin
        Clrscr;
        write('Masukkan NIM  : '); readln(NI);
        write('Masukkan nama : '); readln(NAMA) ;

        Writeln;
        Writeln(NI+ ' : ', NAMA);
        D:=copy(NI,1,2);
        Writeln('=> tahun masuk 20',D);
        A:=copy(NI,3,3);
        if A = '141' then T1:= 'sistem informasi'
        else
        if A = '142' then T1:= 'teknik informatika'
        else
        b1:= ' jurusan lain ';
        Writeln('=> program studi ',T1);
        M:=copy(NI,6,4);
        Writeln('=> no urut ',M);
        M:=copy(NI,POS('P',NI),1);
        if I='P' Then
        Writeln('=> Mahasiswa Transisi')
        else
        Writeln('=> Mahasiswa Reguler');
        readln;
end.

Tugas1 & 2

Program Tugas_1;

Uses Crt;

Var
P ,PB , NP , Y : INTEGER;
X : SHORTINT;
Pangkat : Integer;


Begin
Clrscr;
        Writeln('KALKULATOR      ');
        Writeln('Pilihan         ');
        Writeln('1.Perpangkatan  ');
        Writeln('2.Perkalian     ');
        Writeln('3.Pembagian     ');
        Writeln('4.Penjumlahan   ');
        Writeln('5.Pengurangan   ');
        Writeln('6.Keluar        ');
        Writeln('Masukkan Pilihan anda 1-6 : ');readln(P);

        Writeln('Perpangkatan');
        Writeln('============');
        Writeln('Nilai yang Dipangkatkan : ');readln(NP);
        Writeln('Pangkat Berapa          : ');readln(PB);

        X:=1;
        For Y := 1 to PB do
        begin
        X:=X*NP;
        end;
        Pangkat := X;
        Write('Hasilnya adalah : ',Pangkat);
        Repeat until Keypressed
        end.



Program Tugas_2;

Uses Crt;

Var
BB,HE,Bayar,
Untung,BK,
Dapat,Modal,X,Y :Integer ;

Begin
        Clrscr;
        Writeln('MOMOGI');
        Writeln('------');
        Writeln;
        Write('Berapa Banyak Momogi Ynag Di beli : ');Readln(BB);
        HE:=500; {Harga Per Buah}
        Bayar:=BB*HE;

        Write('Uang Yg dibayar Pembeli: Rp. ',Bayar);
        Writeln;
        Modal :=375;    {Modal Tiap 1 Buah Momogi / Lusin}
        X:=HE*500;
        Y:=HE*Modal;
        Untung:=X-Y;
        Write('Untung Yg Didapat Penjual : Rp. ',Untung);
        Writeln;
        Writeln('Tekan Enter Untuk Melanjutkan ');
        readln;
        Writeln('            PROMO MOMOGI            ');
        Writeln('------------------------------------');
        Writeln('TUKAR BUNGKUSNYA DAPAT MOMOGI GRATIS');
        Writeln('------------------------------------');
        Writeln;
        Write('Masukkan Jumlah Bungkus Kosong Yg Ingin Ditukar : ');
        Readln(BK);
        writeln;
        Dapat:=(BK DIV 6)*2;
        Write('Total Momogi Gratis Yang anda Dapat : ',Dapat,'Buah');
        Repeat Until Keypressed;



End.

Konversi Suhu

Tugas 3 :

program suhu;

uses crt;

var
    K : real ;
    Pilihan : integer;
begin
  Repeat;
        clrscr;
        Writeln('KONVERSI KELVIN');
        Writeln('===============');
        Writeln;
        Writeln('Pilihan Suhu: ' );
        Writeln('[1]. Celcius'   );
        Writeln('[2]. Fahrenheit');
        Writeln('[3]. Rankine'   );
        Writeln('[4]. Delisle'   );
        Writeln('[5]. Newton'    );
        Writeln('[6]. Reaumur'   );
        Writeln('[7]. Romer'     );
        Writeln('[8]. Keluar'    );
        Write('Masukkann Pilihan Anda [1-8] : ');Readln(Pilihan);
        Writeln;
        Case Pilihan Of
1:begin
        Clrscr;
        Writeln('=================');
        Writeln('KELVIN => CELCIUS');
        Writeln('=================');
        Writeln;
        Write('Jumlah Yang Ingin Di Konversikan :');Readln(K);
        K:=K-273.15;
        Writeln('Hasil : ',K:5:2,'C');

Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
2:begin
        Clrscr;
        Writeln('====================');
        Writeln('KELVIN => FAHRENHEIT');
        Writeln('====================');
        Writeln;
        write('Jumlah Yang Ingin Di Konversikan : ');readln(K);
        K:=K*1.8-459.67;
        Writeln(' Hasil : ',K:5:2,'F');

Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
3:begin
        Clrscr;
        Writeln('=================');
        Writeln('KELVIN => RANKINE');
        Writeln('=================');
        Writeln;
        Write('Jumlah Yang Ingin Di konversikan : ');readln(K);
        K:=K*1.8;
        Writeln('Hasil : ',K:5:2,'Ra');

Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
4:begin
        Clrscr;
        writeln('=================');
        Writeln('KELVIN => DELISLE');
        Writeln('=================');
        Writeln;
        Write('Jumlah Yang Imgim Di Konversiksan : ');readln(K);
        K:=(373.15-K)*1.5;
        Writeln('Hasil : ',K:5:2,'De');

Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
5:begin
        Clrscr;
        Writeln('================');
        Writeln('KELVIN => NEWTON');
        Writeln('================');
        Writeln;
        Write('Jumlah Yang Ingin Di KOnversikan : ');readln(K);
        K:=(K-273.15)*33/100;
        Writeln('Hasil : ',K:5:2,'N');

Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
6:begin
        Clrscr;
        Writeln('=================');
        Writeln('KELVIN => REAUMUR');
        Writeln('=================');
        Writeln;
        Write('Jumlah Yang Ingin Di Konversikan : ');readln(K);
        K:=(K-273.15)*0.8;
        Writeln('Hasil : ',K:5:2,'Re');
Writeln('Tekan Enter Untuk Kembali');
Readln;
        end;
7:begin
       Clrscr;
       Writeln('===============');
       Writeln('KELVIN => ROMER');
       Writeln('===============');
       Writeln;
       Write('Jumlah Yang Ingin Di Konversikan : ');readln(K);
       K:=(k-273.15)*21/40+7.5;
       Writeln('Hasil : ',K:5:3,'Ro');
Writeln('Tekan Enter Untuk Kembali');
Readln;
End;
8:Exit;
        end;
        until Pilihan=8;
End.

Pahlawan dimasa dulu dan kini.

Kita selalu senang dan bangga sekali bisa mengenang pengorbanan dan semangat juang para pahlawan di masa lalu yang gugur membela tanah air ini. Setiap tanggal 10 November kita melakukan peringatan itu. Hari ketika semangat arek-arek Suroboyo yang terdiri dari pemuda-pemuda Maluku, sulawesi, Sumatera, Kalimantan dan  yang berasal dari daerah-daerah di Indonesia lainnya makin memuncak.

Pahlawan Masa Lalu, Masa Kini dan Masa Depan

Kalau anda mendengar kata pahlawan, apa yang pertama muncul dalam benak pikiran anda? Seseorang yang telah meninggal dunia,yang berjasa bagi perjuangan kemerdekaan Indonoseia? Ataukah seorang superhero yang menyelamatkan kehidupan manusia, dan ketika meninggal diabadikan dengan sebuah gelar kehormatan? Atau apa?

Pahlawan Masa Lalu

Bung Tomo dalam ” Menembus Kabut Gelap; Pemikiran, Surat dan Artikel Politik (1955-1980)”, mengingatkan akan teladan seorang pahlawan sejati pada masa itu yaitu Jendral (Besar) Soedirman,

” Pahlawan Soedirman berada di medan yuda hanya dengan paru-paru sebelah, tetapi kepribadian serta semangat beliau tetap menjiwai segenap pejuang yang sedang mempertaruhkan segala-galanya.”1)

Semangat itu tidak lepas dari kebersamaan yang erat sebagai satu nasib satu tanggungan untuk memerdekakan bangsa, walau berbeda suku, agama, warna kulit dan bahasa.

Bapak Soeharto, dalam “Pandangan Presiden Soeharto tentang Pancasila” menjelaskan :

” Ya, kita memang berbeda-beda tetapi kita bertekad untuk bersatu!

Bhineka Tunggal Ika!

Apabila kita ingin bersatu, maka persoalan pokoknya BUKAN menghilangkan peerbedaan-perbedaan tadi. Itu adalah mustahil, karena bertentangan dengan kodrat. Biarlah perbedaan itu ada dan tetap ada. Yang kita usahakan adalah bagaimana perbedaan-perbedaan itu dapat mempersatukan kita dalam persatuan yang indah, seperti kesatuan warna-warni pelangi yang serasi.”2)

Demikianlah, perjuangan masa lalu itu berhasil karena adanya persatuan dan kesatuan yang terjalin erat. Semangat jiwa yang mengedepankan kepentingan nasional daripada kepentingan golongannya atau bahkan pribadi yang lebih sempit lingkupnya.

Pahlawan Masa Kini

” Dan perjuangan kemerdekaan bangsa ini, telah sampailah pada saat yang membahagiakan. Dengan selamat sentausa mengantarkan rakyat Indonesia ke depan pintu gerbang kemerdekaan Indonesia, yang merdeka, bersatu, berdaulat serta adil dan makmur”

Bunyi pembukaan Undang-undang Dasar 1945 itu mengingatkan kepada kita semua, bahwa perjuangan kemerdekaan adalah sebuah pintu gerbang untuk memasuki sebuah negara yang merdeka, bersatu, berdaulat dan juga adil dan makmur.

Kemerdekaan telah diraih,kesatuan sebagai bangsa masih kita pegang, meskipun keteguhannya mulai terlihat mengendur dengan pandangan-pandangan kelompok yang sempit apakah kedaulatan bangsa telah yang mulai marak. Dan apakah kedaulatan bangsa ini telah ditegakkan?! Dan tujuan kemerdekaan untuk menciptakan masyarakat adil dan makmur ini telah tercapai 100 persen.

Saya rasa belum. Untuk itulah perjuangan dengan semangat serta keberanian yang sama dengan para pahlawan pendahulu menjadi penting sekali diterapkan sekarang ini.

Mengutip pandangan Ibu Susi Pudjiastuti, Menteri Perikanan dan Kelautan di Kabinet Kerja dari Presiden Joko Widodo saat memperingati Sumpah Pemuda menjadi menarik untuk dicermati : ” Sumpah Pemuda adalah tidak membiarkan natural resource yang begitu besar, utamanya dalam kekayaan kelautan, diambil oleh orang lain.”

Ini adalah bentuk kedaulatan yang semestinya berani kita perjuangkan. Perjuangan atas tanah, air, dan udara Indonesia. Dan selanjutnya mempergunakan hasil kekayaan tersebut bagi terwujudnya masyarakat adil dan makmur.

Melawan tindakan korupsi dan mental pemalas menjadi penting sekali dilakukakan. Ini adalah perjuangan berkelanjutan. Pembangunan masyarakat itu sendiri, pembangunan manusia-manusia Indonesianya itu sendiri.

Senapas dengan itu, saya rasa apa yang telah diperjuangkan oleh Bapak Anand Krishna selama ini, untuk membentuk dan menciptakan masyarakat yang sadar, lewat latihan-latihan seni memberdaya diri serta meditasi, menjadi sangat berhubungan sekali dengan tujuan mewujudkan masyarakat adil dan makmur itu.

Masyarakat yang sadar akan mengetahui apa tujuan kehidupannya di bumi Indonesia ini, untuk berjuang bersama, untuk berkarya bersama mencapai tujuan bangsa ini seperti apa yang diamanatkan para founding father.

Masyarakat yang sadar akan berdiri bersama dalam semangat kebersamaan dan bekerja tanpa pamrih karena ingin ikut mendharma-baktikan kehidupannya bagi masyarakat, bangsa serta dunia ini.

Kita meneladan semangat para pahlawan masa lalu, dan menerapkannya dalam masa kini. Sekarang ini kita membutuhkan pahlawan-pahlawan yang sudah bebas dari pamrih pribadi yang sempit, kalaupun dianggap pamrih maka itu adalah pamrih untuk memenuhi amanat serta janji kemerdekaan dari ketika awal republik ini dibentuk. Dengan begitu, kita akan menjadi inspirasi dan teladan bagi calon-calon pahlawan masa depan yang akan selalu dibutuhkan bagi bangsa ini untuk terwujudnya masyarakat adil dan makmur dan ikut serta turut menciptakan kedamaian dunia.

Peran Mahasiswa Dalam Memaknai Hari Sumpah Pemuda

SUMPAH PEMUDA

“Apa arti sebenarnya dari Sumpah Pemuda?”

Delapan puluh tujuh tahun sudah sejak pertama kali Sumpah Pemuda diikrarkan. Keputusan yang merupakan kristalisasi semangat cita-cita berdirinya Indonesia ini pertama kali diikrarkan pada 28 Oktober 1928 oleh Kongres Pemuda II. Rumusan yang pada awalnya ditulis di secarik kertas oleh Mohammad Yamin inilah yang akhirnya menjadi tonggak utama dalam memperjuangkan pergerakan kemerdekaan Indonesia. Tujuannya agar para pemuda dari berbagai daerah bersatu untuk mewujudkan Indonesia yang utuh.

 Namun hal yang memprihatinkan adalah pada kenyataannya mahasiswa Indonesia masih banyak yang bersikap apatis terhadap pergerakan kemerdekaan. Mahasiswa malah cenderung bersikap skeptis. Hingga pada akhirnya, pertanyaan tersebut tidak terjawab baik secara lisan maupun aksinya.

“Ketika kita masih duduk di bangku sekolah dasar, kita semua hafal akan rumusan Sumpah Pemuda. Memang saya sadari benar pada saat itu pasti kita belum sepenuhnya paham akan makna rumusan tersebut, namun kita hafal. Ironisnya, kita sebagai pemuda yang sudah memiliki kemampuan mengubah dunia malah sering lupa dan tidak menerapkannya. Bukankah seharusnya kita malu?” Ucap Alvin Chandra Kusuma, salah satu mahasiswa Teknik Industri Universitas Atma Jaya Yogyakarta.

Kaum muda disebut sebagai generasi penerus bangsa bukan tanpa arti. Kita diharapkan tidak hanya mampu mempertahankan kemerdekaan namun juga berjalan bersama mengembangkan Indonesia itu sendiri. Kitalah yang akan menjadi sejarah dunia pada akhirnya dan sudah seharusnya kita menorehkan sejarah yang membangun untuk Indonesia.

Pada akhirnya, mahasiswa harus menyadari fungsinya sebagai gerbang menuju kemajuan Indonesia. Fungsi dan peran ini semestinya selalu direfleksikan untuk kemudian diaplikasikan dalam kehidupan nyata. Dimulai dari memberikan informasi mengenai dunia kepada masyarakat, menganalisis masalah politik dan tidak menerimanya mentah-mentah, memberikan solusinya hingga pada akhirnya bukanlah degradasi yang akan kita alami, melainkan kemajuan.

Ketika disuguhkan suatu keputusan pemerintahan, pernahkah terlintas di pikiran kalian “Bagaimana bisa?”. Analisislah keputusan tersebut. Bukan membangkang tetapi kritis, karena kita adalah kaum muda dan kitalah yang harus dapat menggenggam negara kita tercinta, Indonesia.

 “Sejarah dunia adalah sejarah orang muda, apabila angkatan muda mati rasa, maka matilah sejarah sebuah bangsa,” -Pramoedya Ananta Toer-

Sumber : Klik. . .

Bengkulu Kota Indah

KOTA BENGKULU

      Pernah Dengar Kota Bengnkulu? , Pasti Pernah dong , Apa Pernah Mengunjungi atau Berwisata di sana?, Mungkin sebagian Sudah Pernah , dan ada Juga yang Belum .

Dalam Kesempatan Ini saya akan Sharing Apa sih Itu Kota Bengkulu ? , Sebagus Apa sih Kota Itu ?
OK cekidot

   Nah diatas adalah Yang Namanya Pantai panjang , Kok bisa sih Itu Pantai Disebut Pantai panjang ? Kenapa ? Mungkin dari Namanya saja Kita sudah tau Kalo Pantai panjang itu panjang , Tapi tahukah anda berapa Panjang Pantai tersebut ? , Pantai Panjang itu Mempunyai Panjang Sekitar 7km , Pokoknya Pantai Panjang gak Kalah indah nya sama Pantai di Bali deh , Dan terlebih lagi Pantai Ini dekat sekali dengan Pusat kota bengkulu , Dari Pusat Kota Bengkulu kepantai ini Hanya Bisa menempuh jarak sepanjang 1,5 Km , Gak bikin capek deh kalo jalan kaki , Bikin Kita sehat Juga ^_^.

Nah diatas itu yang namanya Pantai Panjang , sekarang Kalian Bertanya tanya , Cuman Itu aja Wisata Bengkulu ? , Eiiitzz tunggu dulu , Bengkulu Masih Punya Kok tempat Wisata lain Seperti Benteng Marlborough . Gimana sih dan Apa itu Benteng Marlborough ? Cekidot ,.......

Tampak Depan ..

Tampak Dalam..

Tampak Diatas Benteng.

    Nah Sudah Liat gambar Diatas ? Itu Benteng Waw Punya Nilai Sejarah Banget , Ada Meriam Itu wew Ngeri banget , Apa Meriam Itu masih aktif atau tidak ? Sebagian Meriam aktif ada Didalam Benteng Tersebut di museumkan , Dan Yang diluar itu Hanyalah Peninggalan Meriam Jaman Dulu .
Sekarang Kita Udah bahas Meriam Nih , Biar Bikin wawasan kita Meluas saya akan ceritakan Sejarahnya deh , Ok kita jadi sejarawan dulu ,

Benteng Marlborough (Inggris:Fort Marlborough) adalah benteng peninggalan Inggris di kota Bengkulu. Benteng ini didirikan olehEast India Company (EIC) tahun 1713-1719 di bawah pimpinan gubernur Joseph Callet sebagai benteng pertahanan Inggris. Konon, benteng ini merupakan benteng terkuat Inggris di wilayah Timur setelah benteng St. George di Madras, India. Benteng ini didirikan di atas bukit buatan, menghadap ke arah kota Bengkulu dan memunggungi samudera Hindia. Benteng ini pernah dibakar oleh rakyat Bengkulu; sehingga penghuninya terpaksa mengungsi ke Madras. Mereka kemudian kembali tahun 1724 setelah diadakan perjanjian. Tahun 1793, serangan kembali dilancarkan. Pada insiden ini seorang opsir Inggris, Robert Hamilton, tewas. Dan kemudian pada tahun1807, residen Thomas Parr juga tewas. Keduanya diperingati dengan pendirian monumen-monumen di kota Bengkulu oleh pemerintah Inggris.


Marlborough masih berfungsi sebagai benteng pertahanan hingga masa Hindia Belanda tahun 1825-1942, Jepang tahun 1942-1945, dan pada perang kemerdekaan Indonesia. Sejak Jepang kalah hingga tahun 1948, benteng itu manjadi markas Polri. Namun, pada tahun 1949-1950, benteng Marlborough diduduki kembali oleh Belanda. Setelah Belanda pergi tahun 1950, benteng Marlborough menjadi markas TNI-AD. Hingga tahun 1977, benteng ini diserahkan kepada Depdikbud untuk dipugar dan dijadikan bangunan cagar budaya. (Sumber : WIKIPEDIA).


Dan Masih banyak lagi Deh Wisata Wisata Di bengkulu , Semoga Bermanfaat , Saya akan menceritakan lagi deh kisah lanjutnya Wisata Bengkulu , Cukup sekian dulu Gan/Sis , Jadi Kapan Lagi Datang Ke bengkulu ? jangan ditunda deh barengan liburan nya juga gak akan nyesel , Jadi sekian dan terimakasih.

SUMBER : -Pemikiran sendiri

                 -Google Image
                 -Wikipedia
..................................................................................................................................................................