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

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

30.05.2019, 13:27. Показов 634. Ответов 1
Метки нет (Все метки)

Что нужно добавить или поправить
Составьте программу, которая строит таблицу значений функции x3+5*x2+x-10*sin(5*x)-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
var 
   i,n: integer;
   t,x,y,s, step:real;
begin
  write ('', ' x', '=');
  readln(x);
  write('введите шаг', ' step', '=');
  readln (step);
  write ('количество строк',' step','=');
  readln(n);
  t := 0;
  s := 0;
  for i := 1 to n do
  begin 
    y:= sqr(x) * x+5 *sqr(x) + x -10 * sin(5*x)-1;
    writeln ('x=', x, ' y=', y:0:4);
    x :=x+step;
    if y<0 then begin
      t:= t+1;
      s := s+y;
    end;
   end;
   if s<0 then begin
      s :=s/t;
      writeln ('Минимальное значение среди значений функции,  целая часть которых является четным числом', s:0:4);
      end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2019, 13:27
Ответы с готовыми решениями:

Минимальное значение среди значений функции, целая часть которых является четным числом
Составьте программу, которая строит таблицу значений функции x3+5x2+x-10sin(5x)-1. Количество...

Определить является ли произведение элементов массива, значение которых меньше 10, чётным числом
Дан массив 3*3 из целых чисел заполненный случайными числами из интервала . Определить является ли...

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

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

1
4948 / 2557 / 2309
Регистрация: 10.12.2014
Сообщений: 9,812
03.06.2019, 09:13 2
Что-за фетиш с разбиением строковой константы в операторе вывода?

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
var 
   i,n: integer;
   x, step, y, min :real;
   find : Boolean;
begin
  write('x0 = '); readln(x);
  write('введите шаг = '); readln(step);
  write('количество шагов = '); readln(n);
  find := False;
  for i := 1 to n do
  begin 
    y := x*x*x + 5*x*x + x - 10*sin(5*x) - 1;
    writeln('y(', x, ') = ', y:0:4);
    if not odd(trunc(int(y))) then
      if not find then
        begin
          find := True;
          min := y;
        end
      else if min > y then
        min := y;
    x := x + step;
  end;
  if find then
    writeln ('Минимальное значение среди значений функции,  целая часть которых является четным числом ', min:0:4)
  else
    WriteLn('Нет значений удовлетворяющих условию.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2019, 09:13
Помогаю со студенческими работами здесь

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

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

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

Проблемы с кодом. Сумма таких значений функций, целая часть которых двузначна
Помогите с кодом. Сумма таких значений функций, целая часть которых двузначна. Функция и условия на...


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

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

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