Изобразить правильный n угольник

@Никитич · Регистрация: 02.01.2013

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

язык паскаль
изобразить правильный n угольник

@~~MansMI~~ · 03.01.2013, 07:14

Pascal

uses crt,graph;
var gd,gm,i,n:integer;
    arr:array[0..100]of pointtype;
    da:double;
begin
   repeat
      write('Введите n>2:');
      readln(n);
   until n>2;
   da:=2*PI/n;
   for i:=0 to n do
   begin
      arr[i].X:=320+round(200*cos(PI/2+i*da));
      arr[i].Y:=240-round(200*sin(PI/2+i*da));
   end;
   initgraph(gd,gm,'');
   drawpoly(n+1,arr);
   readln;
   closegraph;
end.

@Никитич 0 / 0 / 0 Регистрация: 02.01.2013 Сообщений: 31
		1
	Изобразить правильный n угольник 03.01.2013, 01:50. Показов 2917. Ответов 1 Метки нет (Все метки) язык паскаль изобразить правильный n угольник 0

	03.01.2013, 07:14

Изобразить правильный n угольник

Решение