Program Pascal Menghitung Pangkat Dengan Fungsi (Function)

Bagi kalian yang ingin membuat program untuk mencari pangkat pada bilangan menggunakan fungsi, silahkan simak di bawah source code programnya. Berikut ini source code lengkapnya :

Program Menghitung_Pangkat;
Uses Crt;
Var Nilai, P, I, Hasil, Pang : Integer;
Function Pangkat(X,Y : Integer) : Integer;
Begin
         Pangkat := X*Y;
End;
Begin
         Clrscr;
         Writeln('      MENGHITUNG BILANGAN PANGKAT');
         Writeln('-----------------^^^-------------------^^^------------------');
         Write('Masukkan Nilai                           : '); Readln(Nilai);
         Write('Nilai yang akan di Pangkatkan : '); Readln(P);
         Writeln(Nilai, ' ^ ', P, ' = ');
          Hasil := 1;
          For I := 1 To P Do
          Begin
          If I <> P Then Write(Nilai, ' * ') Else
                Write(Nilai, ' = ');
          End;
          Pang := Pangkat(Hasil,Nilai);
          Write(Pang);
          Textcolor(6);
          GotoXY(3,9); Write('Program By SLEMANTO');
          Readln;
End.

Berikut ini hasil screenshot dari program tersebut diatas :

Hasil outputnya :

Sekian pembahasan dari Admin tentang cara pembuatan program menghitung bilangan pangkat dengan menggunakan fungsi pada program pascal. Semoga artikel ini dapat bermanfaat.

Program Pascal Membuat Berkas Data Dengan Array.

Pada artikel kali ini Admin akan membagikan list coding program sebagaimana sesuai judul di atas, yakni membuat program sederhana dengan menggunakan Array. Berikut ini source codingnya :

Program Isi_Berkas;
Uses Crt;
Const Jumlah_Mk = 5;
    Type B_Nilai = 1..100;
        Nilai               = Record
        Nama_Mhs   : String[25];
        No_Mhs        : String[5];
        Angkatan      : String[5];
        Nilai_Ujian    : Array [1..Jumlah_Mk] Of B_Nilai;
        Nilai_Rata      : Real;
    End;
D_Nilai = File Of Nilai;
Var  Daf_Nilai   : D_Nilai;
        Nilai_Mhs : Nilai;
        I, J               : Integer;
        Lagi            : Char;
