Advertisement
Guest User

Untitled

a guest
Mar 13th, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 1.15 KB | None | 0 0
  1. clear all;
  2. clc;
  3.  
  4. A = randi([-9, 9], 20, 3);
  5.  
  6. for i = A'
  7.   a = i(1);
  8.   b = i(2);
  9.   c = i(3);
  10.  
  11.   disp('');f
  12.   disp(['a: ' num2str(a) ' b: ' num2str(b) ' c: ' num2str(c)]);
  13.  
  14.   if (a ~= 0)
  15.     delta = b^2 - 4*a*c;
  16.     if (delta > 0)
  17.       %obliczanie pierwiastków
  18.       x1 = (- b + sqrt(delta))/(2*a);
  19.       x2 = (- b - sqrt(delta))/(2*a);
  20.       disp(['x1: ' num2str(x1)]);
  21.       disp(['x2: ' num2str(x2)]);
  22.      
  23.       %testowanie
  24.       disp(['Wynik dla x1: ' num2str(a * x1^2 + b * x1 + c)]);
  25.       disp(['Wynik dla x2: ' num2str(a * x2^2 + b * x2 + c)]);
  26.     elseif (delta == 0)
  27.       %obliczanie pierwiastka
  28.       x0 = -b/(2*a);
  29.       disp(['x0: ' num2str(x0)]);
  30.      
  31.       %testowanie
  32.       disp(['Wynik dla x0: ' num2str(a * x0^2 + b * x0 + c)]);
  33.     else
  34.       disp(['Brak rozwiazan.']);
  35.     endif
  36.   elseif (b ~= 0)
  37.     %obliczanie pierwiastka
  38.     x0 = -c/b;
  39.     disp(['x0: ' num2str(x0)]);
  40.    
  41.     %testowanie
  42.     disp(['Wynik dla x0: ' num2str(b*x0 + c)]);
  43.   elseif (c == 0)
  44.     disp('Nieskoniecznie wiele miejsce zerowych.');
  45.   else
  46.     disp(['Funkcja stala y = ' num2str(c) '. Brak miejsc zerowych.']);
  47.   endif
  48. endfor
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement