Updates from April, 2010 Toggle Comment Threads | Pintasan Keyboard

  • Bowwow 3:01 am on April 10, 2010 Permalink | Balas
    Tags: array, for...do, pengendalian program, program fibonacci, program matriks, repeat...until, while...do   

    Pengendalian Program II 

    Perintah for…do,

    While… do,

    & Repeat… until.

    1. 1. Perulangan For…do

    Perintah for..do digunakan untuk melakukan perulangan determinitif. Artinya, sebuah pernyataan (tunggal atau majemuk) akan dekerjakan berulang-ulang sebanyak n kali, di mana n adalah sebuah bilangan yang telah diketahui sebelumnya.

    Bentuk penggunaaaanya adalah sebagai berikut :

    For <pecahan> := <awal > to <akhir> do <penyataan>                (1)
    
    For <pecahan> := <awal> dowoto <akhir> do <pernyataan>            (2)

    <pecahan> adalah sebuah variabel ordinal yang isinya menunjukan sampai seberapa jauh perulangan <awal> dan <akhir> adalah konstanta yang digunakan untuk menentukan berapa kali perulangan akan dilakukan. Hal yang perlu diperhatikan antara kedua bentuk di atas adalah :

    1. Dalam penggunaan To, jika suatu nilai awal lebih besar daripada the nilai akhir maka pernyataan tidak akan pernah dijalankan.

    2. Dalam penggunaan DownTo, jika nilai awal lebih kecil daripada nilai akhirnya maka pernyataan tidak akan pernah dijalankan.

    3. Free Pascal selalu mengkalkulasi batas atas sebelum menginialisasi the variable penghitung dengan nilai awal.

    4. Tidak diijinkan untuk mengganti (contohnya assign suatu nilai) suatu nilai dari loop variable di dalam loop. Untuk lebih jelasnya :

    Loops yang benar:

    For Day := Monday to Friday do Work;
    For I := 100 downto 1 do
    WriteLn (’Counting down : ’,i);
    For I := 1 to 7*dwarfs do KissDwarf(i);

    (More …)

    Iklan
     
  • Bowwow 6:59 pm on April 5, 2010 Permalink | Balas  

      PENGENDALIAN PROGRAM

      (IF…THEN..& CASE)

       

                  Apa yang disebut pengendalian program? Program
      adalah perwujudan dari alogaritma yang ditulis dengan bahasa pemrograman, jadi
      program harus dapat mencabang, meloncat juga berulang pada kondisi tertentu dan
      sesuai kebutuhan tentunya.
      Nah dengan pengendalian
      program kita dapat melakukan hal ini dan tiap-tiap bahasa program berbeda-beda.

       

      1. Perintah if..then

      Digunakan untuk mewuudkan percabangan
      bersyarat.
      Didalam pascal cara penggunaanya
      sbb:

      If then >  else
      <pernyataan2>

       

      Kondisi
      adalah suatu ekspresi yang bernilai logikal banar atau salah, Ingat! tipe data harus Boolean. Pernyataan1 adalah perintah jika
      data input bernilai benar . Bagian else bersifat pilihan(boleh ada atau tidak) dan juga perintah jika data
      input bernilai salah.

       

      Berikut souce code-nya:

       

      program est_ss_thendd;

      {$APPTYPE
      CONSOLE}

       

      var
      i,j:integer;

       

      begin

        write (‘Masukan
      sebuah bilangan bulat :’);

        readln(i);

        write (‘masukan lagi
      sebuah bilangan bulat :’);

        readln(j);

        readln;

        if (iwriteln (i,’lebih kecil dari pada’,j)

          else

          write(i,’lebih
      besar atau samadengan’,j);

        readln;

      end.

       

       

      Maka hasilnya :

       

       

       

      1. Perintah Case

      Perintah if.. then
      tadi bisa digunakan bertinkat, sbb:

       

      If <kondisi> then <pernyataan1>

            Else if
      <kondisi2> then <pernyataan2>

                  Else
      if <kondisi3> then <pernyataan3>

                        Else ….

      Bentuk diatas dapat disederhanakan
      mendi perintah case, sbb:

       

      Case <ekpresi> of

            > : <penyataan1>

            > : <penyataan2>

           

      [else <penyataan_n>]

      End;

       

                  Ekspresi
      harus bertipe ordinal dan berada dalam jangkauan -32768 sampai 32767.

      Tipe ordinal adalah tipe data yang mempunyai urutan tertentu dan pasti,
      misalnya integer (…,-2,-1,0,1,2,..)  atau karakter (‘a’,
      ’b’, ‘c’). Pilihan(n) 
      bersifat konstan dan baertipe sama dengan tipe data ekspresi.

       

                  Berikut
      souce code-nya

      program bilangan;

      {$apptype console}

      uses sysutils;

      var i:integer;

      begin

      write(‘masukkan bilangan integer
      antara 0 sampai 100 :’);

      readln(i);

      case i of

        0,2,4,6,8 :writeln(‘bilangan grnap’);

        1,3,5,7,9:writeln(‘bilangan ganjil’);

        10..100 :writeln(‘antara 10 sampai100’);

         else

          write(‘bilangan negatif atau lebih besar dari 100’);

      end;

      readln;

      readln;

      end.

       

            Maka
      hasilnya:

       

       

       

       

       

       

       

      Latihan!

       

       

      program kartu_kredit;

      {$APPTYPE
      CONSOLE}

       

      uses SYSUTILS;

       

      var
      harga: real;

      const

      limit=1000000;

      begin

      write (‘silahkan masukkan harga barang yang dibeli;’);

      readln (harga);

      if
      harga <= limit then

      begin

       writeln (‘kartu kredit Anda diterima’);

       writeln (‘harga yang harus dibayar ditambah pajak 20%    

       adalah ‘,harga*120/100:9:2)

      end

      else 

      begin

      writeln (‘harga barang melebihi
      limit kartu kredit                                                                                                                                   
      Anda’);

       writeln (‘maksimum limit kartu kredit Anda adalah:’);

      end;

      writeln (‘terima kasih telah menggunakan program ini’);

      writeln (‘tekan enter untuk keluar…..’);

      readln;

      end.

       

      program diskon;

      {$apptype
      console}

      uses sysutils;

      var
      a,b:real;

      begin

      write(‘masukkan harga barang : ‘);

      readln(a);

       

      if
      a>100000 then b:=(a*85)/100

      else if a>50000 then b:= (a*90)/100

      else b:=a;

      writeln(‘harga barang tersebut menjadi :’,b:10:2);

      readln;

      end.

       

       

      program jumlah_hari;

      {$APPTYPE
      CONSOLE}

      uses sysutils;

      var
      month,days,year:integer;

      begin

      write (‘please enter te  number
      of the month: ‘);

      readln (month);

      case month of

       1,3,5,7,8,10,12:days:=31;

              4,6,9,11:days:=30;

       2:

        begin

         write (‘enter the
      year: ‘);

         readln (year);

         if year mod 4=0
      then days:= 29

         else days:=28;

        end;

       else

        writeln (‘Nama bulan
      yang anda masukan salah’);

       end;

      writeln (‘there are ‘, days, ‘days in month.’);

      readln;

      end.

       

       

       

     
  • Bowwow 8:22 pm on March 17, 2010 Permalink | Balas  

    Mengenal Java IO 

    Kesempatan ini, saya akan membahas mengenai  java io degan input diambil dari keyboard. Pada dasarnya pada pemrograman java cukup mudah dimengerti apaabila kita mengamati bagian per bagian objec class-nya. Begitu pula pada java io. Nah! coba perhatikan dan analisis contoh source code dibawah :

    __________________________________________________________________

    import java.io.BufferedReader;
    import java.io.IOException;
    import java.io.InputStreamReader;

    public class ImputConsole {
    public static void main(String[] args)throws IOException {
    BufferedReader masukan = new BufferedReader(new InputStreamReader(System.in));
    System.out.print(“Nama Anda : “);
    String nama = masukan.readLine();
    System.out.print(“Pekerjaan Anda : ” );
    String job=masukan.readLine();
    String gawean = masukan.readLine();
    System.out.println(nama+ ” adalah seorang ” +gawean );
    System.out.println(nama+ ” adalah seorang ” +job );
    }
    }

    ____________________________________________________________________

    Dari kode diatas akan menghasilkan :

    Nama Anda : Bowwow
    Pekerjaan Anda : kuli ketik

    Bowwow adalah seorang
    Bowwow adalah seorang kuli ketik

    ____________________________________________________________________

    Kamu pasti “Bisa!”, tenang saja akan kita urai kode di atas satu-persatu.

    import java.io.BufferedReader;
    import java.io.IOException;
    import java.io.InputStreamReader;

    Yang ini namanya statement acces. Jika kita ingin …..

     
c
Compose new post
j
Next post/Next comment
k
Previous post/Previous comment
r
Balas
e
Sunting
o
Show/Hide comments
t
Pergi ke atas
l
Go to login
h
Show/Hide help
shift + esc
Batal