Menerapkan Perulangan Dan Variabel Array Di Pascal

Teori dan beberapa contoh program Pascal yang menerapkan perulangan dan variabel array untuk latihan

 

1. Variabel Array dan Tipe Data

Pengertian Array: Array adalah struktur data yang digunakan untuk menyimpan sekumpulan data dengan tipe yang sama dalam satu variabel. Setiap elemen dalam array diakses menggunakan indeks, yang biasanya dimulai dari 1 atau 0 tergantung pada bahasa pemrogramannya. Di Pascal, array sering digunakan untuk menyimpan data yang berhubungan, seperti daftar nilai, nama, atau angka.

Deklarasi Array di Pascal: Untuk mendeklarasikan array di Pascal, Anda perlu menentukan tipe data dari elemen array dan rentang indeksnya.

Contoh:

var
  nilai: array[1..5] of integer;  { Array dengan 5 elemen bertipe integer }
  nama: array[1..10] of string;   { Array dengan 10 elemen bertipe string }

Penggunaan Array: Array dapat digunakan untuk menyimpan dan mengakses data secara efisien. Misalnya, Anda dapat menyimpan lima nilai ujian dalam satu array dan mengaksesnya dengan indeks.

Contoh:

nilai[1] := 90;
nilai[2] := 85;
nilai[3] := 88;
nilai[4] := 92;
nilai[5] := 87;

Tipe Data: Pascal memiliki berbagai tipe data seperti integer, real, char, string, dan boolean. Tipe data menentukan jenis nilai yang dapat disimpan dalam variabel.

Contoh:

• integer: Bilangan bulat, seperti 1, -5, 100.
• real: Bilangan desimal, seperti 3.14, 2.718.
• char: Karakter tunggal, seperti 'A', 'z'.
• string: Sekumpulan karakter, seperti 'Hello', 'Pascal'.
• boolean: Nilai logika, bisa true atau false.

2. Menggunakan Rumus Sederhana

Konsep Rumus Sederhana: Dalam pemrograman, rumus sederhana digunakan untuk melakukan operasi aritmatika dasar seperti penjumlahan, pengurangan, perkalian, dan pembagian. Di Pascal, operasi ini dilakukan menggunakan operator seperti +, -, *, dan /.

Contoh Rumus Sederhana di Pascal:
Misalkan Anda ingin menghitung luas persegi panjang.

Rumus: Luas = Panjang * Lebar

Contoh Program:

program HitungLuasPersegiPanjang;
uses crt;

var
  panjang, lebar, luas: real;

begin
  write('Masukkan panjang: ');
  readln(panjang);
  write('Masukkan lebar: ');
  readln(lebar);

  luas := panjang * lebar;  { Menghitung luas }

  writeln('Luas persegi panjang adalah: ', luas:0:2);
  readln;
end.

Dalam contoh di atas, program akan menghitung luas persegi panjang berdasarkan input panjang dan lebar dari pengguna.

3. Menerapkan Perulangan dan Variabel Array di Pascal

Penggunaan Perulangan: Perulangan digunakan untuk mengulang blok kode tertentu beberapa kali. Pascal menyediakan beberapa jenis perulangan, seperti for, while, dan repeat..until.

Contoh Perulangan Menggunakan for:
Misalkan Anda ingin menghitung rata-rata nilai dari 5 siswa.

Contoh Program:

program RataRataNilaiSiswa;
uses crt;

var
  nilai: array[1..5] of integer;
  i, total: integer;
  rataRata: real;

begin
  total := 0;
  
  { Menginput nilai siswa ke dalam array }
  for i := 1 to 5 do
  begin
    write('Masukkan nilai siswa ke-', i, ': ');
    readln(nilai[i]);
    total := total + nilai[i];  { Menjumlahkan nilai }
  end;

  rataRata := total / 5;  { Menghitung rata-rata }
  
  writeln('Rata-rata nilai siswa adalah: ', rataRata:0:2);
  readln;
end.

Penjelasan:

• Program di atas meminta pengguna untuk memasukkan nilai lima siswa dan menyimpannya dalam array nilai.
• Menggunakan perulangan for untuk menginput nilai dan menghitung totalnya.
• Setelah semua nilai dimasukkan, program menghitung rata-rata dengan membagi total nilai dengan jumlah siswa.
• Hasil rata-rata ditampilkan di layar.

Dengan materi di atas, Anda telah mempelajari tentang array, tipe data, rumus sederhana, dan bagaimana menggunakan perulangan dalam Pascal untuk memproses data dalam array. Pemahaman ini sangat berguna dalam menyelesaikan berbagai masalah pemrograman yang melibatkan data berulang.

----------------------------------------------------------------------------------------------

CONTOH PROGRAM UNTUK LATIHAN

Berikut beberapa contoh program Pascal yang menerapkan perulangan dan variabel array tanpa fitur latihan:

Contoh 1: Menghitung Total Pembelian

Program ini akan meminta pengguna untuk memasukkan harga barang yang dibeli, menghitung total pembelian, dan menampilkan totalnya setelah semua harga dimasukkan.

