Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 2
1

Нужно составить программу для нахождения экстремумов функции

15.09.2013, 17:32. Просмотров 2127. Ответов 7
Метки нет (Все метки)


Помогите составить программу для нахождения экстремумов функции.
0
Миниатюры
Нужно составить программу для нахождения экстремумов функции  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2013, 17:32
Ответы с готовыми решениями:

Составить программу по нахождению экстремумов функции
Помогите пожалуйста. Нужно написать программу находящую экстремумы функции методом равномерного...

Составить программу для нахождения значения функции
Составить программу для нахождения значения функции: y=\frac{\operatorname{avg}...

Составить программу для нахождения значения функции в точке а
Составить программу для нахождения значение функции в точке а. Значение а вводится с клавиатуры. ...

Составить программу для нахождения наименьшего значения функции
не могу доделать вот эту прогу. Вот дано: Составить программу для нахождения наименьшего значения...

7
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.09.2013, 21:14 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  i, N: word;
  a, b, d, x, f, min1, max1: real;  
 
procedure func(t: real);
begin
  if t < 0 then f := exp((t-1) * ln(2)) * cos(3 * t)
  else
  if (t >= 0)and(t < 1) then f := ln(abs(t - 5)) + power(5 * t, 1 / 3)
  else f := power(t, -2.5) * sin(2 * t + 1)
end;
 
begin
  a := -random(10); //левый конец диапазона
  b := random(10); //правый конец диапазона
  N := random(100, 1000); //количество делений диапазона    
  d := (b - a) / N; //шаг увеличения абсциссы
  x := a; //начальное значение
  func(x); //вызываем процедуру вычисления значения функции
  min1 := f; //начальное значение минимума
  max1 := min1; //начальное значение максимума
  while x <= b do
  begin
    x := x + d;
    func(x); //процедура вычисления значения функции
    min1 := min(min1, f); //вычисляем минимум
    max1 := max(max1, f); //вычисляем максимум
  end;
  writeln('В диапазоне [', a, ', ', b, '] имееем:');
  writeln;
  writeln(' минимум:  ', min1);
  writeln(' максимум:  ', max1);
  writeln;
  write('Число делений диапазона:  ', N)
end.
1
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 2
15.09.2013, 21:27  [ТС] 3
Ошибка: функция RANDOM с параметрами указанных типов не найдена
строка 16, столбец 25
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
15.09.2013, 21:35 4
Цитата Сообщение от erl27 Посмотреть сообщение
Pascal
1
N := random(100, 1000);
Если надо число от 100 до 1000, то может так?
Pascal
1
N := random(1000) + 100;
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.09.2013, 22:23 5
random(A, B) - случайное число от A до B,
random(A) - случайное число от 0 до A-1,
поэтому случайное число от A до B можно записать и так: A + random(B - A + 1)

Добавлено через 19 минут
Поставь на место random(100, 1000) следующую функцию: 100 + random(901).

Дело в том, что в PascalABC, наверное, нет функции random(A, B) - случайное число от A до B, но зато она есть в PascalABC.Net
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
16.09.2013, 17:53 6
Цитата Сообщение от erl27 Посмотреть сообщение
Дело в том, что в PascalABC, наверное, нет функции random(A, B)
Да, это так. Но ничего не мешает сделать свою обертку над стандартной random(используя Ваш алгоритм, если не против).
Pascal
1
2
3
4
5
function randomFromRange(start, finish: integer): integer;
begin
 randomize();
 randomFromRange := start + random(finish - start + 1);
end;
1
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
16.09.2013, 18:26 7
Аналогичным образом я для себя модуль создал в Delphi, в который поместил процедуру проверки простоты числа, вычисление НОД и НОК (для двух чисел, позднее добавлю общий случай), и в случае надобности подключаю этот модуль; еще планирую добавить туда работу с большими числами. А в Delphi, кстати, тоже нет функции random(a, b), поэтому для вычисления случайного числа с диапазона [a, b] использую a + random(b - a + 1).
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
16.09.2013, 19:16 8
Цитата Сообщение от erl27 Посмотреть сообщение
Delphi, кстати, тоже нет функции random(a, b)
RandomRange из модуля math.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.09.2013, 19:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составить программу для нахождения минимума функции на отрезке
Всем привет, не могу составить программу для нахождения минимума функции, помогите пожалуйста:...

Составить программу нахождения функции y для различных значений аргумента x
Составить программу нахождения функции y для различных значений аргумента x. аргументы вводить с...

Составить блок-схему и программу для нахождения значений функции
Составить блок-схему и программу для нахождения значений функции: ...

Составить программу в виде подпрограммы функции для нахождения площади треугольника
Составить программу в виде подпрограммы функции для нахождения площади треугольника с заданными его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.