Цена вопроса оплачеваемая - Протобулировать функцию на интервале

[liderkolya1992]

Turbo Pascal
Протобулироватть функцию на интервале -2π ≤ x ≤ 2π с шагом h=π3
Y=5sin(3x+π/8)+ln|x|

[gaw4]

каким циклом проходить не сказано?

[Mad_Cat]

>>>оплачеваемая
Это вы хотели сказать
"оплакиваемая"(от "плакать")
или
"оплачиваемая"(от "платить")

const p=3.14;
var x,y,h:real;
begin
x:=-2*p;
h:=p/3;
while x<=2*p+h/2 do
begin
y:=5*sin(3*x+p/8)+ln(abs(x));
writeln('x=',x:6:3,' y=',y:6:3);
x:=x+h;
end;
readln;
end.

[Serge_Bliznykov]

// извините, перенёс тему во Фриланс, не заметил решения от Mad_Cat!

[Smitt&Wesson]

Сообщение от Serge_Bliznykov

// извините, перенёс тему во Фриланс, не заметил решения от Mad_Cat!

Не страшно. Я ему компенсировал "моральный ущерб". Плюсанул в репу.

[коровук виктор]

Mad_Cat
спасибо за помощь