Скачиваний:
51
Добавлен:
10.12.2013
Размер:
1.58 Кб
Скачать
program GSA; { Џа®Ја ¬¬  аҐиҐ­Ёп ­Ґа ўҐ­бвў  a*x*x+b*x+c<0 }
uses crt,graph;
var a,b,c:integer; { Љ®нддЁжЁҐ­вл ў га ў­Ґ­ЁЁ }
d:integer; { ¤ЁбЄаЁ¬Ё­ ­в }
x1,x2:real; { ђҐиҐ­Ёп га ў­Ґ­Ёп }

BEGIN
clrscr;
textcolor(red);
writeln('ђҐиҐҐ¬ ­Ґа ўҐ­бвў® вЁЇ  : a*x*x+b*x+c<0');
textcolor(white);
writeln('‚ўҐ¤ЁвҐ Є®нддЁжЁҐ­вл a,b,c ');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if (a=0) and (b=0) then begin
if c<0 then writeln(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  ')
else writeln(' ђҐиҐ­Ё© ­Ґв ')
end
else
if a=0 then begin
x1:=-c/b;
if b<0 then writeln(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  Ў®«миҐ ',x1:4:2)
else writeln(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  ¬Ґ­миҐ ',x1:4:2)
end
else
begin
if (d<0) and (a<0) then writeln(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  ');
if (d<0) and (a>0) then writeln(' ђҐиҐ­Ё© ­Ґв ');
if (d=0) then begin
x1:=-b/(2*a);
if a>0 then writeln(' ђҐиҐ­Ё© ­Ґв ')
else writeln(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  Єа®¬Ґ ',x1:4:2)
end;
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if a<>0 then write(' ђҐиҐ­ЁҐ¬ ¤ ­­®Ј® ­Ґа ўҐ­бвў  пў«повбп ўбҐ ¤Ґ©б⢨⥫м­лҐ зЁб«  Ў®«миҐ ',x2:4:2,' ­® ¬Ґ­миҐ ',x1:4:2);

end;
end;

readln
END.
Соседние файлы в папке ЭВТ-1-Паскаль