PROGRAM KALKULATOR PASCAL

 

program kalkulator;

uses crt;

var

  nilai1, nilai2, hasil: real;

  aksi: string;

  

begin

  clrscr;

  textColor(10);

  //membuat judul

  WriteLn ('=========================') ;

  writeln ('= Bagus Ardi Kalkulator =') ;

  WriteLn ('=========================') ;

  WriteLn ('ini adalah program kalkulator sederhana') ;

  writeln ('silahkam dicoba!!') ;

  WriteLn (' ');

  //membuat pernyataan input

  write ('masukan nilai pertama : ');

  readln (nilai1);

  Write ('masukan nilai kedua : ');

  ReadLn (nilai2);

  write ('apa yang mau anda lakukan ( +, -, *, / ): ') ;

  readln (aksi) ;

  

  //membuat fungsi

  if (aksi = '+') then

  begin

   hasil := nilai1+nilai2;

  end;

  

  if (aksi = '-') then

  begin

   hasil := nilai1-nilai2;

  end;

  

  if (aksi = '*') then

  begin

   hasil := nilai1*nilai2;

  end;

  

  if (aksi = '/') then

  begin

   hasil := nilai1/nilai2;

  end;

  //menampilkan hasil

  WriteLn('hasilnya adalah : ', hasil:5:0);

  ReadLn;

  

  WriteLn('Terima Kasih Sudah Menggunakan ^_^');

  readln;

end.