Fungsi If Then Else | Free Pascal | Tutorial

Free Pascal Tutorial

Sekarang kita akan belajar lebih jauh mengenai fungsi If Then. Ini adalah pengembangan dari fungsi tersebut. Jadi, Jika ini Maka itu Jika tidak ini (Else), maka yang lain.
Bingung?? Jika Bingung, mari perhatikan struktur dibawah ini :

if (kondisi) then
begin
    (perintah-perintah 1)
end
else
begin
    (perintah-perintah 2)
end;
(perintah-perintah selanjutnya)

Bagaimana komputer membaca program diatas??

Nah jika kita menginput sesuatu. Komputer akan mengecek inputan itu dengan (kondisi) yang telah diberikan. Nah jika, kondisi benar, maka komputer akan melanjutkan ke perintah-perintah 1 lalu akan loncat ke perintah-perintah selanjutnya. Jika kondisi tidak memenuhi, maka komputer akan langsung ke perintah-perintah 2 kemudian loncat ke perintah-perintah selanjutnya.

Mudah bukan??
Nah, saatnya untuk Latihan. :)
Begini Soalnya :

Seseorang 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

1 bilangan integer

Format Keluaran

Berisi jawaban sesuai apa yang soal minta

Input

4

Output

positif

Contoh Input

-6

Contoh Output

negatif

Contoh Input

0

Contoh Output

nol

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if a > 0 then
      begin
         writeln ('positif');
      end
      else
      if a = 0 then
         begin
           writeln ('nol');
         end
         else
         if a < 0 then
            begin
               writeln ('negatif');
            end;
end.