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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2018, 00:46   #1
pavel545
 
Регистрация: 13.03.2018
Сообщений: 3
По умолчанию Lazarus

Помогите разобраться с кодом , если можно описание каждой строки
procedure TForm1.Button3Click(Sender: TObject);
begin
k:=0;
For l:=1 to 2*n-1 do
begin
if l>n then
begin
for i:=l downto l-n+1 do
begin
k:=k+1;
a[i,l-i+1]:=k;
end
end
else if l<=n then
begin
for i:=l downto 1 do
begin
k:=k+1;
a[i,l-i+1]:=k;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
stringgrid3.Cells[i-1,j-1]:=IntToStr(a[j,i]);
end;
end;
pavel545 вне форума Ответить с цитированием
Старый 17.03.2018, 02:31   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

А волшебное слово?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lazarus roza_236 Помощь студентам 1 09.05.2017 16:50
Lazarus SnS Помощь студентам 0 07.10.2013 22:40
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus Toxifer Фриланс 0 27.11.2012 22:46
Lazarus... Сristina Помощь студентам 1 28.03.2011 20:03
Lazarus 666Rayne666 Помощь студентам 2 02.06.2010 17:55