Cefyn
5 год назад
Помогите составить программе в 18 номере в delphi7
ОТВЕТЫ
Олегович
Aug 8, 2019
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 gt;= -10) and (x lt; -6)) then y := circle_func(x);
if ((x gt;= -6) and (x lt; 2)) then y := line_func(x);
if ((x gt;= 2) and (x lt; 6)) then y := 0;
if ((x gt;= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
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 gt;= -10) and (x lt; -6)) then y := circle_func(x);
if ((x gt;= -6) and (x lt; 2)) then y := line_func(x);
if ((x gt;= 2) and (x lt; 6)) then y := 0;
if ((x gt;= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
135