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

Женек · 17.03.2013, 09:55

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

Vladimir_S · 17.03.2013, 10:26

Цитата:

Сообщение от Женек

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

Да... разочаровали Вы меня, юноша. То, что написано у Вас - прежде всего, абсолютно математически безграмотно. Ну что это за множитель такой - (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. Большого значения это не имеет, но просто для порядка и строгости.

Женек · 17.03.2013, 11:12

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

17.03.2013, 09:55	#1 (permalink)
Женек Member Регистрация: 16.03.2013 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Операторы цикла на паскале Выбрать алгоритм, составить блок-схему и программу для вычисления в точках xi = a + i×h, i = 0,1,2…,n, h = (b – a)/n промежутка [a,b] наибольшего и среднего значений функции y = f(x), Для выполнения задания воспользоваться оператором цикла FOR; Вот само задание ОДЗ и на паскале я его написал а вот программу не могу помогите написать программу на паскале пожалуйста Миниатюры

17.03.2013, 11:12	#3 (permalink)
Женек Member Регистрация: 16.03.2013 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо За помощь буду знать как это делается большое спасибо )

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070