Одним из способов вычислить значение интеграла - Turbo Pascal

  1. помогите выразить в языке паскаль


textual

Код к задаче: «Одним из способов вычислить значение интеграла - Turbo Pascal»

uses crt;
var n : integer;
    s: real;
 
function f(x:real):real;
begin
f:=sqrt(9-x*x);
end;
procedure simpson (a,b:real; n:integer; var s:real);
var i : integer;
    h,x,k: real;
begin
h:=(b-a)/n;
s:=0;
k:=a;
for i:=1 to n-1 do
 begin
  k:=k+h;
  if i mod 2 = 0 then s:=s+2*f(k)
  else s:=s+4*f(k);
 end;
s:=(s+f(a)+f(b))*h/3;
 
end;
begin
clrscr;
simpson (0,3,200, s);
write('Г€Г*ГІГҐГЈГ°Г*Г« = ',s:0:4);
readln;
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

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

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса:

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Никак не могу додуматься как сделать :с