Saturday, October 13, 2012

contoh program if..then..else pada pascal

if ... then.. else
digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.
bentuk sintaksnya:
IF (kondisi) THEN nilai_jika_benar;
  ELSE nilai_jika_salah;

Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding
OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh 1 :
jika nilai > 70 maka LULUS, jika tidak maka GAGAL

program kelulusan;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.

IF Majemuk
untuk > 1 statement

Contoh 2 :
untuk mengetahui nilai siswa
jika nilai >= 85 maka nilai A
>=75 maka nilai B
>=65 maka nilai C
< 65 maka nilai D

program penilaian;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai >=85 then writeln('nilai A')
else if nilai>=75 then writeln('nilai B')
else if nilai>=65 then writeln('nilai C')
else writeln('nilai D');
readln;
end.

SELAMAT MENCOBA :)







20 comments:

marwati said...

makasih

@TataPW said...

kembali kasih :)

maldini ardy said...

itu if sama else if di akhir ga pake titik koma?bukannya pake ya?

Dj Terselubung said...

Thanks Atas Ilmu dan Info Uniknya

mohammad ilyas said...

Makasih Om. Saya terbantu dengan adanya artikel dari blog yang Om buat. Sukses ya Om...

Ridwan Nakagawa said...

Makasih

Waode Anas said...

kalau make ELSE udah nggak usah make titik koma lagi. ELSE itu udah semacam penggati titik koma kalo nggak salah

Indra rizqi said...

trim gan ya... sangat membantu.,..

Taufik Hidayat said...

https://punyatopek.blogspot.co.id/2016/05/contoh-program-turbo-pascal.html

hifdzul malik said...

ada yang case of gak gan

Junizar Zikri said...

makasih mba tatapw

Cherryl Nanlohy said...

thank you

Umar Dani said...

makasih

Ria Anggraini said...

sangat membantu sekali blognya
Blog

www.MultiKhasiat.com said...

Gan kalo misalkan dalam satu if terdapat banyak statmen gimana.?
contoh :
begin
if a > 1 then
write('bukan samadengan satu')
{-ingin menulis write lagi tapi error utk statmen ke dua-}
else
write('kurang dari 1');
end;

.

ahmad barjo said...

thanks alot

devangga pradana said...

Thanks, sangat membantu

dhea said...

very good blog

My blog

fadhila rizki said...

thankyou gan infonya


My blog

mega lestari said...

terlalu sederhana

Post a Comment

 
;