% po znaku procentu są tzw. komentarze % program rozwiązywania równania kwadratowego a=input('a='); b=input('b='); c=input('c='); delta = b*b-4*a*c; if delta<0
disp('Brak pierwiastków rzeczywistych'); else
x1 =(-b-sqrt(delta))/(2*a); x2=(-b+sqrt(delta))/(2*a); disp('x1 =’); disp(x1); disp('x2='); disp(x2); end
function [x1, x2] = prkw(a, b, c)
% ta funkcja oblicza pierwiastki x1, x2 % równania: a*xA2 + b*x + c = 0 delta = b*b-4*a*c; if deltacO
% dla deltacO podstawimy NaN = "nieokreślone" x1=NaN; x2=NaN else
x1 =(-b-sqrt(delta))/(2*a); x2=(-b+sqrt(delta))/(2*a); end
20