Самолёт, летящий по синусоиде

@Peacemaker16 · Регистрация: 24.03.2015

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

В паскале (граф. модуль) нужно сделать летающий самолёт по синусоиду.

@erl27 · 30.03.2015, 19:50

Код взял с Движение круга по синусоиде от Puporev:

Pascal

uses
  graphABC;
 
procedure plane(x, y: integer);
begin
  { Здесь можно нарисовать свой вариант самолета: }
  MoveTo(x, y);
  LineTo(x + 100, y);
  LineTo(x + 110, y - 10);
  LineTo(x + 100, y - 20);
  LineTo(x + 10, y - 20);
  LineTo(x - 20, y - 40);
  LineTo(x, y);
  MoveTo(x + 70, y - 10);
  LineTo(x + 10, y + 20);
  LineTo(x + 40, y - 10);
end;
 
var
  xc, yc, r, x1, y1: integer;
  x, m, a: real;
 
begin
  xc := windowwidth div 2;
  yc := windowheight div 2;
  r := 10;
  x := -2 * pi;
  m := xc / (2 * pi);//масштаб по Х
  a := 80; //амплитуда
  lockdrawing;
  while x <= 2 * pi do
  begin
    clearwindow;
    x1 := xc + round(x * m);
    y1 := yc - round(sin(x) * a);
    setbrushcolor(clRed);
    plane(x1, y1);//circle(x1, y1, r);
    sleep(100);
    x := x + 0.1;
    redraw
  end
end.

@Peacemaker16 · 30.03.2015, 19:57 **[ТС]**

Только ещё проблемы с написанием самолёта. Вообще не разбираюсь в этом

@Peacemaker16 0 / 0 / 0 Регистрация: 24.03.2015 Сообщений: 3
		1
	Самолёт, летящий по синусоиде 30.03.2015, 19:02. Показов 3247. Ответов 2 Метки нет (Все метки) В паскале (граф. модуль) нужно сделать летающий самолёт по синусоиду. 0

@Peacemaker16 0 / 0 / 0 Регистрация: 24.03.2015 Сообщений: 3
	30.03.2015, 19:57 [ТС]	3
	Только ещё проблемы с написанием самолёта. Вообще не разбираюсь в этом 0

Самолёт, летящий по синусоиде

Решение