Tipe Data dan Operasi Dasar pada Bahasa Pemrograman Pascal

Beberapa tipe data dasar yang digunakan untuk menyimpan berbagai jenis informasi di Bahasa Pemrograman Pascal

 

1. Tipe Data Dasar dalam Pascal

Bahasa Pascal memiliki beberapa tipe data dasar yang digunakan untuk menyimpan berbagai jenis informasi. Berikut adalah penjelasan mengenai tipe data dasar tersebut:

a. Integer

• Tipe data integer digunakan untuk menyimpan bilangan bulat, baik positif maupun negatif.
• Contoh deklarasi variabel integer:

var

  angka: Integer;

Contoh penggunaan:

angka := 5;

b. Real

• Tipe data real digunakan untuk menyimpan bilangan desimal atau bilangan pecahan.
• Contoh deklarasi variabel real:

var bilangan: Real;

Contoh penggunaan:

bilangan := 3.14;

c. Char

• Tipe data char digunakan untuk menyimpan karakter tunggal, seperti huruf, angka, atau simbol.
• Contoh deklarasi variabel char:

var karakter: Char;

Contoh penggunaan:

karakter := 'A';

d. Boolean

• Tipe data boolean digunakan untuk menyimpan nilai true atau false.
• Contoh deklarasi variabel boolean:

var kondisi: Boolean;

Contoh penggunaan:

kondisi := true;

e. String

• Tipe data string digunakan untuk menyimpan rangkaian karakter (teks).
• Contoh deklarasi variabel string:

var teks: String;

Contoh penggunaan:

teks := 'Halo, dunia!';

2. Operasi Dasar dalam Pascal

Setelah memahami tipe data dasar, penting untuk mengetahui operasi dasar yang dapat dilakukan dengan tipe data tersebut.

a. Operasi Aritmetika

• Penambahan (+): Menghasilkan penjumlahan dua angka.

var hasil: Integer; begin hasil := 3 + 2; { hasil = 5 } end.

Pengurangan (-): Menghasilkan selisih antara dua angka

var hasil: Integer; begin hasil := 5 - 3; { hasil = 2 } end.

Perkalian (*): Menghasilkan perkalian dua angka.

var hasil: Integer; begin hasil := 4 * 3; { hasil = 12 } end.

Pembagian (/): Menghasilkan hasil pembagian dua angka. Hasilnya berupa bilangan real

var hasil: Real; begin hasil := 10 / 3; { hasil ≈ 3.3333 } end.

Pembagian integer (div): Menghasilkan hasil pembagian dua angka sebagai bilangan bulat.

var hasil: Integer; begin hasil := 10 div 3; { hasil = 3 } end.

Modulus (mod): Menghasilkan sisa pembagian dua angka.

var hasil: Integer; begin hasil := 10 mod 3; { hasil = 1 } end.

b. Operasi Perbandingan

• Persamaan (=): Mengecek apakah dua nilai sama.

var sama: Boolean; begin sama := (5 = 5); { sama = true } end.

Ketidaksamaan (<>): Mengecek apakah dua nilai tidak sama.

var tidakSama: Boolean; begin tidakSama := (5 <> 3); { tidakSama = true } end.

Lebih besar (>): Mengecek apakah nilai pertama lebih besar dari nilai kedua

var lebihBesar: Boolean; begin lebihBesar := (5 > 3); { lebihBesar = true } end.

Lebih kecil (<): Mengecek apakah nilai pertama lebih kecil dari nilai kedua

var lebihKecil: Boolean; begin lebihKecil := (3 < 5); { lebihKecil = true } end.

Lebih besar atau sama (>=): Mengecek apakah nilai pertama lebih besar atau sama dengan nilai kedua.

var lebihBesarSama: Boolean; begin lebihBesarSama := (5 >= 5); { lebihBesarSama = true } end.

Lebih kecil atau sama (<=): Mengecek apakah nilai pertama lebih kecil atau sama dengan nilai kedua.

var lebihKecilSama: Boolean; begin lebihKecilSama := (3 <= 5); { lebihKecilSama = true } end.

c. Operasi Logika

• AND (and): Menghasilkan true jika kedua kondisi true.

var hasil: Boolean; begin hasil := (true and false); { hasil = false } end.

OR (or): Menghasilkan true jika salah satu kondisi true.

var hasil: Boolean; begin hasil := (true or false); { hasil = true } end.

NOT (not): Menghasilkan negasi dari kondisi yang diberikan

var hasil: Boolean; begin hasil := not true; { hasil = false } end.

3. Latihan Praktis

Latihan ini bertujuan untuk membantu mahasiswa mengaplikasikan pemahaman mereka tentang tipe data dan operasi dasar.

Latihan 1: Penjumlahan dan Pengurangan

Tulis program yang meminta pengguna memasukkan dua angka dan menghitung serta menampilkan hasil penjumlahan dan pengurangan angka tersebut

program Latihan1; uses crt; var angka1, angka2, penjumlahan, pengurangan: Integer; begin write('Masukkan angka pertama: '); readln(angka1); write('Masukkan angka kedua: '); readln(angka2); penjumlahan := angka1 + angka2; pengurangan := angka1 - angka2; writeln('Hasil penjumlahan: ', penjumlahan); writeln('Hasil pengurangan: ', pengurangan); end.

Latihan 2: Perbandingan Angka

