(TUGAS) FUNGSI CASE OF PADA PASCAL

Case of merupakan fungsi yang mirip dengan fungsi logika IF THEN ELSE, hanya saja dengan menggunakan case of, listing program akan semakin singkat dan efisien. Bisa di bayangkan seandainya kita menggunakan permisalan dengan fungsi IF, pasti akan sangat panjang. Tetapi dengan menggunakan fungsi case of akan mempersingkat pekerjaan kita.

====================================================================================

Case Variabel Kondisi Of

   case-label 1:Statement 1;

   case-label 2:Statement 2;

   case-label 3:Statement 3:

   (sampai beberapa statement dan diakhiri dengan)

   case-label :Statement n;

end; (end dari case)

====================================================================================

Program fotokopi;

Uses crt;

var kode,jumlah,harga:integer;

      keterangan :string;

begin

clrscr;

writeln('harga fotokopi dengan beberapa jenis kertas');

write('kode kertas = ');

readln(kode);

write('jumlah = ');

readln(jumlah);

case kode of

1:harga:=jumlah*100;

2:harga:=jumlah*150;

3:harga=jumlah*200;

4:harga=jumlah*250;

end;

writeln('harga yang harus dibayar = ',harga);

readln;

end.

====================================================================================

Screenshot,

Setelah selesai seperti gambar di atas, Tekan CTRL+F9
dan jika tidak ada kesalahan akan keluar seperti ini

lalu masukan jenis ketas. (contoh kertas nomor 3)

lalu masukkan jumlah yang ini difotokopi dan tekan ENTER.

mungkin ini adalah salah satu cara penggunaan CASE OF, tetapi masih banyak variasi penggunaan  CASE OF tergantung orang yang menggunakan ini menambahkan variabel apa di pascal tersebut. 

Jika ada kesalahan pada program yang telah saya buat, mungkin itu karna saya khilaf, karena manusia tidak ada yang sempuna.
AHMAD FAJRI SA'ADI
J1F113031

Menghitung Sisi Miring Segitiga Dengan Bahasa Pemrograman "PASCAL"

Pascal adalah Bahasa Pemrograman terstruktur yang memiliki beberapa kelebihan pada pemilihan tipe data yang relatif lengkap, sederhana, mudah dipelajari dan ekspresif. Pascal pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota Internatinal Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal. Yang pertama kali menciptakan mesing penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, profesor Niklaur Wirth membuat pascal juga untuk melengkapi kekurangan - kekurangan bahasa Pemrograman yang ada pada saat itu.

Itu tadi sedikit pengertian dan sejarah pascal.
sekarang kita akan menggunakan Program pascal untuk menghitung sisi miring segitiga dengan teorema phytagoras :

====================================================================================
Program Phytagoras;
uses crt;
var alas,tinggi,miring : real;
Begin
clrscr;
writeln('program segitiga');
write('panjang alas = ');
readln(alas);
write('tinggi segitiga = ');
readln(tinggi);
miring :=sqrt((alas*alas)+(tinggi*tinggi));
write('jadi sisi miring segitiga adalah = ',miring:2:2);
readln;
end.
====================================================================================

Berikut adalah cara menghitung sisi miring segitiga dengan teorema phytagoras, menggunakan program Free pascal IDE:

Setelah dimasukan seperti gambar di atas, tekan CTRL + F9 untuk menjalankan programnya.

Jika kita menekan CTRL +F9 dan muncul yang seperti gambar ini

 Maka ada sesuatu yang error, atau ada sesuatu yang belum di tuliskan di dalam pascal tersebut.

Anda dapat mencek error tersebut di bagian bawah yaitu pada pascal yang backgraoundnya warna biru muda.

Jika tidak terjadi error, maka program pada pascal akan berjalan dan muncul seperti gambar berikut :

 nah, setelah ini anda dapat mengetahui berapa sisi miring segitiga tersebut dengan memasukan angka yang ada inginkan, seperti ini :

Beginilah cara untuk menghitung sisi miring segitiga dengan rumus phytagoras tetapi melalui program pascal.

Terima kasih.