|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
14.01.2010, 12:17 | #1 (permalink) |
Member
Регистрация: 21.12.2009
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, с задачей по Паскалю!
зарание спасибо!!!! паскаль. |
14.01.2010, 12:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме часто встречаются похожие темы, посмотрите топики которые похожи на ваш Помогите пожалуйста с задачей по C++ Помогите решить задачу по Паскалю. Срочно, пожалуйста. Пожалуйста, помогите с задачей Помогите, пожалуйста, с задачей на языке Делфи |
14.01.2010, 14:29 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Будем считать, что x2, x3 это x² ,x³.
Прежде всего заметим, что в функции стоит Ln(y), откуда следует, что y>0, откуда x²-1/x>0, откуда x>1. Код:
VAR x,Ymin,Ymax,h:REAL; i,N:INTEGER; BEGIN Write('x (>1) = '); ReadLn(x); h:=0.01/x/x/x; Ymin:=x*x-1/x; Ymax:=x*x+2*x+1; N:=ROUND((Ymax-Ymin)/h); For i:=0 to N do Writeln(Ymin+h*i,' ',Ln(Ymin+h*i)+Exp(-Ymin-h*i)); ReadLn; END. |
14.01.2010, 14:36 | #5 (permalink) |
Member
Регистрация: 21.12.2009
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|