Contoh Program Array Sederhana pada Pascal

Apa itu Array?

Array adalah struktur data yang kuat yang menyimpan data variabel yang memiliki tipe data yang sama. Ini adalah seperti sejumlah tetap kecil kotak dihubungkan bersama satu demi satu hal menyimpan lain yang terkait satu sama lain. Array dikatakan struktur data statis karena, pernah menyatakan, ukuran aslinya yang ditentukan oleh programmer akan tetap sama sepanjang seluruh program dan tidak dapat diubah.

Sampai sekarang, kami telah menggunakan variabel tunggal hanya sebagai alat untuk menyimpan data. Sekarang kita akan menggunakan larik dan di sini adalah bagaimana hal itu dinyatakan:

Contoh tampilan dari algoritma Array

Var

Array: Array [1..20] of Integer;

<Array Nama>: Array [n..m] dari <Tipe Data>;

Sebuah larik mendefinisikan ukuran array dan tipe data yang akan digunakan untuk menyimpan data. Dalam contoh di atas, toko-toko berbagai hingga 20 bilangan bulat namun saya mungkin telah menggunakan 30 bilangan bulat atau lebih. Ukuran ini tergantung pada kebutuhan program anda.

Array digunakan seperti variabel biasa. Mereka digunakan untuk menyimpan data diketik seperti variabel biasa. Anda sekarang akan belajar bagaimana untuk menetapkan data ke array dan membaca data dari array.
(Baca juga: contoh XHTML)

Untuk memberikan nilai pada bilangan bulat tertentu dari sebuah array, kita melakukannya seperti ini:

Array [5]: = 10;

Array [1]: = 25;

<arrayName> [index]: = <data yang relevan>

Anda hanya mengambil array dalam subjek, menentukan indeks dari variabel array dan menetapkan nilai yang relevan dengan jenis data array itu sendiri.

Membaca nilai dari array dilakukan sebagai berikut:

Var

    Var   : Integer;

    Array : Array[1..5] of Integer;

Begin

 Array[2] := 25;

 Var := myArray[2];

End.

Sama seperti variabel biasa, array harus dijalankan, jika tidak mengikis data yang akan tetap tersimpan di dalamnya. Jika kita ingin menginisialisasi 2 seluruh 20-berukuran integer dan boolean array ke 0 dan palsu masing-masing, kita melakukannya seperti ini:

Var

    i           : Integer;

    IntArray  : Array[1..20] of Integer;

    BoolArray : Array[1..20] of Boolean;

Begin

 For i := 1 to 20 do

  Begin

   IntArray[i]  := 0;

   BoolArray[i] := false;

  End;

End.

Memperkenalkan Type data User-Defined

Sekarang kita telah menggunakan berbagai built-in tipe data, kami telah tiba di titik yang kita ingin menggunakan jenis data yang didefinisikan kami. Tipe data built-in adalah orang-orang yang kita digunakan akhir-akhir ini, seperti Integer, Boolean dan String. Sekarang kita akan belajar bagaimana menentukan tipe data disesuaikan kita sendiri dan ini hanya bagaimana hal itu dilakukan:

Mengetik

<DataType> = <DataType tertentu>;

"Type" kata kunci adalah kata Pascal dilindungi digunakan untuk mendefinisikan tipe data kita sendiri. Jadi Anda mulai mendefinisikan jenis data Anda sendiri dengan menggunakan kata kunci ini. Setelah mendefinisikan jenis data Anda sendiri, Anda dapat mulai menggunakan mereka seperti tipe data lain built-in sebagai berikut:

var

<myVar>: <myDataType>;

Sekarang mari kita mendefinisikan sederhana tipe data baru dan perhatikan bagaimana akan digunakan dalam program di bawah ini:

Type

    namaType = String[50];

    usiaType  = 0..150; { elemen umur: dari 0 to 150 }

Var

    nama : nameType;

    usia  : ageType;

Begin

 Write('Masukkan nama toko: ');

 Readln(nama);

 Write('Masukkan umur toko: ');

 Readln(usia);

 Writeln;

 Writeln('Nama toko:', nama);

 Writeln('Usia toko :', usia);

 Readln;

End.

Dalam contoh di atas kita mendefinisikan sebuah String [50] dan tipe data 0..150. Nama Jenis-satunya toko senar hingga 50 karakter dan angka usia Type toko hanya 0-150. Kita dapat mendefinisikan kompleks lebih banyak jenis data yang ditetapkan pengguna. Berikut adalah contoh yang lebih kompleks tipe data yang ditetapkan pengguna:

Type

    i               = 1..5;

    ArrayDataType = Array[1..5] of Byte;

    byteFile        = File of Byte; { binary file }       

Var

    ArrayVar : ArrayDataType;

    myFile     : byteFile;

Begin

 Writeln('Please enter 5 number from (0..255): ');

 For i := 1 to 5 do

  Readln(ArrayVar[i]);

 Writeln('Masukkan nomor-nomor berikut: ');

 For i := 1 to 5 do

  Writeln('Nomor ',i,': ',ArrayVar[i]);

 Writeln('Masukkan File...');

 {menyimpan angka-angka dalam sebuah file}

 Assign(myFile, 'example.dat');

 ReWrite(byteFile);

 Write(myFile, ArrayVar[i]);

 Close(myFile);

 Writeln('Selesai, keluar..');

 Readln;

End.

Dalam contoh di atas saya menunjukkan bahwa bagaimana Anda  untuk menggabungkan array sebagai tipe data yang ditetapkan pengguna. Perhatikan bahwa Anda mungkin menggunakan tipe data yang ditetapkan pengguna lebih dari sekali.

Baiklah,  hanya itu Program sederhana Array pada Pascal. Semoga bermanfaat.

Baca juga : tipe data array dan juga senyawa yang lainnya

Tweet

Subscribe to receive free email updates: