Предмет: Информатика, автор: AzarEDEN10

Помогите написать программу

Приложения:

Ответы

Автор ответа: Kilekanisic

Ответ: я не стал добавлять переменную y, так как не вижу в ней нужды, можно и без нее спокойно обойтись...

PascalABC.NET

begin

var y: integer;

var x:=ReadInteger('Введите x');

if x>1 then

y := sqr(x)-(4*x)+3

else

y := x-1;

writeln('y = ',y);

end.

AzarEDEN10: это не то

AzarEDEN10: сложнее другая

AzarEDEN10: составьте программу определения корней квадратного уравнения для введённых с клавиатуры коэффициентов

AzarEDEN10: вот

Kilekanisic: То есть найти x1 и x2?

AzarEDEN10: хз, наверное

AzarEDEN10: кст 14 задание похоже надо только заменить вроде

AzarEDEN10: составить алгоритм который для введённого числа x определит, кратно ли значение выражения y=x^2-2x+3 числу 4

Kilekanisic: begin
var x,x2:real;
Writeln('ax^2+bx+c=0');
var (a,b,c) := readreal3('Введите числа a,b,c');
var D:=sqr(a)-4*b*c;
if D<0 then
writeln('Корней нет');
if D=0 then begin
x := -b/(2*a);
writeln('x = ',x)
end;
if D>0 then begin
x := (-b+sqrt(D))/(2*a);
x2 := (-b-sqrt(D))/(2*a);
writeln('x1 = ',x,' x 2 = ',x2);
end;
end.

Kilekanisic: Нахождение корней уравнения

Автор ответа: 65biso2

С++11:

static double foo(double x){

if( x<=1 ) return (x-1);

return (pow(x,2) - 4*x + 3);

}

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Физика, автор: nastialyzenko06

Неізольований мідний провідник опором 40 Ом розрізали на чотири рівні
частини й усі частини скрутили разом. Визначте електричний опір отриманого джгута.
ДАМ 30 БАЛІВ!