Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Делаю чат, переделываю исходник https://www.cyberforum.ru/ pascalabc-net/ thread2205853.html
Вот откуда код https://www.cyberforum.ru/pascalabc-net/thread1349154.html Переделываю сервер, вместо командной строки хочу сделать winforms, как выводить сообщения в textbox1, каждую в новую...
Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме PascalABC.NET
Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме. В выражении используются только целые числа, знаки арифметических операций и вызовы функций...
PascalABC.NET Дано натуральное число, верно ли, что количество его цифр есть чётное число Никак не могу додуматься. Нужно через count while и div https://www.cyberforum.ru/ pascalabc-net/ thread2205588.html PascalABC.NET Найти максимальную компоненту файла https://www.cyberforum.ru/ pascalabc-net/ thread2205513.html
Создать файл F вещественных чисел. Найти максимальную компоненту файла и записать ее в конец файла. Сформировать файл H, записав в него каждую вторую компоненту файла F.
PascalABC.NET Доделать программу.
Нужно, после кнопки "построить" открывалась графическая форма ,где можно построить график. желательно с примером графика уже в коде. uses FormsABC;//Включение форм uses System.Windows.Forms,...
PascalABC.NET Диапазон элементов матрицы https://www.cyberforum.ru/ pascalabc-net/ thread2205343.html
Доброго времени суток! Имеется код (алгоритм параллельного и последовательного умножения матриц + вывод времени выполнения). Как задать случайные числа в диапазоне от 4 до 10? Пример матрицы: 5 8...
PascalABC.NET События в обобщенном типе type T1<T> = class event E1: procedure; procedure TryE1(); begin if E1 <> nil then E1(); end; end; https://www.cyberforum.ru/ pascalabc-net/ thread2205238.html PascalABC.NET ИИ бот для шахмат
Есть ли где-нб ИИ бот для шахмат?? Если нет, то как его сделать, с чего начать?
PascalABC.NET Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 Добрый день! :) Задание. Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 Корень уравнения должен быть найден с точностью E = 10^-4 . Для каждого метода вывести найденный... https://www.cyberforum.ru/ pascalabc-net/ thread2205086.html PascalABC.NET Класс TProperty - преобразование к object https://www.cyberforum.ru/ pascalabc-net/ thread2205051.html
Почему когда TProperty<T> реализует интерфейс IEquatable<TProperty<T>> вылетает ошибка компиляции, когда нет - все нормально? ///Предоставляет данные аргументов событий. unit Events; type ...
Ошибка запуска PascalABC.NET
Почему не работает когда подключаю модуль MaterialsAndProperties: uses BaseGraphicsSystem, MaterialsAndProperties; begin (new TMaterialInfo(clBlack, TBrushStyleType.bsSolid,...
PascalABC.NET Ребус: VOLVO+FIAT=MOTOR, используя тип "Множество" https://www.cyberforum.ru/ pascalabc-net/ thread2204915.html
Ребус: VOLVO+FIAT=MOTOR. Каждая буква – это цифра, разным буквам соответствуют разные цифры. Необходимо заменить буквы цифрами так, чтобы получилось верное равенство. Найти все решения (если есть...
5017 / 2605 / 2331
Регистрация: 10.12.2014
Сообщений: 9,922
06.03.2018, 07:34 0

Минимальное значение среди значений функции, целая часть которых является четным числом - PascalABC.NET - Ответ 12187810

06.03.2018, 07:34. Показов 1261. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function f(x : real) := x*x*x+5*x*x+x-10*sin(5*x)-1;
begin
  var(n,x0,step):=(ReadInteger('Количество строк: n ='),ReadReal('Начальное значение: x0 ='),ReadReal('Шаг изменения аргумента: step='));
  var y := Range(0,n-1).Select(i->x0+step*i).Select(x->(x,f(x)));
  WriteLn;
  WriteLn('     x    |    f(x)');
  WriteLn('----------+-------------');
  foreach var v in y do WriteLnFormat(' {0,8:f3} | {1:f4}', v[0], v[1]);
  var m := y.Select(v->v[1]).Where(y->Not Odd(Trunc(y)));
  if m.Count = 0 then
    WriteLn('min - не найдено')
  else
    WriteLn('min = ', m.Min:0:3);
end.
„Минимальное значение среди значений функции“ — это значит вещественное значение
„целая часть которых является четным числом“ — это получается значение Not Odd(Trunc(y))
Но, если такого значения нет в выводимой последовательности?

Вернуться к обсуждению:
Минимальное значение среди значений функции, целая часть которых является четным числом PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2018, 07:34
Готовые ответы и решения:

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

Определить является ли сумма элементов массива, значение которых меньше 8, четным числом
Здравствуйте. Как правильно оформить задание? Вот условия &quot;Дан массив из 10 целых чисел заполненный...

Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2
Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2....

Найти количество элементов, сумма которых является четным числом
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2018, 07:34
Помогаю со студенческими работами здесь

Максимальное значение среди значений функции, имеющих дробную часть, большую 0.4
Максимальное значение среди значений функции, имеющих дробную часть, большую 0.4....

Произведение тех элементов матрицы, сумма которых является максимальным четным числом
Ребят, помогите написать программу по квадратной матрице. Нужно составить программу-функцию для...

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным
Несколько школьников выстроились в шеренгу. Для каждого школьника известен его день рождения....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru