Program Penyelesaian persamaan kuadrat (ABC)

disp('---------------------');
disp('Program Penyelesaian persamaan kuadrat (ABC)')
disp('dibuat Oleh : Mashudan Kurniawan')
disp('Hari/tanggal: sabtu/10 Okt 2012')
%-------------------------
%persamaan ax^2+bx+c, dimana:
a=1     %harga a
b=-5     %harga b
c=1     %harga c
%Deskripsi dan Perhitungan
%------------------------------
d=b^2-4*a*c       %D=diskriminan
x1=(-b+sqrt(d))/(2*a) %Akar x1
x2=(-b-sqrt(d))/(2*a) %Akar x2

MENU INPUT

disp('---------------------');
disp('Program Penyelesaian persamaan kuadrat (ABC)')
disp('dibuat Oleh : Mashudan Kurniawan')
disp('Hari/tanggal: sabtu/10 Okt 2012')
disp('---------------------------------')
%-------------------------
%persamaan ax^2+bx+c, dimana:
a=input('masukan nilai a =.....?')     %harga a
b=input('masukan nilai b =.....?')     %harga b
c=input('masukan nilai c =.....?')     %harga c
%Deskripsi dan Perhitungan
%------------------------------
d=b^2-4*a*c       %D=diskriminan
x1=(-b+sqrt(d))/(2*a) %Akar x1
x2=(-b-sqrt(d))/(2*a) %Akar x2