Реферат: Обчислювальна техніка і програмування
S:= 0
k:= 1,m
 |
S:= S+D[i,k]+a[k,j]
 |
d[i,j]:= S
 | |||
 | |||
кінець
4. Текст програми.
4.1. Текст основної програми.
Program Kursova
Const Uses Student;
n=3;
m=3;
xp=0.2;
xk=8.2;
dx=0.2;
Var
x1,F:ovmat;
x, i, j, Im, Jm:integer;
d, q, l: dvm r
a, b, c, y, x, S: real;
w: dvm t;
T: txt;
POV: St50;
Procedure MOM(d, g: dvm r; n, m: integer; var l: dvm r);
Var
I, q, k: integer;
Begin
for i:=1 to n do
for k:=1 to m do
begin
S:=0
for j:=1 to m do
S:=S+[i, j]*q [i, a];
L [i, k]:= S;
write(,‘l[i, k]’,);
end;
Begin
{знаходимо індекс y та x елементу};
Im := 1 ; Jm := 1;
For i:=1 to n do
For j:=1 to m do
if 
them;
Begin
Im := i ,Lm := j ;
end;
writeln (‘ індекс та x елементу : ,Im ,Jm ,’max = ’,L[Im ,Jm] ‘);
e:= L[Im, Jm]*Im *Jm;
x:= xp;
write 
do;
begin
if x 
5 then a:= 3.5
else a:= sqrt ((x)*c)
write (‘a= ’, a);
end;
b:= KLI(x,6,x1,F);
y:= Arc Tan (Exp. (3 *ln(a))+Exp. (3xln(x)))/ Sqrt (Exp.(3 ln (p))+ +Exp.(3 ln(x))+1.31);
write (‘x= ’, x:6:2, ‘y= ’, y:6:2);
x: x+dx;
end;
Pov := ‘Таблиця’;
T [o] := ‘x ’;
T [1] := ‘y ’;
Tab BS (WKL 1,6,2 pov. T);
read key.
End.
4.2. Текст розробленої підпрограми.
Procedure Matr MN (Var, D, Q, L; drmv; M: integer);
Var i, j, n1: integer;
Begin
for i:= 1 to n do
for j:= 1 to m do
begin
S:= 0;
for k:= 1to n do
S:= S+Q[i ,k]*D[j ,k];
d [i ,j]:= S
end
End.
5. Опис програмних модулів.
5.1. Опис основної програми.
В основній програмі, я за допомогою write вводив матриці B, K. Потім звертався до підпрограми яка обчислює добуток матриць.
5.2. Опис розробленої підпрограми.
Підпрограмі я обчислив добуток двох матриць. Матрицю L я вивів за допомогою оператора write.
Список літератури
Руденко В. Д.; Макарчук О. М.
“Практичний курс інформатики”.
2. Гаменський Я. М. “Основи інформатики та обчислювальна техніка” (частина ІІІ Бейсік).
3. Власов В. К., Корольов Я. Н. “Елементи інформатики”.
4. Розрахунково-лаболаторний практикум з курсу “Математичні модулі, та методи в розрахунках на ЕОМ”.
5. Гринюк Ю. І. “Обчислювальна техніка алгоритмів і програмування мовою Pascal”.