Terapan Kode Delphi CASE OF Dalam Pencabangan IF

Tugas 2.2

Membuat  Pencabangan IF"Nilai Tes Masuk Kerja" dengan Delphi 7

Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.  Untuk itu disini saya ingin mencoba untuk membuat  Case Of Pencabangan "Nilai Tes Masuk Kerja". langkah-langkahnya adalah sebagai berikut :

1. klik start ====pilih  all program pilih borland delphi 7.Atau pilih dekstop ==== Pada icon, lalu klik 2 kali/tekan enter pada keyboard, tungu proses kemudian  akan muncul program delphi 7. Lalu Kemudian buat document baru degan memilih   ( file – new – other  -  Console Application )

2. Setelah langkah di atas selesai ,, buat scrip seperti gambar dibawah ini

VAR

  nilai :integer;

  hasil ,keterangan:STRING;

begin

    write('Nilai Tes Masuk Kerja=');readln(nilai);

    case nilai of

    0..65:

      begin

      hasil:='Gagal';

           keterangan:='Tes Ulang';

      end;

    66..80:

      begin

      hasil:='Tes Ulang';

           keterangan:='Tes wawancara';

       end;

    ELSE

    hasil:='Diterima';

           keterangan:='Langsung Kerja';

      end;

      WRITELN('Hasil=',hasil,' Keterangan=',keterangan);{ TODO -oUser -cConsole Main : Insert code here }

      READLN

end.

3. setelah selesai menulis scrip di atas langsung saja kita coba pilih      untuk menjalankan program. jika scrip benar maka akan muncul tampilan dibawah ini, lalu kita langsung mencobanya (klik Run (F9) untuk melihat apakah script itu dapat berjalan atau tidak)

Jika berhasil maka langsung tampilan seperti dibawah ini

Jika nilai <65 gagal="gagal" maka="maka" span="span">

Jika nilai <80 font="font" maka="maka" tes="tes" ulang="ulang">

Jika nilai >80 maka langsung kerja