Поворот паруса корабля на 180 градусов при приходе за рамки экрана и изменении движения корабля

@Schneider21 · Регистрация: 24.11.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Тема: есть корабль с парусом. При выходе за рамки экрана корабль начинает двигаться в обратную сторону. Нужно сделать так. чтобы и пару так же поворачивал за кораблем
Код:

Pascal

uses
  GraphABC;
 
var
  x, y, dx: integer;
 
begin
  x := 200; y := 200;
  dx := 1;
  SetPenWidth(2);
  LockDrawing;
  
  repeat
    ClearWindow;
    { Корпус: }
    SetPenColor(clGreen);
    MoveTo(x, y);
    LineTo(x + 80, y + 80);
    LineTo(x + 280, y + 80);
    LineTo(x + 350, y);
    LineTo(x, y);
    { Каюта: }
    MoveTo(x + 60, y);
    LineTo(x + 60, y - 50);
    LineTo(x + 280, y - 50);
    LineTo(x + 280, y);
    { Парус: }
    SetPenColor(clBrown);
    MoveTo(x + 160, y - 50);
    LineTo(x + 150, y - 110);
    LineTo(x + 160, y - 150);
    LineTo(x + 160, y - 50);
    { Окна: }
    SetPenColor(clBlue);
    Circle(x + 100, y - 25, 10);
    Circle(x + 150, y - 25, 10);
    Circle(x + 200, y - 25, 10);
    Circle(x + 250, y - 25, 10);
    reDraw;
    x := x + dx;
    { При выходе за рамки окна меняем направление: }
    if (x + 350 > WindowWidth) or (x < 0) then dx := -dx 
  until false;
end.

Тут всё работает, кроме паруса. Ах да, и еще, если не сложно будет, можно ли сделать так, чтобы корабль двигался по волне?
Огромное спасибо.

@Schneider21 · 28.04.2016, 19:11 **[ТС]**

Может все-таки есть тот человек, который сможет помочь с этим заданием?

@Puporev · 28.04.2016, 19:54

Поворот паруса

Pascal

uses
  GraphABC;
 
var
  x, y, dx, k: integer;
 
begin
  x := 200; y := 200;
  dx := 1;
  k:=1;
  SetPenWidth(2);
  LockDrawing;
 
  repeat
    ClearWindow;
    { Корпус: }
    SetPenColor(clGreen);
    MoveTo(x, y);
    LineTo(x + 80, y + 80);
    LineTo(x + 280, y + 80);
    LineTo(x + 350, y);
    LineTo(x, y);
    { Каюта: }
    MoveTo(x + 60, y);
    LineTo(x + 60, y - 50);
    LineTo(x + 280, y - 50);
    LineTo(x + 280, y);
    { Парус: }
    SetPenColor(clBrown);
    MoveTo(x + 160, y - 50);
    LineTo(x + 160+k*10, y - 110);
    LineTo(x + 160, y - 150);
    LineTo(x + 160, y - 50);
    { Окна: }
    SetPenColor(clBlue);
    Circle(x + 100, y - 25, 10);
    Circle(x + 150, y - 25, 10);
    Circle(x + 200, y - 25, 10);
    Circle(x + 250, y - 25, 10);
    sleep(50);
    x := x + dx;
      { При выходе за рамки окна меняем направление: }
    if (x + 350 > WindowWidth) or (x < 0) then
     begin
      dx := -dx;
      k:=-k;
     end;
    reDraw;
 
 
  until false;
end.

@capricornus CF · 28.04.2016, 20:16

Подобие волны

Pascal

....
repeat
  y:=round(y+sin(x*100));
    ClearWindow;
....

@Schneider21 · 28.04.2016, 20:24 **[ТС]**

А, если текстом, то, как я понял, нужно саму ось x, по которой двигается кораблик представить как синусоиду? Или я что-то не до конца понял?

@Puporev · 28.04.2016, 21:13

Pascal

uses
  GraphABC;
procedure more;
var x,y:integer;
begin
setpencolor(clBlue);
x:=0;
while x<=windowwidth+1 do
 begin
  y:=270-round(sin(x/20)*10);
  if x=0 then moveto(x,y)
  else lineto(x,y);
  x:=x+1;
 end;
line(1,250,1,windowheight);
line(windowwidth,250,windowwidth,windowheight);
line(0,windowheight,windowwidth,windowheight);
floodfill(350,350,clBlue);
end;
procedure korabl(x,y,k:integer);
begin
SetPenWidth(2);
SetBrushStyle(bsClear);
// Корпус:
SetPenColor(clGreen);
MoveTo(x, y);
LineTo(x + 80, y + 80);
LineTo(x + 280, y + 80);
LineTo(x + 350, y);
LineTo(x, y);
floodfill(x+5,y+5,clGreen);
// Каюта:
MoveTo(x + 60, y);
LineTo(x + 60, y - 50);
LineTo(x + 280, y - 50);
LineTo(x + 280, y);
// Парус:
SetPenColor(clBrown);
MoveTo(x + 160, y - 50);
LineTo(x + 160+k*10, y - 110);
LineTo(x + 160, y - 150);
LineTo(x + 160, y - 50);
// Окна:
SetPenColor(clBlue);
Circle(x + 100, y - 25, 10);
Circle(x + 150, y - 25, 10);
Circle(x + 200, y - 25, 10);
Circle(x + 250, y - 25, 10);
end;
var
  x, y, dx, k: integer;
 
begin
  x := 200; y := 200;
  dx := 1;
  k:=1;
  LockDrawing;
  repeat
    ClearWindow;
    more;
    korabl(x,y,k);
    sleep(20);
    x := x + dx;
      { При выходе за рамки окна меняем направление: }
    if (x + 350 > WindowWidth) or (x < 0) then
     begin
      dx := -dx;
      k:=-k;
     end;
    reDraw;
  until false;
end.

@Schneider21 · 29.04.2016, 18:17 **[ТС]**

Либо компилятор у меня до конца не работает с кодом, либо отрисовка замирает на начальном значении?

Поворот паруса корабля на 180 градусов при приходе за рамки экрана и изменении движения корабля

Решение

Решение

@Schneider21 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 9
	28.04.2016, 19:11 [ТС]	2
	Может все-таки есть тот человек, который сможет помочь с этим заданием? 0

@Schneider21 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 9
	28.04.2016, 20:24 [ТС]	5
	А, если текстом, то, как я понял, нужно саму ось x, по которой двигается кораблик представить как синусоиду? Или я что-то не до конца понял? 0

@Schneider21 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 9
	29.04.2016, 18:17 [ТС]	7
	Либо компилятор у меня до конца не работает с кодом, либо отрисовка замирает на начальном значении? 0