Kamis, 26 April 2012

Program akar_pers_kuadrat; 1 ( Struktur Data )


Program akar_pers_kuadrat;
uses crt;
var
x1,x2, a, b, c,D  :real;

begin
clrscr;
writeln('Mencari Akar Persamaan Kuadrat.');
write('Masukkan Koefisien a = ');readln(a);
write('Masukkan Koefisien b = ');readln(b);
write('Masukkan Koefisien c = ');readln(c);

      D:=b*b-4*a*c;
      if D=0 then
         begin
            x1:=(-b-sqrt(D))/2*a;
            x2:=(-b+sqrt(D))/2*a;
            x1:=x2;
            writeln('Nilai akar-akarnya sama.');
            writeln('x1 dan x2  = ',x1:1:1); readln;
      end
        else
          if D>0 then
          begin
            x1:=(-b-sqrt(D))/2*a;
            x2:=(-b+sqrt(D))/2*a;
            writeln('x1 = ',x1:1:1);
            writeln('x2 = ',x2:1:1);
          end
            else
                writeln('Merupakan akar-akar yang tidak real'); readln;
end.

Tidak ada komentar:

Posting Komentar