Вверх ↑
Ответов: 80
Рейтинг: 4
#1: 2013-04-03 18:23:17 ЛС | профиль | цитата
37.45.195.16 писал(а):
Что у вас не получилось?

Не знаю говорят: не то.

Я вот думаю как класс работать заставить... Методы: start. События: hexstart. Данные на вход: px, py, pSystems. Данные на выход: fxmax, fymax, rings, fkoord.
#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
THiAsmClass = class(TDebug);

private
  xmax,ymax:real;
  Systems,n,m,x,y,xe,ye,hexstart,xv,yv:integer;
  Rings:Byte;
  a:array of longint;
public
   px,py,pSystems:THI_Event;
   
   constructor Create;
   procedure start(var _Data:TData; Index:WORD);
 procedure   
 end;

implementation
constructor THiAsmClass.Create;
   procedure THiAsmClass.start;
begin
   read(x,y);
   Rings:= (-0.5)+0.5*sqrt(1+(Systems/3)*4);
  
   xmax:=34*(2*(Rings/3)+1);
   ymax:=22*(1+Rings);
  
   xe:=round(y*0.5+x*(sqrt(3)/2));
   ye:=round(-y*(sqrt(3)/2)+x*0.5);
  
   xv:=xe+15;
   yv:=ye+9;

   a[0]:=(ymax+yv)*65536+(ymax+xv);
   a[1]:=(ymax+yv-13)*65536+(ymax+xv-7);
   a[2]:=(ymax+yv-13)*65536+(ymax+xv-23);
   a[3]:=(ymax+yv)*65536+(ymax+xv-30);
   a[4]:=(ymax+yv-14)*65536+(ymax+xv-23);
   a[5]:=(ymax+yv-14)*65536+(ymax+xv-7);
   for n:=0 to 5 do
   writeln (a[n]);
end;
 
end.

Как связать входные/выходные данные с кодом?
карма: 0

0