If Then Else

Pak Dengklek memberikan Anda sebuah bilangan bulat N (-100.000 ≤ N ≤ 100.000). Jika N adalah positif, maka cetak positif. Jika N adalah negatif, cetak negatif. Selain itu (yaitu jika N adalah 0), cetak nol.

Format Masukan

Baris pertama berisi sebuah bilangan bulat N.

Format Keluaran

Sebuah baris berisi keluaran sesuai permintaan soal.

Contoh Masukan 1

2

Contoh Keluaran 1

positif

Contoh Masukan 2

0

Contoh Keluaran 2

nol

Contoh Masukan 3

-2

Contoh Keluaran 3

negatif

Petunjuk

Anda memerlukan struktur if-then-else yang sedikit berbeda dari struktur if-then sebelumnya. Perhatikan struktur if-then berikut

if <kondisi> then
begin
    <perintah-perintah>
end;
<perintah-perintah selanjutnya>

Jika pada struktur if-then saat kondisi yang diperiksa tidak benar maka komputer hanya melompati <perintah-perintah> untuk langsung menjalankan <perintah-perintah selanjutnya>. Sementara pada struktur if-then-else sebagai berikut.

if <kondisi> then
begin
    <perintah-perintah 1>
end
else
begin
    <perintah-perintah 2>
end;
<perintah-perintah selanjutnya>

Jika <kondisi> benar maka komputer akan menjalankan <perintah-perintah 1> lalu lompat ke <perintah-perintah selanjutnya> dan jika <kondisi> tidak benar maka komputer akan menjalankan <perintah-perintah 2> lalu ke <perintah-perintah selanjutnya>.

Jadi dalam latihan ini jika kondisi yang diperiksa adalah bil > 0; maka <perintah-perintah 1>; adalah mencetak "positif". Sementara itu karena kondisi tidak benar masih harus dibedakan antara negatif atau nol untuk mencetak "negatif" atau "nol", maka di dalam else-begin-end dibuat kembali pemeriksaan if-then-else yang mana kondisi yang diperiksa adalah apakah bil = 0 sebagai berikut.

if bil > 0 then
begin
    writeln('positif');
end
else
begin
    if bil = 0 then
    begin
        writeln('nol');
    end
    else
    begin
        writeln('negatif');
    end;
end;

Adanya satu struktur di dalam struktur yang sama dikenal dengan istilah nested structure (struktur bersarang), dalam hal ini adalah nested if-then-else. Dalam Pascal seberapa dalam struktur nested tidak dibatasi, namun akan menyulitkan kita sendiri dalam membaca program itu. Untuk mempermudah pembacaan maka biasanya struktur yang berada lebih dalam dituliskan dengan indentasi seperti di atas. Namun kompilator Pascal akan mengabaikan identasi tersebut, jadi indentasi sepenuhnya untuk kerapian penulisan program demi kemudahan membacanya kembali.

Jawabannya adalah :