Написать программу,которая вычисляет длину кривой

[холодная92]

Написать программу,которая вычисляет длину кривой y=под корнем x*(20-x) ,(0<=x<=20) заменив кривую ломfной с вершинами(0,4i; y(0.4i))где i= 0,1,2…50 подготовить и использовать процедуру для вычисления i-го отрезка

[холодная92]

даже начало чуть чуть есть

[Npwas]

Читаем про:
1)Длина кривой(http://ru.wikipedia.org/wiki/Длина_кривой)
2)Рассчет интегралла методом прямоуголников(можно и другой выбрать)
3)Читаем про использование процедур

Если не ошибаюсь, то a и b при интегралле это его 1-ая и 2-ая точки(чет-то типа того) и наверное для рассчета i-го отрезка данную методику тоже применить можно.

Вот пример рассчета интегралла двумя разнымя методами(язык Delphi, надеюсь пойдет):

program Integrali;

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
  TFunc = Function(x:real):real; //функциональный тип
{Перечень используемых ф-ций, при использованиифункионального типа}
Function F_1(x:real):real;
 Begin
   F_1 := sqrt(0.5*x + 2) / (sqrt(2*sqr(x)+1)+0.8);
 End;
Function F_2(x:real):real;
 Begin
   F_2 :=cos(0.8*x+1.2)/(1.5+sin(sqr(x)+0.6));
 End;
Function F_3(x:real):real;
 Begin
   F_3 := 1/sqrt(sqr(x)+3.2);
 End;
Function F_4(x:real):real;
 Begin
    F_4 :=(x+1)*sin(x);
 End;

VAR
   i,n,j:integer;
   a,b,kol:real;
   y:TFunc;

{Ф-ЦИЯ РАССЧИТЫВАЮЩАЯ ИНТЕГРАЛ МЕТОДОМ ТРАПЕЦИЙ}
FUNCTION Trapezija(f:TFunc; a,b,Eps:real; n:integer):real;
Var
   h,sum,x,G,It:real;
BEGIN
  kol:=1;
  It:=f(a)*(b-a);//нач. знач. ф-ции интегралла
  Repeat
    sum:=0;
    h:=(b-a)/n;//рассчет высоты
    For i:=0 to n-1 do
     Begin
       x:=a+i*h;
       sum:=sum+f(x);
       kol:=kol+1;
     End;
    n:=n+2;
    G:=It;
    It:=h*((f(a)+f(x))/2+sum);
  Until Abs(It-G)<=Eps;
  Trapezija:=It;
END;

{Ф-ЦИЯ РАССЧИТЫВАЮЩАЯ ИНТЕГРАЛ МЕТОДОМ ЦЕНТРАЛЬНЫХ ПРЯМОУГОЛЬНИКОВ}
FUNCTION CentrPrjamoug(f:TFunc; a,b,Eps:real; n:integer):real;
Var
   h,sum,x,G,It:real;
BEGIN
  kol:=1;
  It:=f(a)*(b-a);//нач. знач. ф-ции интегралла
  Repeat
    sum:=0;
    h:=(b-a)/n;//рассчет высоты
    For i:=0 to n do
     Begin
      x:=a+i*h+h/2;
      sum:=sum+f(x);
      kol:=kol+1;
     End;
    n:=n+2;
    G:=It;//сохраняем прошлый интегралл
    It:=h*sum;
  Until Abs(It-G)<=eps;
  CentrPrjamoug:=It;
END;

BEGIN
  {ВЫВОД ДАННЫХ}
END.

[TinMan]

Сообщение от холодная92

даже начало чуть чуть есть

Показала бы начало - быстрее бу ответили тебе..

Сообщение от холодная92

подготовить и использовать процедуру для вычисления i-го отрезка

Наверное, все же не процедуру, а функцию:

function Len(x1,y1,x2,y2: double): double;
begin
  Len:= Sqrt(Sqr(x2-x1)+Sqr(y2-y1))
end;

И кривую твою тоже лучше задать функцией:

function F(x: double): double;
begin
  F:= Sqrt(x*(20-x))
end;

А сам цикл подсчета длины ломаной примерно такой:

  s:= 0; // variable s of type double
  for i:=1 to 50 do
    s:= s+Len(0.4*(i-1),F(0.4*(i-1)),0.4*i,F(0.4*i));
  writeln('The length of the curve is, approximately ',s:6:3);

Успехов.

[Serge_Bliznykov]

FYI, сообщение от Npwas я переместил из другой темы, которую TC создала (кросспост).

Модератор

[холодная92]

спасибо большое всем,но программа,я так понимаю написана не в Паскале...потому как она не работает

это начало....

uses crt
var
dlina: real;
i: byte;
function otrezok(i: byte): real; // функция для вычисления i-ого отрезка
var y1, y2: real;
begin
  clrscr;
  y1 := sqrt(0.4 * (i-1) * (20 - 0.4 * (i-1)));

[холодная92]

спасибо огромное.... не мог лы бы подсказать как перевести это на язык паскаля?

[TinMan]

Сообщение от холодная92

спасибо огромное.... не мог лы бы подсказать как перевести это на язык паскаля?

Гм. Я понимаю, что ты не очень горячая )), но собрать все вместе, добавить описание двух переменных, а также одну пару begin/end - это-то ты могла бы и сварить своим котелком? Если уж ты начало такое написала..

Лан, я седня добрый (а точнее - некогда препираться)), получай полный код. Если я ошибся где в арифметике - исправляй сама..

function Len(x1,y1,x2,y2: double): double;
begin
  Len:= Sqrt(Sqr(x2-x1)+Sqr(y2-y1))
end;

// И кривую твою тоже лучше задать функцией:
function F(x: double): double;
begin
  F:= Sqrt(x*(20-x))
end;

var
  i: integer;
  s: double;

// А сам цикл подсчета длины ломаной примерно такой:
begin
  s:= 0; // variable s of type double
  for i:=1 to 50 do
    s:= s+Len(0.4*(i-1),F(0.4*(i-1)),0.4*i,F(0.4*i));
  writeln('The length of the curve is, approximately ',s:6:3);
end.