Metode Numerik Persamaan Akar Kuadrat Menggunakan Matlab

Source code :

clc; clear all;
disp ('TUGAS 1 METODE NUMERIK');
disp ('Mencari Persamaan Akar Kuadrat')
disp ('Nama   : Desianny Amalia Fauziah');
disp ('NIM    : 5302413085');
disp ('Prodi  : PTIK');
disp ('Rombel : 02');
disp (' ')

%% Memasukkan Input

a = input ('Masukan Nilai a = ');
b = input ('Masukan Nilai b = ');
c = input ('Masukan Nilai c = ');

%% Rumus Menghitung Nilai Diskriminan

D = b.^2-4*a*c

%% Menghitung Nilai D

if D>0
    disp ('Akar-akar persamaan : ');
    x1=(-b-sqrt(D))/(2*a)
    x2=(-b+sqrt(D))/(2*a)
    'Akar real dan berbeda'
    fprintf ('Hasil Persamaan akar kuadrat : x1=%.2f dan x2=%.2f\n', x1, x2)

elseif D<0
    'Persamaan akar kuadrat tidak memiliki akar real, akarnya imajiner'

else D=0
    x=(-b+sqrt(D))/(2*a)
    'Persamaan kuadrat memiliki akar persamaan sama (akar kembar)'
    fprintf ('Hasil Persamaan akar kuadrat : x=%.2f', x)

end