Действительное число с условиями

[Афанасий[vedma]]

2.jpg
2 и 3 условие как будет?

[Serge_Bliznykov]

if x<=2 then f:=0
else
  if x<=3 then f:=sqr(x)-x
  else f:= sqr(x)- cos( pi*sqr(x))/sin(pi*sqr(x));

[Афанасий[vedma]]

var
  x:real;
function f(b:real):real;
  begin
    if x<=2 then f:=0
else
  if x<=3 then f:=sqr(x)-x
  else f:= sqr(x)- cos( pi*sqr(x))/sin(pi*sqr(x));
  end;
begin
  write('Enter x:');
  readln(x);
  write('Result:',f(x));
  readln;
end.

вот так будет?

[Mad_Cat]

интересный(ая) ты

function f(b:real):real;

зачем те b если в теле функции ты ее не используешь?

[Serge_Bliznykov]

Mad_Cat абсолютно прав!

Афанасий[vedma], Ваш код будет работать, но это побочный эффект использования глобально переменной X

Совет (на будущее). если Вы не планируете использовать ГЛОБАЛЬНЫЕ переменные, то описывайте все переменные ПОСЛЕ процедур и функций.
Тогда компилятор Паскаля подскажет Вам, где Вы накосячили.

т.е., если бы Вы написали так:

function f(b:real):real;
begin
if x<=2 then f:=0
else
  if x<=3 then f:=sqr(x)-x
  else f:= sqr(x)- cos( pi*sqr(x))/sin(pi*sqr(x));
end;

var
  x:real;

begin
  write('Enter x:');
  readln(x);
  write('Result:',f(x));
  readln;
end.

то сразу бы получили ошибку, что в функции f используется переменная x, про которую компилятор ничего не знает.
и тогда Вы бы исправили заголовок функции на такой:

function f(x:real):real;

и программа заработала нормально!