Penggunaan perintah case pada pascal

perintah CASE pada program pascal ini hampir sama dengan penggunaan IF. Perbedaannya yaitu penggunaan perintah CASE ini lebih singkat dan cepat dibandingkan perintah IF. Semua masalah yang bisa dikerjakan oleh CASE pasti bisa ditangani oleh IF, tetapi tidak sebaliknya.

Contoh untuk mencari harga kertas menggunakan perintah CASE. Ada empat jenis kertas dan masing-masing memiliki perbedaan harga.


masukan script pada pascal seperti dibawah ini:
program unik;
uses crt;
var kode,jumlah,bayar : integer;
begin
clrscr;
writeln('Kode kertas : ');
readln(kode);
writeln('jumlah : ');
readln(jumlah);
case kode of
1:bayar:=jumlah*100;
2:bayar:=jumlah*150;
3:bayar:=jumlah*360;
4:bayar:=jumlah*666;
end;
write('bayar :', bayar);
readkey;
end.

contoh gambar:

untuk contoh kita masukan kode kertas dan jumlah pembeliannya yang kita cari adalah jumlah yang harus kita bayar.

kode kertasnya : 4
jumlah yang dibeli :33
maka yang harus dibayar adalah Rp. 21.978;

Sekian postingan dari saya pada kesempatan kali ini terimakasih :)

IF DALAM PASCAL

pada kesempatan kali ini saya akan menulis tentang perintah if yg digunakan dalam pemrograman pascal.

perintah if yaitu Suatu aksi akan dikerjakan atau di eksekusi oleh program apabila kondisi yang didefinisikan untuk aksi tersebut bernilai benar (true). Sebaliknya, bila kondisi tidak terpenuhi atau salah (false) maka program akan melakukan aksi lain (jika ada) atau langsung keluar dari blok pemilihan. Saya akan memberikan contoh penggunaan if untuk mencari keterangan segitiga dan untuk mencari keterangan bayar kertas yang kita beli.

1.UNTUK MENCARI KETERANGAN SEGITIGA.

saya akan memberikan contoh penggunaan perintah if untuk mencari keterangan segitiga. Apabila alas nya lebih besar dari pada tinggi nya maka akan menghasilkan kondisi landai, Dan apabila tingginya lebih besar dari alasnya maka akan menghasikan kondisi curam.

masukan script dibawah ini pada program pascal

program segitiga;
uses crt;
var alas,tinggi:integer;
keterangan:STRING;
begin
clrscr;
writeln('alas= ');
readln(alas);
writeln('tinggi= ');
readln(tinggi);
if alas>tinggi THEN
keterangan:='landai'
else
keterangan:='curam';
writeln(keterangan);
readln(keterangan);
end.

setelah berhasil selanjutnya anda masukan nilai alas dan tingginya.
apabila nilai alas nya lebih besar dari nilai tingginya maka akan menghasilkan keterangan landai. Seperti gambar dibawah ini

Apabila nilai tingginya lebih besar dari nilai alasnya maka akan menghasilkan keterangan curam. Seperti gambar dibawah ini

2.UNTUK MENCARI KETERANGAN BAYAR KERTAS YANG KITA BELI.

Apabila kita masukan kode kertasnya (p) maka keterangannya polio dan harga 1 lembarnya adalah 100 rupiah. Dan apabila kita masukan kode kertasnya (q) maka keterangannya quarto dan harga 1 lembarnya 150 rupiah. Sama seperti mencari keterangan segitiga pertama kita masukan script pada pascal :

program keterangan_kertas;
uses crt;
var kertas,kode :string;
    bayar,harga,jumlah  :integer;
begin
clrscr;
writeln('masukan kode kertas : ');
readln(kode);
if kode='p' then kertas:='polio'
else kertas:='quarto';
if kertas='polio' then harga:=100
else harga:=150;
writeln('kertas: ', kertas);
writeln('harga: ',harga);
write('masukan jumlah:', jumlah);
readln(jumlah);
bayar:=jumlah*harga;
writeln('nah pian bayar: ', bayar);
readln;
end. 

 

 

sebagai contoh saya masukan kodenya p dan beli 66 lembar maka jumlah yg dibayar adalah :

 

Apabila  saya masukan kodenya q dan beli 12 lembar maka jumlah yg dibayar adalah :

sekian postingan saya pada kesempatan kali ini. Terimakasih :)

PROGRAM PASCAL UNTUK MENGHITUNG SISI MIRING SEGITIGA

Apa itu pascal??
Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya.

nah pada kali ini saya akan memposting bagaimana cara menghitung sisi miring segitiga dengan program pascal. dimana cara menghitung sisi miring yaitu akar dari alas pangkat dua ditambah tinggi pangkat dua.
langkah-langkahnya yaitu:

1. buka program pascal bisa turbo pascal atau free pascal (saya menggunakan free pascal).
2. masukan script di pascal
    
    PROGRAM pythagoras;
    USES crt;
    VAR a,t,c:real;
    BEGIN
    clrscr;
    write('alas segitiga(a)=');
    readln(a);
    write('tinggi segitiga(t)=');
    readln(t);
    c:=sqrt((a*a)+(t*t));
    writeln('nilai sisi miring (c)=',c:2:2);
    readln(c);
    end.


   kalau sudah anda masukan maka seperti gambar berikut

selanjutnya tekan ALT+F9 apabila sukses maka seperti gambar dibawah ini

untuk contoh kita masukan nilai alasnya(a)=6,nilai tingginya(t)=8, maka hitunglah sisi miringnya(c)?? 

maka sisi miringnya(c)=10