Добрый вечер!
Подскажите, пожалуйста, как данный фрагмент программы мне оформить в виде таблицы F1book?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
N:=1;
g:=5;
label1.caption:='';
for i:=5 downto 1 do begin
for j:=i downto 1 do begin
K:=G+N;
label1.Caption:=label1.Caption + format('%2d',[g])+ '+'+format('%2d',[N]) + '= '+format('%2d',[K]) + ' ';
N:= N+1;
g:=g-1;
end;
label1.Caption:=label1.Caption + #13;
N:= N-i;
g:=g+i-1;
end;
end;
должна получиться таблица в виде треугольника...
Очень надеюсь на Вашу помощь!