Tehnik Coding - Perulanan Berkesiambungan

Salah satu teknik dalam pemrograman yang saya temukan. Penggunaan looping berkesinambungan ini sangatlah bermanfaat, contohnya dalam membuat menu utama. Banyak programmer yang tidak mempertimbangkan efektifitas dalam suatu perulangan, baik pemula maupun programmer yang sudah berpengalaman. Dengan menggunakan teknik ini, koding akan lebih optimal dan efektif.

BASIC

DO WHILE 1
  ' Masukkan blok program yang akan diulang terus menerus di sini.
  ' Gunakan perintah "EXIT DO" untuk keluar dari perulangan.
LOOP

Pascal

C/C++

Contoh penggunaan dalam program:

BASIC

DIM pil AS STRING

DO WHILE 1
  CLS

  PRINT "Perulangan dimulai di sini:"
  INPUT "Apakah kamu ingin mengulang (Ya/Tidak) "; pil

  SELECT CASE LCASE$(pil)
    CASE "y", "ya", "yes"
    CASE "n", "no", "t", "tidak"
      EXIT DO
    CASE ELSE
      CLS
      PRINT "Jawaban yang kamu berikan salah!"
      DO WHILE INKEY$ = ""
      LOOP
  END SELECT
LOOP

CLS

PRINT "Kamu telah keluar dari perulangan!"

LOCATE 25, 20
PRINT "Tekan sembarang tombol untuk keluar!"
DO WHILE INKEY$ = ""
LOOP

END

Pascal

uses crt;

var pil: char;

begin
  while true do
  begin
    clrscr;

    writeln('Perulangan dimulai di sini:');
    write('Apakah kamu ingin mengulang (Y/N) ? '); readln(pil);

    case lowerCase(pil) of
      'y': continue;
      'n': break;
      else
        writeln('Jawaban yang kamu berikan salah!');
        readkey;
    end;
  end;

  clrscr;

  writeln('Kamu telah keluar dari perulangan!');
  readkey;
end.

C/C++

#include "stdio.h"
#include "conio.h"

void main() {
  char pil;

  while(1) {
    clrscr();

    printf("Perulangan dimulai di sini:\n");
    printf("Apakah kamu ingin mengulang (Y/N) ? "); scanf("%s", &pil);

    if(toupper(pil) == 'Y') continue;
    if(toupper(pil) == 'N') break;

    printf("Jawaban yang kamu berikan salah!");
    getch();
  }
  printf("Kamu telah keluar dari perulangan!");
  getch();
}