Схема разомкнутой системы

[анна2709]

Помогите пожалуйста составить модель разомкнутой системы управления. Нужно нарисовать поле 400*400 с окружностью радиуса 25, посередине поля. нужно двигать по полю точку до ее попадания в окружность, используя 4 управляющие кнопки. шаг перемещения случайное число от 3 до 5. точка отображается по команде enter. Можно в паскале или в лазарусе. Пожалуйста!!!!!!! Срочно, скоро сдавать!!!!!

[Hacker19_90]

Так, а чем помочь?

[Vanta11a]

100 рублей и напишу, среда PascalABC.

А так - изучайте модулю graph.

[arrowsf1]

Сообщение от Vanta11a

100 рублей и напишу, среда PascalABC.

А так - изучайте модулю graph.

конкуренции не будет. Дешевле некуда.

ПС
Граф модуль забыл

[анна2709]

программа очень нужнасама написанная

[Vanta11a]

Ну а мне нужно 100 рублей за эту программу. Договоримся или нет?

Наработок нет => забесплатно даже не подумаю что-то делать. Что изучать - уже сказали.

[анна2709]

вот)
найти ошибку надо)

uses crt, graph;
const
l=400;
r=25;
dr=2;
c1=Brown;
c2=Blue;
c3=Yellow;
c4=Red;

function Rnd: Integer;
var
r: Integer;
begin
r:=Random(2*r)+l div 2-2*r-dr;
if Random(2)=0 then Rnd:=r
else Rnd:=-r;
end;

procedure Cir(x, y, r: Integer; c: Word);
begin
SetColor(c);
SetFillStyle(SolidFill, c);
FillEllipse(GetMaxX div 2+x, GetMaxY div 2-y, r, r);
end;

function CheckMax(x: Integer): Integer;
var
r: Integer;
begin
if Abs(x)>l div 2 - dr then
begin
r:=l div 2 - dr;
if x<0 then r:=-r;
end
else r:=x;
CheckMax:=r;
end;

function Check(x, y: Integer): Boolean;
begin
if (Abs(x)>r+dr) or (Abs(y)>r+dr) then Check:=false
else Check:=(x*x+y*y)<=Sqr(r+dr);
end;

var
gd,gm, ErrCode, x, y, h: Integer;
ga: String;
ch: Char;
visible: Boolean;
begin
Randomize;
gd:=VGA;
gm:=VGAHi;
ga:='c:\bp\bgi';
InitGraph(gd,gm,ga);
if GraphResult = grOk then
begin
x:=(GetMaxX-l-2) div 2;
y:=(GetMaxY-l-2) div 2;
SetColor(c1);
SetFillStyle(SolidFill, c2);
Bar3D(x, y, x+l+2, y+l+2, 0, TopOff);
OutTextXY(170, 460, 'ESC Enter Spase');
SetColor(LightGray);
OutTextXY(200, 460, '- Exit');
OutTextXY(305, 460, '- View');
OutTextXY(410, 460, '- Start');
repeat
visible:=false;
Cir(0, 0, r, c3);
x:=Rnd;
y:=Rnd;
repeat
ch:=ReadKey;
if (ch=#0) and KeyPressed then
begin
ch:=ReadKey;
if ch in [#72, #75, #77, #80] then
begin
if visible then
begin
Cir(x, y, dr, c2);
if Check(x, y) then Cir(0, 0, r, c3);
end;
h:=Random(3)+3;
case ch of #72:y:=CheckMax(y+h);
#75:x:=CheckMax(x-h);
#77:x:=CheckMax(x+h);
#80:y:=CheckMax(y-h);
end;
if visible then Cir(x, y, dr, c4);
end;
end else if ch=#13 then
begin
visible:=true;
Cir(x, y, dr, c4);
end;
until ch in [#27, ' '];
Cir(x, y, dr, c2);
until ch=#27;
CloseGraph;
end
else begin
Writeln('Ошибка инициализации графики');
ReadKey;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Vanta11a]

Угу, вот только работа нифига не самостоятельная.

Цена остается такой же.

p.s. извиняюсь за поздний ап