Контрольная работа: Визначення площі між функціями інтегралом за методом трапеції на мові Pascal

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close

end;

end.

5. Контрольний приклад

У перше поле вводимо початкове значення відрізку інтегрування, наприклад, 0;

у друге поле вводимо кінцеве значення відрізку інтегрування, наприклад, 0,5 (причому десяткову частину дробу відділяємо комою); кількість меж, на які буде розбито відрізок інтегрування вводимо у трете поле, наприклад, 10000 (чім більше, тім точніше результат); натискаємо кнопку Розрахувати. Розрахована площа фігури між лініями графіків, та межами 0 і 0,5 з’являється у четвертому останньому полі і дорівнюватиме 0,4664 (рис.3).

Рис.3.

Список використаної літератури

1. Фаронов В.В. Pascal. Начальный курс. Учебное пособие, - М.: Номидж, 1997, - 616 с.

2. Руденко В.Д., Макарчук О.М., Патланжоглу М.О. Практичний курс інформатики /За ред. В.М.Мадзігона. - К: Фенікс, 1997.

3. Інформатика та комп'ютерна техніка: Навч.-метод. посібник / За заг. ред. О.Д.Шарапова. – К.: КНЕУ, 2002. – 534 с.

4. Я.М. Глинський. Інформатика: Навч. посібник для загальноосвітніх навчальних закладів. – Львів: «Деол», 2002. – 256 с.