Комп'ютерні науки > Обчислювальна техніка і програмування

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”.

1	2	3	4	5

Назва: Обчислювальна техніка і програмування
Дата публікації: 2005-02-22 (1493 прочитано)