Program Sederhana : penyelesaian akar kuadrat

Berikut ini adalah contoh program sederhana penyelesaian akar kuadrat ax^2+bx+c=0 menggunakan MATLAB 7.1 pada M-File

a=input('a = ');
b=input('b = ');
c=input('c = ');
D=b^2-4*a*c;
x(1)=(-b+sqrt(D))/2*a; x(2)=( -b-sqrt(D))/2*a;
if D>0
    disp('Akar Bil. Real dan berbeda')
    x(1)=(-b+sqrt(D))/2*a;
    x(2)=( -b-sqrt(D))/2*a;
    fprintf('nilai x(1)=%f\n',x(1))
    fprintf('nilai x(2)=%f\n',x(2))
else
    if D==0
        disp('akar kembar')
        x=-b/2*a;
        fprintf('nilai x(1)=x(2)=%.2f',x)
    else
    disp('Akar Bil. Kompleks')
    x(1)=(-b+sqrt(D))/(2*a);
    x(2)=( -b-sqrt(D))/(2*a);
    fprintf('nilai x(1)=%f\n',x(1))
    fprintf('nilai x(2)=%f\n',x(2))
    end
end

______________________________________________________________________
atau coba juga yang ini

a=input('a = ');
b=input('b = ');
c=input('c = ');
D=b^2-4*a*c;
x(1)=(-b+sqrt(D))/2*a; x(2) =( -b-sqrt(D))/2*a;
if D>=0
    disp(['Akar Bil. Real     >> x(1)= ',num2str(x(1)) '     >>x(2)=',num2str(x(2)) ])
else
    disp(['Akar Bil. Kompleks     >> x(1)= ',num2str(x(1)) '     >>x(2)=',num2str(x(2)) ])
end


selamat mencoba semoga bermanfaat