Page 96 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

read(cc)

write(cc)
endif

Ingatlah bahwa aksi sesudah kata then akan dikerjakan hanya

jika kondisi bernilai true ( dalam hal ini, not ada bernilai true bila ada
= false ).

Contoh analisis :

Dibaca sebuah karakter. Diminta menuliskan pesan ‘huruf hidup’ jika
karakter tersebutmerupakan huruf vokal.

Penyelesaian

Algoritma HURUF_VOKAL
{ mencetak pesan “huruf vokal” bila sebuah karakter yang dibaca
merupakan huruf hidup, asumsikan karakter yang dibaca adalah huruf
kecil }

DEKLARASI
c : char

DESKRIPSI
read(c)
if (c=’a’) or (c=’i’) or (c=’u’) or (c=’e’) or (c=’o’) then

write(‘huruf hidup’)
endif

Jadi, program HURUF_VOKAL dalam bahasa pascal adalah sebagai

berikut :

program HURUF_VOKAL;

uses wincrt;

(* DEKLARASI *)
var
c : char;

(* DESKRIPSI *)

begin
writeln('masukkan huruf');read(c);

if (c='a') or (c='i') or (c='u') or (c='e') or (c='o') then
write('huruf hidup')
end.
end.