LATIHAN PROCEDURE DAN FUNCTION PADA PASCAL

LATIHAN PROCEDURE DAN FUNCTION PADA PASCAL

Program untuk melakukan perhitungan penjumlahan, pembagian dan perkalian.
Langsung saja ketikkan listing dibawah ini di pascalnya ya..

   program Sub_Program;
   uses crt;
   var hasil, nilai1, nilai2 : integer;
      hbagi : real;
   procedure Tambah;
   begin
      hasil := nilai1+nilai2;
      writeln('Nilai X + Y = ',hasil);
   end;
   procedure Kurang(p, q : integer);
   begin
      hasil := nilai1 - nilai2;
      writeln('Nilai X - Y = ',hasil);
   end;function Kali : integer;
   begin
      Kali := nilai1 * nilai2;
   end;
   function Bagi(p,q : integer) : real;
   begin
      bagi := p/q;
   end;
   procedure tukar(var p, q : integer);
   var r : integer;
   begin
      r := p;
      p := q;
      q := r;
   end;
   var pilih : integer;
   begin
      clrscr;
      pilih := 0;
      while (pilih <> 5) do
      begin
        writeln;
        writeln(' Masukkan Pilihan Proses ');
        writeln('-------------------------');
        writeln(' 1. Penjumlahan');
        writeln(' 2. Pengurangan');
        writeln(' 3. Perkalian');
        writeln(' 4. Pembagian');
        writeln(' 5. Selesai');
        writeln('-------------------------');
        repeat
          write('Masukkan Pilihan Anda : ');
          readln(pilih);
        until pilih in [1,2,3,4,5];
        if pilih = 5 then exit;
        write('Masukkan Nilai X : ');readln(nilai1);
        write('Masukkan Nilai Y : ');readln(nilai2);
        case pilih of
           1 : tambah;
           2 : begin
                if nilai1 < nilai2 then
                  tukar (nilai1, nilai2);
                kurang (nilai1, nilai2);
               end;
           3 : writeln('Hasil X * Y = ',Kali);
           4 : begin
                 hbagi := bagi (nilai1,nilai2);
                 writeln('hasil X / Y = ',hbagi:10:4);
               end;
        end;
      end;
   end.

   Jika sudah diketik maka gambarnya akan seperti dibawah ini

         Dan hasilnya akan seperti di bawah ini

Keterangan:

       Jika kita ingin melakukan perhitungan lagi maka masukkan pilihan dan jika tidak pilih pilihan 5

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN PROCEDURE DAN FUNCTION PADA PASCAL

LATIHAN PROCEDURE DAN FUNCTION PADA PASCAL 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN PROCEDURE DAN FUNCTION PADA PASCAL. Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: