Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Палиндромы и двоичная система https://www.cyberforum.ru/ turbo-pascal/ thread2107593.html Всем привет! Само задание звучит так : Найти все простые числа, не превосходящие натуральное число N, двоичная запись которых представляет собой палиндром. N задано, и не должно превосходить 1000. Палиндром – это число, которое одинаково читается слева направо и справа налево. Я написал программу , она переводит числа в двоичную систему, а как теперь эту программу перевести , чтобы она работала...	Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, . 24 часа Turbo Pascal Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, .... 24 часа.
Turbo Pascal Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается https://www.cyberforum.ru/ turbo-pascal/ thread2107419.html Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается.	Turbo Pascal Матрица B[1:T, 1:T] содержит два одинаковых элемента. Напечатать их индексы https://www.cyberforum.ru/ turbo-pascal/ thread2107331.html Матрица B содержит два одинаковых элемента. Напечатать их индексы.
Turbo Pascal В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения.	Turbo Pascal Оператор выбора Имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран ее название. https://www.cyberforum.ru/ turbo-pascal/ thread2107268.html
Turbo Pascal Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 y=sh x=x+ \frac{x^3}{3!} + \frac{x^5}{5!} +...+ \frac{x^{2n+1}}{(2n+1)!}+... Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps. https://www.cyberforum.ru/ turbo-pascal/ thread2106994.html	Turbo Pascal Вычислить значение функции при заданном значении х Вычислить значение функции при заданном значении х F(x)=\begin{cases}-x^3+9 & \text{ if } x\leq 13 \\\\ -\frac{3}{x+1} & \text{ if } x>\,13 \end{cases}
Turbo Pascal Error 15 https://www.cyberforum.ru/ turbo-pascal/ thread2106961.html Подскажите ,пожалуйста, что делать, если при подключении модуля Graph "Uses Graph", последующая компиляция выдаёт ошибку 15 ? Я уже выставил в EXE %TPU directory директорию, где лежат модули с расширением TPU, но проблема не исчезла.	Turbo Pascal для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ https://www.cyberforum.ru/ turbo-pascal/ thread2084473.html для целочисленного массива A определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ
Turbo Pascal Найти сумму ряда с точностью E Найти сумму ряда с точностью \varepsilon ={10}^{-3} , общий член которого определяется формулой {a}_{n}=({n}^{2}+10)/n	Turbo Pascal Вставить одну строку в другую с заданной позиции https://www.cyberforum.ru/ turbo-pascal/ thread2083585.html Разработать процедуру. Во входном файле хранится 2 слова и одно число. Пример: vodo provod 4 {номер символа, после которого второе слово, вставляется в первое} В выходном файле должно быть выведено vodoprovod

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

21.10.2017, 13:57

Найти минимум функции, используя цикл с параметром - Turbo Pascal - Ответ 11640947

21.10.2017, 13:57. Показов 1101. Ответов 1

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

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

Решение

Pascal

uses crt;
function f(x:real):real;
begin
f:=exp(x)-exp(ln(x)*3);
end;
var n,i:integer;
    a,b,h,mn:real;
begin
clrscr;
a:=1.5;
b:=4.5;
h:=0.05;
n:=round((b-a)/h);
for i:=0 to n do
if i=0 then mn:=f(a)
else if f(a+i*h)<mn then mn:=f(a+i*h);
write('min f(x)=',mn:0:3);
readln
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.10.2017, 13:57

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

Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y
используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y если...

Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром
Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром.

Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром
Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром

Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 используя цикл с параметром
1)Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 (целое...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.10.2017, 13:57

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

Переписать серию команд, используя цикл с параметром (For)
Переписать серию команд, используя цикл с параметром (For) p:=1;i:=1 нц пока i<=10 ввод если...

Решить 2 способами: используя цикл с параметром и goto
Есть некоторая зависимость у(х). Х . Задача: вывести для каждого х соответствующий у. Х с шагом...

Вывести таблицу квадратов заданных чисел(используя цикл с параметром)
Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных...

Вычислить значение выражения при заданном n, используя цикл с параметром
Дано целое число n. Вычислить P=\sqrt{3+\sqrt{6+\sqrt{9+...+\sqrt{3(n-1)+\sqrt{3}}}}}

Наверх