Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 20.12.2009
Сообщений: 16
1

Создание числовых блоков

14.10.2012, 22:20. Показов 378. Ответов 5
Метки нет (Все метки)

Нужно сгенерировать 300 блоков , по 6 строчек и в каждой строчке 6 цифр
Пример
23 42 12 15 13 45
32 55 67 34 74 11
23 42 12 15 13 45
32 55 67 34 74 11
33 51 62 36 71 11

Это 1й блок, а таких блоков нужно 300
Как грамотней написать подскажите друзья
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2012, 22:20
Ответы с готовыми решениями:

Создание блоков
Здравствуйте.Возник вопрос с созданием блоков.Как можно сделать "резиновые" блоки?Что лучше...

Создание блоков.Денвер
Добрый вечер! Очень нужна ваша помощь! Начала изучать и сразу застряла! Есть основная страничка...

Создание новых блоков
Я уже писал что делаю шаблон на joomlа, и теперь возник вопрос как задать стиль для блока....

Динамическое создание блоков
На одной странице сайта есть форма для отправки сообщения (комментария), а на другой - динамически...

5
729 / 405 / 95
Регистрация: 19.12.2010
Сообщений: 756
14.10.2012, 23:03 2
сгенерировать двумерный массив 6*6 триста раз. Числа генерировать функцией random.Примеры есть в Инете. Для сохранения сгенерированного все записать в текстовый файл.
0
0 / 0 / 0
Регистрация: 20.12.2009
Сообщений: 16
14.10.2012, 23:51  [ТС] 3
Спасибо
Начал с простого, чтобы вспомнить как это кодить на делфи

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer; sa:array[1..10] of Integer;
begin
for i:=1 to 10 do begin
sa[i]:=Random(50)-10;
end;
for i:=1 to 10 do begin
RichEdit1.Lines[i]:=IntToStr(sa[i]);
i:=i+1; 
end;
end;
Почему на строчке i:=i+1; возникает ошибка??!!!!! Ошибка Assignment to FOR-Loop variable 'i'
0
Заблокирован
14.10.2012, 23:58 4
удали эту строчку, ты не можешь изменить эту переменную
Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer; sa:array[1..10] of Integer;
begin
for i:=1 to 10 do begin
sa[i]:=Random(50)-10;
RichEdit1.Lines[i]:=IntToStr(sa[i]);
end;
0
0 / 0 / 0
Регистрация: 20.12.2009
Сообщений: 16
15.10.2012, 00:02  [ТС] 5
Цитата Сообщение от Бородач Посмотреть сообщение
удали эту строчку, ты не можешь изменить эту переменную
Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer; sa:array[1..10] of Integer;
begin
for i:=1 to 10 do begin
sa[i]:=Random(50)-10;
RichEdit1.Lines[i]:=IntToStr(sa[i]);
end;
всё равно не выводит массив, выводит только одно рандомное число
0
Заблокирован
15.10.2012, 01:17 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
  Mas: Array[0..5, 0..5] of Integer;
  i, j, k: Integer;
  s: String;
begin
  for i := 0 to 299 do
    begin
      for j := 0 to 5 do
        begin
          for k := 0 to 5 do
            begin
              Mas[j, k] := Random(50);
              s := s + IntToStr(Mas[j, k]) + ' ';
            end;
          RichEdit1.Lines.Add(s);
          s := '';
        end;
      RichEdit1.Lines.Add('');
    end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.10.2012, 01:17

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Создание блоков с прокрутками
Пожалуйста, подскажите как как в css создать каркас с 2мя независимыми блоками и прокрутками и...

Создание блоков в коде
Пишу в Visual Studio 2013. Есть ли в с++ возможность создания блоков #region как в c# , или...

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

Создание динамических блоков в autocad
подскажите как можно создать такой динамический блок, чтобы при нажатии на синюю стрелку можно было...


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

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

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