Писал курсовик (метод решения определённого интеграла). с Delphi не очень дружу. помогите раскидать код на кнопки и поля чтоб всё вычисляло при вводе своих значений. желательно чтоб всё простенько, но работало.
код:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure TForm1.Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var a,b,E,h,S,S1,x: real; n, i: integer;
function f (x: real): real;
begin
f:=1/Sqrt (1+3*x+2*x*x);
end;
begin
S:=0; // изначально обнуляем значение площади интеграла
n:=1; // начальное значение количества разбиений
Repeat // начало цикла
S1:=S; // предыдущее значение площади изначально равно значению площади с количеством разбиений равным 1
n:=2*n; // увеличиваем количество разбиений в два раза
h:= (b-a) /n; // формула вычисления шага
S:=f (a) +f (b); // значение функции в нижнем пределе + значение функции в верхнем пределе определенного интеграла
x:=a; // значению x присвоим значение нижнего предела
for i:=1 to n-1 do // для i-того элемента, изменяющегося от 1 до n-1
begin
x:=x+h; // х увеличиваем на шаг
S:=S+2*f (x) // сумма площадей трапеций
end;
S:=S*h/2; // вычислим площадь по формуле
Until abs (S-S1) <=E; // если разность значения площади и предыдущего значения площади меньше или равна заданной точности Е, то
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.