Вычислить значение выражения - PascalABC.NETРазработать подпрограмму для вычисления значения
Вычислить значение выражения - PascalABC.NET
Создать подпрограмму для вычисления значения функции (функция определена в таблице 1). Значение функции вычислять с точностью до тысячных частей.
Рассмотреть два варианта реализации подпрограммы: подпрограмма-процедура и подпрограмма-функция.
Использовать подпрограмму для построения таблицы значений функции в 10 разных точках
Функции и процедуры в Паскаль
Спасибо ещё раз)
Создать подпрограмму для вычисления значения функции
На картинке 9 формула
В чем ошибка?
function f(x:real):real;
begin
if xlt;0 then f:=1-x*x
else if xlt;=4 then f:=x+1
else f:=1+sqrt(cos(x));
end;
procedure p(x:real;var y:real);
begin
if xlt;0 then y:=1-x*x
else if xlt;=4 then y:=x+1
else y:=1+sqrt(cos(x));
end;
// Внимание! Если программка не работает, обновите версию!
function f(x:real):real;
begin
if xlt;0 then Result:=1-x*x
else
if xlt;=4 then Result:=x+1
else Result:=1+Sqrt(Cos(x))
end;
procedure p(x:real; var y:real);
begin
if xlt;0 then y:=1-x*x
else
if xlt;=4 then y:=x+1
else y:=1+Sqrt(Cos(x))
end;
begin
var x,y:real;
for var i:=1 to 10 do begin
x:=2.5*i-10;
y:=f(x); Write(x:6:1,y:15:8);
p(x,y); Writeln(y:15:8)
end
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.