Табулирование функции

[aShsville]

http://s012.radikal.ru/i319/1412/34/15634aae80ff.jpg
помогите решить гуманитарию желательно до завтра!!
нужен текст программы в паскали

[ViktorR]

См. вложение. Так устроит?


Как-то так, ...

[aShsville]

какое вложение?

[aShsville]

это нето, мне нужно функцию протабулировать...

[ViktorR]

А это и есть табулирование Вашей функции.
Что не так?

Если стать на ячейку второго столбца, то увидите условие и соответствующие этому условия выражения для вычисления.


Как-то так, ...

[aShsville]

мне бы текст программы на паскали,уважаемый я тебе премного благодарен буду если выручишь....

[ViktorR]

Пол часа выясняем что надо. А в исходном сообщении влом написать?

var x, xb, xe, dx, f : real;
begin
xb := -3;
xe := 3;
dx := 0.1;
x := xb;
while (x <= xe) do
begin
   if (abs(cos(x)) > 1/sqrt(3)) then
      f := sqrt(1/sqrt(3) + sqr(x))
   else
      f := sqrt(1/sqrt(3) -  abs(cos(x)));
   writeln(x:5:1, f:6:3);
   x := x + dx;
end;
readln();
end.

Как-то так, ...
PS: Не проверял.