Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
MrBigDaddy96
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 4
1

Заполнить двумерный массив заданным образом

27.11.2016, 16:41. Просмотров 867. Ответов 3
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста решить задание

Дан двумерный массив А(m,m), где m=7. Заполнить двумерный массив
следующим образом:
2 4 8 16 32 64 128
4 8 16 32 64 128 2
8 16 32 64 128 2 4
16 32 64 128 2 4 8
32 64 128 2 4 8 16
64 128 2 4 8 16 32
128 2 4 8 16 32 64
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2016, 16:41
Ответы с готовыми решениями:

Заполнить двумерный массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 0 0 0 ...

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

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1|2|...|10...

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1 0 0 …...

Заполнить массив А определенным образом
1. var A:array of byte; Заполнить массив А следующим образом: 1 2 3 …...

3
Пытливый
1380 / 691 / 249
Регистрация: 29.05.2013
Сообщений: 3,116
27.11.2016, 18:20 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Project12;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var
  n,i,j: Integer;
begin
 n := 2;
 for i := 1 to 7
 do begin
    for j := 1 to 7
    do begin
       Write(n:4);
       n := n + n;
       if n > 128 then n := 2;
       end;
    n := n + n;
    WriteLn;
   end;
 ReadLn;
end.
1
MrBigDaddy96
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 4
27.11.2016, 18:23  [ТС] 3
А как это сделать в Delphi с помощью компонента StringGrid?
0
Puporev
Модератор
54711 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
27.11.2016, 20:09 4
Лучший ответ Сообщение было отмечено MrBigDaddy96 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
const n=7;
var a:array[1..n,1..n] of Byte;
    i,j,m:integer;
begin
m:=2;
for i:=1 to n do
 begin
  for j := 1 to n do
   begin
     a[i,j]:=m;
     StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
     m:=m+m;
     if m>128 then m:=2;
    end;
   m:=m+m;
  end;
end;
1
Миниатюры
Заполнить двумерный массив заданным образом  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2016, 20:09

Заполнить массив А определенным образом
Решить задачу в дельфи. Помогите плз. var A:array of byte; Заполнить массив...

Сформировать двумерный массив m*k случайным образом
Сформировать двумерный массив m*k случайным образом. Выполнить над ним...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru