INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Statement Case di Turbo Pascal, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Turbo Pascal, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Statement Case di Turbo Pascal
link : Statement Case di Turbo Pascal

Statement Case di Turbo Pascal

Kali ini saya akan memposting tentang Statement Case di Turbo Pascal, ada baiknya sebelum anda membaca postingan ini, anda membaca postingan saya yang sebelumnya yaitu Statement IF di Turbo Pascal
Case adalah struktur percabangan selain IF yang dapat digunakan untuk menentukan sebuah pilihan atau lebih. Case juga sering ditunakan untuk menyederhanakan perintah IF yang bertingkat tingkat

Contoh penggunaan Case di turbo pascal

Bentuk pertama

program statement_if;
uses crt;
var
 pilihan:integer;
begin
 clrscr;
 writeln('1. Pilihan pertama');
 writeln('2. Pilihan kedua');
 writeln('3. Pilihan ketiga');
 write('Tentukan pilihanmu : ');readln(pilihan);
 
 case pilihan of
  1:
   begin
   writeln('Anda memilih pilihan pertama');
   end;
  2:
   begin
   writeln('Anda memilih pilihan kedua');
   end;
  3:
   begin
   writeln('Anda memilih pilihan ketiga');
   end;
 else
  begin
  writeln('Anda tidak memilih pilihan yang ada di menu');
  end;
 end;
 
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini
ketikan angka 1 maka akan muncul text bertuliskan 'Anda memilih pilihan pertama', jika anda mengetikan angka 2 maka akan muncl text bertuliskan 'Anda memilih pilihan kedua', jika anda mengetikan angka 3 maka akan muncul text bertuliskan 'Anda tidak memilih pilihan yang ada di menu'

Bentuk kedua

program statement_case;
uses crt;
var
 nilai:integer;
begin
 write('Masukan nilai siswa : ');readln(nilai);

 case nilai of
  90..100:
   begin
   writeln('Anda mendapatkan A');
   end;
  80..89:
   begin
   writeln('Anda mendapatkan B');
   end;
  70..79:
   begin
   writeln('Anda mendapatkan C');
   end;
  60..69:
   begin
   writeln('Anda mendapatkan D');
   end;
 else
  begin
  writeln('Anda mendapatkan E');
  end;
 end;

 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini
Jika anda mengetikan antara 90 sampai 100 maka akan muncul text bertuliskan 'Anda mendapatkan A' jika anda mengetikan 80 sampai 89 maka akan muncul text bertuliskan 'Anda mendapatkan B', jika anda mengetikan antara 70 sampai 79 maka akan muncul text bertuliskan 'Anda mendapatkan C', jika anda mengetikan 60 sampai 69 maka akan muncul text bertuliskan 'Anda mendapatkan D', jika anda mengetikan angka di bawah 60 maka akan muncul text bertuliskan 'Anda mendapatkan E

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini

Sekianlah artikel Statement Case di Turbo Pascal kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Statement Case di Turbo Pascal dengan alamat link https://ware-id.blogspot.com/2014/02/statement-case-di-turbo-pascal.html