dokter matematika

Masih dengan Pascal, kali ini kita akan mencoba membuat program matematika sederhana untuk mengidentifikasi bilangan. gambar dibawah ini merupakan hasil dari program Pascal.

Pascal merupakan bahasa pemrograman sederhana, dalam hal ini kita bisa saling share dan diskusi tentang Pascal lebih lanjut. semakin banyak berdiskusi semakin banyak ilmu yang bisa didapat. marilah kita belajar bersama. di bawah ini adalah bahasa pemrograman untuk gambar diatas.


label ulang;
var
a:integer;
b:char;
begin
writeln('PROGRAM IDENTIFIKASI BILANGAN');
writeln('=============================');
ulang:
write('Masukan Bilangan = ');
readln(a);
if a<0 then
      if a mod 2=0 then
      writeln('Bilangan ',a,' adalah bilangan genap negatif.')
      else
      writeln('Bilangan ',a,' adalah bilangan ganjil negatif.');
if a>0 then
      if a mod 2=0 then
      writeln('Bilangan ',a,' adalah bilangan genap positif.')
      else
      writeln('Bilangan ',a,' adalah bilangan ganjil negatif.');
if a=0 then
      writeln('Zero Point');
writeln('Apakah anda ingin mengulang program ini?');
writeln('(tekan y jika ya)');
write('Jawaban ');
read(b);
if (b='y') or (b='Y') then
   goto ulang
   else
   writeln('Terima Kasih Telah Menggunakan Program Ini.');
  
end.

Do You Wanna Try?????