Mam pytanie czy mozliwe jest zeby program obliczjacy pierwiastki równania kwadratowego ax^2+bx+c=0 napisac za pomocą funkcji i procedur?I Czy
Czy mogę tak napisać funkcje dla sytuacji gdy a=0 a b i c są różne od zera?** Czy to sprawdzenie if (aa=0) and (bb<>0) and(cc<>0)then musi być w funkcji?**
function liniowa(a,b,c:Real):Real;
begin
result:=-c/b
end;
tak ją wywołuje
wynik:=liniowa(aa,bb,cc)
if (aa=0) and (bb<>0) and(cc<>0)then
Write('x= ',wynik);