Переписать код, используя другие операторы - Pascal ABC

  1. прошу помочь мне переписать эту задачу с другими операторами


textual

Код:

function Y(x: real): real;
begin
  Y:=(sin(x * x) / cos(x * x)) / ((x * x) + 1)
end;
var a, b, h, z, s: real;
    n: integer;
begin
  b := 1;
  a := 0.2;
  n := 10;
  h := (b - a) / n;
  s := 0;
  z := a + h;
  repeat
    s := s + 4 * Y(z);
    z := z + h;
    s := s + 2 * Y(z);
    z := z + h;
  until z >= b;
  s := h / 3 * (s + Y(a) - Y(b));
  writeln('Интеграл = ',s:8:5);
  readln
end.


Похожие ответы
  1. Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O

  1. Очень прошу помочь. Записать на диск файл вещественных чисел. Первую половину компонент файла переписать в массив. Найти максимум массива и записать его вместо всех элементов второй половины файла. Файл и массив распечатать.

  1. Помогите с кодом, пожалуйста. Переписать все элементы массива E(n), имеющие четные индексы в массив B

  1. Дан одномерный массив целых чисел A[1..n]. Напишите программу, которая перепишет в массив B[1..n] сначала в убывающем порядке все отрицательные элементы массива А, а затем в возрастающем порядке все положительные элементы массива А. Например, для A = (4, -8, 7, -6, 0, -7, 5), получим B = (-6, -7, -8, 0, 4, 5, 7).

  1. Помогите пожалуйста написать программы: 1. Во входном файле первая строка – количество чисел, во второй строке – сами числа. В выходной файл вывести в первую строку – нечетные числа, имеющиеся со второй строке входного файла. Во вторую строку вписать их количество. 2. Во входном файле первая строка – количество чисел, во второй строке – сами числа (<1000). Переписать эти числа в выходной файл в обратном порядке. 3. В файле первая строка – количество чисел, во второй строке – сами числа (<1000). В этом же файле в следующей строке записать все числа второй строки, увеличив каждое на 1. Я пытался...не получается...

  1. Действующий код есть, но никак не получается сделать так, чтобы программа проскакивала отрицательные числа, вместо этого она выдаёт 0. Как это можно исправить?

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

  1. Переписать в другой текстовый файл самую короткую и самую длинную строки.

  1. Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Переписать компоненты файла f в файл g, так чтобы в файле g сначала шли отрицательные, потом положительные числа ! Очень срочно! Помогите пожалуйста!

  1. //Переписать в другой файл строки, в которых нет латинских букв. Помогите пожалуйста!!