Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. (Turbo Pascal) а так же блок-схему ( необязательно)
Буду очень благодарен!
Заранее спасибо.
Приложения:
Ответы на вопрос
Ответил iolandavalerypad353
0
function Foo(x: real): real;
begin
if (-9 <= x) and (x <= -5) then
result := 2 - Sqrt(4 - Sqr(x + 7))
else if (-5 <= x) and (x <= -4) then
result := 2
else if (-4 <= x) and (x <= 0) then
result := -(1 / 2) * x
else if (0 <= x) and (x <= Pi) then
result := Sin(x)
else if x >= Pi then
result := x - Pi;
end;
var
x: real;
begin
writeln('x =');
readln(x);
if x < -9 then
begin
writeln('функция не определена в этой области');
exit
end
else Writeln('y = ',Foo(x));
end.
begin
if (-9 <= x) and (x <= -5) then
result := 2 - Sqrt(4 - Sqr(x + 7))
else if (-5 <= x) and (x <= -4) then
result := 2
else if (-4 <= x) and (x <= 0) then
result := -(1 / 2) * x
else if (0 <= x) and (x <= Pi) then
result := Sin(x)
else if x >= Pi then
result := x - Pi;
end;
var
x: real;
begin
writeln('x =');
readln(x);
if x < -9 then
begin
writeln('функция не определена в этой области');
exit
end
else Writeln('y = ',Foo(x));
end.
Ответил DenisGolov
0
Можете еще раз написать программу?
Эту задачу нужно решить в кратчайшие сроки тобишь сегодня.
Простите еще раз что не указал.
Эту задачу нужно решить в кратчайшие сроки тобишь сегодня.
Простите еще раз что не указал.
Ответил iolandavalerypad353
0
В следующий раз пиши в какой IDE: FPC, PascalABC.NET
Ответил iolandavalerypad353
0
Не могу изменить ответ почему то, почему ты знаешь?
Ответил DenisGolov
0
Изменить не можешь потому-что надо заново писать ответ.
Ответил iolandavalerypad353
0
и ответить не могу, нет поля для ввода
Новые вопросы