PASCAL - IF . . THEN 2

Masih ada lagi nih IF . . THEN PASCAL nya... !!! Silahkan dicoba...
Programnya :

Outputnya :

Logikanya :

1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
2. Selanjutnya ketik “var bil : integer;” ( untuk memberi tahu bahwa bil ini adalah integer ). ENTER. 
3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya). 
5. Lalu ketik “write(‘masukkan bilangan : ‘);” ( untuk menginput program ). ENTER. 
6. Kemudian ketik “readln (nilai);” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
7. Selanjutnya ketik “if (bil < 0 ) then writeln (‘bilangan negatif’)”. (untuk membaca kondisi jika kurang dari nol maka bilangan negatif). 
8. Dan “else if ( bil > 0 ) then writeln (‘bilangan positif’)”. ( untuk membaca kondisi jika lebih dari nol maka bilangan positif). 
9. Dan “else writeln (‘bilangan nol’);” ( untuk membaca kondisi jika sama dengan nol maka bilangan nol). 
10. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
11. END. ( untuk mengakhiri program ).

Dari pada pusing - pusing baca Logika saya. Mending langsung coba aja programnya. Siapa tau Logika anda lebih baik dari saya...!! hehe..

SEMOGA BERMANFAAT...!!!