Tulis program yang meminta pengguna memasukkan dua angka, kemudian membandingkan kedua angka tersebut menggunakan operasi perbandingan.

program Latihan2; uses crt; var angka1, angka2: Integer; begin write('Masukkan angka pertama: '); readln(angka1); write('Masukkan angka kedua: '); readln(angka2); writeln('Apakah angka pertama sama dengan angka kedua? ', angka1 = angka2); writeln('Apakah angka pertama tidak sama dengan angka kedua? ', angka1 <> angka2); writeln('Apakah angka pertama lebih besar dari angka kedua? ', angka1 > angka2); writeln('Apakah angka pertama lebih kecil dari angka kedua? ', angka1 < angka2); end.

Latihan 3: Penghitungan Rata-Rata

Buat program yang meminta pengguna untuk memasukkan tiga angka, kemudian menghitung dan menampilkan rata-rata dari ketiga angka tersebut.

program PenghitunganRataRata; uses crt; var angka1, angka2, angka3: Real; rataRata: Real; begin write('Masukkan angka pertama: '); readln(angka1); write('Masukkan angka kedua: '); readln(angka2); write('Masukkan angka ketiga: '); readln(angka3); rataRata := (angka1 + angka2 + angka3) / 3; writeln('Rata-rata dari ketiga angka: ', rataRata:0:2); end.

Latihan 4: Konversi Suhu

Buat program yang meminta pengguna memasukkan suhu dalam satuan Celsius, kemudian mengonversinya ke Fahrenheit dan Kelvin.

program KonversiSuhu; uses crt; var suhuCelsius: Real; suhuFahrenheit, suhuKelvin: Real; begin write('Masukkan suhu dalam Celsius: '); readln(suhuCelsius); suhuFahrenheit := (suhuCelsius * 9/5) + 32; suhuKelvin := suhuCelsius + 273.15; writeln('Suhu dalam Fahrenheit: ', suhuFahrenheit:0:2); writeln('Suhu dalam Kelvin: ', suhuKelvin:0:2); end.

Latihan 5: Pembanding Karakter

Buat program yang meminta pengguna memasukkan dua karakter, kemudian membandingkan kedua karakter tersebut untuk mengetahui apakah keduanya sama, dan jika tidak, karakter mana yang lebih besar.

program PembandingKarakter; uses crt; var char1, char2: Char; begin write('Masukkan karakter pertama: '); readln(char1); write('Masukkan karakter kedua: '); readln(char2); if char1 = char2 then writeln('Kedua karakter sama.') else if char1 > char2 then writeln('Karakter pertama lebih besar daripada karakter kedua.') else writeln('Karakter kedua lebih besar daripada karakter pertama.'); end.

Latihan 6: Konversi Bilangan Bulat ke Biner

Buat program yang meminta pengguna memasukkan bilangan bulat positif, kemudian mengonversinya ke dalam representasi biner.

program KonversiBiner; uses crt; var bilangan: Integer; biner: String; sisa: Integer; begin write('Masukkan bilangan bulat positif: '); readln(bilangan); biner := ''; while bilangan > 0 do begin sisa := bilangan mod 2; biner := IntToStr(sisa) + biner; bilangan := bilangan div 2; end; writeln('Representasi biner: ', biner); end.

Latihan 7: Pengurutan Angka

Buat program yang meminta pengguna memasukkan tiga angka, kemudian mengurutkan angka-angka tersebut dari yang terkecil ke yang terbesar.

program PengurutanAngka; uses crt; var angka1, angka2, angka3: Integer; temp: Integer; begin write('Masukkan angka pertama: '); readln(angka1); write('Masukkan angka kedua: '); readln(angka2); write('Masukkan angka ketiga: '); readln(angka3); { Pengurutan angka menggunakan metode swap sederhana } if angka1 > angka2 then begin temp := angka1; angka1 := angka2; angka2 := temp; end; if angka1 > angka3 then begin temp := angka1; angka1 := angka3; angka3 := temp; end; if angka2 > angka3 then begin temp := angka2; angka2 := angka3; angka3 := temp; end; writeln('Angka terurut: ', angka1, ', ', angka2, ', ', angka3); end.

Latihan 8: Bilangan Genap atau Ganjil

Buat program yang meminta pengguna memasukkan bilangan bulat, kemudian menentukan apakah bilangan tersebut genap atau ganjil.

program GenapAtauGanjil; uses crt; var bilangan: Integer; begin write('Masukkan bilangan bulat: '); readln(bilangan); if bilangan mod 2 = 0 then writeln('Bilangan tersebut adalah bilangan genap.') else writeln('Bilangan tersebut adalah bilangan ganjil.'); end.

Latihan 9: Pembanding Tipe Data Berbeda

Buat program yang meminta pengguna memasukkan satu angka bulat dan satu angka real, kemudian membandingkan kedua angka tersebut untuk mengetahui angka mana yang lebih besar.

program PembandingTipeDataBerbeda; uses crt; var angkaBulat: Integer; angkaReal: Real; begin write('Masukkan angka bulat: '); readln(angkaBulat); write('Masukkan angka real: '); readln(angkaReal); if angkaBulat > angkaReal then writeln('Angka bulat lebih besar dari angka real.') else if angkaBulat < angkaReal then writeln('Angka real lebih besar dari angka bulat.') else writeln('Kedua angka sama.'); end.

---

Credit :
Penulis : Danar Dono
Gambar Ilustrasi : Pixabay