|
|
| Тема |
 Търся програмисти |
|
| Автор | unknown (Нерегистриран) | |
| Публикувано | 24.03.06 19:40 |
|
|
|
Търся програмисти. Не е работа на заплата. На хонорар е. Давам задача, разбираме се за парите, пишеш - взимаш парата и кои от къде е.
Изисквания: Да си много добър и да можеш да мислиш.
(Не се изисква визше образование.
Не се изисква 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.
| |
| |
| 
|
|