program TotalPembelian;
uses crt;

var
  harga: array[1..10] of real;
  total: real;
  i, n: integer;

begin
  clrscr;
  
  write('Masukkan jumlah barang yang dibeli: ');
  readln(n);

  total := 0;
  
  { Memasukkan harga barang ke dalam array dan menghitung total }
  for i := 1 to n do
  begin
    write('Masukkan harga barang ke-', i, ': ');
    readln(harga[i]);
    total := total + harga[i];
  end;

  writeln('Total pembelian: Rp', total:0:2);

  readln;
end.

Contoh 2: Menghitung Jumlah Bilangan Positif dan Negatif

Program ini meminta pengguna untuk memasukkan beberapa bilangan, kemudian menghitung berapa banyak bilangan positif dan negatif yang dimasukkan.

program HitungPositifNegatif;
uses crt;

var
  angka: array[1..10] of integer;
  jumlahPositif, jumlahNegatif, i, n: integer;

begin
  clrscr;

  write('Masukkan jumlah bilangan: ');
  readln(n);

  jumlahPositif := 0;
  jumlahNegatif := 0;

  { Memasukkan bilangan ke dalam array dan menghitung jumlah positif dan negatif }
  for i := 1 to n do
  begin
    write('Masukkan bilangan ke-', i, ': ');
    readln(angka[i]);

    if angka[i] > 0 then
      jumlahPositif := jumlahPositif + 1
    else if angka[i] < 0 then
      jumlahNegatif := jumlahNegatif + 1;
  end;

  writeln('Jumlah bilangan positif: ', jumlahPositif);
  writeln('Jumlah bilangan negatif: ', jumlahNegatif);

  readln;
end.

Contoh 3: Menghitung Nilai Rata-Rata

Program ini menerima beberapa nilai dari pengguna, menghitung rata-rata nilai tersebut, dan menampilkannya.

program RataRataNilai;
uses crt;

var
  nilai: array[1..10] of integer;
  total: integer;
  rataRata: real;
  i, n: integer;

begin
  clrscr;

  write('Masukkan jumlah nilai: ');
  readln(n);

  total := 0;
  
  { Memasukkan nilai ke dalam array dan menghitung totalnya }
  for i := 1 to n do
  begin
    write('Masukkan nilai ke-', i, ': ');
    readln(nilai[i]);
    total := total + nilai[i];
  end;

  rataRata := total / n;
  writeln('Rata-rata nilai adalah: ', rataRata:0:2);

  readln;
end.

Contoh 4: Menemukan Bilangan Terkecil dan Terbesar

Program ini meminta pengguna untuk memasukkan beberapa bilangan, kemudian menemukan dan menampilkan bilangan terkecil dan terbesar dari sekumpulan bilangan tersebut.

program BilanganTerkecilTerbesar;
uses crt;

var
  angka: array[1..10] of integer;
  i, n, terkecil, terbesar: integer;

begin
  clrscr;

  write('Masukkan jumlah bilangan: ');
  readln(n);

  { Memasukkan bilangan ke dalam array }
  for i := 1 to n do
  begin
    write('Masukkan bilangan ke-', i, ': ');
    readln(angka[i]);
  end;

  terkecil := angka[1];
  terbesar := angka[1];
  
  { Menemukan bilangan terkecil dan terbesar }
  for i := 2 to n do
  begin
    if angka[i] < terkecil then
      terkecil := angka[i];
    if angka[i] > terbesar then
      terbesar := angka[i];
  end;

  writeln('Bilangan terkecil: ', terkecil);
  writeln('Bilangan terbesar: ', terbesar);

  readln;
end.

Contoh 5: Mengurutkan Bilangan Secara Menaik (Ascending)

Program ini mengurutkan bilangan yang diinputkan pengguna secara menaik menggunakan metode Bubble Sort.

program UrutkanBilangan;
uses crt;

var
  angka: array[1..10] of integer;
  i, j, n, temp: integer;

begin
  clrscr;

  write('Masukkan jumlah bilangan: ');
  readln(n);

  { Memasukkan bilangan ke dalam array }
  for i := 1 to n do
  begin
    write('Masukkan bilangan ke-', i, ': ');
    readln(angka[i]);
  end;

  { Mengurutkan bilangan dengan Bubble Sort }
  for i := 1 to n-1 do
  begin
    for j := 1 to n-i do
    begin
      if angka[j] > angka[j+1] then
      begin
        temp := angka[j];
        angka[j] := angka[j+1];
        angka[j+1] := temp;
      end;
    end;
  end;

  writeln('Bilangan setelah diurutkan secara menaik:');
  for i := 1 to n do
  begin
    writeln(angka[i]);
  end;

  readln;
end.

Program-program ini memberikan ilustrasi penggunaan perulangan dan array di Pascal untuk berbagai operasi seperti penghitungan, pencarian, dan pengurutan data.

---

Credit :
Penulis : Danar Dono
Gambar oleh GrumpyBeere dari Pixabay