Senin, 27 April 2015

Koding Turbo Pascal Program Persamaan Kuadrat

program persamaan_kuadrat;

uses wincrt;

var
 a,b,c,d : integer;
 x1,x2 : real;

begin
 clrscr;
 writeln ('             Mencari Akar Persamaan Kuadrat');
 writeln (' ');
 writeln (' ');
 writeln ('Bentuk Persamaan Kuadrat : ax^2+bx+c=0');
 write ('Masukkan Nilai a = ') ;readln (a);
 write ('Masukkan Nilai b = ') ;readln (b);
 write ('Masukkan Nilai c = ') ;readln (c);


 d:= (b*b) - (4*a*c);

 writeln (' D = ', d);

 if d<0 then
 begin
    writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar-Akar yang Immaginier');

 end
 else
  if d=0 then
  begin
    writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar-Akar yang Sama');
    x1:= (-b)/(2*a);
    writeln('x1,x2 = ', x1:0:2);
   
  end
  else
   if d>0 then
   begin
   writeln ('Persamaan Kuadrat Tersebut Mempunyai 2 Akar Real yang Berbeda');
   x1:= ((-b)+sqrt(d))/(2*a);
   x2:= ((-b)-sqrt(d))/(2*a);
   writeln ('x1 = ',x1:0:2);
   writeln ('x2 = ',x2:0:2);
   end;

 writeln (' ');

writeln ('                                Terima Kasih');



end.

1 komentar:

  1. min, izin bertanya ni, jika misalnya kita input data yang salah pada nilai a,b dan c (seharusnya angka yang harus di input) tiba-tiba kita input huruf atau tanda baca, bagaimana kodingnya agar otomatis memberikan komentar bahwa input kita itu salah.
    thanks min

    BalasHapus