Program Kalkulator Sederhana dengan Pascal

Pascal adalah bahasa pemrograman yang paling mudah dimengerti untuk mulai belajar pemrograman. Pascal banyak digunakan untuk mengenalkan dunia pemrograman pada calon programmer. Buat temen-temen yang baru belajar bahasa Pascal dan butuh source code kalkulator sederhana, nich kode programnya:

Program Kalkulator;

uses wincrt;

var
   pil:integer;
   a,b,c:real;
   ulang:char;

 {Tampilan Menu Utama}
Procedure Menu;
   Begin
      gotoxy(30,5); writeln('----------------------------');
      gotoxy(30,6); writeln('         MENU UTAMA         ');
      gotoxy(30,7); writeln('----------------------------');
      gotoxy(30,8); writeln('1. Penjumlahan              ');
      gotoxy(30,9); writeln('2. Pengurangan              ');
      gotoxy(30,10);writeln('3. Perkalian                ');
      gotoxy(30,11);writeln('4. Pembagian                ');
      gotoxy(30,12);writeln('5. Kuadrat Bilangan         ');
      gotoxy(30,13);Writeln('6. Akar Bilangan            ');
      gotoxy(30,14);writeln('7. Pembuat Program          ');
      gotoxy(30,15);writeln('8. Keluar Program           ');
      gotoxy(30,16);writeln('----------------------------');
      gotoxy(30,17);writeln('    Pilih :                 ');
      gotoxy(30,18);writeln('----------------------------');
      gotoxy(42,17);Readln(pil);
   End;

{Program Penjumlahan}
Procedure Penjumlahan;
begin
     gotoxy(22,1);write('-==PROGRAM PENJUMLAHAN==-');
     gotoxy(22,2);Write('Masukkan Nilai Pertama : ');
     Readln(a);
     gotoxy(22,3);write('Masukkan Nilai Kedua : ');
     Readln(b);
     c:=a+b;
     gotoxy(22,4);writeln('Hasil : ',c:2:2);
End;

{Program Pengurangan}
Procedure Pengurangan;
begin
     gotoxy(22,1);write('-==PROGRAM PENGURANGAN==-');
     gotoxy(22,2);Write('Masukkan Nilai Pertama : ');
     Readln(a);
     gotoxy(22,3);write('Masukkan Nilai Kedua : ');
     Readln(b);
     c:=a-b;
     gotoxy(22,4);writeln('Hasil : ',c:2:2)
End;


{Program Perkalian}
Procedure Perkalian;
Begin
     gotoxy(22,1);write('--==PROGRAM PERKALIAN==--');
     gotoxy(22,2);Write('Masukkan Nilai Pertama : ');
     Readln(a);
     gotoxy(22,3);write('Masukkan Nilai Kedua : ');
     Readln(b);
     c:=a*b;
     gotoxy(22,4);writeln('Hasil : ',c:2:2)
End;


{Program Pembagian}
Procedure Pembagian;
Begin
     gotoxy(22,1);write('--==PROGRAM PEMBAGIAN==--');
     gotoxy(22,2);Write('Masukkan Nilai Pertama : ');
     Readln(a);
     gotoxy(22,3);write('Masukkan Nilai Kedua : ');
     Readln(b);
     if (b<>0) then
     begin
     c:=a/b;
     gotoxy(22,4);writeln('Hasil : ',c:2:2) ;
     end
     else
     begin
     gotoxy(22,4);Writeln('Tidak bisa dibagi Nol!')
     end; 
End;


{Program Untuk menghitung kuadrat dari suatu bilangan}
Procedure Kuadrat;
Begin
     gotoxy(22,1);write('-=KUADRAT BILANGAN=-');
     gotoxy(22,2);Write('Masukkan Bilangan : ');
     Readln(a);
     b:=sqr(a);
     gotoxy(22,3);writeln('Kuadrat dari ',a:2:2, ' adalah : ',b:2:2);
End;


{Program untuk Menghitung akar}
Procedure Akar;
Begin
     gotoxy(23,1);write('-==AKAR BILANGAN==-');
     gotoxy(22,2);Write('Masukkan Bilangan : ');
     Readln(a);
     b:=sqrt(a);
     gotoxy(22,3);writeln('Akar dari ',a:2:2,' adalah ',b:2:2)
End;

{Narsis, Untuk Menampilkan yg nama pembuat program}
Procedure Pembuat;
begin
     gotoxy(18,1);write('------========================------');
     gotoxy(18,2);write('  Program ini dibuat oleh :         ');
     gotoxy(18,3);write('------========================------');
end;

{PROGRAM UTAMA}
Begin

   ulang :='Y';
   while (ulang = 'Y') or (ulang = 'y') do
     begin
          clrscr;
          Menu;
          clrscr;
          case pil of
          1 : Penjumlahan;
          2 : Pengurangan;
          3 : Perkalian;
          4 : Pembagian;
          5 : Kuadrat;
          6 : Akar;
          7 : Pembuat;
          8 : donewincrt;
     end;

         {Jika terjadi kesalahan pemilihan}
         if (pil>8 ) or (pil<1) then
         begin
              gotoxy(27,3);writeln('Pilihan Anda Salah!');
         end;
   gotoxy(15,5);writeln('==========================================');
   gotoxy(15,6);writeln('Apakah Anda ingin mencoba lagi? (Y/T) :   ');
   gotoxy(15,7);writeln('==========================================');
   gotoxy(55,6);Readln(ulang);
end;
donewincrt;
End.

BAGIKAN KE:

8 comments: