циклы?

[serj-07]

помогите разобраться, а то сам запутался.
Есть значение например Х= 0.999542.
задаем значение n=5
в процедуре идет расчет площади S
потом находим погрешность X-S=G
если G>0.0001 то n умножаем на 2 до тех пор пока G<= 0.0001
Всем спасибо!!!

[MadReason]

вычисляешь площадь
цикл с условием до тех пор пока х-s<=G
умножаешь n

[serj-07]

задание:

Составить программу для вычисления интеграла - I
с заданной точностью а по формуле трапеций - S1
где h=1/n. Для достижения необходимой точности число n следует удваивать, пока не будет достигнуто такое n, для которого
Начальное число узлов n = 5. Требуемая точность q = 0,0001.
Вывести значения n, Ỉn и погрешности q .



интеграл I = 0.9547

Это расчет Трапеции S1

begin
    n:= 5;
    h:=0;
    s1:=0;
    step:=1/n;
      begin
         while h<1 do
            begin
              h:=h+step;
              f1:=sin(h)/h;
              f2:=sin(h+step)/(h+step);
              s1:=s1+(((f1+f2)/2)*step);

            end;

      end;
    end;

надо вычислить погрешность q<=0.0001

умножая n на 2 в преведущем коде.

этот код вставляю не получается.

куда мне его поставить?

   begin
        while q<=0.0001 do
          begin
            q:= I-S1;
            n:=n*2

[MadReason]

подправь тэги, а то тут пластыри уже летают))
у тебя условие в цикле неверное по-моему.
и зачем ты находишь сумму?

begin
n:= 5;
h:=0;
s1:=0;
step:=1/n;
begin
while q>=0.0001 do
begin
h:=h+step;
f1:=sin(h)/h;
f2:=sin(h+step)/(h+step);

s1:=((f1+f2)/2)*step;
q:=abs(I-s1);
I:=s1;

n:=n*2;
end;

end;
end;

[serj-07]

погрешность счетает один раз, n не перемножает до указоной погрешности

procedure TForm1.Button1Click(Sender: TObject);
 var
   q,I, h,f1,f2,s1,step: real;
    n, cnt: word;


begin

    I:= 0.945967;
                       try
    n:=5;
                       EXCEPT
                         MessageDlg('Íåâåðíûå äàííûå', mtError, [mbOK],0);
                             Exit
                             END;

    q:=0;
    h:=0;
    s1:=0;
    cnt:=0;
    step:=1/n;
    chart1.Series[0].Clear;

   begin
        while q<=0.0001 do

       begin

            n:=n*2;

          begin
              while h<1 do

           begin
              h:=h+step;
              f1:=sin(h)/h;
              f2:=sin(h+step)/(h+step);
              Chart1.Series[0].AddXY(h,f1);
              s1:=s1+(((f1+f2)/2)*step);
              inc(cnt)
           end;
         end;
       

 q:= I-s1;
     

  end;
   end;
     begin
        caption:=IntToStr(cnt);
        Label1.Caption:= FloatToStr(s1);
        Label5.Caption:= FloatToStr(n);
        Label4.Caption:= FloatToStr(q);
      end;
 end;
end.

[MadReason]

    try
    n:=5;
    EXCEPT
    MessageDlg('Íåâåðíûå äàííûå', mtError, [mbOK],0);
    Exit
    END;

Оо
это вообще что?

[serj-07]

неполучается, пруга виснит подскажите где ошибка

procedure TForm1.Button1Click(Sender: TObject);
 var

   q:currency;
   I, h,f1,f2,s1,step: real;
    n, cnt: word;

begin

    I:= 0.004267;  //  это значение интеграла


                     try
    n:= StrToInt(Edit1.Text); // это  количество узлов


                     EXCEPT
                         MessageDlg('Неверные данные', mtError, [mbOK],0);
                        Exit
                      END;

    q:=0;
    h:=0;
    s1:=0;
    cnt:=0;
    step:=1/n;
    chart1.Series[0].Clear;

       begin
              while h<1 do   // здесь ищем второе значение для сравнения

           begin
              h:=h+step;
              f1:=sin(h)/h;
              f2:=sin(h+step)/(h+step);
              Chart1.Series[0].AddXY(h,f1);
              s1:=((f1+f2)/2)*step;
              inc(cnt);
           end;
        end;

        begin

            q:= s1-I;  // находим погрешность

            repeat   // умножаем n на 2 пока недобьемся погрешности 0,001
             n:=n*2;
            until q<=0.001 ;
         end;

      begin
        caption:=IntToStr(cnt);
        Label1.Caption:= FloatToStr(s1);
        Label5.Caption:= FloatToStr(n);
        Label4.Caption:= FloatToStr(q);
      end;
end;
end.

[val_nnm]

procedure TForm1.Button1Click(Sender: TObject);
 var

   q:currency;
   I, h,f1,f2,s1,step: real;
    n, cnt: word;

begin
    I:= 0.004267;  //  это значение интеграла
    try
         n:= StrToInt(Edit1.Text); // это  количество узлов
    EXCEPT
         MessageDlg('Неверные данные', mtError, [mbOK],0);
         Exit
    END;

    repeat
      q:=0;
      h:=0;
      s1:=0;
      cnt:=0;
      step:=1/n;
      chart1.Series[0].Clear;
      while h<1 do   // здесь ищем второе значение для сравнения
           begin
              h:=h+step;
              f1:=sin(h)/h;
              f2:=sin(h+step)/(h+step);
              Chart1.Series[0].AddXY(h,f1);
              s1:=((f1+f2)/2)*step;
              inc(cnt);
           end;

      q:= s1-I;  // находим погрешность
      n:=n*2; // умножаем n на 2 пока недобьемся погрешности 0,001
    until q<=0.001 ;

    caption:=IntToStr(cnt);
    Label1.Caption:= FloatToStr(s1);
    Label5.Caption:= FloatToStr(n);
    Label4.Caption:= FloatToStr(q);
end;