Похожие работы на «Лабораторная работа №12»

Лабораторная работа №12
Программирование и комп-ры, Лабораторная работа №12, Реферат ... t:integer; Var Z:matrics); var i,j,k,s:integer; begin {Umno} for i:=1 to t do for j:=1 to t do begin S:=0; for k:=1 to t do s:=s+X[k,i]*Y[j,k]; Z[i,j] ...
... Summa(X,Y:matrics; t:integer; Var Z:matrics); var i,j:integer; begin {Summa} for i:=1 to t do for j:=1 to t do Z[i,j]:=X[i,j]+Y[i,j] end; {Summa} ...


Аппроксимация
Программирование и комп-ры, Аппроксимация, Курсовая ... n do r[i]:=1; for j:=1 to m+1 do begin c[1,j]:=0; b[j]:=0; for i:=1 to n do begin c[1,j]:=c[1,j]+r[i]; b[j]:=b[j]+r[i]*y[i]; end; for i:=1 to n do r
... for i:=1 to m do begin for j:=1 to m do c[i+1,j]:=c[1,j+1]; c[i+1,m+1]:=0; for j:=1 to n do c[i+1,m+1]:=c[i+1,m+1]+r[j]; for j:=1 to n do r[j]:=r[j]*x ...


Программа на Delphi
Программирование и комп-ры, Программа на Delphi, Доклад ... заголовок} Var i, j, k: Integer; Begin For i:= 1 to n do For j:= 1 to n do Begin {блок определения одного элемента матрицы M3} M3[i, j]:=0; For k
... Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов матриц Q1, Q2} For j:= 1 to n do Begin Q1[i, j]:=i + j; Q2[i, j]:=i - j; End; ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... i+1]].y); while not keypressed do for i:=1 to 63 do SetRGBPalette(green,0,i,0); end; if not second then while not keypressed do for i:=1 to 63 do ...
... for i:=1 to 7 do for j:=1 to 7 do AMatr[i,j].weight:=0; Randomize; For j:=2 to7 do for i:=1 to j-1 do AMatr[i,j].weight:=random(50); for i:=1 to 7 do ...


Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций [нестрогое соответствие]
... и комп-ры, Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций, Контрольная ... 0 . | | |5 |Найти наибольшие элементы и их порядковые |N<=80 M<=70 | | |номера массивов X(N) и Y(M) | | |6 |Переписать положительные элементы ...
... i*4-2, 12); read(y[i]); end; l := 0; st(x,z,n,l); st(y,z,m,l); gotoxy(5, 15);write("Результативный массив Z"); for i:=1 to l do begin gotoxy(i*4-2, 17 ...


Лабораторная работа по информатике, вариант №13, с методическим пособием.zip [нестрогое соответствие]
Программирование и комп-ры, Лабораторная работа по информатике, вариант №13, с методическим пособием.zip, Контрольная ... 0 . | | |5 |Найти наибольшие элементы и их порядковые |N<=80 M<=70 | | |номера массивов X(N) и Y(M) | | |6 |Переписать положительные элементы ...
... i*4-2, 12); read(y[i]); end; l := 0; st(x,z,n,l); st(y,z,m,l); gotoxy(5, 15);write("Результативный массив Z"); for i:=1 to l do begin gotoxy(i*4-2, 17 ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... i,s]=-1 then for j:=s to m do STM[i,j]:=STM[s,j]+STM[i,j] end;end; end; writeln('Матрица главных сечений'); for i:=1 to n do for j:=1 to m-s do MGS[i, ...
... i:=1 to n-e-c do begin writeln; for j:=1 to s do write(FRpRx[i,j]:4); end; sea; write('FEL'); for i:=1 to e do begin writeln; for j:=1 to l do write


Процедуры в Паскале [нестрогое соответствие]
Программирование и комп-ры, Процедуры в Паскале , Работа Курсовая ... её имя , список формальных параметров} Begin Z:=1; While L>1 do Begin Z:=ZxL;{тело процедуры, которая также предусматривает, что 0! и 1! =1} L:=l-1; ...
... end; {конец функции} begin{начало тела программы} writeln('введите неотрицательные числа'); {для удобства пользователя просим ввести числа} 0:readln(m ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... moped(m,n:integer;var y:m); var i,j,c,k:integer; X:mas; begin k:=0; writeln('введите величину С='); readln(c); for j:=1 to n do x[j]:=0; for j:=1 to n ...
... будет выглядеть так'); for i:=1 to m do for j:=1 to n do if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2; for i:=1 to m do for j:=1 to n ...


Нахождение опорного плана транспортной задачи [нестрогое соответствие]
Программирование и комп-ры, Нахождение опорного плана транспортной задачи, Курсовая ... of 0..255; begin set_i:=[]; for i:=0 to m-1 do include(set_i,i); set_j:=[]; for j:=0 to n-1 do include(set_j,j); repeat // начинаем цикл по столбцам ...
... i:= 1 to m do stgTarif.Cells[0,i]:=IntToStr(i); for j:= 1 to n do stgTarif.Cells[j,0]:=IntToStr(j); for i:= 1 to m do stgSolve.Cells[0,i]:=IntToStr(i) ...