Napisz program w Pascalu, który wczyta zmienne do pamięci, a następnie rozwiąże równanie kwadratowe. Trzeba to rozpisać kiedy delta>0 kiedy=0 i kiedy <0
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
oto kod programu
program aaa;
uses crt;
var a,b,c,d,p,q,x1,x2:real;
begin
clrscr;
writeln('podaj a');
readln(a);
writeln('');
writeln('podaj b');
readln(b);
writeln('');
writeln('podaj c');
readln(c);
writeln('');
if a=0 then
writeln('To nie jest funkcja kwadratowa')
else
begin
d:=b*b-4*a*c;
writeln('Wpisae nast©pujĄce liczby: a=',a:2:2,' b=',b:2:2,' c=',c:2:2);
writeln('Delta z wpisanyc wynik˘w to:',d:2:2);
writeln('');
writeln('Z tego wynika ľe:');
if d<0 then writeln ('R˘wnanie nie ma rozwiĄzania')else
if d=0 then
begin
writeln(' Ma jeden pierwiastek i miesce zerowe');
writeln('');
x1:=-b/2*a;
p:=-b/2*a;
q:=-d/4*a;
writeln(' Miejsce zrowe to ',x1);
writeln('wsp˘rz©dne wieszchoka to x=',p,' i y=',q);
end
else
begin
writeln(' Ma dwa pierwiastki i dwa miejsca zerowe');
writeln('');
x1:=(-b-sqrt(d))/2*a;
x2:=(-b+sqrt(d))/2*a;
p:=-b/2*a;
q:=-d/4*a;
writeln('Miesca zerowe to: ',x1:2:2,' oraz ',x2:2:2);
writeln('Wsp˘rz©dne wieszchoka to x= ',p:2:2,' oraz y= ',q:2:2);
end;
end;
writeln('');
writeln('Nacjinij dowolny klawisz aby kontynuowa†');
readln;
end.