0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 5
1

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

05.03.2018, 18:57. Показов 1207. Ответов 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.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
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
4962 / 2565 / 2315
Регистрация: 10.12.2014
Сообщений: 9,832
06.03.2018, 07:34 2
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))
Но, если такого значения нет в выводимой последовательности?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2018, 07:34
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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