Помощь - Форум Барнаула - городской сайт Барнаула

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Крайчик

Форум Барнаула - городской сайт Барнаула » Компьютеры и интернет » Программирование » Помощь

Помощь

Broot

Дата: Вторник, 27.10.2009, 20:00 | Сообщение # 1

Мини-Флудер

Группа: Проверенные

Сообщений: 33

Награды: 0

Репутация: 0

Замечания: 0%

Статус: Offline

Не всегда даже самое простое решение приходит в голову в нужное время.Задавайте вопросы,мы вам попытаемся помочь.

Прикрепления: 2130216.gif (1.6 Kb)

elementum

Дата: Пятница, 22.07.2011, 16:33 | Сообщение # 2

Освоившийся

Группа: Пользователи

Сообщений: 7

Награды: 0

Репутация: 0

Замечания: 0%

Статус: Offline

кому интересно могу выкинуть пару готовых исходников на делфи. для примера кину исходный код подсчёта интеграла несколькими способами:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label1: TLabel;
Panel2: TPanel;
Panel3: TPanel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
nummet:integer;
x,xn,h1,y,hy,xk,s,h:real;// e,
txmet:string;
{
xn - х начальное
xk - х конечное
h - шаг
}

implementation

{$R *.dfm}

Function f(x:real):real; // 2pi
begin // /
f:=x*x; // |x*sin(x/2)dx = 4pi = 12.56637
// /
end; // 0

Procedure LRect;// Метод Левых Прямоугольников
var xt:real;//Локальная переменная
begin
xt:=xn;
s:=0;
while xt<xk do
begin
s:=s+f(xt);
xt:=xt+h;
end;
s:=s*h;// Результат интегрирования
end;
Procedure RRect;// Метод Правых Прямоугольников
var xt:real;//Локальная переменная
begin
xt:=xn+h;
s:=0;
while xt<xk-h do
begin
s:=s+f(xt);
xt:=xt+h;
end;
s:=s*h;// Результат интегрирования
end;

Procedure MRect;// Метод Средних Прямоугольников
var xt:real;//Локальная переменная
begin
xt:=xn+h/2;
s:=0;
while xt<xk-h/2 do
begin
s:=s+f(xt);
xt:=xt+h;
end;
s:=s*h;// Результат интегрирования
end;
Procedure Trap;// Метод Трапеций
var xt:real;//Локальная переменная
begin
xt:=xn;
s:=0;
while xt<xk do
begin
s:=s+f(xt)+f(xt+h);
xt:=xt+h;
end;
s:=s*h/2;// Результат интегрирования
end;
Procedure Simpson;// Метод Симпсона
var xt,h2:real;//Локальная переменная
begin
xt:=xn;
s:=0;
h2:=h/2;
while xt<xk do
begin
s:=s+f(xt)+4*f(xt+h2)+f(xt+2*h2);
xt:=xt+h;
end;
s:=s*h/6;// Результат интегрирования
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
xn:=strtofloat(edit2.text);
xk:=strtofloat(edit3.text);
h:=strtofloat(edit4.text);
LRect;
Edit1.Text:=floattostr(s);

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
xn:=strtofloat(edit2.text);
xk:=strtofloat(edit3.text);
h:=strtofloat(edit4.text);
RRect;
Edit1.Text:=floattostr(s);

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
xn:=strtofloat(edit2.text);
xk:=strtofloat(edit3.text);
h:=strtofloat(edit4.text);
MRect;
Edit1.Text:=floattostr(s);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
xn:=strtofloat(edit2.text);
xk:=strtofloat(edit3.text);
h:=strtofloat(edit4.text);
Trap;
Edit1.Text:=floattostr(s);

end;

end.

Pirogovhuh

Дата: Среда, 12.04.2017, 08:22 | Сообщение # 3

Гордость форума

Группа: Проверенные

Сообщений: 595

Награды: 1

Репутация: -1

Замечания: 0%

Статус: Offline

Jan 28, 2017 отзывы худеем быстро Вопрос о том, как похудеть, очень популярный. ГДЕ КУПИТЬ отзывы врачей отрицательные и реальные, цена в Сироп мангустина где купить Фото 315488 Сироп мангустина где www.moykrest.ru/sirop-mangustin

Добавлено (12.04.2017, 08:22)
---------------------------------------------
гостиная Роза
www.imp-mebeli.ru
----------

Мангустин

Форум Барнаула - городской сайт Барнаула » Компьютеры и интернет » Программирование » Помощь

Страница 1 из 1
1

ИРП "Форум Барнаула"