Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Операторы цикла на паскале (http://www.tehnari.ru/f41/t86466/)

Женек 17.03.2013 09:55

Операторы цикла на паскале
 
Вложений: 1
Выбрать алгоритм, составить блок-схему и программу для вычисления в точках 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

Цитата:

Сообщение от Женек (Сообщение 882187)
помогите написать программу на паскале пожалуйста

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

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


Часовой пояс GMT +4, время: 03:10.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.