program jenis_bilangan_bulat;
uses wincrt;
var
x : integer;
begin
write ('Masukkan sembarang angka=');read(x);
if x >0 then
write ('positif')
else
if x <0 then
write('negatif')
else
write ('nol')
end.
Terima Kasih Sobat Sudah: 1. Berkomentar Dengan Sopan 2. Tidak Memasukkan Link Aktif Dalam Form Komentar 3. Berkomentar Sesuai Artikel/Postingan 4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi 5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN. Thanks EmoticonEmoticon
Terima Kasih Sobat Sudah:
1. Berkomentar Dengan Sopan
2. Tidak Memasukkan Link Aktif Dalam Form Komentar
3. Berkomentar Sesuai Artikel/Postingan
4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi
5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM
Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN.
Thanks
EmoticonEmoticon