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







19 comments:

marwati said...

makasih

Catatan Asal said...

kembali kasih :)

Unknown said...

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

Unknown said...

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

Unknown said...

Makasih

Unknown said...

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

rizki said...

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

Unknown said...

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

bujang said...

ada yang case of gak gan

Unknown said...

makasih mba tatapw

Unknown said...

thank you

Unknown 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;

.

Unknown said...

thanks alot

pradana said...

Thanks, sangat membantu

Unknown said...

thankyou gan infonya


My blog

Unknown said...

terlalu sederhana

lordmaria said...

terima kasih

lordmaria said...

terima kasih

Post a Comment

 
;