заполнить массив...

02.11.2011, 09:00. Показов 479. Ответов 0

Метки нет (Все метки)

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

помогите пожалуйста
var A:array [1..10,1..10] of byte;
надо заполнить массив А след.образом:
1 1 1 ... 1 1 1
0 1 1 ... 1 1 0
0 0 1 ... 1 0 0
...
0 0 1 ... 1 0 0
0 1 1 ... 1 1 0
1 1 1 ... 1 1 1
я попробовала вот так

Delphi

procedure TForm1.StringGrid1Click(Sender: TObject);
Var  A:array [1..10,1..10] of integer;
     i,j:integer;
begin
StringGrid1.RowCount:=10;
StringGrid1.ColCount:=10;
for i:=1 to 10 do
for j:=1 to 10 do
 begin
  a[6,j]:=1; a[5,j]:=1;a[i,1]:=1;
  if (j=i) and (j+i=11)then a[i,j]:=1
  else a[i,j]:=0;
  if j<11-i then a[i,j]:=1;
  if j>i then a[i,j]:=1;
  StringGrid1.cells[i-1,j-1]:=Inttostr(a[i,j]);
 end;
end;

дальше не получается по рисунку,можно и попроще сделать,только не знаю как....

Добавлено через 9 часов 54 минуты
все я разобралась))

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.11.2011, 09:00

Ответы с готовыми решениями:

Delphi. Двумерный массив. Заполнить массив А следующим образом var A:array [1.10, 1.10] of byte; :
Помогите решить задачу, как заполнить ее в StringGrid var A:array of byte; Заполнить массив...

Заполнить случайными числами массив целых чисел X и в массив Y занести 10 наименьших положительных элементов X
Заполнить случайными числами массив с чилих чисел X и в массив Y занести 10 самых маленьких...

Массив: Заполнить массив C, каждый элемент которого равен: C[i]=A[i]+B[i]
Даны два массива A и B одинаковой размерности. Заполнить массив C, каждый элемент которого равен:...

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об
Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив...

	02.11.2011, 09:00

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.11.2011, 09:00

Помогаю со студенческими работами здесь

Массив: как заполнить этот массив, и как реализовать поиск значений по столбику и строке?
Есть таблица как на рисунке, мне нужно реализовать выборку по столбику и по строке. вопрос как...

Массив: Как заполнить массив, и как добраться до элемента массива record'ов?
Как заполнить массив, и как добраться до элемента массива record'ов? type myrec = record ...

Заполнить массив
нужно заполнить массив вида 0000 0001 .... 1010 пытался так // arr : array of string;...

заполнить массив
как написать пользовательскую процедуру которая заполняет массив случайными числами? Покажите...

Заполнить массив
Как заполнить массив и найти количество троек после 0?

Заполнить массив
Нужно заполнить 6х5 массив случайными целыми числами от -100 до 100. Поменять строки массива так,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх