вирішенні складних систем гратиме теорія сполучених рівнянь, завдяки якій вдасться вирішити хвилюючі суспільство проблеми глобальних змін, проблеми мінімізації напруги, екологічних кліматичних і біосферних збурень. Вже визначені наукою шляху побудови сполучених рівнянь, відповідних нелінійним процесам в атмосфері і океані. Вони дозволять предвичіслять чутливість функціоналів завдань, пов'язаних з життєзабезпеченням тих чи інших регіонів земної кулі, до різного роду збурень. А це одне з найважливіших завдань сучасності, як одне із завдань математики і в цілому фундаментальної науки. br/>
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1.Марчук Г. І. Математичне моделювання в проблемі навколишнього середовища. М.: Наука, 1982. p> 2.Бахвалов Н.С. Чисельні методи Бахвалов Н.С., Жидков Н.П., Кобельков Г.М. -М. - З.-П.: Фізматліт, 2001. p> 3.Тіхонов О.М., Самарський А.А. Рівняння математичної фізики. - М.: Наука, 1977. br/>
4.
ДОДАТОК
Лістинг програми
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, StdCtrls, TeeProcs, Chart, ExtCtrls; = class (TForm): TPanel;: TPanel;: TButton ;: TButton;: TPanel;: TPanel;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TChart;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries; : TLineSeries; EdNKeyPress (Sender: TObject; var Key: Char); EdNKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState); EdTayKeyPress (Sender: TObject; var Key: Char); BtnJavnClick (Sender: TObject); BtnNeJavnClick (Sender: TObject); BtnSimClick (Sender: TObject); CheckBox1Click (Sender: TObject);
{Private declarations}
{Public declarations}; mas = array of real; = array of mas;: TForm1;: array [0 .. 3] of real; pi = 3.1415;
{$ R *. dfm} TForm1.EdNKeyPress (Sender: TObject; var Key: Char); (Key = '.') or (Key = ',') then: = DecimalSeparatornot (( Key <= '9 ') and (Key> = '0') or (Key = # 8) or (Key = '-')) then: = # 0;; (pos (Key, edN.Text)> 0) and ((key = decimalSeparator) or (key = '-')) then: = # 0;; TForm1.EdNKeyUp (Sender: TObject; var Key: Word;: TShiftState);. Caption: = 'tay/h ^ 2 = '+ FloatToStr (StrToFloat (EdTay.Text)/sqr (1/StrToFloat (EdN.Text)));; TForm1.EdTayKeyPress (Sender: TObject; var Key: Char); (Key ='. ') or (Key = ',') then: = DecimalSeparatornot ((Key <= '9 ') and (Key> = '0') or (Key = # 8) or (Key = '-')) then: = # 0 ;; (pos (Key, edTay.Text)> 0) and ((key = decimalSeparator) or (key ...
