-7, -5, -5,47), (14 , -24, -6, -5,129), (0,1,4,2, -10), (2, -3,1,0,14));, i, j: integer;: real;: array [1 .. n] of real;; ('vvedite koefficienty uravnenii'); i: = 1 to n doj: = 1 to n +1 do ('', a [i, j]: 5:2);; ; k: = +1 to n doj: = k +1 to n +1 do [k, j]: = a [k, j]/a [k, k]; i: = +1 to n doi <> k thenj: = k +1 to n +1 do
a [i, j]: = a [i, j]-a ​​[i, k] * a [k, j];
end;; ('rezultat');
for i: = 1 to n do ('x', i, '=', a [i, n +1]: 8:3);;.
4.6 Результат програми
vvedite koefficienty uravnenii
1.00 -2.00 2.00 0.00 13.00
.00 2.00 5.00 5.00 29.00
.00 5.00 4.00 9.00 50.00
.00 2.00 1.00 3.00 17.00 = 3.000 = -0.500 = 4.500 = 1.500
.7 Табличні обчислення MS Excel
В
Рис. 4.2 Excel - обчислення
В
Рис. 4.3. Excel - з відкритими формулами
4.8 Аналіз
Задача № 6 (рішення СЛАР методом Гауса) вирішена за допомогою мови програмування Turbo Pascal, причому складена програма дозволяє вирішувати СЛАР з будь-якою кількістю невідомих (тут до 30).
Висновок
У цій роботі я вирішив за допомогою мови програмування Turbo Pascal кілька завдань, що входять до камеральні роботи маркшейдера. Попутно перевіряв правильність написання програм у табличному процесорі Excel. У написанні програм мені допомогли знання, отримані з курсу інформатики і геодезії. br/>
Бібліографічний список
1. Інформатика: Програма та методичні вказівки з виконання курсової роботи для студентів спеціальності "Маркшейдерська справа" денної форми навчання/Санкт-Петербурзький гірничий ін-т. Упоряд.: А.П. Кондрашов, Т.Р. Косовцева, В.В. Петров, - СПб, 2004. 51 с.
