Perintah Case of dalam Pemrograman Pascal

Assalamualaikum Wr. Wb

      Ini adalah posting kedua saya, pada kesempatan kali ini saya akan membahas tentang "Case of" di dalam bahasa pemrogaman pascal, sebenarnya saya belum mengerti, apa itu 'Case of", saya mencoba membaca beberapa artikel, sampai sejauh ini menurut pemahaman saya "Case of" merupakan bagian dari fungsi percabangan selain "if then else ", namun masing-masing memiliki kelebihan dan kelemahan. Jika kita menggunakan perintah "if then else" dalam percabangan maka pada umumnya hanya akan memiliki dua pilihan kondisi, nah seandainya pilihannya tidak hanya ada dua pilihan , tapi bayak pilihan, kita bisa saja menggunakan perintah "if then else" namun akan sedikit rumit, oleh karena itu untuk mempermudah kita bisa menggunakan perintah "case of". Berikut ini adalah screenshot program yang saya buat menggunakan perintah "case of" :

Coding 1

Coding 2

Run program

Run program

Mungkin sekian yang dapat saya sampaikan, salah khilaf mohon maaf.

Wassalamualikum Wr. Wb.

Alogaritma dan Pemrogaman

    Halo perkenalkan nama saya MIFTAKHUL HUDA, NIM J1F113207, dari prodi ilmu komputer, saya berasal dari kota Batulicin, saya merasa "bejo" bisa masuk Universitas Lambung Mangkurat dan diterima di prodi Ilmu Komputer atau bahasa kerennya Computer Sciense, hehe. Alhamdulillah, akhirnya tugas ini bisa saya selesaikan, ini adalah tugas pertama saya di mata kuliah Alogaritma dan Pemrograman dengan dosen bapak Irwan Budiman S.T K.kom, tugasnya adalah membuat teorema phytagoras di pemrogaman pascal.  

       Nah apa sih itu pascal? mari kita bahas sedikit, Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali. Bahasa pascal adalah bahasa pemrograman tingkat tinggi yang dikembangkan oleh Niklaus Wirth di Zurich pada akhir 1960-an hingga awal 1970-an. Pascal merupakan bahasa pemrograman yang terstruktur, sehingga sering digunakan sebagai sarana awal untuk mempelajari teknik pemrograman komputer.Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal , semisal Delphi . Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhi , karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic. 

(sumber: http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)

    Itu tadi sedikit pengertian tentang pascal, untuk melakukan pemrogaman pascal kita membutuhkan sebuah software pascal, yang saya ketahui saat ini ada 2 software yaitu Free pascal dan Turbo Pascal, untuk sekarang ini saya menggunakan Turbo Pascal. Oke langsung saja, berikut ini adalah script yang saya gunakan:

program teorema_phytagoras;

uses crt;

var a,t,m:real;

begin

clrscr;

writeln('----Aplikasi Sederhana Teorema Phytagoras By Huda----');

writelln('-----------------Untuk Memulai Tekan Enter-----------------');

readln;

write('Masukan Panjang Sisi  X =');

readln(a);

write('Masukan Panjang Sisi Y =');

readln(t);

m:=sqrt((a*a)+(t*t));

write('Panjang Sisi Z adalah =',m:3:2);

readln;

end.

Berikut adalah screenshotnya:

Ketika mengetik script di Turbo pascal (klik gambar untuk memperjelas).

Ketika menjalankan script (klik gambar untuk memperjelas)

 

Mungkin sampai disini yang bisa saya jelaskan, semoga artikel ini bermanfaat dan terimakasih atas kunjungannya :)

Referensi: 

http://nikmannasir.blogspot.com/2013/09/aplikasi-menghitung-panjang-sisi-miring.html

http://d-algo.blogspot.com/

http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)