Протабулировать функцию y=cos2x - Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, нужна помощь с задачей. Протабулировать функцию y=cos2x на промежутке от 1 до Пи включительно, с промежутком 0.25 и посчитать произведение значений что удовлетворяют условие 0,5<y<1 Нужно срочно, буду благодарен любой помощи.

Решение задачи: «Протабулировать функцию y=cos2x»

textual
Листинг программы
const r = '+------+----------+';
var t, x, y, p: real;
    i: integer;
begin
  t := 1;
  p := 1;
  writeln('y = cos(2x)');
  writeln(r);
  for i := 0 to trunc((pi - 1) / 0.25) + 1 do
    begin
      x := t + 0.25 * i;
      y := cos(2 * x);
      writeln('|', x:5:2, ' |', y:9:5, ' |');
      if (y > 0.5) and (y < 1) then p := p * y
    end;
  writeln(r);
  write('Product of positive values = ', p:0:5);
  readln
end.

Объяснение кода листинга программы

  1. Объявляются переменные r, t, x, y, p: real; var i: integer;
  2. t инициализируется значением 1;
  3. Выводится строка y = cos(2x);
  4. Выводится строка-формат +------+----------+;
  5. Переменная p инициализируется значением 1;
  6. Запускается цикл for с начальным значением переменной i равным 0 и конечным значением, равным trunc((pi - 1) / 0.25) + 1;
  7. Внутри цикла переменная x инициализируется значением t + 0.25 * i;
  8. Переменная y инициализируется значением cos(2 * x);
  9. Выводится строка |, с пробелами, разделяющими значения переменных x и y;
  10. Если значение переменной y больше 0.5 и меньше 1, то значение переменной p умножается на значение переменной y;
  11. После завершения внутреннего цикла выводится строка |, с пробелами, разделяющими значения переменных x и y;
  12. Выводится строка |, с пробелами, разделяющими значения переменных x и y;
  13. Выводится строка Product of positive values = с пробелами, разделяющими числовые значения p;
  14. Программа завершается вызовом функции readln().

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы