Page 21 - Bahan Ajar Algoritma dan Pemrograman

Bahan Ajar Algoritma dan Pemrograman

disp ('================================')

%Masukkan nilai-nilai koefisien
a = input('a = ');
b = input('b = ');
c = input('c = ');

%Hitung Diskriminan
d = b^2 - 4*a*c;

%Menentukan jenis akar
if d > 0
disp('Akar Real Berbeda')
x1 = (-b + sqrt(d))/(2*a);
x2 = (-b - sqrt(d))/(2*a);

fprintf('x1 = ');
disp(x1);
fprintf('x2 = ');
disp(x2);

else
if d == 0
disp('Akar Kembar')
x = -b / (2*a);

fprintf('x = ');
disp(x);

else
disp('Akar Bilangan Kompleks')
x1 = (-b + sqrt(d))/(2*a);
x2 = (-b - sqrt(d))/(2*a);

fprintf('x1 = ');
disp(x1);
fprintf('x2 = ');
disp(x2);
end
end

Contoh ketika program dijalankan
>> akarkuadrat
Akar Persamaan ax^2 + bx + c = 0
=============================
a = 1
b = 2
c = -1
Akar Real Berbeda
x1 = 0.4142
x2 = -2.4142
Jurusan Matematika FMIPA UNG Resmawan | 59