Вверх ↑
Ответов: 80
Рейтинг: 4
#1: 2013-04-08 21:00:36 ЛС | профиль | цитата
Последняя (на текущий момент) версия кода:
#pas

#pas
var

x,y: array of integer;
a,z: array of string;
m,ring,k,rings:integer;

begin

read(rings);//бб‡аИб‚б‹аВаАаЕаМ аКаОаЛбŒб†аА

for ring:=1 to rings do
begin;m:=1;k:=3*ring*ring-3*ring;
 while m<=2*ring+1 do
 begin;
   if m<=ring+1 then
   begin;       
   a[k+m]:=z[k+m];          //бб‡аИб‚б‹аВаАаЕаМ аНаАаЗаВаАаНаИаЕ.
   y[k+m]:=-15-24*ring;
   x[k+m]:=14+14*(ring-m);
    y[k+3*ring+m]:=-y[k+m];
    x[k+3*ring+m]:=-x[k+m];
    a[k+3*ring+m]:=z[k+3*ring+m];
   end
    else;
    begin;
     a[k+m]:=z[k+m];
     y[k+m]:=-15-24*(2*ring-m+1);
     x[k+m]:=14+14*(ring-m);
      y[k+3*ring+m]:=-y[k+m];
      x[k+3*ring+m]:=-x[k+m];
      a[k+3*ring+m]:=z[k+3*ring+m];
       y[k+3*ring-m]:=-y[k+m];
       x[k+3*ring-m]:=x[k+m];
       a[k+3*ring-m]:=z[k+3*ring-m];
        y[k+6*ring-m]:=y[k+m];
        x[k+6*ring-m]:=-x[k+m];
        a[k+6*ring-m]:=z[k+6*ring-m];
    end;
 m:=m+1;
 end;
end;
//аЗаДаЕббŒ аВб‹аВаЕбб‚аИ аМаАббаИаВб‹
end.
обновил
карма: 0

0