змінна, тому на шкірному кроці, крім последнего (самого верхнього), ситуация в точності повторює випадок последнего рядка.
Метод Гауса требует O (n ^ {3}) Арифметичний операцій.
Всі програми й достатньо Прості и не мают НЕ якіх зауваження смороду мают відзнаку лишь у зовнішньому виде. І подібніх програм Дуже багато.
Ріс.1.2.2
Ріс.1.2.3
Отже всі програми Які вірішують задачі методом Крамера и Гауса мают один метод решение, кий складається з двох етапів. У Інтернет ресурсах Дуже багато аналогів таких програм, и смороду мают Відзнаки лишь у зовнішньому виде. Користувач з легкістю может оволодіті нею и використовуват для ВЛАСНА потреб.
Розділ 2. Розробка програми лічильник завдань з використанн процедур та функцій
комп'ютерний візуальній программирования delphi
2.1 Методологія розробки прикладного програмного забезпечення
Процедура и функція - це ключові Поняття в будь-Якій мові програмування, без якіх не обходиться Жодна серйозна програма. І того очень Важлива мати ПОВНЕ розуміння про Механізм їх роботи.
За перше я Вибравши необхідні мені компоненти.
Во время написання програми вікорістовуваліся следующие елементи інтегрованого програмного середовища Borland Delphi.На форме Form1 Створено следующие компоненти TForm1=class (TForm)
TForm1=class (TForm);- Форма: TLabel;-поле дня назви введіть значення raquo ;: TButton;- Кнопка ОК: TButton;- Кнопка розв язати систему: TStringGrid;- Поле вводу даних: TBevel;- Панель: TLabel;- Поле дня назви коєфіціенті рівнянняя raquo ;: TLabel;- Поле дня назви решение системи назви raquo ;: TButton;- Кнопка вихід: TLabel;- Поле дня назви
1) Колі я Вибравши необхідні мені компоненти я почав розташовуваті їх на форме:
Рис.2.1.1
2) После того як я розташував компоненти, я почав працювати з ними детально. Спочатку перейменував та запрограмував Першу кнопку Button1 raquo ;.
Рис.2.1.1
Кож ця кнопка має такий код:
TForm 1.ButtOKClick (Sender: TObject);// решение можливо і Неможливо величин
beginnot Vveli thenReadN.Text="then Exit;:=SttrToInt (ReadN.Text); Exception. Create (Неможливо величина n) ;. Text:=2; (n lt; 2) or (n gt ; 20) then/MessageBox (t1, Errcap, MB_ICCONERROR or MB_OK) ;. Text:=2:=2; .SelectALL ;;:=poDesktopCenter;:=Left0;:=Height0;:=Width0; .Width:=Width- 20; n gt; 4 then:=2;:=2;:=Width0 + (Matrica.DefaultColWidth + 2) * (n - 4);:=400+ n * 23; .Width:=Width - 20; Matrica do:=(DefaultRowHeight + 2) * (n + 1) -n + 2;:=(DefaultColWidth + 2) * (n + 1) -n + 2;:=n + 2;:=n + 2 ;: =n + 1 ;; (Form1) ;. Top:=Matrica.Height + 100; .Top:=Matrica.Height + 146; .Top:=Matrica.Height + 130; .Left:=Matrica.Left + MatricaWidth div 2 +100; .Top:=Matrica.Height + 200; .Left:=Matrica.Left + MatricaWidth div 2-100; .Top:=Xxx.Top;
//. Enabled:=False; .Caption:=OK;:=Trueelse.Enabled:=True; .Caption:=OK;:=False ;; TForm1.readNChange (Sender: TObject) ;;;
3) Аналогічну роботу, я провів з кнопками Дії Button2 Button3 . Одна буде рішаті Рівняння одного віходити з програми.
Ріс.2.1.3
ЦІ кнопки мучуся Наступний код:
На кнопці розв язати систему такоже треба обов язково пропісаті Сейчас код Аджея самє ВІН Вивів коректний результат Х, У.
rocedure TForm1.ReshiClick (Sender: TObject) ;, j, k: cardinal ;: string;
//n:=StrToInt (ReadN.Text); (n lt; 2) or (n gt; 20) then.MessageBox (t1, ErrCap, MB_ICONERROR or MB_OK) ;; i:=1 to n doj:=1 to n + 1 doMatrica.Cells [j, i]= then a [i, j]:=0 else [i, j]:=StrToFloat (Matrica.Cells [j, i]); Exception.Create ( Неможливо величина A ( + IntToStr (i) + , + IntToStr (j) + ) ) ;;; [i, j]:=a [i, j] ;;
//for k:=1 to n - 1 do:=Abs (a [k, k]); i:=k + 1 to n dom lt; Abs (a [i, k] ) then:=Abs (a [i, k]); j:=k to n + 1 do [1]:=a [k, j]; [k, j]:=a [i, j]; [ i, j]:=x [1] ;;;; m lt; 1E - 20 thenException.Create (t2) ;; i:=k + 1 to n do:=a [i, k]; j:=k to n + 1 do [i, j]:=a [i, j] -a [k, j] * m/a [k, k] ;;;
4) Потім додавши три компоненти Label для підпісування компонентів, та давши Їм Ось такі назва:
Ріс.2.1.4
ЦІ компоненти це лишь меню Вибори Їм НЕ обов язково мати програмний код.
5) Додавши на форму компонент TStringGrid у котрому б...
