|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.03.2018, 00:46 | #1 |
Регистрация: 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; |
17.03.2018, 02:31 | #2 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,656
|
А волшебное слово?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |