Програмування в Delphi (стр. 5 из 5)
begin
S:= R;
J:= I
end
End;
If S = 0.0 then exit;
If J <> K then
for I:= K to N1 do
begin
R:= A[K, I];
A[K, I]:= A[J, I];
A[J, I]:= R
end;
For J:= K1 to N1 do A[K, J]:= A[K, J] / S;
For I:= K1 to N do
begin
R:= A[I, K];
For J:= K1 to N1 do A[I, J]:= A[I, J] - A[K, J] *R
End
End;
If S <> 0.0 then
For I:= N downto 1 do
begin
S:= A[I, N1];
For J:= I+1 to N do S:= S - A[I, J]*X[J];
X [I]:= S
End
End;
begin
Repeat
write (' N ? => ');
Readln (N);
Matr (N,A);
Gauss (N, A, X, S);
If S <> 0.0 then
for I:= 1 to N do
writeln (' X', I:2, ' = ', X[I])
Else
writeln (' DET = 0');
Until false ;
Readln;
Readln;
end.
Результатроботипрограми
Висновок
При виконанні курсової роботи я поглибила свої знання в області комп’ютерної техніки, набула практичних навичок роботи з ЕОМ та інформацією представленою в ній, навчилась самостійно шукати методи розв’язку задач, освоїла прийоми систематизації знань та використала їх на практиці, глибше зрозуміла основи алгоритмізації та програмування при розв’язку задач, навчилась виконувати оформлення результатів роботи та представляти їх при захисті, освоїла основні елементи практичного програмування, уяснила роль програмного забезпечення ЕОМ, добре засвоїла принципи роботи з найбільш необхідним програмним забезпеченням та мовами програмування (Windows, MSOffise, Delphi).
Список використаної літератури
1. Бородич Ю.С. и др. Паскаль для персональных компьютеров. Минск, изд-во "Вышейшая школа". 1991
2. Зуев Е.А. и др. Язык прграммирования TurboPascal, М. "Унитех", 1992
3. Введение в Делфи 6. Электронный вариант.
4. Сухарев М.В. Основы Делфи. изд-во "Наука и техника", С-П, 2004
5. Хомоненко А. и др. Делфи 7, С-П. "БХВ-Петербург", 2006
6. Галисеев Г.В. Компоненты в Делфи 7. изд-во "Диалектика", С-П, 2004
7. Ф.В.Левитин, Алгоритмы: введение в разработку и анализ, М.”Вильямс”,2006.
8. С.В.Поршнев, Вычислительная математика. Курс лекций, СПб,”БХВ-Петербург”,2004.
9. К.Х.Зеленский, Компьютерные методы прикладной математики, К,”Дизайн”,1999.
10. В.Е.Краскевич и др., Численне методы в инженерных исследованиях,-К,”Вища школа”,1986.