Contoh Program Komputer dengan Pascal untuk Menghitung Nilai x1 dan x2

Contoh program komputer dengan pascal untuk penyelesaian persamaan kuadrat akan dibahas pada kesempatan ini. Untuk dapat memahami dengan baik, anda harus sudah mempelajari materi tentang Proses pengambilan keputusan dalam program komputer.

Perhitungan matematika untuk menyelesaikan Persamaan kuadrat   :

merupakan materi pelajaran pokok dalam matematika untuk siswa SMP, SMU, dan perguruan tinggi. Kali ini saya menyajikan penyelesaiannya dengan  membuat Program Pascal.

Untuk menghitung nilai x1 dan x2 kita menggunakan rumus :

dimana  Diskriminan D adalah  :

Syarat :

• Nilai a tidak boleh lebih kecil atau sama dengan Nol karena pembagi  2a  tidak boleh sama dengan Nol.
• Jika D < 0, maka nilai akar adalah bilangan imajiner
• Jika D >= 0, maka nilai akar adalah bilangan real.

Algoritma Program

•     Mulai
•     Tentukan variabel
•     Tentukan nilai a,b,c
•     Hitung Diskriminan D
•     Cek nilai a dan D menurut syarat yang berlaku.
•     Jika memenuhi syarat, Hitung Nilai akar x1 dan x2
•     Cetak hasil perhitungan
•     Selesai

Kode Contoh Program Komputer

Dalam contoh ini, saya memberikan 2 macam program :

1.   Program Pascal dengan input data dilakukan secara manual dengan mengetik input datanta.
2.   Program Pascal dengan input data menggunakan bilangan acak


1.  Contoh Program Komputer untuk mencari x1 dan x2 dengan input data dilakukan secara manual dengan mengetik input data.

Program Mencarix12;
uses crt;

var a,b,c,D,x1,x2 : real;

begin
   clrscr;
   write('Input nilai a = ');readln(a);
   write('Input nilai b = ');readln(b);
   write('Input nilai c = ');readln(c);


   D := b*b - 4*a*c;
   if a>0 then
     Begin
       if(D<0 br="" then="">          begin
               write;
               writeln(' x1 dan x2 bukan bilangan real');
          end
       else
          begin
               x1:=(-b+(sqrt(D)))/(2*a);
               x2:=(-b-(sqrt(D)))/(2*a);
               writeln('X1 = ',x1:6:2);
               writeln('X2 = ',x2:6:2);
          end;
     End
   else
      writeln('Nilai a lebih kecil atau sama dengan 0');

      readkey;
end.

Output :

2.   Contoh Program Komputer dengan Pascal untuk mencari x1 dan x2  dengan input data menggunakan bilangan acak. 

Nilai masukan a, b, dan c ditentukan dari bilangan acak, sehingga tidak perlu melakukan input manual dari keyboard. Dalam program bilangan acak diambil sebanyak 5 kali dalam  loop for to do. Nilai a diambil secara acak antara 0 dan 10, b diambil secara acak antara 0 dan 150, c diambil secara acak antara 0 dan 20. Anda  bisa mencoba dengan bilangan yang lain. Program hanya memproses nilai  yang memenuhi syarat a>0 dan D>= 0.

Program Mencarix12;
uses crt;

var D,x1,x2 : real;
     i,a,b,c : integer;

begin
   clrscr;

   for i:= 1 to 5 do
   Begin
   a:=random(10);
   b:=random(150);
   c:=random(20);

   D := b*b - 4*a*c;
   if a>0 then
   Begin
     if(D>=0) then
      Begin

       writeln('a= ',a,' b= ',b,' c= ',c,' D',i,'= ',d:6:2);
         x1:=(-b+(sqrt(D)))/(2*a);
         x2:=(-b-(sqrt(D)))/(2*a);
         writeln('X1 = ',x1:6:2);
         writeln('X2 = ',x2:6:2);writeln;
      end;
   End;
  End;
      readkey;
end.

Output

Demikian Contoh program komputer kali ini.

Mohon anda memberikan komentar, saran, atau pertanyaan untuk memperbaiki materi yang ada dalam blog ini. Dengan demikian blog ini dapat semakin bermanfaat bagi para pelajar dan mahasiswa yang ingin mempelajari contoh program komputer yang dimuat di blog ini.

Semoga bermanfaat.
God bless you all.