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







5 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...

Post a Comment

 
;