Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > 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. Каждая буква – это цифра, разным буквам соответствуют разные цифры. Необходимо заменить буквы цифрами так, чтобы получилось верное равенство. Найти все решения (если есть...
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 5
0

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

05.03.2018, 18:57. Показов 1283. Ответов 1
Метки (Все метки)
Составьте программу, которая строит таблицу значений функции x3+5x2+x-10sin(5x)-1. Количество строк в таблице n, начальное значение аргумента и шаг изменения аргумента step вводятся программистом. В каждой строке должно выводиться значение аргумента и соответствующее ему значение функции с 4 знаками после запятой.

После таблицы в соответствие с номером варианта (данные порядкого номера из журнала группы) должно быть выведено следующее: Минимальное значение среди значений функции, целая часть которых является четным числом.
Помогите пожалуйста, после таблицы должно выводить, но почему-то не получается.
Код:
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

function minimum(var min, t: integer): integer;
begin
  if (t mod 2 = 0) then 
  begin
    if min = 0 then min := t;
    if t < min then min := t;
    minimum := t;
  end;
end;
 
var
  i, n, t, min: integer;
  x, y, step: real;
 
begin
  min := 0;
  write('количество строк n = ');
  readln(n);
  write('значение аргумента x = ');
  readln(x);
  write('шаг = ');
  readln(step);
  for i := 1 to n do
  begin
    y := (sqr(x) * x) + 5 * sqr(x) + x - 10 * sin(5 * x) - 1;
    write('x=', x);
    writeln('  y=', y:0:4);
    x := x + step;   
    t := trunc(y);
    writeln('min= ', minimum(min, t));
  end;
end.


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

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

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

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

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

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

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

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

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

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

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