Паскаль. Задача на графику..помогите доделать(( Опции

[Diamond]

Здравствуйте. Мне нужно нарисовать кораблик, который двигался бы по синусоиде..вот кораблик вроде сделала, разобралась, но он плывет по прямой..и то коряво..помогите пожалуйста..подскажите что не так..

program 1; 
uses graph, crt; 
var 
grDriver, grMode, ErrCode, i: Integer; 
n: char; 
p: fillpatterntype; 
begin 
grDriver := Detect; 
InitGraph(grDriver, grMode,' '); 
ErrCode := GraphResult; 
if ErrCode = grOk then 
begin 
while n<>#27 do 
begin 
setbkcolor(9); 
line(600, 240, 500, 240); 
line(500, 240, 480, 200); 
line(600, 240, 610, 200); 
line(480, 200, 610, 200); 
rectangle(590, 150, 560, 200); 
rectangle(540, 170, 525, 200); 
moveto(10, 245); 
for i:=0 to 640 do 
begin 
lineto(i, round(2*sin(i*0.2))+245); 
end; 
getfillpattern(p); 
setfillpattern(p, 1); 
floodfill(480, 300, white); 
setfillpattern(p, 3); 
floodfill(1, 1, 15); 
n:=readkey; 
if n=' ' then 
begin 
for i:=0 to 520 do 
begin 
line(600-i, 240, 500-i, 240); 
line(500-i, 240, 480-i, 200); 
line(600-i, 240, 610-i, 200); 
line(480-i, 200, 610-i, 200); 
rectangle(590-i, 150, 560-i, 200); 
rectangle(540-i, 200, 575-i, 200); 
setcolor(black); 
line(600-i, 240, 500-i, 240); 
line(500-i, 240, 480-i, 200); 
line(600-i, 240, 610-i, 200); 
line(480-i, 200, 610-i, 200); 
rectangle(590-i, 150, 560-i, 200); 
rectangle(540-i, 200, 575-i, 200); 
end; 
end; 
end; 
CloseGraph; 
end 
else 
Writeln('Graphics error:', GraphErrorMsg(ErrCode)); 
end

[volvo]

Ну, например, попробуй так:

program p1;
uses graph, crt;

procedure DrawShip(px, py: integer);
begin
  line(px, py, px-100, py);
  line(px-100, py, px-120, py-40);
  line(px, py, px+10, py-40);
  line(px-120, py-40, px+10, py-40);
  rectangle(px-10, py-90, px-40, py-41);
  rectangle(px-60, py-70, px-75, py-41);
end;

var
  grDriver, grMode, ErrCode, i: Integer;
  n: char;
  p: fillpatterntype;
  x: integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,' ');
  ErrCode := GraphResult;
  if ErrCode = grOk then begin
    moveto(10, 245);
    for i:=0 to 640 do begin
      lineto(i, round(2*sin(i*0.2))+245);
    end;

    setwritemode(XORput);
    x := 600;
    repeat
      drawship(x, round(2*sin(x*0.2))+240);
      delay(44); { <--- Задержку подберешь сама ... }
      drawship(x, round(2*sin(x*0.2))+240);
      dec(x);
      if keypressed
        then n := readkey;
    until (n = #27);
    setwritemode(CopyPut);
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

Задержку изменишь по необходимости... Раскрасишь нужными цветами - тоже...