Вычеслить и вывести значения сложной функции

[ROMA2PVT]

result это тоже что и у тебя f(x).Называй хоть как смысл то неизменится.Да x с клавы надо вводить.

[armeec08]

эт тут т.е. после бегин писать врителн введите х?

[ROMA2PVT]

Тебе она с функцией нужна?

[armeec08]

ну да, ))))))))

[ROMA2PVT]

Ну ты про подпрогармму ничего неписал.

[armeec08]

всмысле? непонял

[ROMA2PVT]

function и procedure это подпрограммы.И вопрос тебе надо сделать эту программу с использованием подпрограмм?

[armeec08]

не не не. самым простым способом нужно)

[ROMA2PVT]

Переделанный код evg_m

Var
result,x:integer;
begin
write('Введите x: ');
readln(x);
if x<=-1 then result:=1
  else if x<=1 then result:=2*x*x+1
  else if x<2 then  result:=x*x
  else exit;
  writeln(result);
end.

[armeec08]

оооооооооогрооооооомноооооеее спасибо. очень сильно помог.