Помогите решить две задачи пожалуйста! 1) Придумайте выражение, которое с помощью mod, div, сложения, вычитания и умножения (без циклов и тому подобного):
Находит количество цифр, больших 6 в данном числе.
2) Помогите написать программу решения неравенства ax2 + bx + c > 0.
p.s. Пишу на Lazarus...
Код(неправильно считает при а=0):
var valueA,valueB,valueC,discriminant,valueX1,valueX2,valueX:real;
begin
writeln('Введите коэффициенты a,b,c(после ввода нажмите Enter):');
readln(valueA,valueB,valueC);
if valueA=0 then valueX:=valueB*valueX+valueC else // delete and customize
discriminant:=valueB*valueB-4*valueA*valueC;
writeln('Дискриминант равен: ',discriminant:1:0);
if discriminant>0 then
begin
valueX1:=(-valueB+sqrt(discriminant))/(2*valueA);
valueX2:=(-valueB-sqrt(discriminant))/(2*valueA);
if valueX1>valueX2 then
begin
valueX:=valueX1;
valueX1:=valueX2;
valueX2:=valueX;
writeln('Значение x1 и x2: ', valueX1,valueX2);
end;
end;
if valueA>0 then
begin
if discriminant>0 then write('x<',valueX1:0:1,' or x>',valueX2:0:1)
else write('Значение x - любое число');
end
else
begin
if discriminant>0 then write('x>',valueX1:0:1,' and x<',valueX2:0:1)
else write('Решений нет');
end;
readln;
end.
Заранее огромное спасибо!
Находит количество цифр, больших 6 в данном числе.
2) Помогите написать программу решения неравенства ax2 + bx + c > 0.
p.s. Пишу на Lazarus...
Код(неправильно считает при а=0):
var valueA,valueB,valueC,discriminant,valueX1,valueX2,valueX:real;
begin
writeln('Введите коэффициенты a,b,c(после ввода нажмите Enter):');
readln(valueA,valueB,valueC);
if valueA=0 then valueX:=valueB*valueX+valueC else // delete and customize
discriminant:=valueB*valueB-4*valueA*valueC;
writeln('Дискриминант равен: ',discriminant:1:0);
if discriminant>0 then
begin
valueX1:=(-valueB+sqrt(discriminant))/(2*valueA);
valueX2:=(-valueB-sqrt(discriminant))/(2*valueA);
if valueX1>valueX2 then
begin
valueX:=valueX1;
valueX1:=valueX2;
valueX2:=valueX;
writeln('Значение x1 и x2: ', valueX1,valueX2);
end;
end;
if valueA>0 then
begin
if discriminant>0 then write('x<',valueX1:0:1,' or x>',valueX2:0:1)
else write('Значение x - любое число');
end
else
begin
if discriminant>0 then write('x>',valueX1:0:1,' and x<',valueX2:0:1)
else write('Решений нет');
end;
readln;
end.
Заранее огромное спасибо!
More Questions From This User See All