Developing.ru

Код: Выделить всё

FillChar(c, sizeof(c), 0);

Код: Выделить всё

program proizv_matric;
var n,m,r:integer;
i,j,k:integer;
a,b,c:array[1..15,1..15] of real;
begin
write('zadaite pr-ie dvuh matric');
readln(m,n,r);
write('zadaite A postrochno');
for i:=1 to m do
    for j:=1 to n do
    read(a[i,j]);
write('zadaite B postrochno');
for j:=1 to n do
    for k:=1 to r do
    read(b[j,k]);
  for i:=1 to m do  {вот цикл к-рый имхо можно убрать}
  for k:=1 to r do   {всё равно на суть проги не влияет,}
  c[i,k]:=0;           {а что ещё и можно ли не догадываюсь}
for i:=1 to m do
for k:=1 to r do
begin
     for j:=1 to n do
     c[i,k]:=c[i,k]+a[i,j]*b[j,k];
     {writeln('c[',i:2,',',k:2,']=',c[i,k]:7:3);}
     end;
for i:=1 to n do
begin
    for k:=1 to r do
    begin
    write('c[',i:2,',',k:2,']=',c[i,k]:7:3);
    end;
writeln;
end;
     readln;
     readln;
     end.

Код: Выделить всё

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,655360}
program ddProj1;

var
 An, S, E: Real;
 N, R, Z, B, I: LongInt;

begin
 E:=0.001;
 N:=1;
 S:=0;
 repeat
   R:=1;
  for I:=1 to N do
   R:=R*2*I;
   Z:=1;
   for I:=1 to N do
   Z:=Z*N;
  B:=1;
   for I:=1 to Z do
    B:=B*I;
  An:=R/B; 
  S:=S+An; 
  N:=N+1;
 until An<E;
 writeln('Summa ryada S=', S:3:3);
 writeln('Kol-vo iteratsii: ', N-1);
 readln;
end.