Информатика

Помогите составить программе в 18 номере в delphi7


<< Предыдущий вопрос Следующий вопрос >>

Function circle_func(x: real): real;
begin
    circle_func := sqrt(4 - sqr(x + 8)) - 2;
end;

function line_func(x: real): real;
begin
    line_func := 0.5*x + 1;
end;

function quadratic_func(x: real): real;
begin
    quadratic_func := sqr(x - 6);
end;

var
    x, y: real;
begin
    writeln('Введите аргумент: ');
    readln(x);

    if ((x >= -10) and (x < -6)) then y := circle_func(x);
    if ((x >= -6) and (x < 2)) then y := line_func(x);
    if ((x >= 2) and (x < 6)) then y := 0;
    if ((x >= 6)) then y := quadratic_func(x);

    writeln(y:5:3);
end.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы