LAB24.doc

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