Ответы на вопрос:
// pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 // внимание! если программа не работает, обновите версию! uses graphabc; begin var (w,h): =(800,600); // размер графического окна setwindowsize(w,h); var (xc,yc): =(w div 2,h div 2); // координаты центра var r: =h-yc-20; // радиус описанной окружности var n: =readinteger('количество сторон n ='); window.clear; pen.width: =5; pen.color: =clred; var p: =new point[n]; for var i: =0 to n-1 do begin var arg: =2*pi*i/n-pi/2; p[i].x: =trunc(xc+r*cos(arg)); p[i].y: =trunc(yc+r*sin(arg)) end; drawpolygon(p); end.
Популярно: Информатика
-
diana2910200408.10.2022 04:09
-
veraserditih29.05.2020 03:39
-
маг4210.02.2020 20:35
-
adubnovitskaj28.06.2021 19:51
-
safeon25.06.2023 14:51
-
bzhx01.01.2021 22:52
-
Roth99906.05.2021 03:52
-
НеШкольник22822823.06.2020 03:53
-
tana281108.02.2020 13:19
-
пок1523.12.2020 09:46