'
'  Znajdowanie pierwiastków rzeczywistych równania axx + bx + x = 0
'  Metoda rozwiązania: wyznaczenie miejsc zerowych 
'     równania kwadratowego lub równania liniowego.
'  Wejście: wartości parametrów wywołania; kolejno a, b, c
'  Wyjście: wartości umieszczane na wyjściu standardowym:
'    najpierw liczba rozwiązań,
'    jeżeli liczba rozwiązań>0, to kolejna dana zawiera pierwsze rozwiązanie,
'    jeżeli liczba rozwiązań>1, to kolejna dana zawiera drugie rozwiązanie.
'  Liczba rozwiązań=-1 oznacza, ze równanie jest spełnione tożsamościowo.
'  Program nie wyznacza wtedy pierwiastków.
'  Ograniczenia: dane na wejściu muszą być liczbami rzeczywistymi.
'
sub rkw(a as double, b as double, c as double)
  dim x1 as double, x2 as double
  dim liczbax as integer
  dim delta as double
  
 ' przebieg obliczeń zaprojektowany dla wszystkich możliwych przypadków
  if (a<>0.0) then
      delta = b^2 - 4*a*c
      if (delta>=0.0) then
          delta = (delta)^0.5
          liczbax = 2
          x1 = (-b + delta)/(2*a)
          x2 = (-b - delta)/(2*a)
      else
	  liczbax = 0
      endif
  elseif (b<>0.0) then
          liczbax = 1
	  x1 = -c/b
  elseif (c<>0.0) then
          liczbax = 0
  else
          liczbax = -1
  endif

' wysłanie wyników na wyjście standardowe
  print(liczbax)
  if (liczbax>0) then
	    print(x1)
    if (liczbax>1) then
    	print(x2)
    endif  
  endif
  
end sub