![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
![]()
Поиск максимального значения функции
y=x-Sqr(cos)x+3*sin (Sqr (x)) / ln (Sqr (x)+1) если х принадлежит промежутку [1;3],n=0.2 помогите решить задачу! |
![]() |
![]() |
![]() |
#2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
![]()
program maximum;
uses crt; var x,max:real; y:array[1..11] of real; i,j:integer; begin clrscr; x:=1; i:=1; while x<=3.2 do begin y[i]:= x-sqr(cos(x))+3*sin(sqr(x))/ln(sqr(x)+1); writeln (x:4:2,' ',y[i]:4:2); x:=x+0.2; i:=i+1; end; max:=y[1]; for j:=1 to i do if y[j]> max then max:=y[j]; writeln('maximum y = ',max:4:2); readln; end.
вступлю в команду разработчиков ПО на Delphi
|
![]() |
![]() |
![]() |
#3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]() Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 16.01.2009 в 09:47. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
![]()
Огромное спасибо!!! Всё работает вам + отзыв!!!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
добавление кнопки для определения максимального значения в столбце (дополнение к готовой работе)) | Cesmir | Помощь студентам | 10 | 11.01.2009 16:10 |
Поиск минимального (максимального) элемента массива | Radamant | Помощь студентам | 10 | 24.12.2008 17:44 |
Поиск точного значения с помощью функции БИЗВЛЕЧЬ | THE_ENGINEER | Microsoft Office Excel | 8 | 23.07.2008 11:37 |
Как в функции возвратить 2 значения? | Etlau | Помощь студентам | 4 | 20.06.2008 21:27 |
Суммирование значений и выведения максимального значения | Bor_man | Microsoft Office Excel | 2 | 12.04.2007 19:49 |