clc
clear
a=input('Wybierz program 1-4');
 switch a
     case 1
         disp('Liczenie sumy kolejnych liczb')
      N=input('ile liczb chcesz wprowadzić');
      suma=0;
      for i=1:N
          suma=suma+N;
      end
      fprintf('Wynik to %d', suma)
     case 2
         x=0;
n=input('Wprowadz n ');
w=rand(1,n);
for i=1:n
    x=x+w(1,i);
end
x=x/n;
fprintf('Wynik to %.4f', x)
     case 3

         N=input('wprowadz liczbę do policzenia silni');
         if N>=0
             s=1;
             for i=1:N
                 s=s*i;
             end
             fprintf('Wynik to %d',s)
         else
             disp('Bład')
         end
     case 4
disp('Funkcja kwadratowa');
v=[-5:5];
a=[1,2,2,0,0,0];
b=[2,4,3,1,0,0];
c=[-3,2,2,2,3,0];
l=1;
for i=1:1:6
    figure(l)
    hold on
if a(i)~=0
     disp('2 pierwiastki')
    delta=b(i)^2-4*a(i)*c(i);
    plot(v,(a(i)*v.^2+b(i)*v+c(i)))
        if delta >= 0
            x1=(-b(i)-sqrt(delta))/(2*a(i));
            x2=(-b(i)+sqrt(delta))/(2*a(i));
            plot(x1,0,'*')
            plot(x2,0,'*')

        else
            disp('x nie należy do R');
        end
        l=l+1;
else
    if b(i)~=0
       plot(v,b(i)*v+c(i))
        disp('równianie lniowe')
        x=-c(i)/b(i);
        plot(x,0,'*')
        l=l+1;

    else
        if c(i)~=0
            disp('równanie sprzeczne')

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