Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program funkcja;
- var
- a,b,c,d,p,x1,x2 : real;
- begin
- writeln('Podaj współczynniki a,b,c f. kwadratowej');
- readln(a,b,c);
- if a=0 then
- writeln('To nie jest funkcja kwadratowa')
- else
- begin
- d:= (b*b)-(4*a*c);
- if d>0 then
- begin
- p:= sqrt(d);
- x1:=(-b-p)/2*a;
- x2:=(-b+p)/2*a;
- writeln(x1,x2)
- end
- else
- if d<0 then
- writeln('Brak miejsc zerowych')
- else
- begin
- x1:=(-b/2*a);
- writeln(x1)
- end;
- end;
- end.
Add Comment
Please, Sign In to add comment