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 :)