func

[ирина222]

Составить алгоритм и написать программу, которая вычислит и выведет на экран в виде таблицы значения функции, заданной графически на интервале от xнач до xкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы.
uhfab.jpg

[min@y™]

...скоро сессия...

[newerow1989]

function f(x:real):real;
begin
   f:=x+3;
   If (x>=-3) and (x<0) then
      f:=sqrt(9-x*x);
   If x>=0 then
      f:=-1/2*x+3;
   If x>=6 then
      f:=x-6;
end;

procedure TForm1.Button1Click(Sender: TObject);
const dx=0.01;
var x1,x2:real;
begin
   Memo1.Clear;
   x1:=-5;
   x2:=10;
   Repeat
      Memo1.Lines.Add(FloatToStr(x1)+' : '+FloatToStr(f(x1)));
      x1:=x1+dx;
   Until x1>x2;
end;

Сойдет?