Заполнить квадратную матрицу В(10,10) единицами в шахматном порядке, начиная с верхнего левого угла

[x93]

Не могли бы помочь с задачкой?

1.Заполнить квадратную матрицу В(10,10) единицами в шахматном порядке, начиная с верхнего левого угла. Соседние клетки заполнить нулями.

[aggressor74]

Помогите пожайлусто с задачей:
Дан двухмерный массив, заполненный нулями и единицами. Найти прямоугольник наибольшей площади, заполненный единицами.
(нужно написать прогу в С) ну или хотя бы блок-схему

[ImmortalAlexSan]

Для x93:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var i,j:integer; B:array [1..10,1..10] of integer;
Begin
For i:=1 to 10 do
For j:=1 to 10 do
If i mod 2=1 then
begin
If j mod 2=1 then
B[i,j]:=1
else B[i,j]:=0;
end
else
If j mod 2=1 then
B[i,j]:=0
else B[i,j]:=1;
For i:=1 to 10 do
For j:=1 to 10 do
StringGrid1.Cells[i-1,j-1]:=inttostr(B[i,j]);
end;

end.

На дельфи.
Для aggressor74: прости с С не дружу.

[aggressor74]

ImmortalAlexSan, а на псевдо-коде или блок-схеме сможешь написать?буду очень благодаген

[ImmortalAlexSan]

aggressor74 алгоритм:
1. Заполняется рандомно или в ручную ваш массив.
2. Перебираются все его элементы (от первого до максимума по строкам и по столбцам)
3. Так как перебор начинается с первого элемента, то в этом цикле вводится условие вида: если элемент[i,j]=1 то переходим к пункту 4.
4. Перебираем столбец i до первого нуля или до конца, как только это условие соблюдено, то увеличиваем j на один и опять перебираем до первого нуля или до конца и так до тех пор, пока не дойдемдо конца j или до 0. Но вот тут загвоздка, ведь может получиться и так:
1-1-1-1-0
1-1-0
1-1-1-0
0
Для того чтобы уже из выисленной области найти этот прямоугольник, нужно ввести ещё один перебор для каждой новой найденной единицы вниз...
Что-то в этом духе. Ну я по крайней мере так делал, нужно организовывать много циклов и в них проверки условий.

[x93]

Люди! Я конечно вас всех очень люблю и очень вам благодарна, но мне на ПАСКАЛЕ надо бы))))

[ROMA2PVT]

А что мешает взять фрагмент из программы ImmortalAlexSan?

[x93]

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

[profi]

x93 если ты не знаешь, что Delphi это и есть Pascal, тогда как же ты предыдущие задачи сделала, точнее сказать сделали . ImmortalAlexSan уже даже решил давно. Даже на код можно взглянуть

procedure TForm1.FormCreate(Sender: TObject);
Var i,j:integer; B:array [1..10,1..10] of integer;
Begin
For i:=1 to 10 do
For j:=1 to 10 do
If i mod 2=1 then
begin
If j mod 2=1 then
B[i,j]:=1
else B[i,j]:=0;
end
else
If j mod 2=1 then
B[i,j]:=0
else B[i,j]:=1;
For i:=1 to 10 do
For j:=1 to 10 do
StringGrid1.Cells[i-1,j-1]:=inttostr(B[i,j]);
end;

и понять, что это Pascal

[ROMA2PVT]

x93 Ну помощь то ещё нужна?