Спираль Архимеда в паскале

@Alyfila1 · Регистрация: 08.06.2016

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

@Puporev · 12.05.2017, 20:08

r:=a*f; это понятно, а что за параметры n,m? Где и для чего они используются?

Добавлено через 24 минуты
Ну пусть m-количество полувитков спирали, а n не придумал.

Pascal

uses graphABC;
procedure arh(x0,y0,a,m,n:integer);
var f,r,x,y:real;
begin
f:=0;
while f<=m*pi do
 begin
  r:=a*f;
  x:=r*cos(f);
  y:=r*sin(f);
  if f=0 then moveto(x0+round(x),y0-round(y))
  else lineto(x0+round(x),y0-round(y));
  f:=f+0.01;
 end;
line(x0-round(r),y0,x0+round(r),y0);
line(x0,y0-round(r),x0,y0+round(r));
textout(x0-50,y0-round(r)-20,'a='+inttostr(a)+' m='+inttostr(m));
end;
var a,n,m:integer;
begin
arh(100,100,4,1,1);
arh(400,100,6,4,1);
arh(100,300,2,10,1);
arh(400,300,3,12,1);
end.

@Alyfila1 0 / 0 / 0 Регистрация: 08.06.2016 Сообщений: 32
		1
	Спираль Архимеда в паскале 12.05.2017, 18:51. Показов 3169. Ответов 1 Метки нет (Все метки) 0

	12.05.2017, 20:08

Спираль Архимеда в паскале

Решение