Заполнить матрицу, обнулить закрашенные элементы

16.01.2013, 20:43. **Показов** 1264. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста. Сколько не пыталась, получается только фигуры, зеркальные данной....

Заполнить матрицу из 7 строк и столбцов и вывести ее на экран. Обнулить элементы, отмеченные зеленым, и вывести ее на экран

@ermolay · 16.01.2013, 23:18

то есть нужно две разные программы?
1.

Pascal

const
  n=7;
var
  a: array[1..n,1..n] of byte;
  i,j,k,tmp: byte;
begin
  k:=0;
  writeln('Исходная матрица');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      inc(k);
      a[i,j]:=k;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  k:=0;
  writeln('Обнуляем элементы закрашенной области');
  for i:=n div 2+1 to n do
  begin
    for j:=1+k to n-k do
      a[i,j]:=0;
    inc(k);
  end;
  
  //вывод матрицы
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

2.

Pascal

const
  n=7;
var
  a: array[1..n,1..n] of byte;
  i,j,k,tmp: byte;
begin
  k:=0;
  writeln('Исходная матрица');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      inc(k);
      a[i,j]:=k;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  k:=0;
  writeln('Обнуляем элементы закрашенной области');
  for i:=1 to n do
  begin
    for j:=n downto n-k do 
      a[i,j]:=0;
    if i<=n div 2 then inc(k)
      else dec(k);  
  end;
  //вывод
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

программы работают при любом размере матрицы, нужно только изменить n

18.01.2013, 21:33

Спасибо большое))

Ande
		1
	Заполнить матрицу, обнулить закрашенные элементы 16.01.2013, 20:43. Показов 1264. Ответов 2 Метки нет (Все метки) Помогите пожалуйста. Сколько не пыталась, получается только фигуры, зеркальные данной.... Заполнить матрицу из 7 строк и столбцов и вывести ее на экран. Обнулить элементы, отмеченные зеленым, и вывести ее на экран Миниатюры

Опции темы

Заполнить матрицу, обнулить закрашенные элементы

Решение