17.03.2013, 09:55 | #1 (permalink) |
Member
Регистрация: 16.03.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Операторы цикла на паскале
наибольшего и среднего значений функции y = f(x), Для выполнения задания воспользоваться оператором цикла FOR; Вот само задание ОДЗ и на паскале я его написал а вот программу не могу помогите написать программу на паскале пожалуйста |
17.03.2013, 09:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные посты уже размещались на нашем форуме, вот их список Операторы цикла на Паскале Алгоритмическая структура цикла со счетчиком(прямой и обратный) Операторы России Задача в паскале с использованием цикла с параметром |
17.03.2013, 10:26 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... разочаровали Вы меня, юноша. То, что написано у Вас - прежде всего, абсолютно математически безграмотно. Ну что это за множитель такой - (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. P.S. Поправил в теле функции Y аргумент с x на z. Большого значения это не имеет, но просто для порядка и строгости. |
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
|
|
|