Latihan Kode Program Pascal: Mencari Akar Persamaan Kuadrat

Latihan kode program bahasa Pascal di Duniailkom kali ini akan membahas cara mencari akar persamaan kuadrat. Materi ini berhubungan dengan logika matematika, penggunaan operator aritmatika, serta kondisi if else.

Soal Mencari Akar Persamaan Kuadrat

Buatlah kode program dalam bahasa Pascal untuk mencari akar persamaan kuadrat dengan format ax² + bx + c = 0. Program meminta 3 inputan, yakni a, b dan c. Hasilnya akan menampilkan akar x1 dan x2, atau teks "akar imajiner" jika determinan < 0.

Bonus: Tampilkan juga nilai determinan.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Mencari Akar Persamaan Kuadrat  ##
=====================================================

Format persamaan: ax^2 + bx + c = 0
Input nilai a: 1
Input nilai b: 9
Input nilai c: 18

Diskriminan = 9 (akar real dan berbeda)
x1 = -3.00
x2 = -6.00

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Mencari Akar Persamaan Kuadrat  ##
=====================================================

Format persamaan: ax^2 + bx + c= 0
Input nilai a: 1
Input nilai b: 8
Input nilai c: 16

Diskriminan = 0 (akar real dan sama)
x1 = -4.00
x2 = -4.00

Berikut contoh tampilan akhir yang diinginkan (3) :

##  Program Pascal Mencari Akar Persamaan Kuadrat  ##
=====================================================

Format persamaan: ax^2 + bx + c = 0
Input nilai a: 1
Input nilai b: 6
Input nilai c: 15

Diskriminan = -24 (akar tidak real / imajiner)

Silahkan coba sebentar membuat kode program ini.

Tips Membuat Kode Program Mencari Akar Persamaan Kuadrat

Untuk soal yang melibatkan perhitungan matematika, kita harus fokus ke rumus yang diperlukan. Dari rumus itulah nantinya akan dirancang algoritma pemrograman.

Pencarian akar kuadrat dengan format ax² + bx + c = 0 bisa menggunakan rumus berikut:

Selain itu ada syarat tambahan berhubungan dengan jenis akar kuadrat. Ini didapat dari menghitung determinan (D) menggunakan rumus b² – 4ac:

Jika D > 0, maka akar real dan berbeda
Jika D = 0, maka akar real dan sama
Jika D < 0, akar tidak real / imajiner

Khusus untuk D < 0, tidak perlu dicari akar kuadrat karena hasilnya berbentuk angka imajiner.

Untuk kode program sendiri, butuh dasar yang berhubungan dengan variabel, operator aritmatika, dan kondisi if else. Berikut tutorial pendahuluan yang bisa diikuti:

Kode Program Pascal Mencari Akar Persamaan Kuadrat

Berikut salah satu solusi dari soal mencari akar persamaan kuadrat menggunakan bahasa pemrograman Pascal:

program akar_persamaan_kuadrat;
uses crt;
var
  a, b, c, D: integer;
  x1, x2: real;
begin
  clrscr;
  writeln('##  Program Pascal Mencari Akar Persamaan Kuadrat  ##');
  writeln('=====================================================');
  writeln;

  writeln('Format persamaan: ax^2 + bx + c = 0');
  write('Input nilai a: ');
  readln(a);
  write('Input nilai b: ');
  readln(b);
  write('Input nilai c: ');
  readln(c);
  writeln;

  D := (b*b)-(4*a*c);
  write('Diskriminan = ',D);

  if (D>0) then
  begin 
    writeln(' (akar real dan berbeda)');

    x1 := (-b + sqrt(D)) / (2*a);
    x2 := (-b - sqrt(D)) / (2*a);
    
    writeln('x1 = ',x1:4:2);
    writeln('x2 = ',x2:4:2);
  end
  else if (D = 0) then
  begin
    writeln(' (akar real dan sama)');

    x1 := (-b + sqrt(D)) / (2*a);
    x2 := x1;

    writeln('x1 = ',x1:4:2);
    writeln('x2 = ',x2:4:2);
  end
  else 
    writeln(' (akar tidak real / imajiner)');

  readln;
end.

Kode program ini memang cukup panjang. Saat dijalankan pertama kali, program akan meminta user untuk menginput variabel a, b, dan c antara baris 13 – 18.

Nilai determinan dicari pada baris 21 dengan perintah D := (b*b)-(4*a*c). Nilainya kemudian ditampilkan dengan perintah writeln di baris 22.

Berdasarkan nilai determinan yang tersimpan dalam variabel D, kita masuk ke 3 kondisi if else antara baris 24 – 45. Setiap kondisi sesuai dengan rumus menghitung akar kuadrat sebelumnya. Tambahan perintah :4:2 dipakai untuk menampilkan format angka dengan 2 tempat desimal.

Demikian kode program mencari akar persamaan kuadrat menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.

eBook Pascal Uncover Duniailkom

Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom.