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

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

прошу помочь мне переписать эту задачу с другими операторами
begin
Y:=(sin(x*x)/cos(x*x))/((x*x)+1);
end;
begin
b:=1;                              
a:=0.2;                             
n:=10;                              
h:=(b-a)/n;                        
s:=0; z:=a+h;                       
while z<b do                       
begin                              
s:=s+4*Y(z);                                                     
z:=z+h;                             
s:=s+2*Y(z);                        
z:=z+h;                            
end;                               
s:=h/3*(s+Y(a)-Y(b));              
writeln('Интеграл = ',s:8:5);       
end.
Добавлено через 22 минуты подскажите что поменять или заменить на что

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

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.

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