Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
testMatrice0.1
var A,B,C:array[1..7,1..7] of integer; mA,mB,nA,nB,iA,iB,jA,jB,i,j,cx,k,x,y:integer; procedure citireA; begin writeln('Introduceti primul tabel'); jA:=1; iB:=1; while jA<=mA do begin while iA<=nA do begin read(A[jA,iA]); iA:=iA+1; end; jA:=jA+1; iA:=1; end; end; procedure citireB; begin writeln('Introduceti al doilea tabel'); jB:=1; iB:=1; while jB<=mB do begin while iB<=nB do begin read(B[jB,iB]); iB:=iB+1; end; jB:=jB+1; iB:=1; end; end; {procedure calc; begin for k:=1 to nA do begin for i:=1 to nB do begin for j:=1 to mB do begin C[y,x]:=C[y,x]+A[iA,jA]*B[iB,jB]; jA:=jA+1; iB:=iB+1; end; jA:=1; iB:=1; jB:=jB+1; x:=x+1; end; iA:=iA+1; write(C[y,x]); x:=1; y:=y+1; end; end; procedure calculare; begin for i:=1 to nA do begin for j:=1 to mB do begin C[i,j]:=A[iA,jA]*B[iB,jB]; jA:=jA+1; iB:=iB+1; end; iA:=iA+1; jA:=1; jB:=jB+1; iB:=1; end; end; procedure afishare; begin {for i:=1 to (mA-1) do begin for j:=1 to (nB-1) do begin write(C[i,j],' '); end; writeln(C[mA,nB]); end;} for i:=1 to mA do begin for j:=1 to nB do begin write(C[i,j],' '); end; {writeln(C[mA,nB]);} end end; } procedure calc; begin for k:=1 to nA do begin for i:=1 to nB do begin for j:=1 to mB do begin CX:=CX+(A[iA,jA]*B[iB,jB]); {C[y,x]:=cx;} jA:=jA+1; iB:=iB+1; end; jA:=1; iB:=1; jB:=jB+1; write(cx,' '); x:=x+1; cx:=0; end; iA:=iA+1; x:=1; y:=y+1; end; end; procedure afishare; begin for i:=1 to mA do begin for j:=1 to nB do begin write(C[i,j],' '); end; end end; begin write('Introduceti din cate linii shi colane va fi alcatuita prima matrice '); readln(mA,nA); write('Introduceti din cate linii shi colane va fi alcatuita a doua matrice '); readln(mB,nB); citireA; citireB; jA:=1;jB:=1;iA:=1;iB:=1;{linii o sa avem ca in A, iar coloane cat in B} i:=1; j:=1; y:=0; x:=0; calc{ulare; afishare;}; read; end.
run
|
edit
|
history
|
help
0
NHATANH
Perimetro y Area (con validaciones)
buscar_numero_V2_divisible_5
Бассейн-5
Solving Quadratic Equation
Kelipatan
nomer5
Potenztabelle
Урок 3 не из учебника. U-контур и функция sign (x)
Rafli