Обговорення:Метод прямокутників

Це сторінка обговорень та пропозицій для статті Метод прямокутників
Будь ласка, підписуйте свої коментарі (для цього наберіть ~~~~ або натисніть кнопку    над віконцем редагування) Нові теми починайте внизу сторінки (додати тему). Вперше у Вікіпедії? Ласкаво просимо! Часті запитання. Це сторінка для обговорення не предмета статті, а тільки цієї статті. Правила обговорень Будьте ввічливі Припускайте добрі наміри Не допускайте образ Не прискіпуйтеся до новачків

Ця стаття є частиною Проєкту:Математика (рівень: невідомий)
	Мета проєкту — створення якісних та інформативних статей на теми, пов'язані з Математикою. Ви можете покращити цю статтю, відредагувавши її, а на сторінці проєкту вказано, чим ще можна допомогти. Учасники проєкту будуть вам вдячні.
???	Цю статтю ще ніхто не оцінив за шкалою оцінок статей Проєкту:Математика.
	Чим допомогти: Статті до створення та доопрацювання

procedure TForm1.btn1Click(Sender: TObject); var

 k:Integer;
 I,I1,e,r:Double;

begin

 e:=StrToFloat(edt1.Text);
 k:=0;
 I:=0;
 I1:=I+2*e;
 while Abs(I1-I)>=e do
 begin
   I1:=I;
   r:=0;
   while r<1 do
   begin
     I:=I+((1/(k+1))*Sin((2*r+1/(k+1))/2))/exp(((2*r+1/(k+1))*(2*r+1/(k+1)))/4);
     r:=r+1/(k+1);
   end;
   k:=k+1;
 end;
 edt2.Text:=FloatToStr(I);
 edt3.Text:=IntToStr(k);

end;