Форум «Всё о Паскале»

Shtorm

23.12.2005 22:35

Задача такова: необходимо подсчитать сумму элементов матрицы находящихся в заштрихованной части
не считая тех которые находятся на перечеркнутой границе. Я сделаал для подсчета всей заштрих области а вот для подсчета без перечеркнутой границы ни нак не получ сделать. Помогите PS!

Shtorm

23.12.2005 22:39

Задача такова: необходимо подсчитать сумму элементов матрицы находящихся в заштрихованной части
не считая тех которые находятся на перечеркнутой границе. Я сделаал для подсчета всей заштрих области а вот для подсчета без перечеркнутой границы ни нак не получ сделать. Помогите PS!Нажмите для просмотра прикрепленного файла Нажмите для просмотра прикрепленного файла

program summ;
var
a:array[1..100,1..100] of integer;
N,i,j,sa,sb,sc,s:integer;
 begin
  repeat
   writeln('vvedite N');
   readln(N);
  if (n<1) then 
   writeln('nedopustimoe znachenie');
  until (n>=1);
  for i:=1 to n do
   for j:=1 to n do
     begin
      writeln('vvedite a[',i,',',j,']');
      readln(a[i,j]);
     end;
     begin
     sa:=0;
      for i:=1 to n do
       for j:=1 to (round(N/2)-1) do
        sa:=sa+a[i,j];
     sb:=0;
      for i:=(round(n/2)+1) to n do
       for j:=(round(n/2)) to i do
        sb:=sb+a[i,j];
     sc:=0;
      for i:=1 to round(n/2) do
       for j:=round(n/2) to (n-i+1) do
        sc:=sc+a[i,j];
     end;
  s:=sb+sc+sa;
  writeln('s=',s);
 end.

Shtorm

23.12.2005 23:17

Вроде так!! проверьте Ps

Код

program summ;
var
a:array[1..100,1..100] of integer;
N,i,j,sa,sb,sc,s:integer;
begin
  repeat
   writeln('vvedite N');
   readln(N);
  if (n<1) then
   writeln('nedopustimoe znachenie');
  until (n>=1);
  for i:=1 to n do
   for j:=1 to n do
     begin
      writeln('vvedite a[',i,',',j,']');
      readln(a[i,j]);
     end;
     begin
     sa:=0;
      for i:=1 to n do
       for j:=1 to (round(N/2)-1) do
        sa:=sa+a[i,j];
     sb:=0;
      for i:=(round(n/2)+1) to n do
       for j:=(round(n/2)) to (i-1) do
        sb:=sb+a[i,j];
     sc:=0;
      for i:=1 to round(n/2) do
       for j:=round(n/2) to (n-i) do
        sc:=sc+a[i,j];
     end;
  s:=sb+sc+sa;

writeln('sa=',sa);
writeln('sb=',sb);
writeln('sc=',sc);
writeln('s=',s);
end.