Struktur Kendali CASE

CASE digunakan untuk memilih diantara banyak pilihan. 

Pernyataan CASE digunakan untuk menyederhanakan  konstruksi  if..else if yang terlalu 

banyak. Secara sederhana, struktur percabangan CASE mirip seperti struktur IF THEN 

ELSE yang berulang. Jika di dalam IF THEN ELSE kita memiliki format penulisan seperti 

berikut:

IF (kondisi1) THEN   (kode program 1) ELSE IF (kondisi2)  THEN   (kode program 2) ELSE IF (kondisi3)  THEN   (kode program 3)

Maka di struktur CASE, format penulisannya seperti ini:

CASE (expression) OF   kondisi 1 : (kode program 1);   kondisi 2 : (kode program 2);   kondisi 3 : (kode program 3); end;

Expression adalah ‘sesuatu’ yang akan di periksa nilainya. Jika nilai dari expression ini sama dengan kondisi 1, maka yang dijalankan adalah (kode program 1), jika sesuai dengan kondisi 2, maka yang akan dijalankan adalah (kode program 2), dst.

Untuk materi dan contoh Silahkan download disini

Baca Selengkapnya »

Membuat Biodata dengan Turbo Pascal

List Program:

program biodata;

uses crt;

var

      nama : string[25];

      kls : string[10];

      ttl, prodi, nm_prodi : string[30];

      npm : intEGER;

begin

clrscr;

WRITELN ('BIODATA PRIBADI');

write('NAMA : ');readln (nama);

write('NPM  : ');readln (npm);

write('TTL  : ');readln (ttl);

...............................

end.

Untuk Modul lengkapnya silahkan Downliad disini!

Baca Selengkapnya »