Question

Найти значение функции для х от 0 до 16 с шагом 1. Написать в виде программы

Answer 1

Если в верхней строчке не "-3,5", а просто 3,5, то тогда вот такая программа:
var
   F:real;
   x:integer;
begin
writeln(' x','F':6);
for x:=0 to 16 do
  begin  if x>=3.5 then F:=4*x*x+2*x-19
    else F:=-2*x/(-4*x+1);
  writeln(x:2,F:8:2);
  end
end.