Menggunakan Rumus Case Of Pada Turbo Pascal

Turbo Pascal merupakan salah satu program yang menggunakan bahasa pemograman. Software ini merupakan salah satu program dasar yang mampu menciptakan beberapa program lainnya sesuai dengan keinginan kita sendiri. Entah itu program untuk menentukan bisa suatu barang yang didiskon ataupun program untuk memberitau kita bayaran listrik. Seorang yang ingin masuk ke dunia pemograman harus bisa setidaknya membuat beberapa program tertentu menggunakan Turbo Pascal ini. Pelajaran Turbo Pascal ini memang tidak semua orang akan mendapatkannya, tetapi sudah banyak sekolah-sekolah jenjang menengah atas atau sederajatnya yang membelajarkan materi  Turbo Pascal ke dalam pelajaran TIK ( Teknologi Informasi dan Komunikasi ) sehingga mau tidak mau semua siswa dalam lingkungan sekolah itu harus memahami Turbo Pascal ini. Sebenarnya Turbo Pascal dalam penggunaannya tidak terlalu sulit, namun setiap orang yang baru melihat cara Turbo Pascal ini menggunakan simbol-simbol yang banyak dan ribet melabeli Turbo Pascal sangat sulit digunakan. Kali ini veniuszero akan memberitau kalian salah satu rumus penggunaan Case Of pada Turbo Pascal sehingga dapat kalian jadikan refrensi belajar Turbo Pascal.

HASILNYA :

  

KODE :

Program Tugas_kelompok;

uses wincrt;

var iq:integer;

var nama,no,kelas:string;

begin

write('Masukkan Nama Anda: ');

readln(nama);

write('Masukkan No Absen : ');

readln(no);

write('Masukkan Kelas    : ');

readln(kelas);

writeln('========================');

writeln('Masukkan nilai IQ Anda (INTELEGENSI) ');

readln(iq);

Case iq of

   140..1000:

    begin

writeln('Kategori Skor:Tinggi Sekali');

Writeln('IQ Anda Jenius');

writeln('Studi Lanjut : S2/S3');

writeln('Profesi      :Professor');

    end;

      120..139:

begin

writeln('Kategori Skor:Tinggi ');

writeln('IQ Anda Superior ');

writeln('Studi Lanjut : S2');

writeln('Profesi      :Dokter,Dosen,dan Direktur');

    end;

      110..119:

begin

writeln('Kategori Skor:Cukup Tinggi');

writeln('IQ anda Cerdas');

writeln('Studi Lanjut : S1');

writeln('Profesi      :Guru,tentara,dan polisi');

end;

    101..109:

begin

writeln('Kategori Skor:Sedang');

writeln('IQ Anda Rata-Rata Atas');

writeln('Studi Lanjut : D3');

writeln('Profesi      :Arsitek,pelukis,dan penari');

end;

    100..100:

begin

writeln('Kategori Skor :Rendah');

writeln('IQ Anda Rata-Rata ');

writeln('Studi Lanjut  : D2');

writeln('Profesi       :Pemain Voli,Pemain Sepakbola,Pemain Basket');

end;  

    90..99:

begin

writeln('Kategori Skor:Sangat Rendah');

writeln('IQ anda Rata-Rata Bawah');

writeln('Studi Lanjut : D1');

writeln('Profesi      : Pedagang,Pembantu,dan Peternak');

end;

    80..89:

begin

writeln('Kategori Skor:Sangat Sangat Rendah');

writeln('IQ anda Lambat Belajar');

writeln('Studi Lanjut  :Mungkin anda Bisa Lanjutkan di SLB ');

writeln('Profesi       :Pemulung( yang sukses ) XD  ');

end;

end;

end.