Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2013, 12:02   #1
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию матрицу через цикл for...

( 1_1_1_1_0_0_0 )
( 1_1_0_0_1_1_0 )
( 1_0_1_0_1_0_1 )
В общем, я как то пытался выкрутиться из данной ситуации, и вот что у меня получилось....

for i:=1 to 4 do
begin
h:=4;
for e:=h downto 1 do
begin

for j:=e downto 1 do
begin
Label7.Caption:=Label7.Caption+'1 ';
end;

for j:=e-1 downto 1 do
begin
Label7.Caption:=Label7.Caption+'0 ';
end;

end;
Label7.Caption:=Label7.Caption+#10# 13;
-------------------------------------------------------------------------
Но мой код работает только для вывода первой строки(((
А теперь я мало того что запутался, так ещё и идей нету((((
Janger вне форума Ответить с цитированием
Старый 27.05.2013, 12:45   #2
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 516
По умолчанию

а что сделать то надо, заполнить массив или считать его?
если данные статичны, то лучше без цикла, если данные динамические, то этот код не покатит
Пишу на Delphi за еду
Toxa вне форума Ответить с цитированием
Старый 27.05.2013, 12:50   #3
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию

Необходимо просто вывести данную матрицу, но тут идея в том, что в данный момент 3 разряда, (грубо говоря 3 строки в матрице), а может быть и 4 и 5 и 6 и т.д.
Janger вне форума Ответить с цитированием
Старый 27.05.2013, 13:08   #4
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

a - матрица; n,m - размеры.
Код:
for i:=0 to n do
begin
for j:=0 to m do
label.caption:=label.caption+a[i,j]+' ';
label.caption:=label.caption+#13;
end;
при этом у лейбла должны галки в свойствах проставлены быть (мультилайн и/или ворлдврап)
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как написать цикл через while ruffer Помощь студентам 1 28.11.2011 19:51
Посчитать сумму через цикл Раушан Помощь студентам 3 25.09.2011 18:12
В Паскале через двойной массив составить матрицу Novenkaja Помощь студентам 5 13.04.2011 11:11
Транспонетную матрицу написать через массив так,чтобы использовалась одна матрица Novenkaja Помощь студентам 2 06.04.2011 00:36
Вытаскивание данных из БД через цикл Golovastik PHP 4 14.07.2010 23:25