Конференция "Прочее" » Математика
 
  • {RASkov} © (22.08.08 23:36) [0]
    1)
     
    for C:=0 to 2 do
      for R:=0 to 2 do begin
       Ind:=R*2+C;


    .......
    Что-то никак не соображу как в Ind получить последовательность (0,1,2,3,4,5,6,7,8) или (1,2,3,4,5,6,7,8,9)

    2)
    Или вот такой вопрос:
    Как расчитать Rect'ы зная их кол-во и размер сетки. Т.е.
    var R: TRect;
    begin
    ColCount:=5;
    RowCount:=5;
    for I:=0 to ColCount*RowCount-1 do begin
    R:=Rect(?)
    Canvas.Rectangle(R); //Должна получится на канве сетка 5х5
    ........



    Ох уж эта математика, да еще и в пятницу :(
  • palva © (22.08.08 23:39) [1]
    C*3+R+1
Есть новые Нет новых   [134441   +9][b:0][p:0.001]