Задать вопрос
31 августа, 10:53

1. Функция Y задана следующим образом Y=1, если X>0; Y=0, если X=0; Y=-1, если X<0;

2. Решите квадратное уравнение ax (в квадрате) + bx+c=0, где a, b, c вводим с клавиатуры. Посчитайте дискриминант и выведите три ответа: 1. Два корня (по формуле) 2. один корень (по формуле) 3. Решений нет

3. Даны целые числа a, b, c. Если a<=b<=c, то все числа заменить наименьшим из них, в противном случае сменить знак каждого числа.

+3
Ответы (1)
  1. 31 августа, 11:33
    0
    1.

    var x, y:integer;

    begin

    write ('x = ');

    readln (x);

    if x>0

    then y:=1

    else if x=0 then y:=0 else y:=-1;

    writeln ('y = ', y);

    end.

    Пример:

    x = - 5

    y = - 1

    2.

    var a, b, c, x1, x2, d:real;

    begin

    writeln ('Введите a, b, c:');

    readln (a, b, c);

    d:=b*b-4*a*c;

    if d>0

    then begin

    x1: = (-b+sqrt (d)) / (2*a);

    x2: = (-b-sqrt (d)) / (2*a);

    writeln ('x1 = ', x1,' x2 = ', x2);

    end

    else if d=0 then begin

    x1:=-b / (2*a);

    writeln ('x = ', x1);

    end

    else writeln ('Корней нет');

    end.

    Пример:

    Введите a, b, c:

    2 5 - 3

    x1 = 0.5 x2 = - 3

    3.

    var a, b, c:real;

    begin

    writeln ('Введите a, b, c:');

    readln (a, b, c);

    if (a<=b) and (b<=c)

    then begin

    b:=a; c:=a;

    end

    else begin

    a:=-a; b:=-b; c:=-c;

    end;

    writeln ('a = ', a,' b = ', b,' c = ', c);

    end.

    Пример 1:

    Введите a, b, c:

    2 5 9

    a = 2 b = 2 c = 2

    Пример 2:

    Введите a, b, c:

    2 9 5

    a = - 2 b = - 9 c = - 5
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «1. Функция Y задана следующим образом Y=1, если X>0; Y=0, если X=0; Y=-1, если X ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы