Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2016, 17:21   #1
Olia13
Новичок
Джуниор
 
Регистрация: 07.11.2016
Сообщений: 1
По умолчанию Object Pascal - Найти наименьшее и наибольшее значение функции на интервале

Знайти найбільше і найменше значення функції
y=cosec3x, x=1.0(0.5)3.0
1.0-початкове значення
0.5-крок
3.0-кінцеве значення
Olia13 вне форума Ответить с цитированием
Старый 07.11.2016, 17:31   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
var min,mix,x:real;
Function cosec(z:real):real;
   Begin{cosec}
    cosec:=cos(z)/1;
   End;{cosec}
BEGIN
x = 1;
min := cosec(3);
max := cosec(3);
while x<=3 do
begin
   if min<cosec(x) then min := cosec(c);
   if max<cosec(x) then max := cosec(c);
   x := x + 0.5;
end;
writeln(min,max);
readln;
END.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 07.11.2016, 17:45   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Код:
cosec:=cos(z)/1;
я думаю, что это опечатка, так?


впрочем, там и после этого опечаток хватает.
интересно, это так и задумано или просто случайно получилось?

Последний раз редактировалось Serge_Bliznykov; 07.11.2016 в 17:57.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.11.2016, 20:54   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Случайно, набирал в окне. Но ведь Оля знает что косеканс это 1/синус? ну и присвоение, конечно

мдя...наплутал чуток

Код:
var x,min,max:real;
function cosec(x:real):real;
begin
     cosec:=1/sin(x);
end;
BEGIN
x:=1;
min:=cosec(3*x);
max:=cosec(3*x);
while x<=3 do
begin
  if min>cosec(3*x) then min := cosec(3*x);
  if max<cosec(3*x) then max := cosec(3*x);
  x:=x+0.5;
end;
writeln;
writeln(min:5:5); writeln(max:5:5);
readln;
END.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 07.11.2016 в 21:17. Причина: :)
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти наибольшее и наименьшее значение функции y=3*x^2+x-4, если на заданном интервале от [a,b] х изменяется с шагом 0,1 Конь Антон Паскаль, Turbo Pascal, PascalABC.NET 3 06.03.2017 14:26
найти наибольшее и наименьшее значение в заштрихованной области матрицы / Pascal ABC Veronika_13 Помощь студентам 4 02.07.2014 17:04
Наименьшее и наибольшее значение функции Ejevila Помощь студентам 4 21.12.2010 01:41
Задача:Найти наименьшее и наибольшее значение заданной функции с помощью массива.(Pascal) abiturient Помощь студентам 12 08.10.2009 20:35