% Reseni kvadraticke rovnice (verze 1)
disp('Reseni kvadraticke rovnice ax^2 + bx + c = 0');
a = input('Koeficient a: ');
b = input('Koeficient b: ');
c = input('Koeficient c: ');
d = b*b - 4*a*c;
s = sqrt(d);
x1 = (-b + s)/2/a
x2 = (-b - s)/2/a
return;
