Търся програмисти. Не е работа на заплата. На хонорар е. Давам задача, разбираме се за парите, пишеш - взимаш парата и кои от къде е.

Изисквания: Да си много добър и да можеш да мислиш.

(Не се изисква визше образование.
Не се изисква N години стаж по специалността.
Не се изисква писане на документация (само понякога).
Не се изисква спазване на работното време. и т.н.)

Проектите са сложни. Сроковете кратки.

Тест за желаещите:

Да се напише процедура със следния проторип:

procedure Calculate(var APoint:TPoint;AKey:Integer;ABounds:TRect);

... която да премества точка APoint според параметрите AKey и ABounds.

AKey: код на натиснат клавиш (ляво=1,дясно=2;горе=3;долу=4);

ABounds: граници на правоъгълник (top,left,bottom,right) който не трябва да напуска точката.

Пример:

procedure Calculate(var APoint:TPoint;AKey:Integer; ABounds:TRect);
begin
with ABounds,APoint do
case AKey of
1:if X>Left then X:=X-1; //dec(x)
2:if X<Right then X:=X+1; //inc(x)
3:if Y>Top then Y:=Y-1; //dec(y)
4:if Y<Bottom then Y:=Y+1; //inc(y)
end;
end;


Условие: Да не се ползват операторите "IF", "CASE", WHILE, REPEAT/UNTIL, FOR, и директивата ASM.

gotova e funkciata a sega napishi kolko shte mi dadesh.
Pak az shte pomislia dali vaobshte da ti otgovoria...

А отговорите на задачката къде да пращаме ?

Безумие отвсякъде, честно!

obadi mi se: 048917776
az pisha ti plashtash. Dano tova te zadovoli.


procedure TForm1.Calculate(var APoint: TPoint; AKey: Integer; ABounds: TRect);
(*исползвана техника - вложена процедура*)

var
APointGlobal: TPoint;
AKeyGlobal: Integer;
ABoundsGlobal: TRect ;
procedure Button1KeyPress(Sender: TObject; var Key: Char);
begin
with ABounds,APoint do
case AKey of
1:if X>Left then X:=X-1; //dec(x)
2:if X<Right then X:=X+1; //inc(x)
3:if Y>Top then Y:=Y-1; //dec(y)
4:if Y<Bottom then Y:=Y+1; //inc(y)

(*тука пишеш усложието за ABounds:
....

*)

(*tuk prisvoiavash stoinosti na promenlivite i izpolzvash if, else i kvoto si iskash
APointGlobal;
AKeyGlobal;
ABoundsGlobal;
...
*)
end;

end;(*krai na key press procedure*)
begin
(*nachalo na Calculate*)
APoint := APointGlobal;
AKey := AKeyGlobal;
ABounds := ABoundsGlobal;
(*тука повече нищо не пишеш.*)

end;

procedure Calculate(var APoint:TPoint;AKey:Integer; ABounds:TRect); 

var b: Boolean;



  function IncDecBool(var z: Integer; step: Integer): Boolean;

  begin

    Inc(z, step);

    Result := True 

  end;



begin 

{$B-}

  with ABounds, APoint do 

    b := (AKey = 1) and (X > Left)   and IncDecBool(x,-1) or

         (AKey = 2) and (X < Right)  and IncDecBool(x, 1) or

         (AKey = 3) and (Y > Top)    and IncDecBool(y,-1) or

         (AKey = 4) and (Y < Bottom) and IncDecBool(y, 1)

end;

Тук май всички направиха нечия чужда задача или поне така ми се струва.

Bez komentar

tuk

bez komentar