Вычислить значение выражения - 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;

Задать свой вопрос
Лотников Антон
Формула уже в программке описанная, не могу осознать в чем ошибка
Никитка Сеземов
исправила и формулу(9) привела
1 ответ
// PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
// Внимание! Если программка не работает, обновите версию!

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.
Тимур
Мне необходимы без точек просто, только формулы я на этом и встала
Леночка Ситина
Использовать подпрограмму для построения таблицы значений функции в 10 разных точках
Санек Миркотан
Это не нужно, как мне произнесли главное чама функция
Пашка
begin var x,y:real
Иван
убирая этот блог пишет ожидался begin
Агата Зенина
не знаю)) еслиб знала не уточняла бы здесь, просто как сказала препод то и прошу ну хорошо ибо с процедурами так и не могу вдуматься сущность
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт