Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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;
Вот само задание
ОДЗ и на паскале я его написал а вот программу не могу помогите написать программу на паскале пожалуйста
Миниатюры
img_2948.jpg  
Женек вне форума   Ответить с цитированием

Старый 17.03.2013, 09:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные посты уже размещались на нашем форуме, вот их список

Операторы цикла на Паскале
Алгоритмическая структура цикла со счетчиком(прямой и обратный)
Операторы России
Задача в паскале с использованием цикла с параметром

Старый 17.03.2013, 10:26   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Женек Посмотреть сообщение
помогите написать программу на паскале пожалуйста
Да... разочаровали Вы меня, юноша. То, что написано у Вас - прежде всего, абсолютно математически безграмотно. Ну что это за множитель такой - (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. Большого значения это не имеет, но просто для порядка и строгости.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 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
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.