Похожие работы на «Turbo Paskal Операции над матрицами »

Turbo Paskal Операции над матрицами
Программирование и комп-ры, Turbo Paskal Операции над матрицами , Работа Курсовая ... Союзная матрица} for i1:=1 to m1 do for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1]; {Итоговая формула} for i1:=1 to m1 do for j1:=1 to n1 do MAS3[i1,j1] ...
do Write (MAS3[i1,j1]); WriteLn; end; end; end; end; 3: begin {Транспонирование матрицы} for i1:=1 to m1 do for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1 ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... n:integer;var x:m); var i,j,s:integer;sr:real; begin for i:=1 to m do begin s:=0; sr:=0; if x[i,n]=1 then begin for j:=1 to n do s:=s+x[i,j]; sr:=s/n; ...
... reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в файле'); readln(k); sozd(f1,k) ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... textattr:=sel; gotoxy(x,y+punkt-1); write(menu[punkt]); выделим строку меню textattr:=norm; end; procedure Menutoscr1;вывод меню на экран var i: ...
... j1-1; gotoxy(30,12); write('Рейс номер-"',nreis,'"- был удалён! '); f:=1; end else begin i:=j; f:=2; end; end; i:=i+1; until (i=j1+1) or (f=1); if f=1 ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... x[i,j]-x_)/s end; {-находим матрицу парных корреляций R=(1/n)*Z'*Z-} for j:=1 to m do for i:=1 to m do begin s:=0; for k:=1 to n do s:=s+z[k,j]*z[k,i] ...
... v[i,j]:=u[i,j]/sqrt(s) end; {--выводим нормированную матрицу собственных векторов на экран---} writeln('Матрица нормированных собственных векторов V: ...


Циклические коды [нестрогое соответствие]
Программирование и комп-ры, Циклические коды, Курсовая ... r2[i]:=r2[i] xor p2[i]; i1:=n1; while((i1>=0)and(r2[i1]=0))do dec(i1); if(i1=-1)then goto RETURN; Kol:=n1-i1; while(Kol>0)do begin for i:=n1 downto 1 ...
... i]:=r2[i] xor p2[i] end else if(j0)then begin k:=n1-flag; for i:=n1 downto flag do begin m3[k]:=r3[i]; dec(k); end; end else begin for i:=n1-1 downto ...


Анализ экономических задач симплексным методом [нестрогое соответствие]
Экономико-математическое моделирование, Анализ экономических задач симплексным методом, Курсовая ... i:=1 to n do read (c[i]); m21:=m2-m1+n;nm1:=n+m-m1;n1:=n+m-m1+m2; for i:=1 to m do for j:=n+1 to n1 do a[i,j]:=0; {переход к равенствам в неравенствах ...
... i:=m2+1 to m do begin Bi[i]:=m21+i-m2; cb[i]:=0; end; for i:=1 to n1 do x[i]:=0; writeln(' Решение задачи:'); {применяем симплексный метод, вычисляем ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Blank; If not (s[i]='>') Then Begin Error(2); Goto New; End Else{записываем нетерминал} Begin NotT.Name:='<'+term+'>'; If Search(NotTerminalL,NotT)>0 ...
... NotT)>0; tmp:=tmp^.Next; inc(y); End; dec(y); i:=1; While (i<=y) Do Begin{позицианируем на нужную строку} {в s строка с ошибкой} posStr(y,s); inc(i) ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
... и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, ... ... P:=A^.path; S:=0; While N>4 do begin N:=N-4; For I:=1 to 4 do S:=S+P^.Way[I].delay+P^.Way[I].reboard; {подсчет времени пути по полным четверкам} P:=P^ ...
... var k:word; q:link; b:dat; i:citycode; y:pway; c:byte; begin k:=0; while P<>nil do begin inc(k); { write(p^.path^.bcity);} Q:=P^.path; b:=a; while Q< ...


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... Text := Edit2.Text + ' ' + IntToStr(qTwo^.Info); qTwo := qTwo^.Next; end; Image2.Left := 9; ListTwoPos := 0; FlagList := True; while QueueBegin <> nil ...
... q := RoundList^.Next; while q^.Next <> RoundList do q := q^.Next; h := q^.Next; q^.Next := h^.Next; if h <> nil then Dispose(h); RoundList := q^.Next; ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... write(m[k,i] : 7:3,' '); writeln end; end; { процедура ввода значений элементов матрицы } procedure inputmat (var m : mattype; var n : byte); var k,i ...
... 1 then begin for i := 1 to n do t[i,1] := m[i,1]; for i := 2 to n do r[1,i] := m[1,i]/t[1,1]; end else begin k := m1; for i := m1 to n do begin t[i,k] ...