Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Периметр треугольника по катетам https://www.cyberforum.ru/ turbo-pascal/ thread795191.html Даны длины катетов прямоугольного треугольника.Вычислить его периметр.	Turbo Pascal Строковые. Нахождение символов Составить блок-схему и программу ввода и обработки текста из нескольких предложений.При этом считать,что число предложений и число строк могут не совпадать, каждое слово находится целиком в одной строке, ввод строки завершается нажатием клавиши ENTER, точка - конец предложения. Найти предложения,в которых символы расположены по алфавиту.Если таких предложений нет, т о вывести соответствующее...
Turbo Pascal Имеется два текстовых файла, в каждый записан ряд упорядоченных чисел. Соединить эти числа и записать в третий файл https://www.cyberforum.ru/ turbo-pascal/ thread795089.html Числа соединить так, чтоб сохранилась упорядоченность. Важно: массивы использовать запрещается! Пытаюсь реализовать внешнюю сортировку двухпутевого сбалансированного слияния, но не знаю как соединять отрезки без массивов. Помогите, пожалуйста! Очень нужно!	Turbo Pascal Олимпийские игры Олимпийские игры В Олимпийских играх участвуют объединенные команды отдельных стран. Каждая страна имеет команды в определенных видах спорта. Во многих видах спорта соревнования проводятся на отдельных дистанциях и стилях (плавание) или весовых категориях (бокс). На одной дистанции и стиле или весовой категории могут выступать несколько спортсменов. Один спортсмен может выступать на нескольких... https://www.cyberforum.ru/ turbo-pascal/ thread795038.html
Turbo Pascal Разветвляющиеся структуры. Определить значение функции, заданной графически	Turbo Pascal Подсчитать значение R пока (i+3)<=10 https://www.cyberforum.ru/ turbo-pascal/ thread795025.html Подсчитать значение R пока (i+3)<=10. Вывести слово min, если R<=0, иначе слово max
Turbo Pascal Разветвляющиеся структуры. Рассчитать стоимость квартиры Текстовые задания набирайте вручную. Таковы правила форума https://www.cyberforum.ru/ turbo-pascal/ thread795024.html	Программы разветвляющейся структуры: вычислить значения заданной функции Turbo Pascal
Turbo Pascal Программы разветвляющейся структуры: вычислить значения составной (сложной) функции Составить программу для вычисления значений заданной функции, используя исходные данные. Выполнить проверку работы программы, значения аргумента выбрать самостоятельно. https://www.cyberforum.ru/ turbo-pascal/ thread795020.html	Turbo Pascal Циклы с предусловием и постусловием: составить программу планирования закупки товара в магазине Помогите составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину. двумя способами с предусловием и постусловием (без массивов) подробнее Обозначить например через x, k - соответствующую цену и количество товара, через p - заданную предельную сумму, через s - общую стоимость покупки. Начальное значение общей стоимости покупки (S) равно нулю.... https://www.cyberforum.ru/ turbo-pascal/ thread794980.html
Поиск в ширину Turbo Pascal Всем привет, нужна помощь! Задача вот: На шахматной доске NxN в клетке (x1, y1) стоит шахматный конь. Он должен попасть в клетку (x2, y2). Какое наименьшее количество ходов он должен для этого сделать? Формат входных данных На вход программы поступает пять чисел: N, x1, y1, x2, y2 (5 <= N <= 20, 1 <= x1, y1, x2, y2 <= N). Левая верхняя клетка доски имеет координаты (1, 1), правая нижняя -...	Turbo Pascal Исправить с учетом регистра ошибки Друзья, кто-нибудь может помочь с данной задачей? Исправить с учетом регистра ошибки согласно правописанию личных местоимений 3-го лица в косвенных падежах: после предлогов к, с, близ, после прибавляется н, например, к нему. https://www.cyberforum.ru/ turbo-pascal/ thread794932.html

V_i_p

3 / 3 / 1

Регистрация: 01.12.2012

Сообщений: 61

05.03.2013, 10:29 [ТС]

Минимум и максимум функции на заданном отрезке - Turbo Pascal - Ответ 4213150

05.03.2013, 10:29. Показов 1959. Ответов 1

Метки (Все метки)

Сообщение было отмечено V_i_p как решение

Решение

Pascal

program laba5_1;
var
x1,y1,xmin,xmax:integer;
function f(x:integer):integer;
begin
f:=lnx/ln13;
end;
function maxf(xmin:integer;xmax:integer;dx:integer):integer;
var res,m:integer;
begin
  res:=f(xmin);
  while xmin<xmax do begin
    m:=f(xmin);
    if res>m then res:=m;
    xmin:=xmin+dx;
  end;
  max_iter:=res;
end;
 
function maxf(xmin:integer;xmax:integer;dx:integer):integer;
var res,m:integer;
begin
  res:=f(xmin);
  while xmin<xmax do begin
    m:=f(xmin);
    if res<m then res:=m;
    xmin:=xmin+dx;
  end;
  max_iter:=res;
end;

Посмотрите вот сделал начало программы надо еще конец доделать помогите плиз сделать ее

Комментарий модератора

Не забывайте выделять код тегами подсветки!

Вернуться к обсуждению:
Минимум и максимум функции на заданном отрезке Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.03.2013, 10:29

Готовые ответы и решения:

Найти минимум и максимум функции на отрезке
Народ, помогите, пожалуйста, вот с такой задачкой: Перебором с шагом 0.05 найти минимум функции...

3. Отметить максимум и минимум функции на заданном отрезке[-2пи,2пи]
помогите с максимумом и минимумом вот код: #include <windows.h> #include <gl\GLU.h> #include...

Найти максимум функции на заданном отрезке с заданной точностью
Всем привет! Создавал такую же тему в другом разделе не кто не ответил, решил написать сюда...

Максимум и минимум функции
написать программу которая бы находила бы минимум и максимум функции y= 7+ 12*x - x^3 помогите...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.03.2013, 10:29

Помогаю со студенческими работами здесь

Минимум функции на отрезке
Всем добрый день! Подскажите пожалуйста, как можно найти минимум функции которая была...

Найти минимум и максимум функции
help me pls 32. Найти минимум и максимум функции Y = ln(x – x2 +8), х принимает целые значения на...

Найти минимум и максимум функции
Найти минимум и максимум функции : f(x)=x/(x+2) ; X=.

Найти минимум и максимум функции
помогите решить 31. Найти минимум и максимум функции Y = X3 – 7X +8, х принимает целые значения на...

Наверх