Операторы цикла на паскале

[Женек1]

Операторы цикла на паскале

Выбрать алгоритм, составить блок-схему и программу для вычисления в точках xi = a + i×h, i = 0,1,2…,n, h = (b – a)/n промежутка [a,b]
наибольшего и среднего значений функции y = f(x), Для выполнения задания воспользоваться оператором цикла
FOR;
Вот само задание
ОДЗ и на паскале я его написал а вот программу не могу помогите написать программу на паскале пожалуйста

 

[Vladimir_S]

помогите написать программу на паскале пожалуйста

Да... разочаровали Вы меня, юноша. То, что написано у Вас - прежде всего, абсолютно математически безграмотно. Ну что это за множитель такой - (Sqr(Ln))? Логарифм чего? Это ведь, знаете ли, функция, требующая прописывания аргумента.
Да и сама задачка настолько пустяковая, что никак не должна представлять трудностей.
Ладно, вот Вам решение - хоть попробуйте разобраться:

Const
 Xmin=2.0;
 Xmax=3.0;
 N=10;
Var
 x,Dx:Real;
 i:Byte;

Function Y(z:real):real;
begin
 Y:=Sqr(Cos(z))/(1+Sin(z))-Sqr(Ln(z)-Ln(z-1)/3);
end;

Begin
 Dx:=(Xmax-Xmin)/N;
 For i:=0 to N do
  begin
   x:=Xmin+Dx*i;
   Writeln(x:3:1,Y(x):12:3);
  end;
 Readln
End.

А что касается ОДЗ, то x=0 не попадает в диапазон, а особая точка x=3*π/4=2.356 тоже не является одним из значений требуемой сетки.

P.S. Поправил в теле функции Y аргумент с x на z. Большого значения это не имеет, но просто для порядка и строгости.

 

[Женек1]

Спасибо За помощь буду знать как это делается большое спасибо )