writeln (1st,'*----------------x-------------------*---------------------------------у
writeln (1st,'-------------------------------------------------------------------------
for i:-l to f do
begin
if x[i]>10 then t:=0,44 else t:=0,25;
y:-(l+sqr(x[i])*sin(t*x[i]/4))/(l,5+al*bl);
writeln (1st,'* ', x[i];8:3 , ' * ',y:8:3,'
writeln (1st, '-----------------------------------------------------------------------
end
end.
Підпрограма: Знаходження визначника матриці методом Гауса
<<DET>>
Function Det (A: dvmr; N: integer): real;
Var i,j,k: integer;
d,y,w: real;
Begin
if (help_s=’h’) or (help_s=’H’) then begin ClrScr;
writeln (‘***********************************************’);
writeln (‘* Знаходження визначника матриці методом Гауса*’);
writeln (‘* <<Det>> *’);
writeln (‘* Вхідні дані: *’);
writeln (‘* N - кількість рядків матриці *’);
writeln (‘*A[i,j] - матриця коефіцієнтів. *);
writeln (‘***********************************************’);
readln; Exit;
end;
d:=1;
for i:=1 to N do begin
k:=1; y:=A[i,i];
for j:=i+1 to N begin
w:=A[j,i];
if Abs (w)>Abs(y) then begin
k:j; y:=w;
end;
end;
d:=d*y;
if d=0 then begin det:=0; Exit; end:
if I< >k then begin
d:=-d;
for j:=i to N do begin
w:=A[k,j];
A[k,j]:=A[i,j];
A[i;j]:=w;
End;
end;
for j:=i+1 to N do begin
w:=A[j,i]/y;
for k:=i+1 to N do A[j,k]:=A[j,k]-w*A[i,k];
end;
end;
Знаходження суми елементів стовпця матриці з максимальним елементом а1=20.6000
Знаходження визначника матриці В
b1=243.3330
| * | Х | * | Y | * |
| * | 0.500 | * | 0.000 | * |
| * | 1.000 | * | 0.000 | * |
| * | 1.500 | * | 0.000 | * |
| * | 2.000 | * | 0.000 | * |
| * | 2.500 | * | 0.000 | * |
| * | 3.000 | * | 0.001 | * |
| * | 3.500 | * | 0.001 | * |
| * | 4.000 | * | 0.001 | * |
| * | 4.500 | * | 0.001 | * |
| * | 5.000 | * | 0.002 | * |
| * | 5.500 | * | 0.002 | * |
| * | 6.000 | * | 0.003 | * |
| * | 6.500 | * | 0.004 | * |
| * | 7.000 | * | 0.004 | * |
| * | 7.500 | * | 0.005 | * |
| * | 8.000 | * | 0.006 | * |
| * | 8.500 | * | 0.007 | * |
| * | 9.000 | * | 0.009 | * |
| * | 9.500 | * | 0.010 | * |
| * | 10.000 | * | 0.012 | * |
| * | 10.500 | * | 0.020 | * |
| * | 11.000 | * | 0.023 | * |
| * | 11.500 | * | 0.025 | * |
| * | 12.000 | * | 0.028 | * |
| * | 12.500 | * | 0.031 | * |
| * | 13.000 | * | 0.034 | * |
| * | 13.500 | * | 0.036 | * |
| * | 14.000 | * | 0.039 | * |
| * | 14.500 | * | 0.042 | * |
| * | 15.000 | * | 0.045 | * |
| * | 15.500 | * | 0.048 | * |
| * | 16.000 | * | 0.050 | * |
| * | 16.500 | * | 0.053 | * |
| * | 17.000 | * | 0.055 | * |
| * | 17.500 | * | 0.057 | * |
| * | 18.000 | * | 0.059 | * |
| * | 18.500 | * | 0.061 | * |
| * | 19.000 | * | 0.063 | * |
| * | 19.500 | * | 0.064 | * |
| * | 20.000 | * | 0.065 | * |
| * | 20.500 | * | 0.065 | * |
| * | 21.000 | * | 0.065 | * |
| * | 21.500 | * | 0.065 | * |
| * | 22.000 | * | 0.064 | * |
| * | 22.500 | * | 0.063 | * |
| * | 23.000 | * | 0.061 | * |
| * | 23.500 | * | 0.058 | * |
| * | 24.000 | * | 0.055 | |
| * | 24.500 | * | 0.052 | * |
| * | 25.000 | * | 0.048 | * |
6.2.Роздрук результатів розрахунку.
8.Перелік використаних літературних джерел.
1. Демидович В.П., Марон Н.А. Основи вычислительной математики М: Наука.
2. Малыков В.Т., Кветний Р.Н. Вычислительные методи и применение ЭВМ. - Киев , Высшая школа.
З. Дячишин В.В. Методичні вказівки для виконання курсової роботи з дисципліни Обчислювальна техніка і програмування.
4. Грицюк Ю.І. , Дорожовський Е.С. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування". Розділ 2. Підготовка задач до розв'язування на ЕОМ. Розділ Приклади складання алгоритмів і програм. - ЛЬВІВ, 14Щ, -53 с.
5. Грицюк Ю.Є., Дорожовський Е.С, і ін. методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування ".Розділ 4. Характерні прийоми складання алгоритмів і програм – Львів.
6. Грицюк Ю.І., Дорожовський Е.С. і ін. Методичні розробки для самостійної роботи з дисципліни "Обчислювальна техніка та програмування." Розділ 5. Алгоритм обробки масивів. – Львів.
7. Ден Гукін. DOSдля чайников.2-е издание "Диалектика" "Информейшн Компьютер Ентерпрайз".Киев