Jumat, 08 Juli 2011

Fungsi If Then Else | 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.

Tidak ada komentar:

Posting Komentar

Habis baca alangkah baiknya untuk memberikan comment..
silahkan comment disini..
ingat !!
dilarang spamming, bicara PORNO atau SARA