disp('Ten program oblicza pierwiastki równania kwadratowego');

a=input('Podaj a: ');

b=input('Podaj b: ');

c=input('Podaj c: ');

disp(['Wzór twojej funkcji to: ',num2str(a),'x^2 + ', num2str(b),'x + ',num2str(c),' = 0']);

if a~=0

disp('równanie kwadratowe');

delta=b^2-4*a*c;

if delta>0

disp('dwa pierwiastki rzeczywiste');

x1=-b-sqrt(delta)/(2*a);

x2=-b+sqrt(delta)/(2*a);

x1;x2;format short;

disp(['x1=',num2str(x1)]);

disp(['x2=',num2str(x2)]);

end

if delta==0

disp('jeden pierwiastek podwójny');

x0=-b/2*a;

x0;format short;

disp(['x0=',num2str(x0)]);

else

disp('brak pierwiastków rzeczywisttych');

end

elseif b~=0

disp('równanie liniowe');

x=-c/b;

x;format short;

disp(['x=', num2str(x)]);

elseif c~=0

disp('równanie sprzeczne');

else

disp('równanie tożsamościowe');

end

clc

clear

disp('Ten program liczy silnie z podanej liczby')

n=input(['Podaj liczbe dla ktorej policze macierz ']);

while n<0 | n~=round(n)

n=input('Blednie podana liczba, prosze podaj liczbe naturalna');

end

i=1;

wynik=1;

while i<=n

wynik=wynik*i;

i=i+1;

end

disp(' ') % wolna linia dla poprawienia widocznosci%

disp('Wynik uzyskany instrukcja while:')

wynik

c=1;

for z=1:n;

c=c*z;

end

disp(' ') % wolna linia dla poprawienia widocznosci%

disp('Wynik uzyskany instrukcja for:')

wynik2=c

clc

disp('Zadanie 3');

disp('ten program to kalkukator, ktory sluzy do wykonywania prostych obliczen, takich jak +, -, *, /, ^');

a=input('podaj wartosc a=');

b=input('podaj wartosc b=');

operator=input('podaj operatora ','S');

if operator=='+' || operator=='-' || operator=='*' || operator=='/' || operator=='^';

switch operator

case'+'

wynik=a+b;

wynik; format short;

disp(['suma_a+b=' num2str(wynik)]);

case'-'

wynik=a-b

wynik; format short;

disp(['roznica_ab=' num2str(wynik)]);

case'*'

wynik=a*b

format short;

disp(['iloczyn_ab=' num2str(wynik)]);

case'/'

if b==0

disp('nie można dzielić przez zero');

else

wynik=a/b

wynik; format short;

disp(['iloraz_ab=' num2str(wynik)]);

end

otherwise

wynik=a^b

wynik; format short;

disp(['a_do_potegi_b=' num2str(wynik)]);

end

else

disp('zle wybrane dzialanie, wpisz poprawnie znak');

end

---