Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r

@solnushko94 · Регистрация: 16.03.2012

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

Построить спираль вокруг начала координат с n витками и внешним радиусом r; начальное направление образует с осью ОХ угол α. Параметрическая запись спирали:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} \text x=r cost \\ \text y=r sint \end{cases}$

r= t/2; $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha \leq t\leq 2\pi n$

Пожалуйста, помогите. Графика в Паскале для меня сплошной ужас(((

@vanes1993 · 30.05.2012, 23:36

Вот задачка по построению спирали Архимеда, посмотри, может чем-нибудь поможет тебе) Используется процедура вывода точки

Pascal

program Graf_2;
Uses Crt, Graph;
var x,y: integer;   {координаты точки}
 u,r:real;
  grDriver: integer;  {тип драйвера}
  grMode: integer;        {тип графического режима}
  grPath: string; {путь к графическому драйверу }
  ErrCode: integer;     {код ошибки }
 
BEGIN
  grDriver:= detect;
  grmode:=vgahi;
  InitGraph(grDriver, grMode, 'c:\tp7\bgi');
  ErrCode:= GraphResult;
  if ErrCode<> grOk then
    begin
      writeln(GraphErrorMsg(errcode));
      WriteLn('Ошибка инициализации графического режима);
      WriteLn('Для выхода из программы нажмите ENTER');
      readLn;
      Halt(1);
    end;
 
  r:=1; u:=0;
  repeat
      u:=u+0.01;
      r:=r+0.01;
      x:=trunc(R* Cos(u)+320);
      y:=trunc(R*Sin(u)+240);
       PutPixel(x,y,14);
      delay(10);
  until KeyPressed;
  CloseGraph;
end.

@solnushko94 2 / 2 / 0 Регистрация: 16.03.2012 Сообщений: 20
		1
	Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r 30.05.2012, 02:45. Показов 1990. Ответов 1 Метки нет (Все метки) Построить спираль вокруг начала координат с n витками и внешним радиусом r; начальное направление образует с осью ОХ угол α. Параметрическая запись спирали: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} \text x=r cost \\ \text y=r sint \end{cases}$ r= t/2; $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha \leq t\leq 2\pi n$ Пожалуйста, помогите. Графика в Паскале для меня сплошной ужас((( 0

	30.05.2012, 23:36

Опции темы

Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r

Решение