[kvaga]

Напишите программу табулирования функции y(x) на промежутке [a,b] с шагом h. Значения a,b,h выбирите так чтобы иллюстрировать особенности поведения ф-ии (корни экстремумы точки перегиба и.т.д)


.......| pi-(pi+x)^2 если x<-pi
y(x)=| sh(pi+cos(x)+1) если -pi<=x<pi
.......| pi+(sin(x)+1.23)^4/5 если x>=pi


ps в школе информатике не было...паскаль вижу впервые..нам дали без объяснения эту задачу...преподы делали упор на школьную программу..((помогите пожалуста

ps слышал что паскал породил долфи))мне ндао сделать задачу в турбо паскале

[The Shadow]

Что именно надо сделать? Нарисовать график, или только написать значения x и y?

[Aristarh Dark]

Сообщение от The Shadow

Что именно надо сделать? Нарисовать график, или только написать значения x и y?

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

табулирования функции y(x)

это значит

Сообщение от The Shadow

только написать значения x и y

[The Shadow]

А что такое sh()?

[The Shadow]

Вот код (Метод Sh не объявлен. Не знаю, что это):

Код:

program Prg;
const
a = -10;
b = 10;
h = 1;
var
x: Integer;
begin
for x:=a to b do
begin
if x < - Pi then
Writeln(Pi - Sqr(Pi + x):5:3);
if (x >= - Pi) and (x < Pi) then
Writeln(Sh(Pi+Cos(x)+1):5:2);
if x >= Pi then
Writeln(Pi+Sqr(Sqr((Sin(x)+1.23)))/5:5:3);
end;
Readln;
end.

Не забудь объявить Sh.

[kvaga]

спс..хочу уточнить
как подбирать значения a b и h для удовлетворения условия(чтобы иллюстрировать особенности поведения функции)
и что означает эта строка x: Integer;

[The Shadow]

a, b и h можешь выбирать сам. А x - это просто число. После for должна быть переменная, поэтому я ее и ввел.

[Rokuell]

Сообщение от The Shadow

А что такое sh()?

Позор. sh - гиперболический синус

sh(x) = ( e^x - e^(-x) ) / 2

В Delphi в модуле Math есть функция Sinh

Код:

function Sinh(const X: Extended): Extended;
begin
  if X = 0 then
    Result := 0
  else
    Result := (Exp(X) - Exp(-X)) / 2;
end;

[The Shadow]

Просто я с такой функцией еще никогда не работал.