Perulangan Repeat Until Pascal

Perulangan Repeat Until hampir sama dengan perulangan while do bedanya kalau menggunakan while do , maka kondisi di cek dulu kalau benar maka statement dijalankan, kalau repeat until statement dijalankan dulu setelah itu ada kondisi jika benar maka dijalankan statmentnya. Bentuk struktur repeat until sebagai berikut :

Repeat

Statement;

Until Kondisi;

Jika digambarkan dengan kalimat maka kalimatnya sebagai berikut :

“ Lakukan perintah sampai kondisinya benar “

Langsung saja menuju contoh programnya, contoh program yang ada disini adalah modifikasi dari artikel saya yang sebelumnya yaitu Perulangan While Do Pascal. Anda bisa menuju link tersebut untuk melakukan perbadingan cara pemakaian perulangannya. Berikut program panggil nama :

Program PanggilNama;

Var

I : integer;

Begin

Repeat

Begin

I := I + 1;

Writeln(‘Panggil Nama Saya’);

End;

Until I = 3 ;

Readln;

End.

Penjelasan Program

Pada program diatas akan menghasilkan output “Panggil Nama Saya” dan dicetak 3 kali. Nilai I pertama adalah 0 , ketika masuk perulangan jadi 1, kondisi belum terpenuhi jadi sattment dilakukan lagi sampai I = 3.

Setelah anda paham dengan program diatas, mari kita lanjutkan dengan program kedua yaitu program untuk mencari rata-rata dari data yang anda masukan.

Program RataRata;

Var

Nilai, I, Jumlah : Integer;

Rata : Real;

Begin

Repeat

Begin

I := I + 1 ;

Write(‘Masukan Nilai ke-’,I,’ : ‘);

Jumlah := jumlah + Nilai;

Readln(Nilai);

End;

Until Nilai = -1 ;

Rata := Jumlah/(I-1);

Writeln(‘Rata-rata dari data yang anda masukan adalah ‘,Rata:0:2);

Readln;

End.

Saya berikan contoh lagi agar anda lebih paham tentang perulangan Repeat. Masih sama seperti artikel kemarin yaitu tentang faktorial, tapi disini menggunakan perulangan Repeat Until. Berikut program lengkapnya :

Program Faktorial;

Var

Faktor,I, Nilai : integer;

Begin

Faktor := 1 ;

Write(‘Faktorial dari : ‘);

Readln(Nilai);

Repeat

Begin

I := I + 1;

Faktor := Faktor*I;

End;

Until I = Nilai;

Writeln(‘Faktorial dari ‘,Nilai,’ adalah ‘,Faktor);

Readln;

End.

Setelah paham dengan program faktorial diatas saya akan lanjutkan tentang perulangan bertingkat menggunakan Repeat Until. Saya akan membuat program tabel perkalian seperti pada artikel saya yang sebelumnya yaitu Perulangan For Do Bertingkat. Berikut Program lengkapnya :

Program TabelPerkalian;

Uses Crt;

Var

I,j : integer;

Const

Dari = 1;

Sampai = 10;

Begin

Clrscr;

Write(‘ ‘:5);

I := Dari;

Repeat             { Mencetak Baris Pertama }

Begin

Write(i:5);

I := i+1;

End;

Until I = Sampai+1;

Writeln;

I:= Dari;

Repeat             { Mencetak Perkalian }

Begin

Write(i:5);

J := Dari;

Repeat

Begin

Write(i*j:5);

J := j + 1;

End;

Until J = Sampai+1;

Writeln;

I := I + 1;

End;

Until I = Sampai+1;

Readln;

End.

Sepertinya pada program yang ini lebih mudah menggunakan perulangan For Do daripada menggunakan While Do dan Repeat Until. Tapi cobalah untuk memahami program diatas agar lebih menguasai tentang penggunaan Perulangan Repeat.

Latihan

  1. Buatlah program untuk mencetak bilangan prima dari 1 sampai 1000 dengan menggunakan Repeat Until.
  2. Modifikasi program TabelPerkalian tersebut menjadi Tabel Perpangkatan.

“ Tugas kita bukanlah untuk berhasil. Tugas kita adalah untuk mencoba, karena didalam mencoba itulah kita menemukan dan belajar membangun kesempatan untuk berhasil “
Mario Teguh

Perulangan Repeat Until Pascal CrazyProgram.com

About Crazy

Setiap kode program yang ada dalam CrazyProgam.Com jika anda copas dalam compiler ada pesan error, coba anda ketikkan secara manual agar anda lebih menguasai dan memahami programnya. Feel free to ask here ..

,

6 Responses to Perulangan Repeat Until Pascal

  1. cikiciew August 22, 2012 at 6:23 am #

    gan, ada master turbo pascal gak ya…
    di share donk…

    ane biasa pakek Delphi Console gan…

    • Crazy August 22, 2012 at 3:29 pm #

      kalau turbo pascal nggak punya gan , lebih sering pakai free pascal

  2. Kripik25 April 30, 2013 at 7:04 pm #

    gan, kalau penulangan ke program sebelumnya seperti GOTO, bisa ngga repeat until sama while do dipake buat balik ke program yang kita buat kayak GOTO.

  3. nasphie September 12, 2013 at 9:11 am #

    ketemu sama pembeljaran ini akhirnya..hiissh,,,pusing gan..:)

Trackbacks/Pingbacks

  1. Perulangan dalam Pascal | Crazy Program - August 21, 2012

    [...] Perulangan Repeat Until Pascal [...]

Leave a Reply