Begin
        Assign(Daf_Nilai , 'Nilai.Dat');
        Rewrite (Daf_Nilai);
        I := 0;
        Repeat
        Inc (I);
        Clrscr;
        Writeln('MENGISI DATA PADA BERKAS "NILAI .DAT" ');
        Writeln(---------------------------------------------------------------------------');
        Writeln(MENGISI REKAMAN KE : ', I:2);
        Writeln('--------------------------------------------------------------------------');
        With Nilai_Mhs Do
        Begin
                 Nilai_Rata := 0.0;
                 Write('Nama Mahasiswa   : '); Readln(Nama_Mhs);
                 Write('Nomor Mahasiswa : '); Readln(No_Mhs);
                 Write('Angkatan                 : '); Readln(Angkatan);
                 For J := 1 To Jumlah_Mk Do
                 Begin
                         Write('Nilai MK ',J,'     : '); Readln(Nilai_Ujian[J]);
                          Nilai_Rata := Nilai_Rata + Nilai_Ujian[J];
                 End;
                 Nilai_Rata := Nilai_Rata/Jumlah_Mk;
                 Writeln('Nilai Rata-rata    : ', Nilai_Rata:2:0);
         End;
         Write(Daf_Nilai, Nilai_Mhs);
         GotoXY(1,20); Write('Akan Mengisi Lagi ? [Y/T] : ');
         Readln(Lagi);
         Until Not (Lagi In ['Y','y']);
         Close(Daf_Nilai);
End.

Dibawah ini hasil screenshot program :

Hasilnya :

          

Demikian artikel tentang pembuatan program pada pascal tentang Array. Semoga bermanfaat.

Tipe Data Set Pada Pascal

SET

Pendahuluan

      Suatu set (himpunan) adalah suatu kumpulan dari obyek yang mempunyai urutan yang dianggap sebagai suatu kesatuan. Tiap-tiap obyek di dalam set disebut dengan anggota (member) atau elemen himpunan (elemen of the set). Anggota-anggota dari set harus mempunyai tipe yang sama dan disebut dengan base type dan base tye harus berbentuk tipe data sederhana yaitu bertipe ordinal (integer, boolean, char, skalar kecuali real).

Bentuk umum :

<nama variabel> = Set of  <tipe data / ordinal nilai> ;

Deklarasi tipe data set

Type data himpunan merupakan type yang unik dari PASCAL.  Type ini memungkinkan kita untuk mengadakan operasi himpunan.  Pembentukan type data himpunan dan variable bertype himpunan adalah :

-  Dalam Deklarasi Type

    Type

    NamaTypeData = Set Of TypeData;

    NamaTypeData :  adalah type himpunan yang didefinisikan.

    TypeData :  adalah data bertype ordinal.

-  Dalam Deklarasi Variabel

    Var

    NamaVar, NamaVar, … : NamaTypeDataHimpunan;

Pembentuk set

Pembentuk set (set constructor) ,menunjukkan elemen elemen yang digunakan di dalam ungkapan set. Set constructor terdiri dari satu atau lebih elemen jangkauan dari elemen yang dipisahkan dengan koma dan diletakkan diantara kurung bracket (‘[‘ dan ‘]’).

Memasukkan nilai tipe set ke variable

—           Tipe Himpunan

—          Tipe himpunan adalah kumpulan obyek yang mempunyai tipe data yang sama dan urutan penulisannya tidak diperhatikan.Setiap onyek di dalam suatu himpunan disebut dengan anggota atau elemen himpunan bentuk umum deklarasi himpunan adalah type pengenal = set of tipe_data ;—  atau dapat juga langsung dideklarasikan dalam bagian deklarasi perubah seperti berikut :

    var pengenal = set of tipe_data;

      Keterangan :
      pengenal  : nama perubah atau pengenal yang akan dinyarakan sebagai tipe himpunan.
      tipe_data : tipe data dari anggota himpunan, harus bertipe ordinal.


      Contoh deklarasi himpunan adalah sebagai berikut :
      Type Irama  = (jazz, rock, blues, country, classic);
      Musik          = set of Irama);
      Nilai            = set of 0..10;  
      Untai          = set of char;
      Huruf          = set of  'A'.. 'Z';
      Sakit           = (pusing, mual, lemas, lesu, letih);
      Penyakit     = set of Sakit;

  

Operasi SET (Himpunan)

1.  Operasi Penjumlahan Disebut juga operasi penggabungan (UNION), Operatornya (+).

      Contoh :

       A:= [‘B’,’F’,’J’,’L’];

       A:= A + [‘a’,’B’,’b’,’c’,’d’,’e’,’f’,’j’,’k’,’l’]
       maka nilai A sekarang adalah [‘B’,’F’,’J’,’L’,‘a’,’b’,’c’,’d’,’e’,’f’,’j’,’k’,’l’].

2.  Operasi Pengurangan Disebut juga operasi selisih SET, operatornya (-).

      Contoh :

      A:=[1,2,3,4,5];

      B:=[4,5,6,7];

      W:=A-B;

      maka nilai W adalah [1,2,3].

3.  Operasi Perkalian Disebut juga operasi Intersection (irisan), operatornya (*).

      Contoh :

      A:=[1,2,3,4,5];

      B:=[1,3,5,6,7];

      C:=A*B;

      maka nilai C adalah [1,3,5].

Penyeleksian set

Hubungan antara satu set dengan set yang lainnya dapat di seleksi dengan menggunakan operator hubungan.

Set Equality (kesamaan Set) ialah set A dikatakan sama dengan set B (A=B) bila semua anggota dikedua set tersebut bernilai sama.

Operasi set

Operator untuk variable / data bertype himpunan adalah :

Jika A, B adalah variable bertype himpunan :

   =    :  A  =  B  bernilai TRUE jika set A sama dengan set B.

   <>  :  A <> B bernilai TRUE jika set A tidak sama dengan set B. 

   <=  :  A <= B bernilai TRUE jika set A adalah himpunan bagian set B.

   <>  :  A >= B bernilai TRUE jika set A adalah himpunan pemuat set B.

   in    :  keanggotaan.

 Contoh :

 Untuk variable yang didefinisikan diatas

 ‘A’ in Jawab bernilai TRUE

 2  in Pilih bernilai TRUE

 [‘A’, ‘a’] <= Jawab bernilai FALSE

 Jawab <= Vokal bernilai TRUE

 Yang harus diingat bahwa variable bertype Set tidak dapat dibaca  dan dicetak. Jika kita melakukan pembacaan atau penulisan akan muncul pesan “Cannot Read and Write Variable in This Type”.

Demikian artikel tentang tipe data set pada pascal, sekian dan terima kasih.

Program Pascal Untuk Perhitungan Dasar Matematika

Bagi teman-teman yang baru belajar menggunakan Pascal, berikut ini salah satu dasar programming dalam Pascal untuk perhitungan matematis.
Langkah-langkah Pemrogramannya :

1.    Masukkan Judul Program seperti dibawah :

Program Modul2;

2.    Untuk mengambil kendali biar bisa menggunakan perintah Clrscr untuk membersihkan layar, masukan :

Uses Crt;

3.  Masukkan Procedure lalu deklarasikan parameternya, sesuai dengan jumlah operasi perhitungan yang akan digunakan.

Procedure Tugas (A, B : Integer);

Var

                    C, D, E : Integer;

                    F : Real;

Begin

                    C := A+B;

                    D := A*B;

                    E := A-B;

                    F := A/B;

                    Textcolor(1);

                    Writeln(‘Hasil Tambah : ‘,C);

                    Textcolor(2);

                    Writeln(‘Hasil Kali       : ‘, D);

                    Textcolor(3);

                    Writeln(‘Hasil Kurang  : ‘,E);

                    Textcolor(4);

                    Writeln(‘Hasil Bagi      : ‘,Round(F));

End;

4.    Setelah itu kemudian masuk ke program utamanya, namun deklarasikan program utama terlebih dahulu :

Var X, Y : Integer;

5.    Masukkan isi program utama :

Begin

Clrscr;

Textcolor(5);

Write(‘Nilai X ? ‘); Readln(X);

Textcolor(6);

Write(‘Nilai Y ? ‘); Readln(Y);

Tugas(X, Y);

Textcolor(8);

GotoXY(1,8); Write(‘Program By SLEMANTO’);

Readln;

End.

Lihat seperti gambar berikut ini :

Setelah itu Run program dan masukkan nilai yang akan hitung (Nilai X dan Y). Hasilnya bisa di lihat pada gambar di bawah.

Demikian pemrograman Pascal untuk perhitungan. Sekian dan terima kasih.